As I can leave the ScrollBars Visible using DCDIALOG

[digitsoft]

Hello Roger
As I can leave the ScrollBars Visible
using DCDIALOG

Nolberto Paulino

[rdonnay]

I don't understand this question.

[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

[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])}

[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