DesktopWidth() und OpenWindow()

[Delle]

Hallo,

weiß jemand warum das Fenster so komisch versetzt ist?

Also das Icon oben klebt etwas zu weit links...

Muss man ev. von DestopWidth() noch etwas abziehen für den Rand oder?

Code: Alles auswählen

ExamineDesktops()

OpenWindow(0,0,0,DesktopWidth(0),DesktopHeight(0),"Test",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_Maximize)

WebGadget(0,0,0,WindowWidth(0),WindowHeight(0),"http://www.purebasic.com")

Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

[/code]

[Kaeru Gaman]

> Muss man ev. von DestopWidth() noch etwas abziehen für den Rand oder?
yup.
die breite und höhe die du angibst sind die inneren maße.

[Delle]

Kann man das irgendwie berechnen oder so?

[Kaeru Gaman]

mir ist vor längerem irgendwo ne API funktion begegnet, die die werte zurückgibt...
keine ahnung wo und wie die hieß...

muss man immer aktuell machen, weil das von skin zu skin unterschiedlich sein kann.

ich würde erstmal rumprobieren, ob das was bringt, das fenster maximiert zu öffnen und für die Maße Ingore einzusetzen....
ob das dann beim wiederherstellen die maximale größe besitzt.

[Josef Sniatecki]

Habs gefunden:

Code: Alles auswählen

#CCHILDREN_TITLEBAR = 5

Structure TITLEBARINFO
  cbSize.l
  rcTitleBar.RECT
  rgstate.l[#CCHILDREN_TITLEBAR+1]
EndStructure

pti.TITLEBARINFO\cbSize = SizeOf(TITLEBARINFO)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  GetTitleBarInfo_(WindowID(0),pti)
  MessageRequester("","Höhe der Titelleiste: "+Str(pti\rcTitleBar\bottom-pti\rcTitleBar\top),0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

War auf der Homepage von RSBasic zu finden .

EDIT:
Hier nochmal als praktische Prozedur:

Code: Alles auswählen

Procedure.i GetWindowTitleHeight(Window.i)
  #CCHILDREN_TITLEBAR=5
  
  Structure TITLEBARINFO
    cbSize.l
    rcTitleBar.RECT
    rgstate.l[#CCHILDREN_TITLEBAR+1]
  EndStructure
  
  Protected PTI.TITLEBARINFO
  
  PTI\cbSize=SizeOf(TITLEBARINFO)
  GetTitleBarInfo_(WindowID(Window),@PTI)
  ProcedureReturn PTI\rcTitleBar\bottom-pti\rcTitleBar\top
EndProcedure

EDIT: Gillt jedoch nur für die Titelleiste. Für die Länge habe ich keine
Lösung.