XProfan

lb.removeSelBar(long hLB){

    long c=getCurSel(hLB)
    case c<0 : return false
    string s=getString$(hLB,c)
    deleteString(hLB,c)
    insertString(hLB,c,s)
    return true

ont>

 $H commctrl.ph

proc LvDeSelect deselectieren

    parameters Lv&,Item&
    Declare s#
    dim s#,1024
    long s#,12=0
    long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
    sendmessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
    dispose s#

endproc

proc LvSelect selectieren

    parameters Lv&,Item&
    Declare s#
    dim s#,1024
    long s#,12=$2
    long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
    sendmessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
    sendmessage(lv&,~LVM_SETHOTITEM ,item&,0)
    sendmessage(lv&,~LVM_ENSUREVISIBLE ,Item&,0)
    dispose s#

endproc

Declare Text$, Box&, Button&
CLS
Text$ = Spalte 1;0;200;Spalte 2;1;190
Box& = @Create(Gridbox,%HWnd,Text$,0,10,10,400,200)

WhileLoop 10

    Text$ = @str$(&loop) + |Zeile  + @str$(&loop)
    AddString(Box&, Text$)

EndWhile

@Create(Text,%HWnd,Ich suche eine Möglichkeit, wenn eine Zeile in der Gridbox ,10,230,500,20)
@Create(Text,%HWnd,markiert ist, die Auswahl in der Box zu qde-selktierenq.,10,250,500,20)
@Create(Text,%HWnd,D.h., das in der Box nichts mehr markiert ist !!,10,280,500,20)
Button& = @Create(Button,%HWnd,MARKIERUNG AUS !!,100,320,200,25)

WhileNot %Key = 27

    waitinput

    If @Clicked(Button&)

        ??????

    EndIF

EndWhile

end

Dieters Prozeduren enbinden
LvSelect(hListview&,-1)
WaitInput
LvDeSelect(hListview&,-1)pre>