Resize Xbrowse on the fly

Resize Xbrowse on the fly

Postby Marc Venken » Thu Jan 12, 2017 3: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.04 with Harbour
User avatar
Marc Venken
 
Posts: 1434
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium

Re: Resize Xbrowse on the fly

Postby Enrico Maria Giordano » Thu Jan 12, 2017 4:01 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8715
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Resize Xbrowse on the fly

Postby Marc Venken » Thu Jan 12, 2017 8: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.04 with Harbour
User avatar
Marc Venken
 
Posts: 1434
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 92 guests