XProfan

Français

Jörg
Sellmeyer

Height(%hwnd) gibt toujours qui Hauteur des Haupfensters ab qui Menüunterkannte jusqu'à zum unteren Fensterand aus.
si une Statusbar ou bien Toolbar vorhanden sommes, wird cela pas berücksichtigt, si toujours berechnet volonté doit, ab wohin/jusqu'à òu Controls gesetzt volonté peut.
Hiermit peux qui Netto-Clientarea ermittelt volonté, et qui Hauteur qui Controls entsprechend gesetzt volonté:
Kompilieren Marque Séparation

 $H Windows.ph

Proc TrueHeight

    Declare hdl1&,hdl2&,h1%,h2%,s$
    hdl1& = ~ChildWindowFromPoint(%hwnd,1,1)
    hdl2& = ~ChildWindowFromPoint(%hwnd,1,Height(%hwnd) - 1)
    Case ClassOf(hdl1&) =ToolbarWindow32:h1% = Height(hdl1&)
    Case ClassOf(hdl2&) =msctls_statusbar32:h2% = Height(hdl2&)
    Return Height(%hwnd) - (h1% + h2%)

EndProc

Proc TBHeight

    Var hdl& = ~ChildWindowFromPoint(%hwnd,1,1)
    Case Upper$(ClassOf(hdl&)) =FENSTER:hdl& = ~ChildWindowFromPoint(%hwnd,1,Height(%hwnd) - 1)
    Case ClassOf(hdl&) =ToolbarWindow32:Return Height(hdl&)

EndProc

Proc StBHeight

    Var hdl& = ~ChildWindowFromPoint(%hwnd,1,Height(%hwnd) - 1)
    Case Upper$(ClassOf(hdl&)) =FENSTER:hdl& = ~ChildWindowFromPoint(%hwnd,1,Height(%hwnd) - 1)
    Case ClassOf(hdl&) =msctls_statusbar32:Return Height(hdl&)

EndProc

Cls
Locate 10,1
Print TrueHeight(),Height(%Hwnd)
Var TB& = Create(ToolBar,%hwnd,0,0,1,1000,0)
Print TrueHeight(),Height(%Hwnd)
Var sb& = Create(StatusWindow,%hwnd,Test)
Print TrueHeight(),Height(%Hwnd)
Print TBHeight(),StBHeight()
WaitInput