PROC FARBSTATIC
Declare h&,bild$
Parameters hdl&,posx&,posy&,breitobj&,hochobj&,hwndfarb%,sttext$,txtfarb%
inc pi%
MCLS breitobj&,hochobj&,hwndfarb%
STARTPAINT -1
if sttext$ <> ""
 Textcolor txtfarb%,-1
 usefont "MS SANS SERIF",13,0,0,0,0
 drawtext 1,1,sttext$
endif
ENDPAINT
h&= create("hPic",0,"&MEMBMP")
pic&[pi%]=Create("BITMAP",hdl&,h&,posx&,posy&)
return pic&[pi%]
ENDPROC
'------------------------------------------------------------------------------
PROC DIALOG
dlg&=Create("Dialog",%hwnd,"Rock and Roll",200,200,300,120)
Farbstatic dlg&,0,0,width(dlg&),height(dlg&),RGB(62,187,240),""
dlgchoicebox&=Create("ChoiceBox", dlg&,1,10,10,200,200)
AddString(dlgchoicebox&,"Hey Cool")
AddString(dlgchoicebox&,"LOL")
AddString(dlgchoicebox&,"Brabel Brabel")
dlgtedit&=Create("TimeEdit",dlg&,"",10,50,100,24)
ENDPROC
'------------------------------------------------------------------------------

Declare STATIC1&,STATIC2&,STATIC3&,STATIC4&,STATIC4TEXT1&
Declare pic&[],pi% 
Declare testedit&,testbutton&,testbutton2&
Declare dlg&,dlgchoicebox&,dlgtedit&
CLS

FARBSTATIC %hwnd,10,10,50,50,RGB(255,128,192),""
Static1&=&(0)
'Parameter:
'Handle Hwnd, posx, posy,breite, höhe, hintergrundfarbe

FARBSTATIC %hwnd,65,10,50,50,RGB(0,0,255),""
static2&=&(0)

FARBSTATIC %hwnd,120,10,50,50,RGB(0,255,64),""
static3&=&(0)

FARBSTATIC %hwnd,10,100,200,200,RGB(255,255,64),""
static4&=&(0)


FARBSTATIC static4&,10,10,100,20,RGB(255,255,64),"Ich bin ein Text",rgb(250,22,0)
static4text1&=&(0)
    'Hier 2 zusätzliche Parameter: Text und Textfarbe 
testedit&=Create("Edit",%hwnd,"Hier ist Blabla",15,130,120,20) 
testbutton&=Create("Button",%hwnd,"Test",15,155,120,20)
testbutton2&=Create("Button",%hwnd,"Dialog",15,180,120,20)
While 1 'dummyschleife
waitinput
if clicked(testbutton&)
   messagebox(gettext$(testedit&),"Inhalt Edit",64)
elseif clicked(testbutton2&)
   DIALOG
elseif clicked(dlgchoicebox&)
   settext dlg&,gettext$(dlgchoicebox&)
endif
endwhile
'Speicher befreien:
Whileloop pi%
 DeleteObject pic&[pi%]
endwhile

end

****************************************
Hinweise:
Siehe in der Profanhilfe
@Create("Bitmap", N, H, X1, Y1)
Hinweis; Wenn Dialogelemente auf dieser Bitmap liegen sollen, 
so ist bei ihnen trotzdem das Handle des übergeordneten Dialoges/Fensers anzugeben 
und nicht das des Bitmap-Controls. 
Damit wird gewährleistet, daß die Buttons, etc. wie gewohnt reagieren.
****************************************