XProfan

English

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 :
Compile Mark Separation

 $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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote