XProfan

Deutsch

Jörg
Sellmeyer

Height(%hwnd) gibt immer die Höhe des Haupfensters ab der Menüunterkannte bis zum unteren Fensterand aus.
Wenn eine Statusbar oder Toolbar vorhanden sind, wird das nicht berücksichtigt, sodaß immer berechnet werden muß, ab wo/bis wohin Controls gesetzt werden können.
Hiermit kann die Netto-Clientarea ermittelt werden, und die Höhe der Controls entsprechend gesetzt werden:
Kompilieren Markieren Separieren

 $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