Buttons geht mit nativen PB-Befehlen nur schwer. XP und Vista mit skin
sowiso nicht. Nur klassic-Win98-Look.
Für grüne Buttons:
Code: Alles auswählen
Procedure COLOR_BUTTON(id.l,x.l,y.l,w.l,h.l,color.l,textcolor.l,text.s)
jetztaber:
box.l = CreateImage(id, w,h)
StartDrawing(ImageOutput(id))
If TextWidth(text) <= w
posx.l = w/2 -TextWidth(text) / 2
Else
w = TextWidth(text) + 20
StopDrawing()
Goto jetztaber
EndIf
posy.l=h/2-TextWidth("Xii")/2
Box(0, 0,w, h,color)
DrawingMode(1)
FrontColor(RGB(Red(textcolor),Green(textcolor),Blue(textcolor)))
DrawText(posx, posy,text)
StopDrawing()
ButtonImageGadget(id, x, y, w, h,box)
EndProcedure
If OpenWindow(0,0,0,800,50,"Relais Butler",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
If CreateGadgetList(WindowID(0))
;Relais 1
COLOR_BUTTON(0,34,8,65,20,$FF0000,$000000,"Licht Ein")
COLOR_BUTTON(1,109,8,65,20,$00FF00,$FFFFFF,"Licht Aus")
EndIf
EndIf
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
Adaptiert von hier:
http://www.purebasic.fr/german/viewtopi ... tton+farbe
Oliver1994 hat geschrieben:
wie mir letztens aufgefallen ist kann man mit PB richtig cooles Desing machen...
Also was das für ein gutes Design sein soll mit schwarzem Hintergrund
und grünen Buttons...?
außerdem: ein Blick in die Hilfe genügt.
Du kannst ja mal in den Anzeigeeinstellungen im Reiter 'Darstellung'
erst 'Windows-klassisch' auswählen und dann 'Kontrast *'. dann siehste,
was du für ein Design hast, wenn alle das so machen... nagut geschmackssache.