SCROLLBARS NOT WORKING IN DCREAD

[digitsoft]

Hello Roger
If I use a DCREAD SCROOLBAR not Work.

Paulino Nolberto
A Warm Welcome

Code: Select all

 DCGETOPTIONS  NOMAXBUTTON  TOOLTIPFONT '08.Arial Bold' GETTEMPLATE "" ;
               WINDOWWIDTH 1024 ;
               WINDOWHEIGHT 776 ;
               MAXSIZE 1034,778 ; &&               AUTOFOCUS ; &&               AUTORESIZE ; 
               EXITVALIDATE ;
               TABSTOP ; &&               LOCKWINDOWTOOWNER ;
               ICON ICON_1 ;
               SCROLLBARS XBP_SCROLLBAR_VERT+XBP_SCROLLBAR_HORIZ ;
               ABORTQUERY MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               CLOSEQUERY MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               EXITQUERY  MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               QUITQUERY  MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES }
 
 PrinterMenu( aApp, GetList, "MV", @oMenuVentaPrinter, @oTipoPapelVenta, @aPosMenuPrinter )

 DCREAD GUI FIT TITLE "Pedido de Venta "+IIF(cTipoModulo = "VR","Rápida","Con Cajero")  PARENT @oDlg ;
        OPTIONS GetOptions ;
        SETAPPWINDOW ;
        CLEAREVENTS ;
        eval {|o| o:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED ) }

[Tom]

Why should a dialog display scrollbars if you use the FIT clause of DCREAD? This forces a dialog show all elements and fit them to the dialog. Remove "FIT" and play with the window size.

[digitsoft]

Why should a dialog display scrollbars if you use the FIT clause of DCREAD? This forces a dialog show all elements and fit them to the dialog. Remove "FIT" and play with the window size.

Hello Tom
I've removed the FIT and does not work.

Paulino Nolberto
Regards

[Tom]

How does it look? Did you place ANY object outside the window metrics?

[digitsoft]

Look

Code: Select all

 DCGETOPTIONS  NOMAXBUTTON  TOOLTIPFONT '08.Arial Bold' GETTEMPLATE "" ;
               WINDOWWIDTH 900  ; && 1024 ;
               WINDOWHEIGHT 500 ; &&776 ;
               MAXSIZE 900,500 ; && 1034,778 ; &&               AUTOFOCUS ; &&               AUTORESIZE ; 
               EXITVALIDATE ;
               TABSTOP ; &&               LOCKWINDOWTOOWNER ;
               ICON ICON_1 ;
               SCROLLBARS XBP_SCROLLBAR_VERT+XBP_SCROLLBAR_HORIZ ;
               ABORTQUERY MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               CLOSEQUERY MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               EXITQUERY  MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES } ;
               QUITQUERY  MSG {||DC_WinAlert("Esta Seguro de Salir de Getión Punto de Venta Fácil e Integrada","Atención",XBPMB_YESNO,XBPMB_WARNING,,oDlg) = XBPMB_RET_YES }
 
 PrinterMenu( aApp, GetList, "MV", @oMenuVentaPrinter, @oTipoPapelVenta, @aPosMenuPrinter )
**FIT 
 DCREAD GUI TITLE "Pedido de Venta "+IIF(cTipoModulo = "VR","Rápida","Con Cajero")  PARENT @oDlg ;
        OPTIONS GetOptions ;
        SETAPPWINDOW ;
        CLEAREVENTS ;
        eval {|o| o:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED )

How does it look? Did you place ANY object outside the window metrics?

[Tom]

What happens if you remove:

Code: Select all

eval {|o| o:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED )

?

Something is strange in your code anyway. There is a "NOMAXBUTTON" option set, but your sample shows a maximize button.

[rdonnay]

This is a bug in Xbase++.

Add the following code to your DCREAD GUI command:

Code: Select all

   EVAL {||oDlg1:setSize({oDlg1:currentSize()[1]+1,oDlg1:currentSize()[2]}), ;
           oDlg2:setSize({oDlg2:currentSize()[1],oDlg2:currentSize()[2]+1})}

[digitsoft]

Hello Roger
I do not see the SCROLL BAR on the screen.

even with the code you sent me.

Paulino Nolberto
Regards

[rdonnay]

Compile and run the below code. It works.

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], GetOptions

@ 3,10 DCPUSHBUTTON CAPTION 'Button1' SIZE 10,2

@33,10 DCPUSHBUTTON CAPTION 'Button2' SIZE 10,2

DCGETOPTIONS SCROLLBARS XBP_SCROLLBAR_VERT TABSTOP

DCREAD GUI OPTIONS GetOptions TITLE 'Scrollbar Test' ;
   EVAL {|o|o:setSize({o:currentSize()[1],o:currentSize()[2]+1}) }

RETURN nil

* --------------

PROC appsys ; return