Can we insert a vertical scroll to Tpanel ?
FWH .. BC582.. xharbour
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Vscroll on Tpanel
yes
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Can have a sample please ?
because on Tpanel class I not see vscroll method
I have fwh 9.10
FWH .. BC582.. xharbour
please try
oPanel:nStyle := nOr( oPanel:nStyle, WS_VSCROLL )
DEFINE SCROLLBAR oPanel:oVScroll VERTICAL OF oPanel RANGE 0,100Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr Rao Nages
NOT RUN OK
PLEASE TRY THIS
I use a bitmap with 800 of width
NOT RUN OK
PLEASE TRY THIS
I use a bitmap with 800 of width
#include "fivewin.ch"
static oTest
Function Main()
LOCAL oWnd, oBar, oPanel
DEFINE WINDOW oWnd ;
FROM 0, 0 TO 600, 800 PIXEL;
TITLE "test" ;
MDI
DEFINE BUTTONBAR oBar 3D SIZE 64, 64 OF oWnd 2007
DEFINE BUTTON OF oBar action write_bmp(oPanel,oBar:nHeight-1,5,"test.bmp") // first click here
DEFINE BUTTON OF oBar action write_bmp(oPanel,oTest:nBOTTOM+5,5,"test.bmp") // second click here
oPanel := TPanel(): New( oBar:nHeight-1 , 0, 400, 500, oWnd )
oPanel:nStyle := nOr( oPanel:nStyle, WS_VSCROLL )
DEFINE SCROLLBAR oPanel:oVScroll VERTICAL OF oPanel RANGE 0,100
ACTIVATE WINDOW oWnd maximized
RETURN NIL
Function write_bmp(oPanel,ntop,nleft,cBmpfile)
@ ntop,nleft BITMAP oTest FILENAME cBmpfile OF oPanel BORDER
RETURN NILFWH .. BC582.. xharbour
Mda,
You are using a MDI window which uses an "invisible" container window and you can not create controls on top of it.
If you modify your example this way, then you can check that Rao advise was right and also it may be closer to what you are looking for (?):
You are using a MDI window which uses an "invisible" container window and you can not create controls on top of it.
If you modify your example this way, then you can check that Rao advise was right and also it may be closer to what you are looking for (?):
#include "FiveWin.ch"
static oTest
Function Main()
LOCAL oWnd, oBar, oPanel
DEFINE WINDOW oWnd ;
FROM 0, 0 TO 600, 800 PIXEL;
TITLE "test"
DEFINE BUTTONBAR oBar 3D SIZE 64, 64 OF oWnd 2007
DEFINE BUTTON OF oBar ACTION write_bmp( oPanel, 5, 5, "test.bmp" ) // first click here
DEFINE BUTTON OF oBar ACTION write_bmp( oPanel, oTest:nBOTTOM + 5, 5, "test.bmp" ) // second click here
oPanel := TPanel(): New( oBar:nHeight - 1 , 0, 400, 500, oWnd )
oPanel:nStyle := nOr( oPanel:nStyle, WS_VSCROLL )
DEFINE SCROLLBAR oPanel:oVScroll VERTICAL OF oPanel RANGE 0,100
oWnd:oClient = oPanel
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
Function write_bmp( oPanel, ntop, nleft, cBmpfile )
@ ntop, nleft BITMAP oTest FILENAME cBmpfile OF oPanel BORDER PIXEL
RETURN NILahora funciona
gracias Maestro Antonio
Necesito una lista de todos los registros con la clase de Tsection ( viewtopic.php?f=3&t=17804)
FWH .. BC582.. xharbour