
any solution ?
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

Silvio,
You have to use WS_VSCROLL style on your folder pages RC definitions
Sorry I use @x,y no resource
oFolder:winStyle(WS_VSCROLL,.t.)DEFINE SCROLLBAR oVScroll VERTICAL OF oFolder#define WS_VSCROLL Â Â Â Â Â 2097152 Â // 0x00200000Lnada
no funciona
does not work
он не работает
het werkt niet
nó không hoạt động
es funktioniert nicht
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
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)
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