| |
|
|
H.Brill | Hello Frank, If I in LV The first row anklicke and the in a disengaged area wander wants, disappears these or rather said, its Spalteninhalte. with whom others Lines is everything normal, d. h. it'll supra bwz. into first row appended. here should the first row too correctly. behaviour, either under or supra append or in the best entrapment happens nothing.
is hold angry, if I whom End - User compel must, The list new To loading. here time one shred : CompileMarkSeparation $I Profalt.inc
Include für Profan 10 Beta 3, andernfalls weglassen
$I Listview_Funktionen.inc
Declare lvdll&, listview&
lvdll&=usedll(Listview.dll)
Proc Dialog
Declare hD%, hB%, reset%, Edit1%, Label1%, OK%
hD% = @Create(Dialog,%DeskTop,Dialogfenster,100,100,600,400)
hB% = @Create(Button,hD%,&ENDE,10,10,60,25)
reset% = @Create(Button, hD%, &Reset, 100, 10, 60, 25)
InitMessages(hD%)
listview&=CreateListView(hD%,%hinstance,0,$ccffff,-1,$31)
InsertColumn listview&, Anzahl, 80, 0
InsertColumn listview&, Artikel,400,0
InsertColumn listview&, Preis, 80, 0
SetItem listview&,10,Festplatten, 85 €
SetItem listview&,20,Grafikkarten, 75 €
SetItem listview&,30,DVD - Brenner, 35 €
ShowListView(listview&,10,50,580,300)
EnableDragDrop(listview&,1 + 2 + 4 + 8)
Clear OK% OK% auf 0 setzen
WhileNot Ok%
WaitInput
If @Clicked(hB%)
Ok% = 1
ElseIf %Key = 2
Hier wird das X (rechts oben Schließen) ausgewertet
OK% = 1
ElseIf @Clicked(reset%)
Listview neu füllen
DeleteAllItems(listview&)
SetItem listview&,10,Festplatten, 85 €
SetItem listview&,20,Grafikkarten, 75 €
SetItem listview&,30,DVD - Brenner, 35 €
EndIf
EndWhile
Dialogfenster (incl. Button, usw.) entfernen
@DestroyWindow(hD%)
EndProc
Hier wird die Dialogbox (Procedur) aufgerufen
Dialog
freedll lvdll&
='./../../Function-References/XProfan/end/'>End
|
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 11/01/07 ▲ |
|
|
|
|
Frank Abbing | Yes, I kanns understand. and behebe it to next Version. |
|
|
| |
|
|