Verfasst: 28.09.2007 18:15
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 werd dann wohl lieber Fluid Byte's Rat folgen (müssen)...
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Ich bin von Haus aus Pessimist/Schwarzseher (wie mein Vaterc4s hat geschrieben: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)...
) 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.

Hab jetzt #PB_Window_BorderLess. Irgendwie hat mich nur immer diesesFluid Byte hat geschrieben:Egal, mach doch waste willst!
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