|
From: <ss...@ma...> - 2015-02-28 09:55:28
|
Hi!
I had test '%hwgdir%\contrib\ext_controls\hbrowsex.prg' and found some bug,
I'm write sample to test and 'WINDOW' is MDICHILD,
but occur error when run to HBrowseEx:InitBrw() ...
//----------
::nyHeight := iif( hwg_GetParentForm( Self ):Type < WND_DLG_RESOURCE , 1 , 0 )
//----------
Because MDICHILD Window not yet Activate and 'HBrowseEx' need ':Type' to work,
so, I suggest modify 'hwindow.prg' and add code to 'HMDIChildWindow'
//-----------
METHOD New(...) CLASS HMDIChildWindow
::Super:new(...)
::Type := WND_MDICHILD
RETURN Self
//-----------
|