XProfan

Declare lb1&,alt_lb_zh&,z&

Proc sLB_Hight      Setzt neue Zeilenhöhe und gibt die vorherige zurück

    Parameters LB_Hndl&,Hoehe&
    Declare oHoehe&
    oHoehe& = SendMessage(LB_Hndl&,$01A1,0,0)    lb_GetItemHeight
    SendMessage(LB_Hndl&,$01A0,0,Hoehe&)  lb_SetItemHeight
    SendMessage(LB_Hndl&,$0195,1,0)  lb_SetColumnWidth (Hier Neuzeichnen)
    Return oHoehe&

EndProc

Cls
lb1&=Create(ListBox,%HWnd,,20,20,200,400)
AddString(lb1&,Zeile Nr.: 1)
AddString(lb1&,Zeile Nr.: 2)
AddString(lb1&,Zeile Nr.: 3)
AddString(lb1&,Zeile Nr.: 4)
z& = 4

WhileNot Or(Or(Equ(%Key,2),Equ(%MenuItem,-2)),Gt(z&,9))

    Sleep 800
    alt_lb_zh& = sLB_Hight(lb1&,25)       setze neue Zeilenhöhe in ListBox und speichere alte
    Sleep 800
    sLB_Hight(lb1&,30)             setze neue Zeilenhöhe in ListBox
    Sleep 800
    sLB_Hight(lb1&,35)             setze neue Zeilenhöhe in ListBox
    Sleep 800
    sLB_Hight(lb1&,alt_lb_zh&)  setze alte Zeilenhöhe in ListBox
    Inc z&
    AddString(lb1&,Add$(Zeile Nr.: ,Str$(z&)))

EndWhile

End