Verständnisproblem mit SetWindowsColor

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
SDL
Beiträge: 65
Registriert: 15.09.2006 05:19
Computerausstattung: MSI 990FXA-GD80
AMD FX-8350(3,1GHz) 4-4,4GHz
Corsair Dominator Platinum 8GB 2133 (2240)
2 Nvidia GeForce GTX 550Ti
Xilence XQ semipassives Netzteil 750Watt
SATA III WDC WD10 1TB
SATA III SSD Toshiba 128 GB
SATA III SSD Samsung 840 EVO 250 GB
eSATA WDC WD SE16 500 GB

Wassergekühlt

Win 7 pro
Leistungsindex 7,8
Wohnort: Hansestadt Stendal

Verständnisproblem mit SetWindowsColor

Beitrag von SDL »

Ich möchte ein Fenster öffnen und den Hintergrund mit SetWindowsColor farblich ändern.

so zum Beispiel:

Code: Alles auswählen

OpenWindow(1,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN)," ",#PB_Window_BorderLess|#PB_Window_ScreenCentered)

  SetWindowColor(1,#Red);Fensterhintergrund

  Repeat : Until WaitWindowEvent() = #PB_Event_LeftClick
CloseWindow(1)
Ergebnis --> nada :(

So geht es, ist aber unsauber !!

Code: Alles auswählen

OpenWindow(1,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN)," ",#PB_Window_BorderLess|#PB_Window_ScreenCentered)

  SetWindowColor(1,#Red);Fensterhintergrund

     ButtonGadget(300,0,0,0,0,"",0)

  Repeat : Until WaitWindowEvent() = #PB_Event_LeftClick
CloseWindow(1)
Es gibt sicher eine saubere Lösung. Hat jemand eine Idee oder Hinweis?
Zu meiner Schulzeit war die Bildung kostenlos, für einige aber Umsonst.
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Verständnisproblem mit SetWindowsColor

Beitrag von Kiffi »

SDL hat geschrieben:Ergebnis --> nada :(
nee, klappt (unter Windows 10). Welches OS bei Dir?

// Edit: Es gibt auch das Flag #PB_Window_Maximize. Dann brauchst Du nichts GetSystemMetrics_() nicht.
Hygge
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: Verständnisproblem mit SetWindowsColor

Beitrag von mk-soft »

Unter Linux gibt es noch Problem mit Window und Gadgets die Farben zu setzen.

Hier mal den Link zum Workaround
https://www.purebasic.fr/english/viewto ... 15&t=71992
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Benutzeravatar
SDL
Beiträge: 65
Registriert: 15.09.2006 05:19
Computerausstattung: MSI 990FXA-GD80
AMD FX-8350(3,1GHz) 4-4,4GHz
Corsair Dominator Platinum 8GB 2133 (2240)
2 Nvidia GeForce GTX 550Ti
Xilence XQ semipassives Netzteil 750Watt
SATA III WDC WD10 1TB
SATA III SSD Toshiba 128 GB
SATA III SSD Samsung 840 EVO 250 GB
eSATA WDC WD SE16 500 GB

Wassergekühlt

Win 7 pro
Leistungsindex 7,8
Wohnort: Hansestadt Stendal

Re: Verständnisproblem mit SetWindowsColor

Beitrag von SDL »

Kiffi hat geschrieben:
SDL hat geschrieben:Ergebnis --> nada :(
nee, klappt (unter Windows 10). Welches OS bei Dir?

// Edit: Es gibt auch das Flag #PB_Window_Maximize. Dann brauchst Du nichts GetSystemMetrics_() nicht.
WIn 7 inklusive SP's /PB 5.62 x64
Edit: Es gibt auch das Flag #PB_Window_Maximize. Dann brauchst Du nichts GetSystemMetrics_() nicht.
Jo ist eine Lösung für ein maximales Fenster öffnen. Werde ich auch im den Proceduren so benutzen, nur im Hauptfenster nicht :-)
Zuletzt geändert von SDL am 03.04.2019 21:52, insgesamt 2-mal geändert.
Zu meiner Schulzeit war die Bildung kostenlos, für einige aber Umsonst.
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: Verständnisproblem mit SetWindowsColor

Beitrag von mk-soft »

Geht hier ohne Probleme... Win 7 Pro

Code: Alles auswählen

OpenWindow(1,0,0,0,0," ",#PB_Window_BorderLess|#PB_Window_Maximize)

  SetWindowColor(1,#Red);Fensterhintergrund

  Repeat : Until WaitWindowEvent() = #PB_Event_LeftClick
CloseWindow(1)
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Benutzeravatar
SDL
Beiträge: 65
Registriert: 15.09.2006 05:19
Computerausstattung: MSI 990FXA-GD80
AMD FX-8350(3,1GHz) 4-4,4GHz
Corsair Dominator Platinum 8GB 2133 (2240)
2 Nvidia GeForce GTX 550Ti
Xilence XQ semipassives Netzteil 750Watt
SATA III WDC WD10 1TB
SATA III SSD Toshiba 128 GB
SATA III SSD Samsung 840 EVO 250 GB
eSATA WDC WD SE16 500 GB

Wassergekühlt

Win 7 pro
Leistungsindex 7,8
Wohnort: Hansestadt Stendal

Re: Verständnisproblem mit SetWindowsColor

Beitrag von SDL »

OOha dann liegt wohl das Problem bei mir

Danke allen :D
Zu meiner Schulzeit war die Bildung kostenlos, für einige aber Umsonst.
Benutzeravatar
SDL
Beiträge: 65
Registriert: 15.09.2006 05:19
Computerausstattung: MSI 990FXA-GD80
AMD FX-8350(3,1GHz) 4-4,4GHz
Corsair Dominator Platinum 8GB 2133 (2240)
2 Nvidia GeForce GTX 550Ti
Xilence XQ semipassives Netzteil 750Watt
SATA III WDC WD10 1TB
SATA III SSD Toshiba 128 GB
SATA III SSD Samsung 840 EVO 250 GB
eSATA WDC WD SE16 500 GB

Wassergekühlt

Win 7 pro
Leistungsindex 7,8
Wohnort: Hansestadt Stendal

Re: Verständnisproblem mit SetWindowsColor

Beitrag von SDL »

Lösung gefunden
Nach Update auf 5.70 alles so wie es sein soll :bounce:

Danke noch einmal
Zu meiner Schulzeit war die Bildung kostenlos, für einige aber Umsonst.
Antworten