Code: Alles auswählen
;SetGadgetColor(1, #PB_Gadget_FrontColor, $009900)
PureCOLOR_SetGadgetColor(1, $009900, #PureCOLOR_DontSetBackColor)
Code: Alles auswählen
CreateImage(0, 100,100)
StartDrawing( ImageOutput(0) )
Circle(0,0,110,$00FF00)
StopDrawing()
hWin=OpenWindow(0, 50,150,400,400, "")
CreateGadgetList(hWin)
ImageGadget(0, 0,0, 200,100, ImageID(0) , #PB_Image_Border)
TextGadget(1, 10,20, 300,20, "hach wie lustig, ich bin ja doch durchsichtig", $0)
TextGadget(2, 10,40, 300,20, "hach wie lustig, ich bin nicht durchsichtig", $0)
;SetGadgetColor(1, #PB_Gadget_FrontColor, $009900)
PureCOLOR_SetGadgetColor(1, $009900, #PureCOLOR_DontSetBackColor)
SetGadgetColor(2, #PB_Gadget_FrontColor, $009900)
Repeat
event=WindowEvent()
Select event
Case #PB_Event_CloseWindow
quit=1
EndSelect
Until quit