Fensterfarbe ändern / Text auf Fenster in anderer Grösse

[pbdau]

Hallo,
wie mein Name pbdau schon sagt, eine (hoffentlich) einfache Frage:

Wie kann ich in einem Fenster die Hintergrundfarbe ändern, d.h. das Fenster soll in einem Blauton sein?
Wie kann ich in das Fenster einen Text hineinstellen, der meinen Wünschen bezüglich Grösse und Farbe und Schriftart entspricht? Mit einem Textgadget habe ich da eine derart kleine Schrift, dass es zum Heulen ist.

Zum Verständnis: Ich möchte ein Fenster basteln, in dem in der Mitte gross "Fatal Error" steht. (Scherzprogramm). Sonst nichts. Mit grauem Hintergrund und in einer winzigen Schrift schaut das bescheiden aus....

[Lukaso]

Hallo,

schau einfach ins CodeArchiv ....

http://www.purearea.net/pb/CodeArchiv/CodeArchiv.html

... dort findest du die antwort auf all deine Fragen

MFG Lukaso

[Hroudtwolf]

Verlinkt ! Ein paar Beiträge weiter unten der richtige.
[EDIT]
XxXxXxXxXxXxXxXxXxXxXxXx
Link vernichtet .
[/EDIT]

[pbdau]

und wo unter den tausend Beispielen soll ich da schauen? Eigentlich wollte ich das Tool dieses Jahr irgendwie hinkriegen.

[Lukaso]

und wo unter den tausend Beispielen soll ich da schauen? Eigentlich wollte ich das Tool dieses Jahr irgendwie hinkriegen.

Ist ganz einfach: z.b. Gadgets -> Colors+Fonts (weil du ja nen TextGadget einfärben/verändern willst)

MFG Lukaso

[Hroudtwolf]

@PBDAU

OH Sorry..VERLINKT !
Hier der richtige Link
PureBasic-Lounge/Winstyle.dll Prozeduren

[pbdau]

eigentlich sollte es ein faschingsscherz werden, aber dafür ist es jetzt eh schon zu spät. Mit der Farbe und der Textgrösse - lassen wir das vorerst. Soweit kommt ein DAU wie ich heute eh nicht mehr.... Wo ist erstmal mein Fehler? Das Programm reagiert auf Fensterbewegung gar nicht - und auf Vergrössern / Verkleinern ohne Zutun.

Code: Alles auswählen

MaxX = GetSystemMetrics_(#SM_CXSCREEN)
Maxy = GetSystemMetrics_(#SM_CYSCREEN)   

If OpenWindow(0,0,0, MaxX, Maxy, #PB_Window_MaximizeGadget | #PB_Window_SystemMenu | #PB_Window_BorderLess, "Fatal Error - was hostn wieda gmacht, du Depp du")
  
If CreateGadgetList(WindowID())

    TextGadget(1,MaxX/2-50,Maxy/2,MaxX-20,20," F A T A L   E R R O R ")
    TextGadget(2,MaxX/2-110,Maxy/2+50,MaxX-20,20," D E R   R E C H N E R   I S T   A B G E S T Ü R Z T .   ")
 ActivateWindow()   
    
  EndIf 
EndIf   
  
Repeat 
  EventID.w = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
   MessageRequester("Glück gehabt!","Der Rechner ist doch nicht abgestürzt."+Chr(10)+"Das Fenster wird irgendwann demnächst geschlossen. ")
;    Delay(Random(30000))
   EventID = 5
  ElseIf EventID = #PB_Event_SizeWindow
    MessageRequester("Glück gehabt","Schliesse Fenster wegen Grösse")
    ; EventID = 4
     EventID = 5
    Delay(Random(10000))
  ElseIf EventID = #PB_Event_MoveWindow
    MessageRequester("Glück gehabt","Schliesse Fenster wegen Bewegung")
    Delay(Random(1000))
    EventID = 5
    
    Else
    Delay(1)
    EndIf
  
  
Until EventID = 5

[ts-soft]

Offtopic:

"Fatal Error - was hostn wieda gmacht, du Depp du"

Das funktioniert in der augenblicklichen Version von PB noch nicht, aber die bayrische Version wird bestimmt bald erscheinen

Code Tags wären nicht schlecht beim nächsten mal
[EDIT: erledigt, freedimension]