XProfan

Italia

H.Brill

Hallo Frank,
Wenn ich im LV die erste Zeile anklicke und die in einen freien
Bereich ziehen will, verschwindet diese oder besser gesagt,
deren Spalteninhalte. Bei den anderen Zeilen ist alles normal,
d. h. es wird oben bwz. in die erste Zeile angehängt.
Hier müßte sich die erste Zeile auch richtig verhalten, entweder
unten oder oben anhängen oder im besten Falle passiert nichts.

Ist halt ärgerlich, wenn Io l' End - User nötigen muß, die Liste
neu zu laden. Hier mal ein Schnipsel :
Kompilieren Markieren Separieren

 $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 Citazione Zeilenweise Citazione