XProfan

Déclarer lb1&,alt_lb_zh&,z&

Proc sLB_Hight      mets neue Zeilenhöhe et gibt qui vorherige zurück

    Paramètres LB_Hndl&,Hoehe&
    Déclarer 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 (ici Neuzeichnen)
    Retour oHoehe&

ENDPROC

Cls
lb1&=Créer(ListBox,%HWnd,,20,20,200,400)
AddStrings(lb1&,la ligne Nr.: 1)
AddStrings(lb1&,la ligne Nr.: 2)
AddStrings(lb1&,la ligne Nr.: 3)
AddStrings(lb1&,la ligne 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)       mets neue Zeilenhöhe dans ListBox et speichere vieille
    Sleep 800
    sLB_Hight(lb1&,30)             mets neue Zeilenhöhe dans ListBox
    Sleep 800
    sLB_Hight(lb1&,35)             mets neue Zeilenhöhe dans ListBox
    Sleep 800
    sLB_Hight(lb1&,alt_lb_zh&)  mets vieille Zeilenhöhe dans ListBox
    Inc z&
    AddStrings(lb1&,Ajouter$(la ligne Nr.: ,Str$(z&)))

Endwhile

Fin