Page 1 of 1
As I can leave the ScrollBars Visible using DCDIALOG
Posted: Fri Feb 17, 2012 3:17 pm
by digitsoft
Hello Roger
As I can leave the ScrollBars Visible
using DCDIALOG
Nolberto Paulino
Re: As I can leave the ScrollBars Visible using DCDIALOG
Posted: Sat Feb 18, 2012 11:49 am
by rdonnay
I don't understand this question.
Re: As I can leave the ScrollBars Visible using DCDIALOG
Posted: Mon Feb 20, 2012 3:03 pm
by digitsoft
Hello Roger
Please compare this code with the Bitmap eXpress1 This example is using and look at the scroolbar
eXpress eXample1
@ 1.2,0.5 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX SIZE 64.3,0005.6 OBJECT oDlg1 PARENT oSubTabPage4 CAPTION "Configuración"
@ 0.2,0.7 DCDIALOG oStatic1 DRAWINGAREA oStatic2 SIZE 64.2,005.5 NOTITLEBAR BORDER XBPDLG_NO_BORDER COLOR GRA_CLR_BLACK, XBPSYSCLR_INFOBACKGROUND ;
SCROLLBARS XBP_SCROLLBAR_VERT ;
PARENT oDlg1
@ xRow+=0.3,01.0 DCSAY "Tipo Papel Fact.:" PARENT oStatic2
@ xRow-00.1,12.4 DCCOMBOBOX cTRecibo_VC LIST aRecibo TYPE XBPCOMBO_DROPDOWNLIST SIZE 37.5,10.2 ;
COLOR GRA_CLR_BLUE,GRA_CLR_WHITE ;
PARENT oStatic2 ;
MESSAGE "Indique el Tipo de Papel a Imprimnir la Factura." INTO oMsgBox ;
WHEN {|| lEditar }
DCREAD GUI FIT TITLE "Registro de Empresas" APPWINDOW oDialog PARENT @oDlg ;
EVAL {|o| SetAppWindow(o), oStatic1:setFrameState( XBPDLG_FRAMESTAT_MAXIMIZED ) }
eXpress eXample2
@ 1.2,0.5 DCSTATIC TYPE XBPSTATIC_TYPE_RECESSEDBOX SIZE 64.3,0005.6 OBJECT oDlg1 PARENT oSubTabPage4 CAPTION "Configuración"
@ 0.2,0.7 DCDIALOG oStatic1 DRAWINGAREA oStatic2 SIZE 64.2,005.5 NOTITLEBAR BORDER XBPDLG_NO_BORDER COLOR GRA_CLR_BLACK, XBPSYSCLR_INFOBACKGROUND ;
SCROLLBARS XBP_SCROLLBAR_VERT ;
PARENT oDlg1
@ xRow+=0.3,01.0 DCSAY "Tipo Papel Fact.:" PARENT oStatic2
@ xRow-00.1,12.4 DCCOMBOBOX cTRecibo_VC LIST aRecibo TYPE XBPCOMBO_DROPDOWNLIST SIZE 37.5,10.2 ;
COLOR GRA_CLR_BLUE,GRA_CLR_WHITE ;
PARENT oStatic2 ;
MESSAGE "Indique el Tipo de Papel a Imprimnir la Factura." INTO oMsgBox ;
WHEN {|| lEditar }
DCREAD GUI FIT TITLE "Registro de Empresas" APPWINDOW oDialog PARENT @oDlg ;
EVAL {|o| SetAppWindow(o) }
For me I have to use oStatic1 work: setFrameState (XBPDLG_FRAMESTAT_MAXIMIZED) but deforms the sale.
There is another way of Logar this without using oStatic1: setFrameState (XBPDLG_FRAMESTAT_MAXIMIZED)
Paulino Nolberto
Regards
Re: As I can leave the ScrollBars Visible using DCDIALOG
Posted: Tue Feb 21, 2012 10:10 am
by rdonnay
Ok, I think I understand now.
I had the same problem when I put scrollbars on my ButtonXP sample program.
Look at \exp19\samples\buttonxp\buttonxp.prg.
There appears to be a bug in Xbase++ related to the scrollbar option of XbpDialog.
It requires that the dialog size be changed at least one pixel before it decides that it needs scrollbars.
Code: Select all
@ 20,850 DCDIALOG oDlg1 DRAWINGAREA oDlgArea1 SIZE 121,575 NOTITLEBAR ;
SCROLLBARS XBP_SCROLLBAR_VERT BORDER XBPDLG_NO_BORDER
DCREAD GUI FIT TITLE 'XP Style Buttons' ;
SETAPPWINDOW OPTIONS GetOptions ;
EVAL {||oDlg1:setSize({oDlg1:currentSize()[1]+1,oDlg1:currentSize()[2]}), ;
oDlg2:setSize({oDlg2:currentSize()[1],oDlg2:currentSize()[2]+1}), ;
DC_GetWhen(GetList), ;
ButtonAdjust(aToolbar[10])}
Re: As I can leave the ScrollBars Visible using DCDIALOG
Posted: Tue Feb 21, 2012 10:22 am
by digitsoft
Thanks Roger for your help
I left a sample in User Contribution
eXpress for all user, and this greatly simplified.
If you can get in eXpress for the Next
version
Paulino Nolberto
Regards