XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Combobox per API mit voreingestelltem Font erstellen
DEF @CreateWindowEx(12) ! USER32,CreateWindowExA
DECLARE Combo&,Klassenname#,Text#

Proc Make_Combo

    Clearlist
    Chdir C:Windows
    AddFiles **.bmp
    Dim Klassenname#,9
    Dim Text#,5
    String Klassenname#,0 = Combobox
    String Text#,0 =
    Let Combo& = @CreateWindowEx($0000200,Klassenname#,Text#,$50E00102,20,20,200,250,%HWND,1000,%Hinstance,0)
    Sendmessage(Combo&,$0030,%Font,0)  Mit dieser Message kann eine andere Schriftart für die Einträge gesetzt werden
    MoveListtoChoice(Combo&)
    Sendmessage(Combo&,$014F,1,0)
    Dispose Klassenname#
    Dispose Text#

Endproc

SetTrueColor 1
cls rgb(192,192,192)
UseFont Arial,10,0,0,0,0
Make_Combo
Waitinput
End