Fenstertitel: Schriftfarbe, mittelbündig, Größe etc ?

[c4s]

Gut auf die Idee bin ich auch gekommen - Trotzdem Danke für den Code

Ich werd dann wohl lieber Fluid Byte's Rat folgen (müssen)...

[Fluid Byte]

Gut auf die Idee bin ich auch gekommen - Trotzdem Danke für den Code

Ich werd dann wohl lieber Fluid Byte's Rat folgen (müssen)...

Ich bin von Haus aus Pessimist/Schwarzseher (wie mein Vater ) und neige dazu alles kaputt zu reden. Das soll dich aber keinesfalls abhalten es zu versuchen. Es ist nur die Frage deiner API Kenntniss und des Nutzen den du hast. Ich denke komplett für die Zeichung des Rahmes verantwortlich zu sein (also noch nicht mal der System Rahmen) nur wegen einem zentrieten Fenstertitel halte ich für übertrieben.

Siehst du? Ich habs schon wieder getan...

Egal, mach doch waste willst!

[c4s]

Egal, mach doch waste willst!

Hab jetzt #PB_Window_BorderLess. Irgendwie hat mich nur immer dieses
selbe Standardfensterzeuch genervt.

[hjbremer]

Habe den Code von #NULL noch etwas verschlimmbessert.

Code: Alles auswählen

#windownr=0
#windowbr=300
#windowhh=300

Procedure titleCenterAlign() 
  Shared title$ 
  Protected x,y

    LoadFont(0, "Arial", 14)  ;angenommene Schriftart+Größe vom Fenstertitel
    
    ;ermittelt Anzahl Pixel vom Titel
    StartDrawing(WindowOutput(#windownr))

        DrawingFont(FontID(0))
        
        lgtitel=TextWidth(title$)
        lgspace=TextWidth(" ")
    
    StopDrawing() 
    
    FreeFont(0)
    
    y=60                                  ;geschätzte Breite der TitelIcons
    x=WindowWidth(#windownr)-lgtitel-y    ;freie Pixels
    x=x/(lgspace*2)                       ;anzahl Leerzeichen links
    
    SetWindowTitle(#windownr,Space(x)+title$)

EndProcedure 

title$="Dies ist ein Test"

OpenWindow(#windownr, 0, 0, #windowbr, #windowhh, "", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    
titleCenterAlign()

Repeat 
  event = WaitWindowEvent(50) 
  Select event 
  Case #PB_Event_SizeWindow 
    titleCenterAlign() 
  EndSelect 
Until event = #PB_Event_CloseWindow
    

Weiß denn keiner wie man den Font für den Titel herausbekommt ????