PureBoard

Verfasst: **07.02.2005 18:48**

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....

Verfasst: **07.02.2005 19:00**

Hallo,

schau einfach ins CodeArchiv ....

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

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

MFG Lukaso

Verfasst: **07.02.2005 19:10**

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

Verfasst: **07.02.2005 19:45**

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

Verfasst: **07.02.2005 19:49**

pbdau hat geschrieben: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

Verfasst: **07.02.2005 19:54**

@PBDAU

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

Verfasst: **08.02.2005 12:11**

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

Verfasst: **08.02.2005 12:26**

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]

PureBoard

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

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

vielen Dank? Helau?

Re: vielen Dank? Helau?

ich schnall es einfach nicht