Style von WINDOW "cooler" machen
-
- Beiträge: 321
- Registriert: 15.06.2008 21:52
Style von WINDOW "cooler" machen
Hallo,
wie mir letztens aufgefallen ist kann man mit PB richtig cooles Desing machen...
Schwarzer hintergund und Grüne Buttons etc. geht das nur auf Vista oder auch auf XP?
Wie geht sowas?
Gruß
JENS
wie mir letztens aufgefallen ist kann man mit PB richtig cooles Desing machen...
Schwarzer hintergund und Grüne Buttons etc. geht das nur auf Vista oder auch auf XP?
Wie geht sowas?
Gruß
JENS
PureBasic-Hilfe hat geschrieben: SetWindowColor(#Window, Farbe)
SetGadgetItemColor(#Gadget, Eintrag, FarbTyp, Farbe [, Spalte])
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
SetGadgetItemColor funkt nicht mit Buttons, oder neuerdings doch?
PureColor von Gnozal bräuchte er.
http://freenet-homepage.de/gnozal/
PureColor von Gnozal bräuchte er.
http://freenet-homepage.de/gnozal/
Windows 11 - PB 6.03 x64
_________________________________
_________________________________
Buttons geht mit nativen PB-Befehlen nur schwer. XP und Vista mit skin
sowiso nicht. Nur klassic-Win98-Look.
Für grüne Buttons:
Adaptiert von hier: http://www.purebasic.fr/german/viewtopi ... tton+farbe
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.
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
Also was das für ein gutes Design sein soll mit schwarzem HintergrundOliver1994 hat geschrieben: wie mir letztens aufgefallen ist kann man mit PB richtig cooles Desing machen...
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.
Win11 x64 | PB 6.20
-
- Beiträge: 321
- Registriert: 15.06.2008 21:52
da waren das glaube ich ein ImageButton() der hat ja dann ein eignes Bild
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
-
- Beiträge: 321
- Registriert: 15.06.2008 21:52
okay hab die lib installier...
jetzt meint er aber das:
keine Funktion/Array/Markro List ist...
Ich hab die Lib für Version 4.20 installiert...
Muss ich noch in den Compiler Einstellungenw as ändern?
Gruß
JENS
jetzt meint er aber das:
Code: Alles auswählen
PureCOLOR_SetButtonColor(#Button_0, $00CC00, $000000)
Ich hab die Lib für Version 4.20 installiert...
Muss ich noch in den Compiler Einstellungenw as ändern?
Gruß
JENS