Page 1 of 1
SCROLLBARS NOT WORKING IN DCREAD
Posted: Wed Jun 13, 2012 5:54 am
by 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 ) }
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Wed Jun 13, 2012 6:06 am
by 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.
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Wed Jun 13, 2012 6:26 am
by digitsoft
Tom wrote: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
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Wed Jun 13, 2012 6:37 am
by Tom
How does it look? Did you place ANY object outside the window metrics?
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Wed Jun 13, 2012 7:04 am
by 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 )
Tom wrote:How does it look? Did you place ANY object outside the window metrics?
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Thu Jun 14, 2012 2:03 am
by 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.
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Thu Jun 14, 2012 6:08 am
by 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})}
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Fri Jun 15, 2012 1:41 pm
by digitsoft
Hello Roger
I do not see the SCROLL BAR on the screen.
even with the code you sent me.
Paulino Nolberto
Regards
Re: SCROLLBARS NOT WORKING IN DCREAD
Posted: Fri Jun 15, 2012 3:48 pm
by 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