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