Style von WINDOW "cooler" machen

Anfängerfragen zum Programmieren mit PureBasic.
Oliver1994
Beiträge: 321
Registriert: 15.06.2008 21:52

Style von WINDOW "cooler" machen

Beitrag von Oliver1994 »

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
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

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
Oliver1994
Beiträge: 321
Registriert: 15.06.2008 21:52

Beitrag von Oliver1994 »

THX
marco2007
Beiträge: 906
Registriert: 26.10.2006 13:19
Kontaktdaten:

Beitrag von marco2007 »

SetGadgetItemColor funkt nicht mit Buttons, oder neuerdings doch?
PureColor von Gnozal bräuchte er.
http://freenet-homepage.de/gnozal/
Windows 11 - PB 6.03 x64
_________________________________
Andesdaf
Moderator
Beiträge: 2673
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

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...? :freak:

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
Oliver1994
Beiträge: 321
Registriert: 15.06.2008 21:52

Beitrag von Oliver1994 »

das war ein besipiel! hab es bei TrainyourBrain gesehen...

okay danke! ich guck mir das mal an!
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

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
Andesdaf
Moderator
Beiträge: 2673
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

aber wenigstens sind die buttons farbig! :wink:

Die Gnozal-Lib ist besser, wollte aber auch mal mit Code angeben :mrgreen:
Win11 x64 | PB 6.20
Oliver1994
Beiträge: 321
Registriert: 15.06.2008 21:52

Beitrag von Oliver1994 »

okay hab die lib installier...

jetzt meint er aber das:

Code: Alles auswählen

PureCOLOR_SetButtonColor(#Button_0, $00CC00, $000000) 
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
Andesdaf
Moderator
Beiträge: 2673
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

haste auch korrekt eingebunden?
in den Compiler-Einstellungen muss man da eigentlich nix machen...
Win11 x64 | PB 6.20
Antworten