(Wie man sieht bin ich kein Designer, ich bleibe lieber bei den Systemeinstellungen, ... )
Code: Alles auswählen
EnableExplicit
Enumeration EWindow
#WINDOW_Main
EndEnumeration
Enumeration EGadget
#GADGET_Container
#GADGET_Text
#GADGET_Button
EndEnumeration
Define WndW = 400, WndH = 200
If OpenWindow(#WINDOW_Main, 0, 400, WndW, WndH, "Beispiel ", #PB_Window_SystemMenu | #PB_Window_Invisible) ;' | #PB_Window_ScreenCentered
ContainerGadget(#GADGET_Container, 20, 20, WndW-40, 80, #PB_Container_BorderLess)
TextGadget(#GADGET_Text, 20, 20, GadgetWidth(#GADGET_Container) - 40, 3*18, "Ein einfacher Text. " + #LF$ + #LF$ + "auf mehreren Zeilen. ", #PB_Text_Center)
CloseGadgetList()
ButtonGadget(#GADGET_Button, 40, WndH - 48, WndW - 80, 40, "Ist ja gut. " + #LF$ + "Klick mich und ich bin weg!", #PB_Button_MultiLine)
SetWindowColor(#WINDOW_Main, GetSysColor_(#COLOR_INFOBK)) ;' window background and default system colors
SetGadgetColor(#GADGET_Container, #PB_Gadget_BackColor, #White) ;' Container Hintergrund mit Standardfarbe ; #White, #Black, #Blue, #Red, #Green, #Yellow, #Cyan, ...
SetGadgetColor(#GADGET_Text, #PB_Gadget_FrontColor, RGB(20, 80, 80)) ;' RGB .. Red Green Blue .. jeweils von 0 bis 255
SetGadgetColor(#GADGET_Text, #PB_Gadget_BackColor, $00D7FF) ;' oder unter Menu: Tools | Color Picker wählen und Farbe aussuchen == ShortCut: Alt+P
;; Button geht so nicht
; ; SetGadgetColor(#GADGET_Button, #PB_Gadget_BackColor, $00D7FF)
; ; SetGadgetColor(#GADGET_Button, #PB_Gadget_FrontColor, RGB(255, 0, 0))
HideWindow(#WINDOW_Main, 0, #PB_Window_ScreenCentered )
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
Case #PB_Event_Gadget
Select EventGadget()
Case #GADGET_Button :Debug "Button pressed."
Break
EndSelect
EndSelect
ForEver
EndIf
