XProfan

09/04/07 ▲

- Page 1 -

Jörg
Sellmeyer

Listviewdll-Help

InitMessages() must not for each List view uses go, must but for each Window called go, in the at least one List view is used.
Mehrfachaufrufe for a and the same thing Window are not permits and make for Fehlern!

there be I already time on it reingefallen and Have long used To ichs found have. means only once and not any more.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

09/04/07 ▲

Frank
Abbing

InitMessages launch the Subclassing this Fensters. this is naturally only once per Window necessary.

09/04/07 ▲

GDL

Hi Frank,

have another setitem trouble.
Genaueres see Codekommentare.

 {$CLEQ}
declare end%,lvdll&,area#,x&,lview&[]
 $I C:PRFellowCodehilfen_compilerListview_Funktionen.inc
lvdll&=usedll("C:\Control\List view.dll")
dim area#,1024
window 0,0-%maxx,%maxy
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[1]=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
EnableEdits(lview&[1],1)
AutoSortListview lview&[1],1,1,1,1,2,2
ShowListView(lview&[1],10,40,700,100)
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[2]=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
EnableEdits(lview&[2],1)
AutoSortListview lview&[2],1,1,1,1,2,2
ShowListView(lview&[2],10,160,700,100)
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[3]=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
EnableEdits(lview&[3],1)
AutoSortListview lview&[3],1,1,1,1,2,2
ShowListView(lview&[3],10,300,700,100)
ClearListview(lview&[1])
InsertColumn lview&[1],"Num.",50,0
insertColumn lview&[1],"Vorname",80,0
insertColumn lview&[1],"Nachname",120,0
insertColumn lview&[1],"Firma",120,0
insertColumn lview&[1],"Straße",120,0
insertColumn lview&[1],"Plz",50,0
insertColumn lview&[1],"Ort",120,0
insertColumn lview&[1],"Telefon",120,0
insertColumn lview&[1],"Fax",120,0
insertColumn lview&[1],"Handy",120,0
insertColumn lview&[1],"E-Mail",200,0
insertColumn lview&[1],"Internet",250,0
insertColumn lview&[1],"Bemerkung",200,0
ClearListview(lview&[2])
InsertColumn lview&[2],"Num.",50,0
insertColumn lview&[2],"Artikel",80,0
insertColumn lview&[2],"Bemerkung",120,0
insertColumn lview&[2],"Bestellnummer",120,0
insertColumn lview&[2],"Menge",60,0
insertColumn lview&[2],"Bestand",60,0
insertColumn lview&[2],"Raum",70,0
insertColumn lview&[2],"Regal",60,0
insertColumn lview&[2],"Schrank",60,0
insertColumn lview&[2],"Magazin",60,0
insertColumn lview&[2],"Ordner",60,0
insertColumn lview&[2],"Einschub",70,0
insertColumn lview&[2],"Register",70,0
insertColumn lview&[2],"Fach",60,0
insertColumn lview&[2],"Seite",60,0
insertColumn lview&[2],"Brutto",100,0
insertColumn lview&[2],"Netto",100,0
insertColumn lview&[2],"MWST",60,0
setitemtext(lview&[1],"ww",0,0)  goes first to nem setitem,means only existing Entries edit
setitem lview&[1],"0","1","2","3","4","5","6","7","8","9","10","11","12"
setitem lview&[2],"0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18"
with obigen commands let itself The last 4 Split not fill
setitemtext(lview&[2],"ww",17,0) so can I The latest slot fill
declare a$
a$="fghj"
setitemtext(lview&[2],a$,16,0) so can I The vorletzte slot not fill
now To my trouble
How get I The last 4 Split filled, if the Text first to Laufzeit feststeht.
I have to Vereinfachung with setitem Strings hergenommen.in the Program stand there Stringvariablen
InitMessages(%hwnd)

whilenot end%

    waitinput

wend

dispose area#
destroywindow(%hwnd)
FreeDll lvdll&
 $I C:PRFellowCodehilfen_compilerListview_dispose.inc
end

What am I doing here wrong ?thanks.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Profan can only 15 Parameter in a procedure take in. You could it so solve:

WhileLoop 0,18

    SetItemText(lview&[2],Str $(&Loop),&Loop,0)

Wend

If you others Texts as these numbers use want, can You The before in a String summarize:

Declare Texts$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Text$,"|")

    SetItemText(lview&[2],SubStr$(Texts$,&Loop,"|"),&Loop,0)

Wend

is now only so runtergeschrieben, should but functions

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

Hello Jörg

thanks.will be it tonight try.

Windows7 Xprofan 8,9,10 [...]

GDL

@Jörg,

Have yet quick probiert.

a$="fghj"
setitemtext(lview&[2],a$,16,0) so can I The vorletzte slot not fill
setitemtext(lview&[2],st$("345"),16,0) so can I The vorletzte slot not fill
setitemtext(lview&[2],"wert",16,0)goes only so

goes both not.
Setitemtext goes only with ""

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

then attempt time:

Declare Texts$,a$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Text$,"|")

    a$ = SubStr$(Texts$,&Loop,"|")
    SetItemText(lview&[2],Addr(a$),&Loop,0)

Wend

Nachtrag:

st$("345")

this is naturally eh pointless. you mean probably st$(345).

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Frank
Abbing

Georg, with Dll-functions can you in the rule none String transfer, separate only a Zeiger on a String. have you got it with Addr(string$) probiert?

GDL

@Jörg,

sorry,one should hold nothing between door and Angel quick yet sandwich.
Have naturally
a%=345
st$(a%)
taken.

@Frank and Jörg,
must me with addr(string$) first befassen.Kenn I not yet.
must ertsmal dahinterkommen what Jörg his example power.

Windows7 Xprofan 8,9,10 [...]

GDL

Hi,

have it now so in my Program running brought.

setitem lview&[2],right$("00"+st$(num&),3)

whilenot slot% > 17

    b$=trim$(dbget$("f"+st$(slot%)))
    setitemtext(lview&[2],addr(b$),slot%,row%)
    inc slot%

wend

but so correctly. schlau I will from it not yet.
with setitem can one xyz$ transfer and be with setitemtext not.

Windows7 Xprofan 8,9,10 [...]

Frank
Abbing

SetItem is a Profanprozedur for List view-function SItem, a Vereinfachung. look time into Inc list view.dll. there you see too, Why only 15 Paramter transfer go can. More verkraftet XProfan indeed not. Benötigst You More, then must You SItem directly use.
SetItemText against it is directly a Dll-function.