sub GetWindowsCaptionBorderSize(hw as hwnd , pCaption as gint ptr , pBorder as gint ptr)
Позволяет получить высоту заголовка (шапки) и ширины бордюра окна.
hw - хендл окна верхнего уровня
pCaption - указатель на тип gint , куда будет возвращено значение высоты шапки окна
pBorder - указатель на тип gint , куда будет возвращено значение ширины бордюра окна
Linux
#Include "window9.bi"
dim as gint iCaption , iBorder
dim as hwnd hwnd = Openwindow("", 200,200,100,200)
UpdateInfoXserver()
GetWindowsCaptionBorderSize(hwnd , @iCaption, @iBorder)
? "Caption window=";iCaption
? "Border window=";iBorder
Do
Var ev = WaitEvent
If ev = EventClose Then exit do
Loop
Created with the Personal Edition of HelpNDoc: Free EPub producer