FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Resize Xbrowse on the fly
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM

Resize Xbrowse on the fly

Posted: Thu Jan 12, 2017 03:50 PM

Can we resize a Xbrowse that is already defined?

I have 4 xbrowse on 1 dialog and i'm thinking of a button on the dialog that when pressed will enlarge 1 xbrowse to full screen, so that there are more rows to see.
when hit a button make small it will scrink again.

The 4 xbrowse must be seen the same time, so folders would not work.

Ofcourse I could create a second browse for it, but i've seen so many thinks last month on this forum that maybe this already exsist :wink:

Regards
Marc

Marc Venken

Using: FWH 23.08 with Harbour
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Re: Resize Xbrowse on the fly

Posted: Thu Jan 12, 2017 04:01 PM

Try oBrw:Move() or oBrw:SetSize().

EMG

Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM

Re: Resize Xbrowse on the fly

Posted: Thu Jan 12, 2017 08:40 PM

This worked almost complete

 :bRClicked        := {|| (oWnd:Move( GetSysMetrics( SM_YVIRTUALSCREEN  ),;
                         GetSysMetrics( SM_YVIRTUALSCREEN  ),;
                         GetSysMetrics( SM_CXVIRTUALSCREEN ),;
                         GetSysMetrics( SM_CYVIRTUALSCREEN ), .T. ) ),;
                         oBrw4:SetSize(oWnd:nWidth-50, oWnd:nHeight-150) }

It will resize the oBrw4 browse from te start position to the max right and bottom, but not from the absolute top, left.

Maybe because there are other browses locate in this region.

Anyway, It can do the job. Thanks.

Marc Venken

Using: FWH 23.08 with Harbour

Continue the discussion