XProfan

04.09.2007 ▲

- page 1 -

Jörg
Sellmeyer

Listviewdll-Aider

InitMessages() darf pas pour chaque Listview verwendet volonté, doit mais pour chaque la fenêtre aufgerufen volonté, dans dem mindestens un Listview verwendet wird.
Mehrfachaufrufe pour un et même chose la fenêtre sommes pas gestattet et mener trop Fehlern!

là suis je déjà la fois sur elle reingefallen et hab longtemps gebraucht jusqu'à ego trouvé habe. alors seulement einmal et pas plus.

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

04.09.2007 ▲

Frank
Abbing

InitMessages startet cela Subclassing cet Fensters. c'est naturellement seulement einmal pro la fenêtre nötig.

04.09.2007 ▲

GDL

Hi Frank,

habe encore un setitem Problem.
Genaueres siehe Codekommentare.

 {$CLEQ}
declare ende%,lvdll&,bereich#,x&,lview&[]
 $I C:PRFellowCodehilfen_compilerListview_Funktionen.inc
lvdll&=usedll("C:\Contrôle\Listview.dll")
dim bereich#,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)  allez seulement pour nem setitem,alors seulement existierende Einträge éditer
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"
avec obigen Befehl laisser sich qui letzten 4 Spalten pas füllen
setitemtext(lview&[2],"ww",17,0) so peux je qui dernier Spalte füllen
declare a$
a$="fghj"
setitemtext(lview&[2],a$,16,0) so peux je qui vorletzte Spalte pas füllen
eh bien trop meinem Problem
comment bekomme je qui letzten 4 Spalten pleine, si qui Text seulement zur Laufzeit feststeht.
je habe zur simplification chez setitem Cordes hergenommen.Im Programme stehen là Stringvariablen
InitMessages(%hwnd)

whilenot ende%

    waitinput

Wend

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

quoi fais je ici faux ?merci.

salut
Georg

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

Jörg
Sellmeyer

Profan peux seulement 15 paramètre dans einer Procédure aufnehmen. Du könntest es so lösen:

WhileLoop 0,18

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

Wend

si Du autre Textes comme cet payons verwenden veux, peux Du qui auparavant dans einem String zusammenfassen:

Déclarer Textes$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Text$,"|")

    SetItemText(lview&[2],$ Substr(Textes$,&Boucle,"|"),&Boucle,0)

Wend

Ist maintenant seulement so runtergeschrieben, devrait mais marcher

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

GDL

allô Jörg

merci.Werde es ce soir essayer.

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

GDL

@Jörg,

hab encore vite probiert.

a$="fghj"
setitemtext(lview&[2],a$,16,0) so peux je qui vorletzte Spalte pas füllen
setitemtext(lview&[2],str$("345"),16,0) so peux je qui vorletzte Spalte pas füllen
setitemtext(lview&[2],"wert",16,0)allez seulement so

allez beides pas.
Setitemtext allez seulement avec »

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

Jörg
Sellmeyer

ensuite versuch la fois:

Déclarer Textes$,a$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Text$,"|")

    a$ = $ Substr(Textes$,&Boucle,"|")
    SetItemText(lview&[2],Addr(a$),&Boucle,0)

Wend

Nachtrag:

str$("345")

c'est naturellement eh witzlos. Du meinst wahrscheinlich str$(345).

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

Frank
Abbing

Georg, chez Dll-Funktionen peux du dans qui règle keinen String transfert, mais seulement une aiguille sur une String. la hâte du es avec Addr(string$) probiert?

GDL

@Jörg,

sorry,on soll arrêt rien entre porte et Angel vite encore einschieben.
Hab naturellement
a%=345
str$(a%)
pris.

@Frank et Jörg,
muss mich avec addr(string$) seulement befassen.Kenn je encore pas.
Muss ertsmal dahinterkommen quoi Jörg son Beispiel pouvoir.

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

GDL

Hi,

habe es maintenant so dans mon Programme zum courir gebracht.

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

whilenot spalte% > 17

    b$=$ Trim(dbget$("f"+str$(spalte%)))
    setitemtext(lview&[2],addr(b$),spalte%,la ligne%)
    inc spalte%

Wend

mais so richtig malain werde je daraus encore pas.
chez setitem peux un xyz$ transfert volonté et chez setitemtext pas.

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

Frank
Abbing

SetItem ist une Profanprozedur pour qui Listview-Funktion SItem, une simplification. exposition la fois dans qui Inc qui Listview.dll. là vois du aussi, pourquoi seulement 15 Paramter transfert volonté peut. plus verkraftet XProfan oui aussi pas. Benötigst du plus, ensuite musst du SItem direct verwenden.
SetItemText dagegen ist direct une Dll-Funktion.