XProfan

Declarar lb1&,alt_lb_zh&,z&

Proc sLB_Hight      Setzt neue Zeilenhöhe y son el vorherige zurück

    Parámetros LB_Hndl&,Hoehe&
    Declarar 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)
    Volver oHoehe&

ENDPROC

Cls
lb1&=Crear(ListBox,%HWnd,,20,20,200,400)
AddStrings(lb1&,Línea Nr.: 1)
AddStrings(lb1&,Línea Nr.: 2)
AddStrings(lb1&,Línea Nr.: 3)
AddStrings(lb1&,Línea Nr.: 4)
z& = 4

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

    Sleep 800
    alt_lb_zh& = sLB_Hight(lb1&,25)       poner neue Zeilenhöhe en ListBox y speichere alte
    Sleep 800
    sLB_Hight(lb1&,30)             poner neue Zeilenhöhe en ListBox
    Sleep 800
    sLB_Hight(lb1&,35)             poner neue Zeilenhöhe en ListBox
    Sleep 800
    sLB_Hight(lb1&,alt_lb_zh&)  poner alte Zeilenhöhe en ListBox
    Inc z&
    AddStrings(lb1&,Add$(Línea Nr.: ,Str$(z&)))

EndWhile

End