XProfan

Français

H.Brill

allô Frank,
si je im LV la première la ligne anklicke et qui dans une freien
Bereich tirer veux, verschwindet cet ou bien besser dit,
en Spalteninhalte. chez den anderen Zeilen ist alles normal,
d. h. es wird dessus bwz. dans la première la ligne angehängt.
ici devrait sich la première la ligne aussi richtig verhalten, entweder
unten ou bien dessus anhängen ou bien im besten piège passiert rien.

Ist arrêt ärgerlich, si Je l' Fin - User nötigen doit, qui liste
récente trop magasin. ici la fois un Schnipsel :
Kompilieren Marque Séparation

 $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&
='./../../funktionsreferenzen/XProfan/end/'>Fin

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.

01.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation