How 2 re-calculate Client area after TOutLook2003 is used.

How 2 re-calculate Client area after TOutLook2003 is used.

Postby RAMESHBABU » Thu Aug 21, 2008 12:49 pm

Hi All,

When I tested test2003.prg in samples folder, I found that the child window is not painted immediately after the right side of OutLook Bar, in
the client area.

Once the OutLook bar paited, the client area of the parent window is not
resized from the very next point of Outlook bar's width, due to which part
of the child windows is hidden under the Outlook Bar.

How to get it rectified. It is expected to work like TExpolorer recently
published in the forum by andresreyes_mzt vide his posting :

http://forums.fivetechsoft.com/viewtopi ... 04&start=0

Thanks in advance

- Ramesh Babu P
User avatar
RAMESHBABU
 
Posts: 625
Joined: Fri Oct 21, 2005 5:54 am
Location: Secunderabad (T.S), India

Postby Antonio Linares » Sat Aug 23, 2008 9:37 am

Ramesh,

Please add this code in samples\Test2003.prg:
Code: Select all  Expand view  RUN
   ACTIVATE WINDOW oWnd ;
      ON RESIZE ( oSplit:Adjust(), WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ) ) ;
      VALID lExit := .T.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby RAMESHBABU » Sat Aug 23, 2008 10:58 am

Hello Mr.Antonio,

Thank you very much for your attention.

On implementing your suggestion I am getting the following errors.

Code: Select all  Expand view  RUN
Application
===========
   Path and name: C:\FWH\SAMPLES\test2003.exe (32 bits)
   Size: 1,424,896 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 08/23/08, 16:26:20
   Error description: Error BASE/1071  Argument error: =
   Args:
     [   1] = O   Object
     [   2] = N   191

Stack Calls
===========
   Called from: test2003.prg => (b)MAIN(23)
   Called from: window.prg => TOUTLOOK2003:RESIZE(2082)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
   Called from: .\source\classes\OUTL2003.PRG => TOUTLOOK2003:HANDLEEVENT(0)
   Called from: window.prg => _FWH(3300)
   Called from:  => WNDADJLEFT(0)
   Called from: .\source\classes\CONTROL.PRG => TOUTLOOK2003:ADJLEFT(0)
   Called from: window.prg => TWINDOW:RESIZE(2067)
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:RESIZE(0)
   Called from:  => TMDIFRAME:HANDLEEVENT(0)
   Called from: window.prg => _FWH(3300)
   Called from:  => SHOWWINDOW(0)
   Called from: window.prg => TMDIFRAME:ACTIVATE(934)
   Called from: test2003.prg => MAIN(63)


Please help.

- Ramesh Babu P
User avatar
RAMESHBABU
 
Posts: 625
Joined: Fri Oct 21, 2005 5:54 am
Location: Secunderabad (T.S), India

Postby Antonio Linares » Sat Aug 23, 2008 11:07 am

Please show your source code in line 23.

You are comparing a number and an object!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby RAMESHBABU » Sat Aug 23, 2008 11:13 am

Hello Mr.Antonio

I am very sorry. There was some error in my code.

With your suggested change, I got the child window positioned from the very next pixel point of the splitter properly.

But the Rightside of the child window is gone beyond the right side of main window.


Regards,

- Ramesh Babu P
User avatar
RAMESHBABU
 
Posts: 625
Joined: Fri Oct 21, 2005 5:54 am
Location: Secunderabad (T.S), India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 73 guests