Noch einmal SetWindowsColor :-(

Anfängerfragen zum Programmieren mit PureBasic.
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: Noch einmal SetWindowsColor :-(

Beitrag von Nino »

@silbersurfer:

Es scheint mir offensichtlich, dass SetWindowsColor() nicht funktioniert wie erwartet. Wobei die Erwartungen hier durchaus vernünftig sind.
Es kann doch nicht sein, dass man nach SetWindowsColor() erst einen betriebssystem-spezifischen API-Befehl aufrufen oder ein Fake-ButtonGadget erzeugen muss, damit es funktioniert.

Was auch immer durch das Erzeugen des ButtonGadgets intern im Detail passiert ... das Gleiche (soweit es die Darstellung der passenden Farben betrifft) könnte PB auch beim Aufruf von SetWindowsColor() machen, und das Problem wäre gelöst.
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: Noch einmal SetWindowsColor :-(

Beitrag von mk-soft »

Ist alles kein Problem wenn man es Event mässig richtig macht.

Code: Alles auswählen

OpenWindow(0,0,0,100,100," ",#PB_Window_BorderLess|#PB_Window_WindowCentered|#PB_Window_Maximize )
SetWindowColor(0,$000000);Fensterhintergrund OK

ShowCursor_(0)         ;:Cursor aus
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_LeftClick
      Break
    Case #PB_Event_Repaint
      If StartDrawing(WindowOutput(0)) 
          DrawingMode(#PB_2DDrawing_Default)
           Box(50,50,300,300,#Red)
          StopDrawing()
      EndIf
      
  EndSelect
ForEver

ShowCursor_(1) ;: Cursor an
CloseWindow(0)
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: Noch einmal SetWindowsColor :-(

Beitrag von Nino »

:allright:
Danke!
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: Noch einmal SetWindowsColor :-(

Beitrag von SDL »

:bounce: Danke
saubere Lösung. Hätte ich nie gefunden :oops: . Einfach überlesen, weil das Fenster wird ja nicht zerstört. :cry:
Zu meiner Schulzeit war die Bildung kostenlos, für einige aber Umsonst.
Antworten