XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button mit mehreren Textzeilen
declare But1&,But2&,tmp$
cls
tmp$ = Ich bin ein Button mit mehreren Textzeilen.
But1& = CONTROL(BUTTON,tmp$, $54012000,50,50,100,200, %HWnd,1, %HINSTANCE)
-> BS_MULTILINE=$2000
tmp$ = Ich bin
auch ein
Button
mit mehreren Textzeilen.
Ich habe sogar eine Leerzeile im Text.
But2& = CONTROL(BUTTON,tmp$, $54012000, 250,50,100,200, %HWnd,1, %HINSTANCE)