scroll on folder

scroll on folder

Postby Silvio.Falconi » Fri Feb 09, 2018 9: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

Image

any solution ?
I use : FiveWin for Harbour v. 17.11 - Harbour 3.2.0dev (r1703231115)(March 2017) - Bcc7 - xMate ver. 1.15.3 - PellesC
User avatar
Silvio.Falconi
 
Posts: 2731
Joined: Thu Oct 18, 2012 7:17 pm
Location: Teramo - Abruzzo - Italy

Re: scroll on folder

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 35350
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: scroll on folder

Postby Silvio.Falconi » Fri Feb 09, 2018 12:02 pm

Sorry I use @x,y no resource
I use : FiveWin for Harbour v. 17.11 - Harbour 3.2.0dev (r1703231115)(March 2017) - Bcc7 - xMate ver. 1.15.3 - PellesC
User avatar
Silvio.Falconi
 
Posts: 2731
Joined: Thu Oct 18, 2012 7:17 pm
Location: Teramo - Abruzzo - Italy

Re: scroll on folder

Postby AntoninoP » Fri Feb 09, 2018 2:18 pm

I am not sure (i did not try) mut in this case you should use the method winstyle:

Code: Select all  Expand view
oFolder:winStyle(WS_VSCROLL,.t.)


and you obtain the scroll in this way:
Code: Select all  Expand view
DEFINE SCROLLBAR oVScroll VERTICAL OF oFolder


WS_VSCROLL is defined in winapi.ch:
Code: Select all  Expand view
#define WS_VSCROLL           2097152  // 0x00200000L


Ciao silvio :D
AntoninoP
 
Posts: 184
Joined: Tue Feb 10, 2015 9:48 am
Location: Albenga, Italy

Re: scroll on folder

Postby Silvio.Falconi » Sat Feb 10, 2018 9:43 am

nada
no funciona
does not work
он не работает
het werkt niet
nó không hoạt động
es funktioniert nicht
I use : FiveWin for Harbour v. 17.11 - Harbour 3.2.0dev (r1703231115)(March 2017) - Bcc7 - xMate ver. 1.15.3 - PellesC
User avatar
Silvio.Falconi
 
Posts: 2731
Joined: Thu Oct 18, 2012 7:17 pm
Location: Teramo - Abruzzo - Italy

Re: scroll on folder

Postby Silvio.Falconi » 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
I use : FiveWin for Harbour v. 17.11 - Harbour 3.2.0dev (r1703231115)(March 2017) - Bcc7 - xMate ver. 1.15.3 - PellesC
User avatar
Silvio.Falconi
 
Posts: 2731
Joined: Thu Oct 18, 2012 7:17 pm
Location: Teramo - Abruzzo - Italy

Re: scroll on folder

Postby Silvio.Falconi » Sun Feb 11, 2018 4: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
I use : FiveWin for Harbour v. 17.11 - Harbour 3.2.0dev (r1703231115)(March 2017) - Bcc7 - xMate ver. 1.15.3 - PellesC
User avatar
Silvio.Falconi
 
Posts: 2731
Joined: Thu Oct 18, 2012 7:17 pm
Location: Teramo - Abruzzo - Italy


Return to FiveWin for Harbour/xHarbour

Who is online

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