Seite 2 von 2

Verfasst: 28.09.2007 18:15
von c4s
Gut auf die Idee bin ich auch gekommen - Trotzdem Danke für den Code :wink:

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

Verfasst: 28.09.2007 20:00
von Fluid Byte
c4s hat geschrieben:Gut auf die Idee bin ich auch gekommen - Trotzdem Danke für den Code :wink:

Ich werd dann wohl lieber Fluid Byte's Rat folgen (müssen)...
Ich bin von Haus aus Pessimist/Schwarzseher (wie mein Vater Bild) 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... Bild

Egal, mach doch waste willst! Bild

Verfasst: 28.09.2007 20:45
von c4s
Fluid Byte hat geschrieben:Egal, mach doch waste willst! Bild
Hab jetzt #PB_Window_BorderLess. Irgendwie hat mich nur immer dieses
selbe Standardfensterzeuch genervt.

Verfasst: 28.09.2007 22:00
von 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 ????