XProfan

Español

Jörg
Sellmeyer

Height(%hwnd) son siempre el Höhe des Haupfensters de el Menüunterkannte a para unteren Fensterand de.
Wenn una Statusbar oder Toolbar disponible son, se el no berücksichtigt, sodaß siempre berechnet voluntad muß, de wo/a wohin Controls gesetzt voluntad puede.
Hiermit kann el Netto-Clientarea ermittelt voluntad, y el Höhe el Controls entsprechend gesetzt voluntad:
Kompilieren Marca Separación

 $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