XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster ohne Titelzeile
 $H messages.ph
 $H windows.ph
Declare win1&,win2&,x&,y&,text$,title$,klasse$,edit1&,text1&,multi1&,edit2&,text2&,multi2&
Windowstyle 31
Windowtitle Hauptfenster
Cls ~GetSysColor(15)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
klasse$=#32770
title$=Dialogfenster
win1&=~CreateWindowEx(0,addr(klasse$),addr(title$),$40400000,40,40,300,360,%hwnd ,0,%hinstance,1000)
text1&=Create(Text,win1&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,10,280,30)
edit1&=Create(EDIT,win1&,Ein Editfeld,10,50,120,20)
multi1&=Create(MULTIEDIT,win1&,Ein Multiedit,10,80,260,250)
***
win2&=~CreateWindowEx($200,addr(klasse$),addr(title$),$40000000,380,40,220,360,%hwnd,0,%hinstance,1000)
text2&=Create(Text,win2&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,40,180,30)
edit2&=Create(EDIT,win2&,Ein Editfeld,10,10,120,20)
multi2&=Create(MULTIEDIT,win2&,Ein Multiedit,10,80,160,250)
klasse$=msctls_trackbar32
title$=Dialogfenster
multi2&=~CreateWindowEx(0,addr(klasse$),addr(title$),$50000000,10,80,160,250,win2&,0,%hinstance,1000)
Sleep 1000
ShowWindow(win1&,1)
Sleep 1000
ShowWindow(win2&,1)
Sleep 1000
ShowWindow(win1&,0)
Sleep 1000
ShowWindow(win2&,0)
Sleep 1000
ShowWindow(win1&,1)
ShowWindow(win2&,1)

While 1

    WaitInput
    Case %Key=2:BREAK

Endwhile