XProfan

English

Jac
de
Lad

Hallöle, I verzweifel in the momentum on folgendem trouble:I Have a GridBOX, The has multiple selektierbare items and on Button-Click should The marked deleted go. so far so well, only functions my View source not. can someone help?
Compile Mark Separation

declare grid&,c&,a&,d&
cls
grid&=Create("GridBox",%HWnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
d&=Create("Button",%HWnd,"&Neu laden",512,8,96,24)

whileloop 35

    AddString(grid&,Str$(&Loop))

wend

whilenot CLicked(d&)

    waitinput

wend

c&=0
a&=GetCount(grid&)

while LT(c&,a&)

    if GetState(grid&,c&)

        DeleteString(grid&,c&)

    else

        Inc c&

    endif

    EnableWindow d&,0
    EnableWindow grid&,0

    while 1

    wend

    Bitte mit Systemmenü terminate

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Hello Jac,
there are me a couple To many seltsame creep in Your code. I habs time something rewritten:
Compile Mark Separation

Declare Grid&,C&,A&,D&

Proc Button_D

    If GetCount(Grid&) > 0

        print "gelöschte Einträge (Indexnr!)"

        WhileLoop GetCount(Grid&) -1,0,-1Wichtig!!! Von Rückwärts auslesen und löschen

            sonst stimmen die Indizes nicht mehr!!

            If GetState(Grid&, &loop) > 0

                DeleteString(Grid&,&Loop)
                print &loop,

            EndIf

        Wend

    EndIf

EndProc

Cls
Grid&=Create("GridBox",%Hwnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
D&=Create("Button",%Hwnd,"&Neu laden",512,8,96,24)

Whileloop 35

    Addstring(Grid&,Str$(&Loop))

Wend

Hauptschleife

While 1

    Waitinput

    If Clicked(D&)

        Button_D(Grid&)

    EndIf

Wend