XProfan

Español

H.Brill

¡Hola Franco,
Wenn Yo en el LV el erste Línea anklicke y el en una freien
Zona ziehen voluntad, verschwindet esta oder mejor dijo,
deren Spalteninhalte. En el otro Zeilen es alles normal,
d. h. lo se oben bwz. en el erste Línea angehängt.
Hier müßte el erste Línea auch correcto comportamiento, entweder
unten oder oben anhängen o besten Falle passiert nichts.

Ist sólo ärgerlich, si yo el End - User nötigen muß, el Liste
neu a invitar. Hier veces una Schnipsel :
Kompilieren Marca Separación

 $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/'>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.

01.11.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita