FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour scroll on folder
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
scroll on folder
Posted: Fri Feb 09, 2018 09:49 AM
when I resize my window test I saw the folder not have the vertical scrollbar to show also all the controls I insert on that folder



any solution ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: scroll on folder
Posted: Fri Feb 09, 2018 10:17 AM

Silvio,

You have to use WS_VSCROLL style on your folder pages RC definitions

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: scroll on folder
Posted: Fri Feb 09, 2018 12:02 PM

Sorry I use @x,y no resource

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: scroll on folder
Posted: Fri Feb 09, 2018 02:18 PM
I am not sure (i did not try) mut in this case you should use the method winstyle:

Code (fw): Select all Collapse
oFolder:winStyle(WS_VSCROLL,.t.)


and you obtain the scroll in this way:
Code (fw): Select all Collapse
DEFINE SCROLLBAR oVScroll VERTICAL OF oFolder


WS_VSCROLL is defined in winapi.ch:
Code (fw): Select all Collapse
#define WS_VSCROLL           2097152  // 0x00200000L


Ciao silvio :-)
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: scroll on folder
Posted: Sat Feb 10, 2018 09:43 AM

nada
no funciona
does not work
он не работает
het werkt niet
nó không hoạt động
es funktioniert nicht

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: scroll on folder
Posted: Sat Feb 10, 2018 10:15 AM

only with this command can I see the scroll, the vertical scroll is shown even when it should not be shown

oApp():oFolder:adialogs[1]:nSTYLE := nOR( WS_CHILD, WS_VSCROLL )

it show vertical scroll on first tab

when I click on the scroll button I can not see the other controls

i think the tfolder class has to be re-edited so that when it gets smaller, it automatically create the scroll and scroll all the controls that are on the tabs. in particular the last control must be extended until the end of the obj folder

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: scroll on folder
Posted: Sun Feb 11, 2018 04:08 PM

On explorer bar there is a dispositive create a vertical scroll when we resize it...why we cannot insert it on folder class ?

here a test ( but not run)

include "fivewin.ch"

include "constant.ch"

define WS_VSCROLL 2097152 // 0x00200000L

Function test()
Local oDlg,oFolder,oVScroll
Local nBottom := 33
Local nRight := 115
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
local noption := 1

DEFINE DIALOG oDlg ;
TITLE "test folder" ;
SIZE nWidth, nHeight TRANSPARENT PIXEL

@ 10,10 FOLDER oFolder of oDlg ;
ITEMS "Anagrafica","Rapporti Commerciali","Varie" ;
SIZE  100,200  PIXEL

 oFolder:adialogs[nOption]:nSTYLE := nOR( WS_CHILD, WS_VSCROLL, WS_HSCROLL )

  DEFINE SCROLLBAR oVScroll VERTICAL OF oFolder

 oFolder:winStyle(WS_VSCROLL,.t.)

  oDlg:nStyle    := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_MAXIMIZEBOX,   0  )

  ACTIVATE DIALOG oDlg CENTERED

  return nil
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion