Vscroll on Tpanel

[MdaSolution]

Can we insert a vertical scroll to Tpanel ?

[nageswaragunupudi]

yes

[MdaSolution]

Can have a sample please ?
because on Tpanel class I not see vscroll method
I have fwh 9.10

[nageswaragunupudi]

please try

Code: Select all

oPanel:nStyle := nOr( oPanel:nStyle, WS_VSCROLL )
DEFINE SCROLLBAR oPanel:oVScroll VERTICAL OF oPanel RANGE 0,100

[MdaSolution]

Mr Rao Nages

NOT RUN OK
PLEASE TRY THIS
I use a bitmap with 800 of width

Code: Select all

#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  NIL

[Antonio Linares]

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 (?):

Code: Select all

#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 NIL
 

[MdaSolution]

ahora funciona
gracias Maestro Antonio

Necesito una lista de todos los registros con la clase de Tsection ( http://forums.fivetechsupport.com/viewt ... =3&t=17804)