diff --git a/.gitignore b/.gitignore
index a845094..3ce1222 100644
--- a/.gitignore
+++ b/.gitignore
@@ -75,8 +75,8 @@ bin2txt.*
#exclude general
-*special, reinclude duplicate, or the job might not be done elsewehere
-!/foxbin2prg.cfg.cfg
+*special, settings to create foxbin2prg binary
+!/foxbin2prg_self.cfg
*re-include
!foxbin2prg_keywords.*
diff --git a/CLEAR ALL.exe b/CLEAR ALL.exe
deleted file mode 100644
index da52d45..0000000
Binary files a/CLEAR ALL.exe and /dev/null differ
diff --git a/Fb2P_Diff/fb2p_diff.dataenvironment.sc2 b/Fb2P_Diff/fb2p_diff.dataenvironment.sc2
new file mode 100644
index 0000000..5e0e95e
--- /dev/null
+++ b/Fb2P_Diff/fb2p_diff.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_diff.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/Fb2P_Diff/fb2p_diff.frmdiff.sc2 b/Fb2P_Diff/fb2p_diff.frmdiff.sc2
new file mode 100644
index 0000000..8e7795e
--- /dev/null
+++ b/Fb2P_Diff/fb2p_diff.frmdiff.sc2
@@ -0,0 +1,1471 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_diff.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS frmdiff AS form
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="pgfDiff" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtDiffToolName" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_DiffTool" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdDiff" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.chkShowCall" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.lbl_DiffTool" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolConfig" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cboDiffToolName" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmgEditPanel" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdResetAll" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSave" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdCancel" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSetDefault" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolPath" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdDiffToolPath" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="chkAlwaysOnTop" UniqueID="" Timestamp="" />
+
+ *
+ *m: cancel && Specifies if a CommandButton is the Cancel button.
+ *m: checkfilenames_dt
+ *m: create_default_cfg
+ *m: deletetool
+ *m: difftoolchanged
+ *m: difftoolcombo_refresh
+ *m: edittool
+ *m: filesdiff
+ *m: initialize
+ *m: load_cfg_data
+ *m: newtool
+ *m: resetalltools
+ *m: savetool
+ *m: save_cfg_data
+ *m: updateglobalenabled
+ *p: colorgreen
+ *p: coloryellow
+ *p: c_cfg_data && Contenido del archivo de configuración
+ *p: c_cfg_file && Ruta del archivo de configuración
+ *p: c_curdir && Ruta actual de la llamada
+ *p: c_fb2p_diff_fullpath && Ruta de este form
+ *p: difftoolconfig && Configuration for the Diff tool
+ *p: difftoolname && Name of the Diff tool
+ *p: difftoolpath
+ *p: filename1
+ *p: filename1_dt
+ *p: filename2
+ *p: filename2_dt
+ *p: lastfilename1
+ *p: lastfilename2
+ *p: l_editmode
+ *p: l_showcallonly && Show Diff Call Only, but don't Diff. (For testing)
+ *p: n_editoption
+ *p: n_selectedtoolindex
+ *p: n_toolcount
+ *p: ofb2p
+ *a: a_tools[1,3]
+ *p: _memberdata && XML Metadata for customizable properties
+ *
+
+ *
+ AllowOutput = .F.
+ AlwaysOnTop = .T.
+ AutoCenter = .T.
+ BackColor = 255,255,255
+ Caption = "Diff VFP 9 binary files (scx,vcx,mnx,pjx,frx,lbx,dbc,dbf)"
+ colorgreen = (RGB(35,245,24))
+ coloryellow = (RGB(239,245,165))
+ c_cfg_data =
+ c_cfg_file =
+ c_curdir =
+ c_fb2p_diff_fullpath =
+ difftoolconfig =
+ difftoolname =
+ difftoolpath =
+ DoCreate = .T.
+ filename1 =
+ filename1_dt = {}
+ filename2 =
+ filename2_dt = {}
+ Height = 191
+ Icon = fb2p_diff.ico
+ lastfilename1 =
+ lastfilename2 =
+ l_editmode = .F.
+ l_showcallonly = .F.
+ MaxButton = .F.
+ Name = "frmDiff"
+ n_editoption = 0
+ n_selectedtoolindex = 0
+ n_toolcount = 0
+ ofb2p = .NULL.
+ ShowTips = .T.
+ ShowWindow = 2
+ Width = 760
+ _memberdata =
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ *
+
+ ADD OBJECT 'chkAlwaysOnTop' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 8, ;
+ BackStyle = 0, ;
+ Caption = "Always on top", ;
+ ControlSource = "thisform.alwaysontop", ;
+ Height = 17, ;
+ Left = 652, ;
+ Name = "chkAlwaysOnTop", ;
+ TabIndex = 2, ;
+ Top = 8, ;
+ Value = .F., ;
+ Width = 96
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'pgfDiff' AS pageframe WITH ;
+ Anchor = 15, ;
+ ErasePage = .T., ;
+ Height = 180, ;
+ Left = 8, ;
+ Name = "pgfDiff", ;
+ PageCount = 2, ;
+ TabIndex = 1, ;
+ TabStyle = 1, ;
+ Top = 4, ;
+ Width = 744, ;
+ Page1.Caption = "Files Diff", ;
+ Page1.Name = "pagFilesDiff", ;
+ Page2.Caption = "Diff tool configure", ;
+ Page2.Name = "pagDiffToolConfig"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cboDiffToolName' AS combobox WITH ;
+ Anchor = 10, ;
+ BorderColor = 0,128,192, ;
+ Height = 24, ;
+ Left = 63, ;
+ Name = "cboDiffToolName", ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ Style = 2, ;
+ TabIndex = 1, ;
+ Top = 12, ;
+ Width = 572
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdCancel' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "Cancel", ;
+ Height = 27, ;
+ Left = 639, ;
+ Name = "cmdCancel", ;
+ TabIndex = 8, ;
+ Top = 116, ;
+ Width = 84
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdDiffToolPath' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "...", ;
+ Height = 27, ;
+ Left = 695, ;
+ Name = "cmdDiffToolPath", ;
+ TabIndex = 3, ;
+ Top = 42, ;
+ Width = 28
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdResetAll' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "Reset All", ;
+ Height = 27, ;
+ Left = 399, ;
+ Name = "cmdResetAll", ;
+ TabIndex = 6, ;
+ Top = 116, ;
+ Width = 84
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSave' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "Save", ;
+ Height = 27, ;
+ Left = 551, ;
+ Name = "cmdSave", ;
+ TabIndex = 7, ;
+ Top = 116, ;
+ Width = 84
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSetDefault' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "Set Default", ;
+ Height = 27, ;
+ Left = 639, ;
+ Name = "cmdSetDefault", ;
+ TabIndex = 9, ;
+ Top = 10, ;
+ Width = 84
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmgEditPanel' AS commandgroup WITH ;
+ Anchor = 2, ;
+ BackStyle = 0, ;
+ BorderStyle = 0, ;
+ ButtonCount = 3, ;
+ ControlSource = "THISFORM.n_EditOption", ;
+ Height = 36, ;
+ Left = 63, ;
+ Name = "cmgEditPanel", ;
+ SpecialEffect = 1, ;
+ TabIndex = 5, ;
+ Top = 112, ;
+ Value = 1, ;
+ Width = 268, ;
+ Command1.Caption = "New tool", ;
+ Command1.Height = 27, ;
+ Command1.Left = 4, ;
+ Command1.Name = "cmdNew", ;
+ Command1.Top = 4, ;
+ Command1.Width = 84, ;
+ Command2.Caption = "Edit tool", ;
+ Command2.Height = 27, ;
+ Command2.Left = 92, ;
+ Command2.Name = "cmdEdit", ;
+ Command2.Top = 4, ;
+ Command2.Width = 84, ;
+ Command3.Caption = "Delete tool", ;
+ Command3.Height = 27, ;
+ Command3.Left = 180, ;
+ Command3.Name = "cmdDelete", ;
+ Command3.Top = 4, ;
+ Command3.Width = 84
+ *< END OBJECT: BaseClass="commandgroup" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label1' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "Config", ;
+ Height = 17, ;
+ Left = 15, ;
+ Name = "Label1", ;
+ TabIndex = 11, ;
+ Top = 80, ;
+ Width = 48
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label2' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "Path", ;
+ Height = 17, ;
+ Left = 15, ;
+ Name = "Label2", ;
+ TabIndex = 12, ;
+ Top = 48, ;
+ Width = 48
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.lbl_DiffTool' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "Diff tool", ;
+ Height = 17, ;
+ Left = 15, ;
+ Name = "lbl_DiffTool", ;
+ TabIndex = 10, ;
+ Top = 16, ;
+ Width = 48
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolConfig' AS textbox WITH ;
+ Anchor = 10, ;
+ BorderColor = 0,128,192, ;
+ Enabled = .F., ;
+ Format = "T", ;
+ Height = 23, ;
+ Left = 63, ;
+ MaxLength = 255, ;
+ Name = "txtDiffToolConfig", ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ TabIndex = 4, ;
+ ToolTipText = "Keywords: <>, <>", ;
+ Top = 76, ;
+ Width = 660
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolPath' AS textbox WITH ;
+ Anchor = 10, ;
+ BorderColor = 0,128,192, ;
+ Enabled = .F., ;
+ Format = "T", ;
+ Height = 23, ;
+ Left = 63, ;
+ MaxLength = 255, ;
+ Name = "txtDiffToolPath", ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ TabIndex = 2, ;
+ ToolTipText = "Keywords: <>, <>", ;
+ Top = 44, ;
+ Width = 628
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.chkShowCall' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 8, ;
+ BackStyle = 0, ;
+ Caption = "Only show Diff call (for testing)", ;
+ ControlSource = "THISFORM.l_ShowCallOnly", ;
+ Height = 17, ;
+ Left = 443, ;
+ Name = "chkShowCall", ;
+ TabIndex = 2, ;
+ Top = 116, ;
+ Value = .F., ;
+ Width = 192
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.cmdDiff' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "Diff", ;
+ Height = 60, ;
+ Left = 643, ;
+ Name = "cmdDiff", ;
+ TabIndex = 6, ;
+ Top = 80, ;
+ Width = 84
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile1' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "...", ;
+ Height = 27, ;
+ Left = 667, ;
+ Name = "cmdFile1", ;
+ TabIndex = 2, ;
+ Top = 10, ;
+ Width = 28
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile2' AS commandbutton WITH ;
+ Anchor = 8, ;
+ Caption = "...", ;
+ Height = 27, ;
+ Left = 667, ;
+ Name = "cmdFile2", ;
+ TabIndex = 4, ;
+ Top = 42, ;
+ Width = 28
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_DiffTool' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "Diff tool", ;
+ Height = 17, ;
+ Left = 11, ;
+ Name = "lbl_DiffTool", ;
+ TabIndex = 9, ;
+ Top = 88, ;
+ Width = 48
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File1' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "File 1", ;
+ Height = 17, ;
+ Left = 11, ;
+ Name = "lbl_File1", ;
+ TabIndex = 7, ;
+ Top = 16, ;
+ Width = 36
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File2' AS label WITH ;
+ BackStyle = 0, ;
+ Caption = "File 2", ;
+ Height = 17, ;
+ Left = 11, ;
+ Name = "lbl_File2", ;
+ TabIndex = 8, ;
+ Top = 48, ;
+ Width = 36
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile1' AS shape WITH ;
+ Anchor = 8, ;
+ BorderStyle = 0, ;
+ Curvature = 10, ;
+ Height = 23, ;
+ Left = 699, ;
+ Name = "shpFile1", ;
+ SpecialEffect = 1, ;
+ ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ;
+ Top = 12, ;
+ Width = 24
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile2' AS shape WITH ;
+ Anchor = 8, ;
+ BorderStyle = 0, ;
+ Curvature = 10, ;
+ Height = 23, ;
+ Left = 699, ;
+ Name = "shpFile2", ;
+ SpecialEffect = 1, ;
+ ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ;
+ Top = 44, ;
+ Width = 24
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.txtDiffToolName' AS textbox WITH ;
+ Anchor = 10, ;
+ BorderColor = 232,232,232, ;
+ ControlSource = "THISFORM.diffToolName", ;
+ Enabled = .F., ;
+ Format = "T", ;
+ Height = 23, ;
+ Left = 63, ;
+ MaxLength = 255, ;
+ Name = "txtDiffToolName", ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ TabIndex = 5, ;
+ Top = 84, ;
+ Width = 564
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile1' AS textbox WITH ;
+ Anchor = 10, ;
+ BorderColor = 0,128,192, ;
+ ControlSource = "THISFORM.filename1", ;
+ Format = "T", ;
+ Height = 23, ;
+ Left = 63, ;
+ MaxLength = 255, ;
+ Name = "txtFile1", ;
+ OLEDropMode = 1, ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ TabIndex = 1, ;
+ Top = 12, ;
+ Width = 600
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile2' AS textbox WITH ;
+ Anchor = 10, ;
+ BorderColor = 0,128,192, ;
+ ControlSource = "THISFORM.filename2", ;
+ Format = "T", ;
+ Height = 23, ;
+ Left = 63, ;
+ MaxLength = 255, ;
+ Name = "txtFile2", ;
+ OLEDropMode = 1, ;
+ SelectOnEntry = .T., ;
+ SpecialEffect = 1, ;
+ TabIndex = 3, ;
+ Top = 44, ;
+ Width = 600
+ *< END OBJECT: BaseClass="textbox" />
+
+ PROCEDURE Activate
+ *-- activate
+ THISFORM.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE cancel && Specifies if a CommandButton is the Cancel button.
+ *-- cancel
+ THISFORM.l_EditMode = .F.
+ THISFORM.updateGlobalEnabled()
+
+ WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ .Style = 2 && Dropdown List
+ .RowSourceType= 5
+ .RowSource = 'THISFORM.a_Tools'
+ .ControlSource = 'THISFORM.diffToolName'
+ .Value = THISFORM.diffToolName
+ THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = THISFORM.diffToolConfig
+ THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = THISFORM.diffToolPath
+ .SetFocus()
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE checkfilenames_dt
+ LPARAMETERS tnFilename
+
+ LOCAL laFile1(1,5), laFile2(1,5), ltFilename1_dt, ltFilename2_dt, lnCodError, lcMessage, lnIcon ;
+ , lcFilename1, lcFilename2, lcExt, lcExt2, lcDir, lcFilename1_dt, lcFilename2_dt ;
+ , loFB2P as c_foxbin2prg OF foxbin2prg.prg
+
+ #DEFINE CR_LF CHR(13)+CHR(10)
+
+ TRY
+ lnCodError = 0
+ STORE '' TO lcMessage, lcFilename1, lcFilename2, lcExt, lcExt2, lcDir
+ loFB2P = THIS.oFB2P
+ tnFilename = EVL(tnFilename, 0)
+
+ DO CASE
+ CASE INLIST(tnFilename, 0, 1) AND EMPTY(THIS.filename1)
+ EXIT
+ CASE INLIST(tnFilename, 0, 2) AND EMPTY(THIS.filename2)
+ EXIT
+ ENDCASE
+
+ IF INLIST(tnFilename, 0, 1) THEN
+ lcExt = JUSTEXT(THIS.filename1)
+ lcDir = JUSTPATH(THIS.filename1)
+ lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir )
+ lcFilename1 = FORCEEXT( THIS.filename1, lcExt2 )
+
+ IF ADIR(laFile1, lcFilename1) = 1 THEN
+ lcFilename1_dt = '{^' + TRANSFORM( DTOS( laFile1(1,3) ), '@R ####/##/##' ) + ' ' + laFile1(1,4) + '}'
+ ltFilename1_dt = EVALUATE( lcFilename1_dt )
+
+ DO CASE
+ CASE EMPTY(THIS.filename1_dt)
+ THIS.filename1_dt = ltFilename1_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
+ THIS.lastFilename1 = THIS.filename1
+
+ CASE NOT THIS.filename1 == THIS.lastFilename1
+ THIS.filename1_dt = ltFilename1_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
+ THIS.lastFilename1 = THIS.filename1
+
+ CASE THIS.filename1_dt <> ltFilename1_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorYellow
+
+ OTHERWISE
+ THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
+
+ ENDCASE
+ ENDIF
+
+ ENDIF
+
+ IF INLIST(tnFilename, 0, 2) THEN
+ lcExt = JUSTEXT(THIS.filename2)
+ lcDir = JUSTPATH(THIS.filename2)
+ lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir )
+ lcFilename2 = FORCEEXT( THIS.filename2, lcExt2 )
+
+ IF ADIR(laFile2, lcFilename2) = 1 THEN
+ lcFilename2_dt = '{^' + TRANSFORM( DTOS( laFile2(1,3) ), '@R ####/##/##' ) + ' ' + laFile2(1,4) + '}'
+ ltFilename2_dt = EVALUATE( lcFilename2_dt )
+
+ DO CASE
+ CASE EMPTY(THIS.filename2_dt)
+ THIS.filename2_dt = ltFilename2_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
+ THIS.lastFilename2 = THIS.filename2
+
+ CASE NOT THIS.filename2 == THIS.lastFilename2
+ THIS.filename2_dt = ltFilename2_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
+ THIS.lastFilename2 = THIS.filename2
+
+ CASE THIS.filename2_dt <> ltFilename2_dt
+ THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorYellow
+
+ OTHERWISE
+ THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
+
+ ENDCASE
+ ENDIF
+ ENDIF
+
+ CATCH TO loEx
+ lnCodError = loEx.ErrorNo
+ lnIcon = 16
+ *IF NOT EMPTY(loEx.UserValue)
+ loEx.UserValue = CR_LF ;
+ + 'lcDir = ' + TRANSFORM(lcDir) + CR_LF ;
+ + 'lcExt = ' + TRANSFORM(lcExt) + CR_LF ;
+ + 'lcExt2 = ' + TRANSFORM(lcExt2) + CR_LF ;
+ + 'tnFilename = ' + TRANSFORM(tnFilename) + CR_LF ;
+ + 'filename1 = "' + THIS.filename1 + '"' + CR_LF ;
+ + 'lcFilename1 = "' + lcFilename1 + '"' + CR_LF ;
+ + 'lcFilename1_dt = ' + TRANSFORM(lcFilename1_dt) + CR_LF ;
+ + 'laFile1(1,3) = ' + TRANSFORM(laFile1(1,3)) + CR_LF ;
+ + 'laFile1(1,4) = ' + TRANSFORM(laFile1(1,4)) + CR_LF ;
+ + 'filename2 = "' + THIS.filename2 + '"' + CR_LF ;
+ + 'lcFilename2 = "' + lcFilename2 + '"' + CR_LF ;
+ + 'lcFilename2_dt = ' + TRANSFORM(lcFilename2_dt) + CR_LF ;
+ + 'laFile2(1,3) = ' + TRANSFORM(laFile2(1,3)) + CR_LF ;
+ + 'laFile2(1,4) = ' + TRANSFORM(laFile2(1,4)) + CR_LF
+ *ENDIF
+ TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
+ Error <>, <>
+ Procedure <>, Line <>
+ LineContents: <>
+ Details: <>
+ UserValue: <>
+ ENDTEXT
+
+ FINALLY
+ IF lnCodError > 0 THEN
+ MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg checkFilenames_dt' )
+ ENDIF
+
+ ENDTRY
+
+ #UNDEF CR_LF
+
+ ENDPROC
+
+ PROCEDURE create_default_cfg
+ *-- create_Default_CFG
+ LOCAL lcPath
+
+ lcPath = EVL( JUSTPATH(THISFORM.c_CFG_File), JUSTPATH(SYS(16)) )
+
+ IF LEFT(lcPath,10) == 'PROCEDURE ' THEN
+ lcPath = SUBSTR( lcPath, AT(' ', lcPath, 2) + 1 )
+ ENDIF
+
+ *-- Configuración de Herramientas DIFF predefinidas
+ THIS.n_ToolCount = 1
+ DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
+ THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'WinMergePortable'
+ THIS.a_Tools( THIS.n_ToolCount, 2 ) = '/e /x /u /maximize <> <>'
+ THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>WinMergePortable\WinMergePortable.exe'
+
+ THIS.n_ToolCount = 2
+ DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
+ THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'Beyond Compare 2'
+ THIS.a_Tools( THIS.n_ToolCount, 2 ) = '<> <>'
+ THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>Beyond Compare 2\BC2.exe'
+
+ *--
+ THIS.diffToolName = THIS.a_Tools( 1, 1 )
+ THIS.diffToolConfig = THIS.a_Tools( 1, 2 )
+ THIS.diffToolPath = THIS.a_Tools( 1, 3 )
+ THIS.save_CFG_Data()
+ THIS.diffToolCombo_Refresh()
+ THIS.diffToolChanged()
+ THIS.Refresh()
+
+ ENDPROC
+
+ PROCEDURE deletetool
+ *-- deleteTool
+ LOCAL locboDiffToolName as ComboBox, loTxtDiffToolCfg as TextBox, loTxtDiffToolPath as TextBox, lnListIndex
+
+ locboDiffToolName = THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ loTxtDiffToolCfg = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig
+ loTxtDiffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath
+
+ IF MESSAGEBOX( 'żConfirm Delete?',4+32+256+4096, 'FoxBin2Prg: Delete tool config' ) = 6 THEN
+
+ IF THIS.n_ToolCount > 0 THEN
+ lnListIndex = locboDiffToolName.ListIndex
+ THIS.n_ToolCount = THIS.n_ToolCount - 1
+
+ IF THIS.n_ToolCount > 0 THEN
+ ADEL(THIS.a_Tools, lnListIndex)
+ DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
+ ELSE
+ THIS.a_Tools = ''
+ ENDIF
+
+ IF THIS.n_ToolCount > 0 THEN
+ IF lnListIndex > THIS.n_ToolCount THEN
+ lnListIndex = THIS.n_ToolCount
+ ENDIF
+ locboDiffToolName.ListIndex = lnListIndex
+ THIS.diffToolConfig = THIS.a_Tools(lnListIndex,2)
+ THIS.diffToolPath = THIS.a_Tools(lnListIndex,3)
+ loTxtDiffToolCfg.Value = THIS.diffToolConfig
+ loTxtDiffToolPath.Value = THIS.diffToolPath
+ ELSE
+ locboDiffToolName.ListIndex = 0
+ THIS.diffToolName = ''
+ THIS.diffToolPath = ''
+ THIS.diffToolConfig = ''
+ loTxtDiffToolCfg.Value = ''
+ loTxtDiffToolPath.Value = ''
+ ENDIF
+
+ locboDiffToolName.RowSource = locboDiffToolName.RowSource
+ locboDiffToolName.Refresh()
+ THIS.save_CFG_Data()
+ THIS.updateGlobalEnabled()
+ ENDIF
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE Destroy
+ *-- destroy
+ THIS.oFB2P = NULL
+
+ IF _VFP.StartMode = 0 THEN
+ lcFB2P_App = 'foxbin2prg.prg'
+ ELSE
+ lcFB2P_App = 'foxbin2prg.exe'
+ ENDIF
+
+ DO CASE
+ CASE ATC( lcFB2P_App, SET("Procedure") ) > 0
+ RELEASE PROCEDURE (lcFB2P_App)
+ CASE ATC( FORCEEXT(lcFB2P_App, 'FXP'), SET("Procedure") ) > 0
+ RELEASE PROCEDURE (FORCEEXT(lcFB2P_App, 'FXP'))
+ ENDCASE
+
+ ENDPROC
+
+ PROCEDURE difftoolchanged
+ *-- diffToolChanged
+
+ WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ IF .ListCount > 0 THEN
+ THISFORM.diffToolConfig = THISFORM.a_Tools(.ListIndex,2)
+ THISFORM.diffToolPath = THISFORM.a_Tools(.ListIndex,3)
+ THISFORM.n_SelectedToolIndex = .ListIndex
+ .Parent.txtDiffToolConfig.Value = THISFORM.diffToolConfig
+ .Parent.txtDiffToolPath.Value = THISFORM.diffToolPath
+ ENDIF
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE difftoolcombo_refresh
+ WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ IF THIS.l_EditMode THEN
+ .Clear()
+ .ControlSource = ''
+ .RowSourceType = 1 && Value
+ .RowSource = ''
+ .Style = 0 && Dropdown Combo
+ .AddItem(THIS.diffToolName)
+ .Value = THIS.diffToolName
+ .SelectOnEntry = .T.
+ ELSE
+ .Style = 2 && Dropdown List
+ .RowSourceType = 5 && Array
+ .RowSource = 'THISFORM.a_Tools'
+ .ControlSource = 'THISFORM.diffToolName'
+ .Value = THIS.diffToolName
+
+ IF .ListIndex > THIS.n_ToolCount THEN
+ .ListIndex = THIS.n_ToolCount
+ ENDIF
+
+ THIS.n_SelectedToolIndex = .ListIndex
+ ENDIF
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE edittool
+ *-- editTool
+
+ THISFORM.l_EditMode = .T.
+ THISFORM.updateGlobalEnabled()
+
+ WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ THISFORM.diffToolCombo_Refresh()
+ .SetFocus()
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE filesdiff
+ *-- filesDiff
+
+ LOCAL laFile(1,5), lcMessage, lnIcon, lcFilename1, lcFilename2, lcDiffToolConfig ;
+ , llAlwaysOnTop, lnCodError, lcDiffToolPath ;
+ , loShell AS WScript.Shell ;
+ , loEx as Exception ;
+ , loFB2P as c_foxbin2prg OF foxbin2prg.prg
+
+ #DEFINE CR_LF CHR(13)+CHR(10)
+
+ TRY
+ loFB2P = THIS.oFB2P
+ lnCodError = 0
+
+ WITH THISFORM as Form
+ llAlwaysOnTop = .AlwaysOnTop
+ lcFilename1 = '"' + FORCEEXT( .filename1, loFB2P.get_Ext2FromExt( JUSTEXT(.filename1), JUSTPATH(.filename1) ) ) + '"'
+ lcFilename2 = '"' + FORCEEXT( .filename2, loFB2P.get_Ext2FromExt( JUSTEXT(.filename2), JUSTPATH(.filename2) ) ) + '"'
+
+ lcDiffToolConfig = THIS.diffToolConfig
+ lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 )
+ lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 )
+ lcDiffToolConfig = TEXTMERGE(lcDiffToolConfig)
+
+ lcDiffToolPath = '"' + THISFORM.diffToolPath + '"'
+ lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 )
+ lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 )
+ lcDiffToolPath = TEXTMERGE(lcDiffToolPath)
+
+ IF THISFORM.l_ShowCallOnly THEN
+ MESSAGEBOX( lcDiffToolPath + ' ' + lcDiffToolConfig )
+ EXIT
+ ENDIF
+
+ IF ADIR(laFile, .Filename1) = 0 THEN
+ lcMessage = 'File not found'
+ ERROR lcMessage + ': [' + .Filename1 + ']'
+ ENDIF
+
+ IF ADIR(laFile, .Filename2) = 0 THEN
+ lcMessage = 'File not found'
+ ERROR lcMessage + ': [' + .Filename2 + ']'
+ ENDIF
+
+ IF ADIR(laFile, lcDiffToolPath) = 0 THEN
+ lcMessage = 'File not found'
+ ERROR lcMessage + ': [' + lcDiffToolPath + ']'
+ ENDIF
+
+ IF NOT loFB2P.hasSupport_Bin2Prg( .filename1 )
+ lcMessage = 'File type not supported'
+ ERROR lcMessage + ': [' + .filename1 + ']'
+ ENDIF
+
+ lcMessage = 'File is in use [' + .filename1 + ']'
+ USE (.filename1) EXCLUSIVE
+ USE
+
+ IF NOT loFB2P.hasSupport_Bin2Prg( .filename2 )
+ lcMessage = 'File type not supported'
+ ERROR lcMessage + ': [' + .filename1 + ']'
+ ENDIF
+
+ lcMessage = 'File is in use [' + .filename2 + ']'
+ USE (.filename2) EXCLUSIVE
+ USE
+
+ lcMessage = .Filename1
+ loFB2P.execute( .Filename1, '', '', '', '1', '0', '0', NULL, NULL, .T. )
+
+ lcMessage = .Filename2
+ loFB2P.execute( .Filename2, '', '', '', '1', '0', '0', NULL, NULL, .T. )
+
+ lcMessage = ''
+
+ IF llAlwaysOnTop THEN
+ THIS.AlwaysOnTop = .F.
+ ENDIF
+
+ loShell = CREATEOBJECT('WScript.Shell')
+
+ THIS.filename1_dt = {//::}
+ THIS.filename2_dt = {//::}
+ THIS.checkFilenames_dt()
+
+ lnResp = loShell.Run( lcDiffToolPath + ' ' + lcDiffToolConfig, 1, 1)
+
+ IF lnResp = 0 THEN
+ *-- OK
+ THIS.checkFilenames_dt()
+ ELSE
+ MESSAGEBOX( 'DIFF operation returned the code ' + TRANSFORM(lnResp), 0+48, 'FoxBin2Prg: Diff VFP 9 binary files' )
+ ENDIF
+
+ *THIS.lastFilename1 = THIS.filename1
+ *THIS.lastFilename2 = THIS.filename2
+
+ ENDWITH
+
+ CATCH TO loEx WHEN loEx.ErrorNo = 3
+ lnCodError = loEx.ErrorNo
+ lnIcon = 48
+
+ CATCH TO loEx WHEN loEx.ErrorNo = 1098
+ lnCodError = loEx.ErrorNo
+ lnIcon = 48
+ lcMessage = loEx.Message
+
+ CATCH TO loEx
+ lnCodError = loEx.ErrorNo
+ lnIcon = 16
+ IF NOT EMPTY(lcMessage)
+ loEx.UserValue = lcMessage
+ ENDIF
+ TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
+ Error <>, <>
+ Procedure <>, Line <>
+ LineContents: <>
+ Details: <>
+ UserValue: <>
+ ENDTEXT
+
+ FINALLY
+ IF lnCodError > 0 THEN
+ MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg Diff Status' )
+ ENDIF
+
+ THIS.AlwaysOnTop = llAlwaysOnTop
+ STORE NULL TO loShell, loFB2P
+ RELEASE loShell, loFB2P
+ ENDTRY
+
+ #UNDEF CR_LF
+
+ RETURN
+
+ ENDPROC
+
+ PROCEDURE Init
+ LOCAL lcSys16, lnPosProg
+
+ *-- init
+ THISFORM.MinHeight = THISFORM.Height
+ THISFORM.MaxHeight = THISFORM.Height
+ THISFORM.MinWidth = THISFORM.Width
+
+ THISFORM.a_Tools = ''
+
+ lcSys16 = SYS(16)
+ IF LEFT(lcSys16,10) == 'PROCEDURE '
+ lnPosProg = AT(" ", lcSys16, 2) + 1
+ ELSE
+ lnPosProg = 1
+ ENDIF
+
+ THIS.c_CurDir = SYS(5) + CURDIR() && Directorio actual, que no necesariamente es donde está FoxBin2Prg
+ THIS.c_fb2p_diff_FullPath = SUBSTR( lcSys16, lnPosProg )
+ THIS.c_CFG_File = FORCEEXT( THIS.c_fb2p_diff_FullPath, 'CFG' )
+
+ ENDPROC
+
+ PROCEDURE initialize
+ *-- initialize
+ LOCAL lcFB2P_App
+
+ IF VARTYPE(THIS.oFB2P) <> "O" OR ISNULL(THIS.oFB2P)
+ IF _VFP.StartMode = 0 THEN
+ lcFB2P_App = 'foxbin2prg.prg'
+ ELSE
+ lcFB2P_App = 'foxbin2prg.exe'
+ ENDIF
+
+ SET PROCEDURE TO (lcFB2P_App)
+ THIS.oFB2P = CREATEOBJECT('c_foxbin2prg')
+ ENDIF
+
+ THIS.load_CFG_Data()
+ THIS.diffToolCombo_Refresh()
+ THIS.diffToolChanged()
+ THIS.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE load_cfg_data
+ *-- load_CFG_Data
+ LOCAL laFile(1,5), llCreateNewCFGFile, I, lcDiffTool
+
+ #DEFINE CR_LF CHR(13) + CHR(10)
+
+ *-- Estructura de CFG_Data:
+ *-- tool-nametool-config
+ *-- tool-nametool-config
+ *-- tool-name
+
+ IF ADIR(laFile, THIS.c_CFG_File) = 1
+ THIS.c_CFG_Data = FILETOSTR( THIS.c_CFG_File )
+
+ DO CASE
+ CASE EMPTY(THIS.c_CFG_Data) OR EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) )
+ llCreateNewCFGFile = .T.
+ CASE EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) )
+ THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
+ THIS.c_CFG_Data = THIS.c_CFG_Data + CR_LF + '' + THIS.diffToolName + ''
+ THIS.save_CFG_Data()
+ OTHERWISE
+ THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
+ ENDCASE
+ ELSE
+ llCreateNewCFGFile = .T.
+ ENDIF
+
+ *-- Si no hay CFG, creo uno por defecto
+ IF llCreateNewCFGFile
+ THIS.create_Default_CFG()
+ ENDIF
+
+ *-- Lo cargo en el combobox
+ THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
+ THIS.n_ToolCount = 0
+
+ FOR I = 1 TO OCCURS('', THIS.c_CFG_Data )
+ THIS.n_ToolCount = THIS.n_ToolCount + 1
+ DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
+ lcDiffTool = STREXTRACT(THIS.c_CFG_Data, '', '', I, 1)
+ THIS.a_Tools( THIS.n_ToolCount, 1 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
+ THIS.a_Tools( THIS.n_ToolCount, 2 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
+ THIS.a_Tools( THIS.n_ToolCount, 3 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
+
+ IF EMPTY(THIS.diffToolConfig) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN
+ THIS.diffToolConfig = THIS.a_Tools( THIS.n_ToolCount, 2 )
+ ENDIF
+
+ IF EMPTY(THIS.diffToolPath) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN
+ THIS.diffToolPath = THIS.a_Tools( THIS.n_ToolCount, 3 )
+ ENDIF
+ ENDFOR
+
+ #UNDEF CR_LF
+
+ ENDPROC
+
+ PROCEDURE newtool
+ *-- newTool
+
+ THISFORM.l_EditMode = .T.
+ THISFORM.updateGlobalEnabled()
+
+ WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ .RowSourceType= 0
+ .RowSource = ''
+ .ControlSource = ''
+ .Style = 0 && Dropdown Combo
+ .Value = ''
+ .SetFocus()
+ ENDWITH
+
+ THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = ''
+ THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = ''
+
+ ENDPROC
+
+ PROCEDURE QueryUnload
+ CLEAR EVENTS
+
+ ENDPROC
+
+ PROCEDURE resetalltools
+ *-- resetAllTools
+ THIS.cancel()
+ THIS.create_Default_CFG()
+ THIS.initialize()
+ THIS.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE savetool
+ *-- saveTool
+ LOCAL lnItem
+
+ THIS.l_EditMode = .F.
+ THIS.updateGlobalEnabled()
+
+ WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
+ THIS.diffToolName = .Text
+ THIS.diffToolConfig = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value
+ THIS.diffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value
+
+ IF THIS.n_EditOption = 1 THEN
+ *-- New tool
+ THIS.n_ToolCount = THIS.n_ToolCount + 1
+ DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
+ lnItem = THIS.n_ToolCount
+ ELSE
+ *-- Edit tool
+ lnItem = THIS.n_SelectedToolIndex
+ ENDIF
+
+ THIS.a_Tools( lnItem, 1 ) = THIS.diffToolName
+ THIS.a_Tools( lnItem, 2 ) = THIS.diffToolConfig
+ THIS.a_Tools( lnItem, 3 ) = THIS.diffToolPath
+ THIS.diffToolCombo_Refresh()
+ .SetFocus()
+
+ THIS.n_SelectedToolIndex = .ListIndex
+ THIS.save_CFG_Data()
+ THIS.updateGlobalEnabled()
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE save_cfg_data
+ *-- save_CFG_Data
+ LOCAL I
+
+ #DEFINE CR_LF CHR(13) + CHR(10)
+
+ THIS.c_CFG_Data = ''
+
+ TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
+ <<>>
+ ENDTEXT
+
+ FOR I = 1 TO THIS.n_ToolCount
+ TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
+ <<>>
+ <<>> <>
+ <<>> <>
+ <<>> <>
+ <<>>
+ ENDTEXT
+ ENDFOR
+
+ IF EMPTY(THIS.diffToolName) THEN
+ IF NOT EMPTY(THIS.a_Tools(1,1)) THEN
+ TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
+ <<>> <>
+ ENDTEXT
+ ENDIF
+ ELSE
+ TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
+ <<>> <>
+ ENDTEXT
+ ENDIF
+
+ TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
+ <<>>
+ ENDTEXT
+
+ STRTOFILE( THIS.c_CFG_Data, THIS.c_CFG_File )
+
+ #UNDEF CR_LF
+
+ ENDPROC
+
+ PROCEDURE updateglobalenabled
+ *-- updateGlobalEnabled
+ LOCAL lopagFilesDiff as Page, loPagConfig as Page, cmgPanel as CommandGroup
+
+ WITH THIS AS Form
+ lopagFilesDiff = .pgfDiff.pagFilesDiff
+ loPagConfig = .pgfDiff.pagDiffToolConfig
+ cmgPanel = loPagConfig.cmgEditPanel
+
+ *-- Edit?
+ loPagConfig.txtDiffToolConfig.Enabled = .l_EditMode
+ loPagConfig.txtDiffToolPath.Enabled = .l_EditMode
+ cmgPanel.cmdNew.Enabled = NOT .l_EditMode
+ cmgPanel.cmdEdit.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
+ cmgPanel.cmdDelete.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
+ loPagConfig.cmdDiffToolPath.Enabled = .l_EditMode
+ loPagConfig.cmdSetDefault.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
+ loPagConfig.cmdSave.Enabled = .l_EditMode
+ loPagConfig.cmdCancel.Enabled = .l_EditMode
+ lopagFilesDiff.Enabled = NOT .l_EditMode
+
+ *-- cmdDiff
+ lopagFilesDiff.cmdDiff.Enabled = NOT .l_EditMode ;
+ AND NOT EMPTY(.filename1) AND NOT EMPTY(.filename2) ;
+ AND NOT .filename1 == .filename2 ;
+ AND NOT EMPTY(.diffToolName) AND NOT EMPTY(.diffToolPath) AND NOT EMPTY(.diffToolConfig)
+
+ THIS.checkFilenames_dt()
+ ENDWITH && THISFORM
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.Activate
+ THISFORM.updateGlobalEnabled()
+ THIS.cboDiffToolName.SetFocus()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.DropDown
+ IF THISFORM.l_EditMode OR THIS.ListCount = 0 THEN
+ NODEFAULT
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.InteractiveChange
+ IF NOT THISFORM.l_EditMode
+ THISFORM.diffToolChanged()
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmdCancel.Click
+ THISFORM.cancel()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmdDiffToolPath.Click
+ LOCAL lcFile
+
+ lcFile = GETFILE('exe')
+
+ IF NOT EMPTY(lcFile) THEN
+ THIS.Parent.txtDiffToolPath.Value = lcFile
+ THIS.Parent.txtDiffToolPath.Refresh()
+ *THISFORM.updateGlobalEnabled()
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmdResetAll.Click
+ THISFORM.resetAllTools()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmdSave.Click
+ THISFORM.saveTool()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmdSetDefault.Click
+ THISFORM.save_CFG_Data()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdDelete.Click
+ THISFORM.deleteTool()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdEdit.Click
+ THISFORM.editTool()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdNew.Click
+ THISFORM.newTool()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.Activate
+ THISFORM.updateGlobalEnabled()
+ THIS.txtFile1.SetFocus()
+ *THIS.txtDiffToolName.Refresh()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.cmdDiff.Click
+ THISFORM.filesDiff()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.cmdFile1.Click
+ LOCAL lcFile
+
+ lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf')
+
+ IF NOT EMPTY(lcFile) THEN
+ THISFORM.filename1 = lcFile
+ THIS.Parent.txtFile1.Refresh()
+ THISFORM.updateGlobalEnabled()
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.cmdFile2.Click
+ LOCAL lcFile
+
+ lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf')
+
+ IF NOT EMPTY(lcFile) THEN
+ THISFORM.filename2 = lcFile
+ THIS.Parent.txtFile2.Refresh()
+ THISFORM.updateGlobalEnabled()
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile1.InteractiveChange
+ THISFORM.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragDrop
+ LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
+ LOCAL aValues, i, cText, nOperation
+
+ *-- Check to see whether the user wants to copy or move
+ *IF nShift == 1
+ nOperation = 1 &&DROPEFFECT_COPY
+ *ELSE
+ * nOperation = 2 &&DROPEFFECT_MOVE
+ *ENDIF
+
+ *Thisform.LockScreen = .T.
+
+ DO CASE
+ CASE oDataObject.GetFormat(1) && Text
+ cText = oDataObject.GetData(1)
+
+ *-- Add the text as a new item in the list
+ *This.AddItem( cText )
+ *? 2, cText
+
+ CASE oDataObject.GetFormat(15) && Files CF_DROP
+ DIMENSION aValues[1]
+ oDataObject.GetData(15, @aValues )
+
+ *-- Add each filename as a new item in the list
+ *!* FOR i = 1 to alen(aValues)
+ *!* This.AddItem(aValues[m.i])
+ *!* NEXT
+ *? 3, aValues[1]
+ THIS.Value = aValues[1]
+ ENDCASE
+
+ *Thisform.LockScreen = .F.
+
+ *-- Set the nEffect parameter for communication back to the source object
+ nEffect = nOperation
+ *NODEFAULT
+ THISFORM.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragOver
+ LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
+
+ DO CASE
+ CASE nState == 0 &&DRAG_ENTER
+ DO CASE
+ *CASE oDataObject.GetFormat("OLE Variant Array") && Array
+ * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
+
+ CASE oDataObject.GetFormat(1) && Text
+ This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
+
+ CASE oDataObject.GetFormat(15) && Files CF_HDROP
+ This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ *This.OLEDropEffects = 4 &&DROPEFFECT_LINK
+ This.OLEDropEffects = 1 &&DROPEFFECT_COPY
+ OTHERWISE
+ This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL
+ ENDCASE
+
+ CASE nState == 1 && Drag Leave
+ CASE nState == 2 && Drag Over
+ ENDCASE
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile1.Valid
+ THISFORM.updateGlobalEnabled()
+ *THISFORM.checkFilenames_dt(1)
+ THIS.Refresh()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile2.InteractiveChange
+ THISFORM.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragDrop
+ LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
+ LOCAL aValues, i, cText, nOperation
+
+ *-- Check to see whether the user wants to copy or move
+ *IF nShift == 1
+ nOperation = 1 &&DROPEFFECT_COPY
+ *ELSE
+ * nOperation = 2 &&DROPEFFECT_MOVE
+ *ENDIF
+
+ *Thisform.LockScreen = .T.
+
+ DO CASE
+ CASE oDataObject.GetFormat(1) && Text
+ cText = oDataObject.GetData(1)
+
+ *-- Add the text as a new item in the list
+ *This.AddItem( cText )
+ *? 2, cText
+
+ CASE oDataObject.GetFormat(15) && Files CF_DROP
+ DIMENSION aValues[1]
+ oDataObject.GetData(15, @aValues )
+
+ *-- Add each filename as a new item in the list
+ *!* FOR i = 1 to alen(aValues)
+ *!* This.AddItem(aValues[m.i])
+ *!* NEXT
+ *? 3, aValues[1]
+ THIS.Value = aValues[1]
+ ENDCASE
+
+ *Thisform.LockScreen = .F.
+
+ *-- Set the nEffect parameter for communication back to the source object
+ nEffect = nOperation
+ *NODEFAULT
+ THISFORM.updateGlobalEnabled()
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragOver
+ LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
+
+ DO CASE
+ CASE nState == 0 &&DRAG_ENTER
+ DO CASE
+ *CASE oDataObject.GetFormat("OLE Variant Array") && Array
+ * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
+
+ CASE oDataObject.GetFormat(1) && Text
+ This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
+
+ CASE oDataObject.GetFormat(15) && Files CF_HDROP
+ This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
+ *This.OLEDropEffects = 4 &&DROPEFFECT_LINK
+ This.OLEDropEffects = 1 &&DROPEFFECT_COPY
+ OTHERWISE
+ This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL
+ ENDCASE
+
+ CASE nState == 1 && Drag Leave
+ CASE nState == 2 && Drag Over
+ ENDCASE
+
+ ENDPROC
+
+ PROCEDURE pgfDiff.pagFilesDiff.txtFile2.Valid
+ THISFORM.updateGlobalEnabled()
+ *THISFORM.checkFilenames_dt(2)
+ THIS.Refresh()
+
+ ENDPROC
+
+ENDDEFINE
diff --git a/Fb2P_Diff/fb2p_diff.pj2 b/Fb2P_Diff/fb2p_diff.pj2
index a427afc..73fd65d 100644
--- a/Fb2P_Diff/fb2p_diff.pj2
+++ b/Fb2P_Diff/fb2p_diff.pj2
@@ -33,7 +33,7 @@ _AutoIncrement = "0"
*
-*<.HomeDir = 'g:\desa\foxbin2prg' />
+*<.HomeDir = 'e:\se\vfpx\foxbin2prg\fb2p_diff' />
FOR EACH loProject IN _VFP.Projects FOXOBJECT
loProject.Close()
@@ -50,10 +50,10 @@ MODIFY PROJECT 'fb2p_diff.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('fb2p_diff.pjx')
WITH loProject.FILES
- .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
- .ADD('fb2p_diff.ico') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
- .ADD('fb2p_diff.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
- .ADD('main_fb2p_diff.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
+ .ADD('config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
+ .ADD('fb2p_diff.ico') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
+ .ADD('fb2p_diff.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
+ .ADD('main_fb2p_diff.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
*
.ITEM('__newproject.f2b').Remove()
@@ -65,13 +65,14 @@ WITH loProject.FILES
*
*
- .ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
+ .ITEM(lcCurdir + 'config.fpw').Type = 'T'
*
ENDWITH
WITH loProject
*
.SetMain(lcCurdir + 'main_fb2p_diff.prg')
+
.Icon = lcCurdir + 'fb2p_diff.ico'
.Debug = .T.
.Encrypted = .F.
diff --git a/Fb2P_Diff/fb2p_diff.sc2 b/Fb2P_Diff/fb2p_diff.sc2
index eb35c7b..9f8d81f 100644
--- a/Fb2P_Diff/fb2p_diff.sc2
+++ b/Fb2P_Diff/fb2p_diff.sc2
@@ -4,1479 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_diff.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="frmdiff" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS frmdiff AS form
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="pgfDiff" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtDiffToolName" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_DiffTool" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdDiff" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.chkShowCall" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.lbl_DiffTool" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolConfig" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cboDiffToolName" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmgEditPanel" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdResetAll" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSave" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdCancel" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSetDefault" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolPath" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdDiffToolPath" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="chkAlwaysOnTop" UniqueID="" Timestamp="" />
-
- *
- *m: cancel && Specifies if a CommandButton is the Cancel button.
- *m: checkfilenames_dt
- *m: create_default_cfg
- *m: deletetool
- *m: difftoolchanged
- *m: difftoolcombo_refresh
- *m: edittool
- *m: filesdiff
- *m: initialize
- *m: load_cfg_data
- *m: newtool
- *m: resetalltools
- *m: savetool
- *m: save_cfg_data
- *m: updateglobalenabled
- *p: colorgreen
- *p: coloryellow
- *p: c_cfg_data && Contenido del archivo de configuración
- *p: c_cfg_file && Ruta del archivo de configuración
- *p: c_curdir && Ruta actual de la llamada
- *p: c_fb2p_diff_fullpath && Ruta de este form
- *p: difftoolconfig && Configuration for the Diff tool
- *p: difftoolname && Name of the Diff tool
- *p: difftoolpath
- *p: filename1
- *p: filename1_dt
- *p: filename2
- *p: filename2_dt
- *p: lastfilename1
- *p: lastfilename2
- *p: l_editmode
- *p: l_showcallonly && Show Diff Call Only, but don't Diff. (For testing)
- *p: n_editoption
- *p: n_selectedtoolindex
- *p: n_toolcount
- *p: ofb2p
- *a: a_tools[1,3]
- *p: _memberdata && XML Metadata for customizable properties
- *
-
- AllowOutput = .F.
- AlwaysOnTop = .T.
- AutoCenter = .T.
- BackColor = 255,255,255
- Caption = "Diff VFP 9 binary files (scx,vcx,mnx,pjx,frx,lbx,dbc,dbf)"
- colorgreen = (RGB(35,245,24))
- coloryellow = (RGB(239,245,165))
- c_cfg_data = && Contenido del archivo de configuración
- c_cfg_file = && Ruta del archivo de configuración
- c_curdir = && Ruta actual de la llamada
- c_fb2p_diff_fullpath = && Ruta de este form
- difftoolconfig = && Configuration for the Diff tool
- difftoolname = && Name of the Diff tool
- difftoolpath =
- DoCreate = .T.
- filename1 =
- filename1_dt = {}
- filename2 =
- filename2_dt = {}
- Height = 191
- Icon = fb2p_diff.ico
- lastfilename1 =
- lastfilename2 =
- l_editmode = .F.
- l_showcallonly = .F. && Show Diff Call Only, but don't Diff. (For testing)
- MaxButton = .F.
- Name = "frmDiff"
- n_editoption = 0
- n_selectedtoolindex = 0
- n_toolcount = 0
- ofb2p = .NULL.
- ShowTips = .T.
- ShowWindow = 2
- Width = 760
- _memberdata =
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- && XML Metadata for customizable properties
-
- ADD OBJECT 'chkAlwaysOnTop' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 8, ;
- BackStyle = 0, ;
- Caption = "Always on top", ;
- ControlSource = "thisform.alwaysontop", ;
- Height = 17, ;
- Left = 652, ;
- Name = "chkAlwaysOnTop", ;
- TabIndex = 2, ;
- Top = 8, ;
- Value = .F., ;
- Width = 96
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'pgfDiff' AS pageframe WITH ;
- Anchor = 15, ;
- ErasePage = .T., ;
- Height = 180, ;
- Left = 8, ;
- Name = "pgfDiff", ;
- PageCount = 2, ;
- TabIndex = 1, ;
- TabStyle = 1, ;
- Top = 4, ;
- Width = 744, ;
- Page1.Caption = "Files Diff", ;
- Page1.Name = "pagFilesDiff", ;
- Page2.Caption = "Diff tool configure", ;
- Page2.Name = "pagDiffToolConfig"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cboDiffToolName' AS combobox WITH ;
- Anchor = 10, ;
- BorderColor = 0,128,192, ;
- Height = 24, ;
- Left = 63, ;
- Name = "cboDiffToolName", ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- Style = 2, ;
- TabIndex = 1, ;
- Top = 12, ;
- Width = 572
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdCancel' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "Cancel", ;
- Height = 27, ;
- Left = 639, ;
- Name = "cmdCancel", ;
- TabIndex = 8, ;
- Top = 116, ;
- Width = 84
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdDiffToolPath' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "...", ;
- Height = 27, ;
- Left = 695, ;
- Name = "cmdDiffToolPath", ;
- TabIndex = 3, ;
- Top = 42, ;
- Width = 28
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdResetAll' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "Reset All", ;
- Height = 27, ;
- Left = 399, ;
- Name = "cmdResetAll", ;
- TabIndex = 6, ;
- Top = 116, ;
- Width = 84
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSave' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "Save", ;
- Height = 27, ;
- Left = 551, ;
- Name = "cmdSave", ;
- TabIndex = 7, ;
- Top = 116, ;
- Width = 84
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSetDefault' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "Set Default", ;
- Height = 27, ;
- Left = 639, ;
- Name = "cmdSetDefault", ;
- TabIndex = 9, ;
- Top = 10, ;
- Width = 84
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmgEditPanel' AS commandgroup WITH ;
- Anchor = 2, ;
- BackStyle = 0, ;
- BorderStyle = 0, ;
- ButtonCount = 3, ;
- ControlSource = "THISFORM.n_EditOption", ;
- Height = 36, ;
- Left = 63, ;
- Name = "cmgEditPanel", ;
- SpecialEffect = 1, ;
- TabIndex = 5, ;
- Top = 112, ;
- Value = 1, ;
- Width = 268, ;
- Command1.Caption = "New tool", ;
- Command1.Height = 27, ;
- Command1.Left = 4, ;
- Command1.Name = "cmdNew", ;
- Command1.Top = 4, ;
- Command1.Width = 84, ;
- Command2.Caption = "Edit tool", ;
- Command2.Height = 27, ;
- Command2.Left = 92, ;
- Command2.Name = "cmdEdit", ;
- Command2.Top = 4, ;
- Command2.Width = 84, ;
- Command3.Caption = "Delete tool", ;
- Command3.Height = 27, ;
- Command3.Left = 180, ;
- Command3.Name = "cmdDelete", ;
- Command3.Top = 4, ;
- Command3.Width = 84
- *< END OBJECT: BaseClass="commandgroup" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label1' AS label WITH ;
- BackStyle = 0, ;
- Caption = "Config", ;
- Height = 17, ;
- Left = 15, ;
- Name = "Label1", ;
- TabIndex = 11, ;
- Top = 80, ;
- Width = 48
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label2' AS label WITH ;
- BackStyle = 0, ;
- Caption = "Path", ;
- Height = 17, ;
- Left = 15, ;
- Name = "Label2", ;
- TabIndex = 12, ;
- Top = 48, ;
- Width = 48
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.lbl_DiffTool' AS label WITH ;
- BackStyle = 0, ;
- Caption = "Diff tool", ;
- Height = 17, ;
- Left = 15, ;
- Name = "lbl_DiffTool", ;
- TabIndex = 10, ;
- Top = 16, ;
- Width = 48
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolConfig' AS textbox WITH ;
- Anchor = 10, ;
- BorderColor = 0,128,192, ;
- Enabled = .F., ;
- Format = "T", ;
- Height = 23, ;
- Left = 63, ;
- MaxLength = 255, ;
- Name = "txtDiffToolConfig", ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- TabIndex = 4, ;
- ToolTipText = "Keywords: <>, <>", ;
- Top = 76, ;
- Width = 660
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolPath' AS textbox WITH ;
- Anchor = 10, ;
- BorderColor = 0,128,192, ;
- Enabled = .F., ;
- Format = "T", ;
- Height = 23, ;
- Left = 63, ;
- MaxLength = 255, ;
- Name = "txtDiffToolPath", ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- TabIndex = 2, ;
- ToolTipText = "Keywords: <>, <>", ;
- Top = 44, ;
- Width = 628
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.chkShowCall' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 8, ;
- BackStyle = 0, ;
- Caption = "Only show Diff call (for testing)", ;
- ControlSource = "THISFORM.l_ShowCallOnly", ;
- Height = 17, ;
- Left = 443, ;
- Name = "chkShowCall", ;
- TabIndex = 2, ;
- Top = 116, ;
- Value = .F., ;
- Width = 192
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.cmdDiff' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "Diff", ;
- Height = 60, ;
- Left = 643, ;
- Name = "cmdDiff", ;
- TabIndex = 6, ;
- Top = 80, ;
- Width = 84
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile1' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "...", ;
- Height = 27, ;
- Left = 667, ;
- Name = "cmdFile1", ;
- TabIndex = 2, ;
- Top = 10, ;
- Width = 28
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile2' AS commandbutton WITH ;
- Anchor = 8, ;
- Caption = "...", ;
- Height = 27, ;
- Left = 667, ;
- Name = "cmdFile2", ;
- TabIndex = 4, ;
- Top = 42, ;
- Width = 28
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_DiffTool' AS label WITH ;
- BackStyle = 0, ;
- Caption = "Diff tool", ;
- Height = 17, ;
- Left = 11, ;
- Name = "lbl_DiffTool", ;
- TabIndex = 9, ;
- Top = 88, ;
- Width = 48
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File1' AS label WITH ;
- BackStyle = 0, ;
- Caption = "File 1", ;
- Height = 17, ;
- Left = 11, ;
- Name = "lbl_File1", ;
- TabIndex = 7, ;
- Top = 16, ;
- Width = 36
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File2' AS label WITH ;
- BackStyle = 0, ;
- Caption = "File 2", ;
- Height = 17, ;
- Left = 11, ;
- Name = "lbl_File2", ;
- TabIndex = 8, ;
- Top = 48, ;
- Width = 36
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile1' AS shape WITH ;
- Anchor = 8, ;
- BorderStyle = 0, ;
- Curvature = 10, ;
- Height = 23, ;
- Left = 699, ;
- Name = "shpFile1", ;
- SpecialEffect = 1, ;
- ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ;
- Top = 12, ;
- Width = 24
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile2' AS shape WITH ;
- Anchor = 8, ;
- BorderStyle = 0, ;
- Curvature = 10, ;
- Height = 23, ;
- Left = 699, ;
- Name = "shpFile2", ;
- SpecialEffect = 1, ;
- ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ;
- Top = 44, ;
- Width = 24
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.txtDiffToolName' AS textbox WITH ;
- Anchor = 10, ;
- BorderColor = 232,232,232, ;
- ControlSource = "THISFORM.diffToolName", ;
- Enabled = .F., ;
- Format = "T", ;
- Height = 23, ;
- Left = 63, ;
- MaxLength = 255, ;
- Name = "txtDiffToolName", ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- TabIndex = 5, ;
- Top = 84, ;
- Width = 564
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile1' AS textbox WITH ;
- Anchor = 10, ;
- BorderColor = 0,128,192, ;
- ControlSource = "THISFORM.filename1", ;
- Format = "T", ;
- Height = 23, ;
- Left = 63, ;
- MaxLength = 255, ;
- Name = "txtFile1", ;
- OLEDropMode = 1, ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- TabIndex = 1, ;
- Top = 12, ;
- Width = 600
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile2' AS textbox WITH ;
- Anchor = 10, ;
- BorderColor = 0,128,192, ;
- ControlSource = "THISFORM.filename2", ;
- Format = "T", ;
- Height = 23, ;
- Left = 63, ;
- MaxLength = 255, ;
- Name = "txtFile2", ;
- OLEDropMode = 1, ;
- SelectOnEntry = .T., ;
- SpecialEffect = 1, ;
- TabIndex = 3, ;
- Top = 44, ;
- Width = 600
- *< END OBJECT: BaseClass="textbox" />
-
- PROCEDURE Activate
- *-- activate
- THISFORM.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE cancel && Specifies if a CommandButton is the Cancel button.
- *-- cancel
- THISFORM.l_EditMode = .F.
- THISFORM.updateGlobalEnabled()
-
- WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
- .Style = 2 && Dropdown List
- .RowSourceType= 5
- .RowSource = 'THISFORM.a_Tools'
- .ControlSource = 'THISFORM.diffToolName'
- .Value = THISFORM.diffToolName
- THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = THISFORM.diffToolConfig
- THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = THISFORM.diffToolPath
- .SetFocus()
- ENDWITH
-
- ENDPROC
-
- PROCEDURE checkfilenames_dt
- LPARAMETERS tnFilename
-
- LOCAL laFile1(1,5), laFile2(1,5), ltFilename1_dt, ltFilename2_dt, lnCodError, lcMessage, lnIcon ;
- , lcFilename1, lcFilename2, lcExt, lcExt2, lcDir, lcFilename1_dt, lcFilename2_dt ;
- , loFB2P as c_foxbin2prg OF foxbin2prg.prg
-
- #DEFINE CR_LF CHR(13)+CHR(10)
-
- TRY
- lnCodError = 0
- STORE '' TO lcMessage, lcFilename1, lcFilename2, lcExt, lcExt2, lcDir
- loFB2P = THIS.oFB2P
- tnFilename = EVL(tnFilename, 0)
-
- DO CASE
- CASE INLIST(tnFilename, 0, 1) AND EMPTY(THIS.filename1)
- EXIT
- CASE INLIST(tnFilename, 0, 2) AND EMPTY(THIS.filename2)
- EXIT
- ENDCASE
-
- IF INLIST(tnFilename, 0, 1) THEN
- lcExt = JUSTEXT(THIS.filename1)
- lcDir = JUSTPATH(THIS.filename1)
- lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir )
- lcFilename1 = FORCEEXT( THIS.filename1, lcExt2 )
-
- IF ADIR(laFile1, lcFilename1) = 1 THEN
- lcFilename1_dt = '{^' + TRANSFORM( DTOS( laFile1(1,3) ), '@R ####/##/##' ) + ' ' + laFile1(1,4) + '}'
- ltFilename1_dt = EVALUATE( lcFilename1_dt )
-
- DO CASE
- CASE EMPTY(THIS.filename1_dt)
- THIS.filename1_dt = ltFilename1_dt
- THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
- THIS.lastFilename1 = THIS.filename1
-
- CASE NOT THIS.filename1 == THIS.lastFilename1
- THIS.filename1_dt = ltFilename1_dt
- THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
- THIS.lastFilename1 = THIS.filename1
-
- CASE THIS.filename1_dt <> ltFilename1_dt
- THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorYellow
-
- OTHERWISE
- THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen
-
- ENDCASE
- ENDIF
-
- ENDIF
-
- IF INLIST(tnFilename, 0, 2) THEN
- lcExt = JUSTEXT(THIS.filename2)
- lcDir = JUSTPATH(THIS.filename2)
- lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir )
- lcFilename2 = FORCEEXT( THIS.filename2, lcExt2 )
-
- IF ADIR(laFile2, lcFilename2) = 1 THEN
- lcFilename2_dt = '{^' + TRANSFORM( DTOS( laFile2(1,3) ), '@R ####/##/##' ) + ' ' + laFile2(1,4) + '}'
- ltFilename2_dt = EVALUATE( lcFilename2_dt )
-
- DO CASE
- CASE EMPTY(THIS.filename2_dt)
- THIS.filename2_dt = ltFilename2_dt
- THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
- THIS.lastFilename2 = THIS.filename2
-
- CASE NOT THIS.filename2 == THIS.lastFilename2
- THIS.filename2_dt = ltFilename2_dt
- THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
- THIS.lastFilename2 = THIS.filename2
-
- CASE THIS.filename2_dt <> ltFilename2_dt
- THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorYellow
-
- OTHERWISE
- THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen
-
- ENDCASE
- ENDIF
- ENDIF
-
- CATCH TO loEx
- lnCodError = loEx.ErrorNo
- lnIcon = 16
- *IF NOT EMPTY(loEx.UserValue)
- loEx.UserValue = CR_LF ;
- + 'lcDir = ' + TRANSFORM(lcDir) + CR_LF ;
- + 'lcExt = ' + TRANSFORM(lcExt) + CR_LF ;
- + 'lcExt2 = ' + TRANSFORM(lcExt2) + CR_LF ;
- + 'tnFilename = ' + TRANSFORM(tnFilename) + CR_LF ;
- + 'filename1 = "' + THIS.filename1 + '"' + CR_LF ;
- + 'lcFilename1 = "' + lcFilename1 + '"' + CR_LF ;
- + 'lcFilename1_dt = ' + TRANSFORM(lcFilename1_dt) + CR_LF ;
- + 'laFile1(1,3) = ' + TRANSFORM(laFile1(1,3)) + CR_LF ;
- + 'laFile1(1,4) = ' + TRANSFORM(laFile1(1,4)) + CR_LF ;
- + 'filename2 = "' + THIS.filename2 + '"' + CR_LF ;
- + 'lcFilename2 = "' + lcFilename2 + '"' + CR_LF ;
- + 'lcFilename2_dt = ' + TRANSFORM(lcFilename2_dt) + CR_LF ;
- + 'laFile2(1,3) = ' + TRANSFORM(laFile2(1,3)) + CR_LF ;
- + 'laFile2(1,4) = ' + TRANSFORM(laFile2(1,4)) + CR_LF
- *ENDIF
- TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
- Error <>, <>
- Procedure <>, Line <>
- LineContents: <>
- Details: <>
- UserValue: <>
- ENDTEXT
-
- FINALLY
- IF lnCodError > 0 THEN
- MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg checkFilenames_dt' )
- ENDIF
-
- ENDTRY
-
- #UNDEF CR_LF
-
- ENDPROC
-
- PROCEDURE create_default_cfg
- *-- create_Default_CFG
- LOCAL lcPath
-
- lcPath = EVL( JUSTPATH(THISFORM.c_CFG_File), JUSTPATH(SYS(16)) )
-
- IF LEFT(lcPath,10) == 'PROCEDURE ' THEN
- lcPath = SUBSTR( lcPath, AT(' ', lcPath, 2) + 1 )
- ENDIF
-
- *-- Configuración de Herramientas DIFF predefinidas
- THIS.n_ToolCount = 1
- DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
- THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'WinMergePortable'
- THIS.a_Tools( THIS.n_ToolCount, 2 ) = '/e /x /u /maximize <> <>'
- THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>WinMergePortable\WinMergePortable.exe'
-
- THIS.n_ToolCount = 2
- DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
- THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'Beyond Compare 2'
- THIS.a_Tools( THIS.n_ToolCount, 2 ) = '<> <>'
- THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>Beyond Compare 2\BC2.exe'
-
- *--
- THIS.diffToolName = THIS.a_Tools( 1, 1 )
- THIS.diffToolConfig = THIS.a_Tools( 1, 2 )
- THIS.diffToolPath = THIS.a_Tools( 1, 3 )
- THIS.save_CFG_Data()
- THIS.diffToolCombo_Refresh()
- THIS.diffToolChanged()
- THIS.Refresh()
-
- ENDPROC
-
- PROCEDURE deletetool
- *-- deleteTool
- LOCAL locboDiffToolName as ComboBox, loTxtDiffToolCfg as TextBox, loTxtDiffToolPath as TextBox, lnListIndex
-
- locboDiffToolName = THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
- loTxtDiffToolCfg = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig
- loTxtDiffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath
-
- IF MESSAGEBOX( 'żConfirm Delete?',4+32+256+4096, 'FoxBin2Prg: Delete tool config' ) = 6 THEN
-
- IF THIS.n_ToolCount > 0 THEN
- lnListIndex = locboDiffToolName.ListIndex
- THIS.n_ToolCount = THIS.n_ToolCount - 1
-
- IF THIS.n_ToolCount > 0 THEN
- ADEL(THIS.a_Tools, lnListIndex)
- DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
- ELSE
- THIS.a_Tools = ''
- ENDIF
-
- IF THIS.n_ToolCount > 0 THEN
- IF lnListIndex > THIS.n_ToolCount THEN
- lnListIndex = THIS.n_ToolCount
- ENDIF
- locboDiffToolName.ListIndex = lnListIndex
- THIS.diffToolConfig = THIS.a_Tools(lnListIndex,2)
- THIS.diffToolPath = THIS.a_Tools(lnListIndex,3)
- loTxtDiffToolCfg.Value = THIS.diffToolConfig
- loTxtDiffToolPath.Value = THIS.diffToolPath
- ELSE
- locboDiffToolName.ListIndex = 0
- THIS.diffToolName = ''
- THIS.diffToolPath = ''
- THIS.diffToolConfig = ''
- loTxtDiffToolCfg.Value = ''
- loTxtDiffToolPath.Value = ''
- ENDIF
-
- locboDiffToolName.RowSource = locboDiffToolName.RowSource
- locboDiffToolName.Refresh()
- THIS.save_CFG_Data()
- THIS.updateGlobalEnabled()
- ENDIF
- ENDIF
-
- ENDPROC
-
- PROCEDURE Destroy
- *-- destroy
- THIS.oFB2P = NULL
-
- IF _VFP.StartMode = 0 THEN
- lcFB2P_App = 'foxbin2prg.prg'
- ELSE
- lcFB2P_App = 'foxbin2prg.exe'
- ENDIF
-
- DO CASE
- CASE ATC( lcFB2P_App, SET("Procedure") ) > 0
- RELEASE PROCEDURE (lcFB2P_App)
- CASE ATC( FORCEEXT(lcFB2P_App, 'FXP'), SET("Procedure") ) > 0
- RELEASE PROCEDURE (FORCEEXT(lcFB2P_App, 'FXP'))
- ENDCASE
-
- ENDPROC
-
- PROCEDURE difftoolchanged
- *-- diffToolChanged
-
- WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
- IF .ListCount > 0 THEN
- THISFORM.diffToolConfig = THISFORM.a_Tools(.ListIndex,2)
- THISFORM.diffToolPath = THISFORM.a_Tools(.ListIndex,3)
- THISFORM.n_SelectedToolIndex = .ListIndex
- .Parent.txtDiffToolConfig.Value = THISFORM.diffToolConfig
- .Parent.txtDiffToolPath.Value = THISFORM.diffToolPath
- ENDIF
- ENDWITH
-
- ENDPROC
-
- PROCEDURE difftoolcombo_refresh
- WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
- IF THIS.l_EditMode THEN
- .Clear()
- .ControlSource = ''
- .RowSourceType = 1 && Value
- .RowSource = ''
- .Style = 0 && Dropdown Combo
- .AddItem(THIS.diffToolName)
- .Value = THIS.diffToolName
- .SelectOnEntry = .T.
- ELSE
- .Style = 2 && Dropdown List
- .RowSourceType = 5 && Array
- .RowSource = 'THISFORM.a_Tools'
- .ControlSource = 'THISFORM.diffToolName'
- .Value = THIS.diffToolName
-
- IF .ListIndex > THIS.n_ToolCount THEN
- .ListIndex = THIS.n_ToolCount
- ENDIF
-
- THIS.n_SelectedToolIndex = .ListIndex
- ENDIF
- ENDWITH
-
- ENDPROC
-
- PROCEDURE edittool
- *-- editTool
-
- THISFORM.l_EditMode = .T.
- THISFORM.updateGlobalEnabled()
-
- WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
- THISFORM.diffToolCombo_Refresh()
- .SetFocus()
- ENDWITH
-
- ENDPROC
-
- PROCEDURE filesdiff
- *-- filesDiff
-
- LOCAL laFile(1,5), lcMessage, lnIcon, lcFilename1, lcFilename2, lcDiffToolConfig ;
- , llAlwaysOnTop, lnCodError, lcDiffToolPath ;
- , loShell AS WScript.Shell ;
- , loEx as Exception ;
- , loFB2P as c_foxbin2prg OF foxbin2prg.prg
-
- #DEFINE CR_LF CHR(13)+CHR(10)
-
- TRY
- loFB2P = THIS.oFB2P
- lnCodError = 0
-
- WITH THISFORM as Form
- llAlwaysOnTop = .AlwaysOnTop
- lcFilename1 = '"' + FORCEEXT( .filename1, loFB2P.get_Ext2FromExt( JUSTEXT(.filename1), JUSTPATH(.filename1) ) ) + '"'
- lcFilename2 = '"' + FORCEEXT( .filename2, loFB2P.get_Ext2FromExt( JUSTEXT(.filename2), JUSTPATH(.filename2) ) ) + '"'
-
- lcDiffToolConfig = THIS.diffToolConfig
- lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 )
- lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 )
- lcDiffToolConfig = TEXTMERGE(lcDiffToolConfig)
-
- lcDiffToolPath = '"' + THISFORM.diffToolPath + '"'
- lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 )
- lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 )
- lcDiffToolPath = TEXTMERGE(lcDiffToolPath)
-
- IF THISFORM.l_ShowCallOnly THEN
- MESSAGEBOX( lcDiffToolPath + ' ' + lcDiffToolConfig )
- EXIT
- ENDIF
-
- IF ADIR(laFile, .Filename1) = 0 THEN
- lcMessage = 'File not found'
- ERROR lcMessage + ': [' + .Filename1 + ']'
- ENDIF
-
- IF ADIR(laFile, .Filename2) = 0 THEN
- lcMessage = 'File not found'
- ERROR lcMessage + ': [' + .Filename2 + ']'
- ENDIF
-
- IF ADIR(laFile, lcDiffToolPath) = 0 THEN
- lcMessage = 'File not found'
- ERROR lcMessage + ': [' + lcDiffToolPath + ']'
- ENDIF
-
- IF NOT loFB2P.hasSupport_Bin2Prg( .filename1 )
- lcMessage = 'File type not supported'
- ERROR lcMessage + ': [' + .filename1 + ']'
- ENDIF
-
- lcMessage = 'File is in use [' + .filename1 + ']'
- USE (.filename1) EXCLUSIVE
- USE
-
- IF NOT loFB2P.hasSupport_Bin2Prg( .filename2 )
- lcMessage = 'File type not supported'
- ERROR lcMessage + ': [' + .filename1 + ']'
- ENDIF
-
- lcMessage = 'File is in use [' + .filename2 + ']'
- USE (.filename2) EXCLUSIVE
- USE
-
- lcMessage = .Filename1
- loFB2P.execute( .Filename1, '', '', '', '1', '0', '0', NULL, NULL, .T. )
-
- lcMessage = .Filename2
- loFB2P.execute( .Filename2, '', '', '', '1', '0', '0', NULL, NULL, .T. )
-
- lcMessage = ''
-
- IF llAlwaysOnTop THEN
- THIS.AlwaysOnTop = .F.
- ENDIF
-
- loShell = CREATEOBJECT('WScript.Shell')
-
- THIS.filename1_dt = {//::}
- THIS.filename2_dt = {//::}
- THIS.checkFilenames_dt()
-
- lnResp = loShell.Run( lcDiffToolPath + ' ' + lcDiffToolConfig, 1, 1)
-
- IF lnResp = 0 THEN
- *-- OK
- THIS.checkFilenames_dt()
- ELSE
- MESSAGEBOX( 'DIFF operation returned the code ' + TRANSFORM(lnResp), 0+48, 'FoxBin2Prg: Diff VFP 9 binary files' )
- ENDIF
-
- *THIS.lastFilename1 = THIS.filename1
- *THIS.lastFilename2 = THIS.filename2
-
- ENDWITH
-
- CATCH TO loEx WHEN loEx.ErrorNo = 3
- lnCodError = loEx.ErrorNo
- lnIcon = 48
-
- CATCH TO loEx WHEN loEx.ErrorNo = 1098
- lnCodError = loEx.ErrorNo
- lnIcon = 48
- lcMessage = loEx.Message
-
- CATCH TO loEx
- lnCodError = loEx.ErrorNo
- lnIcon = 16
- IF NOT EMPTY(lcMessage)
- loEx.UserValue = lcMessage
- ENDIF
- TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
- Error <>, <>
- Procedure <>, Line <>
- LineContents: <>
- Details: <>
- UserValue: <>
- ENDTEXT
-
- FINALLY
- IF lnCodError > 0 THEN
- MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg Diff Status' )
- ENDIF
-
- THIS.AlwaysOnTop = llAlwaysOnTop
- STORE NULL TO loShell, loFB2P
- RELEASE loShell, loFB2P
- ENDTRY
-
- #UNDEF CR_LF
-
- RETURN
-
- ENDPROC
-
- PROCEDURE Init
- LOCAL lcSys16, lnPosProg
-
- *-- init
- THISFORM.MinHeight = THISFORM.Height
- THISFORM.MaxHeight = THISFORM.Height
- THISFORM.MinWidth = THISFORM.Width
-
- THISFORM.a_Tools = ''
-
- lcSys16 = SYS(16)
- IF LEFT(lcSys16,10) == 'PROCEDURE '
- lnPosProg = AT(" ", lcSys16, 2) + 1
- ELSE
- lnPosProg = 1
- ENDIF
-
- THIS.c_CurDir = SYS(5) + CURDIR() && Directorio actual, que no necesariamente es donde está FoxBin2Prg
- THIS.c_fb2p_diff_FullPath = SUBSTR( lcSys16, lnPosProg )
- THIS.c_CFG_File = FORCEEXT( THIS.c_fb2p_diff_FullPath, 'CFG' )
-
- ENDPROC
-
- PROCEDURE initialize
- *-- initialize
- LOCAL lcFB2P_App
-
- IF VARTYPE(THIS.oFB2P) <> "O" OR ISNULL(THIS.oFB2P)
- IF _VFP.StartMode = 0 THEN
- lcFB2P_App = 'foxbin2prg.prg'
- ELSE
- lcFB2P_App = 'foxbin2prg.exe'
- ENDIF
-
- SET PROCEDURE TO (lcFB2P_App)
- THIS.oFB2P = CREATEOBJECT('c_foxbin2prg')
- ENDIF
-
- THIS.load_CFG_Data()
- THIS.diffToolCombo_Refresh()
- THIS.diffToolChanged()
- THIS.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE load_cfg_data
- *-- load_CFG_Data
- LOCAL laFile(1,5), llCreateNewCFGFile, I, lcDiffTool
-
- #DEFINE CR_LF CHR(13) + CHR(10)
-
- *-- Estructura de CFG_Data:
- *-- tool-nametool-config
- *-- tool-nametool-config
- *-- tool-name
-
- IF ADIR(laFile, THIS.c_CFG_File) = 1
- THIS.c_CFG_Data = FILETOSTR( THIS.c_CFG_File )
-
- DO CASE
- CASE EMPTY(THIS.c_CFG_Data) OR EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) )
- llCreateNewCFGFile = .T.
- CASE EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) )
- THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
- THIS.c_CFG_Data = THIS.c_CFG_Data + CR_LF + '' + THIS.diffToolName + ''
- THIS.save_CFG_Data()
- OTHERWISE
- THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
- ENDCASE
- ELSE
- llCreateNewCFGFile = .T.
- ENDIF
-
- *-- Si no hay CFG, creo uno por defecto
- IF llCreateNewCFGFile
- THIS.create_Default_CFG()
- ENDIF
-
- *-- Lo cargo en el combobox
- THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1)
- THIS.n_ToolCount = 0
-
- FOR I = 1 TO OCCURS('', THIS.c_CFG_Data )
- THIS.n_ToolCount = THIS.n_ToolCount + 1
- DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
- lcDiffTool = STREXTRACT(THIS.c_CFG_Data, '', '', I, 1)
- THIS.a_Tools( THIS.n_ToolCount, 1 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
- THIS.a_Tools( THIS.n_ToolCount, 2 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
- THIS.a_Tools( THIS.n_ToolCount, 3 ) = STREXTRACT(lcDiffTool, '', '', 1, 1)
-
- IF EMPTY(THIS.diffToolConfig) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN
- THIS.diffToolConfig = THIS.a_Tools( THIS.n_ToolCount, 2 )
- ENDIF
-
- IF EMPTY(THIS.diffToolPath) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN
- THIS.diffToolPath = THIS.a_Tools( THIS.n_ToolCount, 3 )
- ENDIF
- ENDFOR
-
- #UNDEF CR_LF
-
- ENDPROC
-
- PROCEDURE newtool
- *-- newTool
-
- THISFORM.l_EditMode = .T.
- THISFORM.updateGlobalEnabled()
-
- WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName
- .RowSourceType= 0
- .RowSource = ''
- .ControlSource = ''
- .Style = 0 && Dropdown Combo
- .Value = ''
- .SetFocus()
- ENDWITH
-
- THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = ''
- THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = ''
-
- ENDPROC
-
- PROCEDURE QueryUnload
- CLEAR EVENTS
-
- ENDPROC
-
- PROCEDURE resetalltools
- *-- resetAllTools
- THIS.cancel()
- THIS.create_Default_CFG()
- THIS.initialize()
- THIS.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE savetool
- *-- saveTool
- LOCAL lnItem
-
- THIS.l_EditMode = .F.
- THIS.updateGlobalEnabled()
-
- WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName
- THIS.diffToolName = .Text
- THIS.diffToolConfig = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value
- THIS.diffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value
-
- IF THIS.n_EditOption = 1 THEN
- *-- New tool
- THIS.n_ToolCount = THIS.n_ToolCount + 1
- DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 )
- lnItem = THIS.n_ToolCount
- ELSE
- *-- Edit tool
- lnItem = THIS.n_SelectedToolIndex
- ENDIF
-
- THIS.a_Tools( lnItem, 1 ) = THIS.diffToolName
- THIS.a_Tools( lnItem, 2 ) = THIS.diffToolConfig
- THIS.a_Tools( lnItem, 3 ) = THIS.diffToolPath
- THIS.diffToolCombo_Refresh()
- .SetFocus()
-
- THIS.n_SelectedToolIndex = .ListIndex
- THIS.save_CFG_Data()
- THIS.updateGlobalEnabled()
- ENDWITH
-
- ENDPROC
-
- PROCEDURE save_cfg_data
- *-- save_CFG_Data
- LOCAL I
-
- #DEFINE CR_LF CHR(13) + CHR(10)
-
- THIS.c_CFG_Data = ''
-
- TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4
- <<>>
- ENDTEXT
-
- FOR I = 1 TO THIS.n_ToolCount
- TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
- <<>>
- <<>> <>
- <<>> <>
- <<>> <>
- <<>>
- ENDTEXT
- ENDFOR
-
- IF EMPTY(THIS.diffToolName) THEN
- IF NOT EMPTY(THIS.a_Tools(1,1)) THEN
- TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
- <<>> <>
- ENDTEXT
- ENDIF
- ELSE
- TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
- <<>> <>
- ENDTEXT
- ENDIF
-
- TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4
- <<>>
- ENDTEXT
-
- STRTOFILE( THIS.c_CFG_Data, THIS.c_CFG_File )
-
- #UNDEF CR_LF
-
- ENDPROC
-
- PROCEDURE updateglobalenabled
- *-- updateGlobalEnabled
- LOCAL lopagFilesDiff as Page, loPagConfig as Page, cmgPanel as CommandGroup
-
- WITH THIS AS Form
- lopagFilesDiff = .pgfDiff.pagFilesDiff
- loPagConfig = .pgfDiff.pagDiffToolConfig
- cmgPanel = loPagConfig.cmgEditPanel
-
- *-- Edit?
- loPagConfig.txtDiffToolConfig.Enabled = .l_EditMode
- loPagConfig.txtDiffToolPath.Enabled = .l_EditMode
- cmgPanel.cmdNew.Enabled = NOT .l_EditMode
- cmgPanel.cmdEdit.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
- cmgPanel.cmdDelete.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
- loPagConfig.cmdDiffToolPath.Enabled = .l_EditMode
- loPagConfig.cmdSetDefault.Enabled = NOT .l_EditMode AND .n_ToolCount > 0
- loPagConfig.cmdSave.Enabled = .l_EditMode
- loPagConfig.cmdCancel.Enabled = .l_EditMode
- lopagFilesDiff.Enabled = NOT .l_EditMode
-
- *-- cmdDiff
- lopagFilesDiff.cmdDiff.Enabled = NOT .l_EditMode ;
- AND NOT EMPTY(.filename1) AND NOT EMPTY(.filename2) ;
- AND NOT .filename1 == .filename2 ;
- AND NOT EMPTY(.diffToolName) AND NOT EMPTY(.diffToolPath) AND NOT EMPTY(.diffToolConfig)
-
- THIS.checkFilenames_dt()
- ENDWITH && THISFORM
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.Activate
- THISFORM.updateGlobalEnabled()
- THIS.cboDiffToolName.SetFocus()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.DropDown
- IF THISFORM.l_EditMode OR THIS.ListCount = 0 THEN
- NODEFAULT
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.InteractiveChange
- IF NOT THISFORM.l_EditMode
- THISFORM.diffToolChanged()
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmdCancel.Click
- THISFORM.cancel()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmdDiffToolPath.Click
- LOCAL lcFile
-
- lcFile = GETFILE('exe')
-
- IF NOT EMPTY(lcFile) THEN
- THIS.Parent.txtDiffToolPath.Value = lcFile
- THIS.Parent.txtDiffToolPath.Refresh()
- *THISFORM.updateGlobalEnabled()
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmdResetAll.Click
- THISFORM.resetAllTools()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmdSave.Click
- THISFORM.saveTool()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmdSetDefault.Click
- THISFORM.save_CFG_Data()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdDelete.Click
- THISFORM.deleteTool()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdEdit.Click
- THISFORM.editTool()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdNew.Click
- THISFORM.newTool()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.Activate
- THISFORM.updateGlobalEnabled()
- THIS.txtFile1.SetFocus()
- *THIS.txtDiffToolName.Refresh()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.cmdDiff.Click
- THISFORM.filesDiff()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.cmdFile1.Click
- LOCAL lcFile
-
- lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf')
-
- IF NOT EMPTY(lcFile) THEN
- THISFORM.filename1 = lcFile
- THIS.Parent.txtFile1.Refresh()
- THISFORM.updateGlobalEnabled()
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.cmdFile2.Click
- LOCAL lcFile
-
- lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf')
-
- IF NOT EMPTY(lcFile) THEN
- THISFORM.filename2 = lcFile
- THIS.Parent.txtFile2.Refresh()
- THISFORM.updateGlobalEnabled()
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile1.InteractiveChange
- THISFORM.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragDrop
- LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
- LOCAL aValues, i, cText, nOperation
-
- *-- Check to see whether the user wants to copy or move
- *IF nShift == 1
- nOperation = 1 &&DROPEFFECT_COPY
- *ELSE
- * nOperation = 2 &&DROPEFFECT_MOVE
- *ENDIF
-
- *Thisform.LockScreen = .T.
-
- DO CASE
- CASE oDataObject.GetFormat(1) && Text
- cText = oDataObject.GetData(1)
-
- *-- Add the text as a new item in the list
- *This.AddItem( cText )
- *? 2, cText
-
- CASE oDataObject.GetFormat(15) && Files CF_DROP
- DIMENSION aValues[1]
- oDataObject.GetData(15, @aValues )
-
- *-- Add each filename as a new item in the list
- *!* FOR i = 1 to alen(aValues)
- *!* This.AddItem(aValues[m.i])
- *!* NEXT
- *? 3, aValues[1]
- THIS.Value = aValues[1]
- ENDCASE
-
- *Thisform.LockScreen = .F.
-
- *-- Set the nEffect parameter for communication back to the source object
- nEffect = nOperation
- *NODEFAULT
- THISFORM.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragOver
- LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
-
- DO CASE
- CASE nState == 0 &&DRAG_ENTER
- DO CASE
- *CASE oDataObject.GetFormat("OLE Variant Array") && Array
- * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
-
- CASE oDataObject.GetFormat(1) && Text
- This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
-
- CASE oDataObject.GetFormat(15) && Files CF_HDROP
- This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- *This.OLEDropEffects = 4 &&DROPEFFECT_LINK
- This.OLEDropEffects = 1 &&DROPEFFECT_COPY
- OTHERWISE
- This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL
- ENDCASE
-
- CASE nState == 1 && Drag Leave
- CASE nState == 2 && Drag Over
- ENDCASE
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile1.Valid
- THISFORM.updateGlobalEnabled()
- *THISFORM.checkFilenames_dt(1)
- THIS.Refresh()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile2.InteractiveChange
- THISFORM.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragDrop
- LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
- LOCAL aValues, i, cText, nOperation
-
- *-- Check to see whether the user wants to copy or move
- *IF nShift == 1
- nOperation = 1 &&DROPEFFECT_COPY
- *ELSE
- * nOperation = 2 &&DROPEFFECT_MOVE
- *ENDIF
-
- *Thisform.LockScreen = .T.
-
- DO CASE
- CASE oDataObject.GetFormat(1) && Text
- cText = oDataObject.GetData(1)
-
- *-- Add the text as a new item in the list
- *This.AddItem( cText )
- *? 2, cText
-
- CASE oDataObject.GetFormat(15) && Files CF_DROP
- DIMENSION aValues[1]
- oDataObject.GetData(15, @aValues )
-
- *-- Add each filename as a new item in the list
- *!* FOR i = 1 to alen(aValues)
- *!* This.AddItem(aValues[m.i])
- *!* NEXT
- *? 3, aValues[1]
- THIS.Value = aValues[1]
- ENDCASE
-
- *Thisform.LockScreen = .F.
-
- *-- Set the nEffect parameter for communication back to the source object
- nEffect = nOperation
- *NODEFAULT
- THISFORM.updateGlobalEnabled()
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragOver
- LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
-
- DO CASE
- CASE nState == 0 &&DRAG_ENTER
- DO CASE
- *CASE oDataObject.GetFormat("OLE Variant Array") && Array
- * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
-
- CASE oDataObject.GetFormat(1) && Text
- This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE
-
- CASE oDataObject.GetFormat(15) && Files CF_HDROP
- This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL
- *This.OLEDropEffects = 4 &&DROPEFFECT_LINK
- This.OLEDropEffects = 1 &&DROPEFFECT_COPY
- OTHERWISE
- This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL
- ENDCASE
-
- CASE nState == 1 && Drag Leave
- CASE nState == 2 && Drag Over
- ENDCASE
-
- ENDPROC
-
- PROCEDURE pgfDiff.pagFilesDiff.txtFile2.Valid
- THISFORM.updateGlobalEnabled()
- *THISFORM.checkFilenames_dt(2)
- THIS.Refresh()
-
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/FileName_Caps/Filename_caps.pj2 b/FileName_Caps/Filename_caps.pj2
index 2f69969..129aa8b 100644
--- a/FileName_Caps/Filename_caps.pj2
+++ b/FileName_Caps/Filename_caps.pj2
@@ -50,8 +50,8 @@ MODIFY PROJECT 'Filename_caps.pjx' NOWAIT NOSHOW NOPROJECTHOOK
loProject = _VFP.Projects('Filename_caps.pjx')
WITH loProject.FILES
- .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
- .ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
+ .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
+ .ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
*
.ITEM('__newproject.f2b').Remove()
@@ -63,13 +63,14 @@ WITH loProject.FILES
*
*
- .ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
+ .ITEM("config\config.fpw").Type = 'T'
*
ENDWITH
WITH loProject
*
- .SetMain(lcCurdir + 'filename_caps.prg')
+ .SetMain("filename_caps.prg")
+
.Debug = .T.
.Encrypted = .F.
*<.CmntStyle = 1 />
diff --git a/README.md b/README.md
index 74eed3b..a492088 100644
--- a/README.md
+++ b/README.md
@@ -10,13 +10,16 @@ Since I now maintain this project, my [fork](https://github.com/lscheffler/foxbi
The spanish documentation is not longer maintained - it would fade.
Remind yourself to compile the exe first.
+**Note: If you have cloned the project, you must run it against itself to create the binaries.**
+1. Run `DO FOXBIN2PRG.PRG WITH "path_to_FoxBin2Prg","Prg2Bin",,,,,,,,,"foxbin2prg_self.cfg"`
+2. Create the exe by compiling the pjx
+
---
If you like to value my work, support the Geeks at
[](https://virtualfoxfest.com/) or [](https://www.swfox.net).
I also do not reject invitations to a beer, next time in Gilbert.
---
-
If you like to see Fernandos blog, or value his work:
- Blog: http://fdbozzo.blogspot.com.es/
- [](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=fdbozzo%40gmail%2ecom&lc=ES&item_name=FoxBin2Prg&item_number=FoxBin2Prg¤cy_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted)
diff --git a/TESTS/DATOS_READONLY/FB2P_DBC.DC2 b/TESTS/DATOS_READONLY/FB2P_DBC.DC2
index 6cc2582..9bf4d24 100644
--- a/TESTS/DATOS_READONLY/FB2P_DBC.DC2
+++ b/TESTS/DATOS_READONLY/FB2P_DBC.DC2
@@ -4,6 +4,18 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
+*-- EXTERNAL_MEMBER identify external member names / EXTERNAL_MEMBER identifica los nombres de los miembros externos
+*< EXTERNAL_MEMBER: Name="remote_connection_dbf" Type="connection" />
+*< EXTERNAL_MEMBER: Name="remote_connection_oracle" Type="connection" />
+*< EXTERNAL_MEMBER: Name="fb2p_depto" Type="table" />
+*< EXTERNAL_MEMBER: Name="nombrelargodeldbf" Type="table" />
+*< EXTERNAL_MEMBER: Name="rv_db_debug_setup" Type="view" />
+*< EXTERNAL_MEMBER: Name="vista_local" Type="view" />
+*< EXTERNAL_MEMBER: Name="vw_local_encuestas" Type="view" />
+*< EXTERNAL_MEMBER: Name="vw_ora_convenios" Type="view" />
+*< EXTERNAL_MEMBER: Name="vw_ora_dual" Type="view" />
+*< EXTERNAL_MEMBER: Name="storedproceduressource" Type="database" />
+
FB2P_DBC
@@ -11,1226 +23,4 @@
11
.T.
eventsfile.prg
-
-
-
- REMOTE_CONNECTION_DBF
-
- Visual FoxPro Tables
- foxuser_fdb
-
- .F.
- .T.
- 15
- .F.
- 1
- .F.
- 0
- 4096
-
- 0
- 1
-
- 100
-
-
- REMOTE_CONNECTION_ORACLE
-
-
-
- DRIVER={Oracle en OraClient11g_home1};SERVER=BDDServer;UID=BDDUser;PWD=BDDPwd;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA
- .F.
- .T.
- 15
- .F.
- 3
- .F.
- 10
- 8192
-
- 180
- 1
-
- 100
-
-
-
-
-
-
-
- FB2P_DEPTO
- Comentario de "fb2p_depto"
- fb2p_depto.dbf
- __ri_delete_fb2p_depto()
-
-
- depto
- fb2p_depto_record_rule_validation()
- fb2p_depto_record_rule_validation_message()
-
-
-
- depto
- "Depto.Caption"
- depto_field_comment
- "Depto."
- cl_optiongroup
- c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx
- !
- XXXXXXXXXX
- depto_field_validation_rule()
- depto_field_validation_message()
-
-
- descrip
- Descripción
-
-
-
-
-
-
-
-
-
-
-
-
-
- depto
-
- .T.
-
-
- descrip
-
- .F.
-
-
-
-
-
-
-
-
-
- NOMBRELARGODELDBF
- Comentario de la tabla "fb2p_dbf"
- fb2p_dbf.dbf
- del_trg()
- __ri_insert_nombrelargodeldbf().AND.(ins_trg())
- __ri_update_nombrelargodeldbf().AND.(upd_trg())
- id
- edad>10
- "Mensaje de error de la regla edad > 10"
-
-
-
- nombre
- "Nombre:"
- Comentario de "Nombre"
- "."
-
-
- A
- !XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
- .NOT.EMPTY(nombre)
- "El nombre está vacío"
-
-
- edad
-
-
-
-
-
-
-
-
-
-
-
- id
-
-
-
-
-
-
-
-
-
-
-
- bigtext
-
-
-
-
-
-
-
-
-
-
-
- depto
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- depto
-
- .F.
-
-
- edad_nd
-
- .F.
-
-
- edad
-
- .T.
-
-
- i_nombre
-
- .F.
-
-
- id
-
- .T.
-
-
- nombre
-
- .F.
-
-
- notdeleted
-
- .F.
-
-
-
-
-
- Relation 1
- NOMBRELARGODELDBF
- FB2P_DEPTO
- DEPTO
- DEPTO
-
-
-
-
-
-
-
-
-
-
-
- RV_DB_DEBUG_SETUP
-
- STROSNC.DB_DEBUG_SETUP
- SELECT Db_debug_setup.PK_NAME, Db_debug_setup.ENABLED, Db_debug_setup.EVALUACION, Db_debug_setup.PK_METODO, Db_debug_setup.NIVELDEBUG, Db_debug_setup.F_DESDE, Db_debug_setup.F_HASTA, Db_debug_setup.DIRECCION_IP, Db_debug_setup.USUARIO FROM STROSNC.DB_DEBUG_SETUP Db_debug_setup ORDER BY Db_debug_setup.PK_NAME, Db_debug_setup.PK_METODO
- .T.
- 1
- .T.
- remote_connection_Oracle
- .T.
- .T.
- 100
- -1
- .F.
-
- .T.
-
-
- .F.
- .T.
- 2
- 1
- 255
- 3
-
-
-
- pk_name
-
-
- C(30)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.PK_NAME
-
-
- enabled
-
-
- N(3)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.ENABLED
-
-
- evaluacion
-
-
- M
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.EVALUACION
-
-
- pk_metodo
-
-
- C(30)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.PK_METODO
-
-
- niveldebug
-
-
- N(3)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.NIVELDEBUG
-
-
- f_desde
-
-
- T
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.F_DESDE
-
-
- f_hasta
-
-
- T
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.F_HASTA
-
-
- direccion_ip
-
-
- C(30)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.DIRECCION_IP
-
-
- usuario
-
-
- C(30)
-
-
-
-
-
- .F.
-
-
- .F.
- STROSNC.DB_DEBUG_SETUP.USUARIO
-
-
-
-
-
-
-
-
-
- VISTA_LOCAL
-
- fb2p_dbc!nombrelargodeldbf
- SELECT Fb2p_depto.descrip, Nombrelargodeldbf.nombre, Nombrelargodeldbf.edad, Nombrelargodeldbf.id, Nombrelargodeldbf.depto FROM fb2p_dbc!fb2p_depto INNER JOIN fb2p_dbc!nombrelargodeldbf ON Fb2p_depto.depto = Nombrelargodeldbf.depto
- .F.
- 1
- .T.
-
- .F.
- .T.
- 100
- -1
- .T.
-
- .F.
-
-
- .T.
- .F.
- 1
- 1
- 255
- 3
-
-
-
- descrip
-
-
- C(50)
-
-
-
-
-
- .F.
-
-
- .F.
- fb2p_dbc!fb2p_depto.descrip
-
-
- nombre
-
-
- C(30)
-
-
-
-
-
- .F.
-
-
- .T.
- fb2p_dbc!nombrelargodeldbf.nombre
-
-
- edad
-
-
- N(3)
-
-
-
-
-
- .F.
-
-
- .T.
- fb2p_dbc!nombrelargodeldbf.edad
-
-
- id
-
-
- I
-
-
-
-
-
- .T.
-
-
- .F.
- fb2p_dbc!nombrelargodeldbf.id
-
-
- depto
-
-
- C(10)
-
-
-
-
-
- .F.
-
-
- .T.
- fb2p_dbc!nombrelargodeldbf.depto
-
-
-
-
-
-
-
-
-
- VW_LOCAL_ENCUESTAS
-
-
- SELECT ENCUESTAS.Promotor,ENCUESTAS.Idenc,ENCUESTAS.Calific,ENCUESTAS.Fecha, ENCUESTAS.Resultado FROM C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\ENCUESTAS.DBF ENCUESTAS
- .F.
- 1
- .T.
-
- .F.
- .T.
- 100
- -1
- .T.
-
- .F.
-
-
- .F.
- .T.
- 1
- 1
- 255
- 3
-
-
-
- promotor
-
-
- C(20)
-
-
-
-
-
- .F.
-
-
- .F.
- promotor
-
-
- idenc
-
-
- C(20)
-
-
-
-
-
- .F.
-
-
- .F.
- idenc
-
-
- calific
-
-
- C(2)
-
-
-
-
-
- .F.
-
-
- .F.
- calific
-
-
- fecha
-
-
- D
-
-
-
-
-
- .F.
-
-
- .F.
- fecha
-
-
- resultado
-
-
- C(10)
-
-
-
-
-
- .F.
-
-
- .F.
- resultado
-
-
-
-
-
-
-
-
-
- VW_ORA_CONVENIOS
-
- CONVENIOS
- SELECT CONVENIOS.ID_CONVENIO,CONVENIOS.NOMBRE_CONVENIO,CONVENIOS.HISTORICO FROM CONVENIOS
- .F.
- 1
- .T.
- remote_connection_Oracle
- .F.
- .T.
- 100
- -1
- .T.
-
- .F.
-
-
- .F.
- .T.
- 2
- 1
- 255
- 3
-
-
-
- id_convenio
-
-
- C(15)
-
-
-
-
-
- .F.
-
-
- .T.
- CONVENIOS.ID_CONVENIO
-
-
- nombre_convenio
-
-
- C(250)
-
-
-
-
-
- .F.
-
-
- .T.
- CONVENIOS.NOMBRE_CONVENIO
-
-
- historico
-
-
- C(1)
-
-
-
-
-
- .F.
-
-
- .T.
- CONVENIOS.HISTORICO
-
-
-
-
-
-
-
-
-
- VW_ORA_DUAL
-
- DUAL
- SELECT DUAL.DUMMY FROM DUAL
- .F.
- 1
- .T.
- REMOTE_CONNECTION_ORACLE
- .F.
- .T.
- 100
- -1
- .T.
-
- .F.
-
-
- .F.
- .T.
- 2
- 1
- 255
- 3
-
-
-
- dummy
- Dummy
- Dummy_field_comment
- C(1)
- Depto.
- cl_optiongroup
- fb2p_test.vcx
- !
- XXXXXXXXXX
- .F.
- dummy_field_validation_rule()
- dummy_field_validation_message
- .T.
- DUAL.DUMMY
-
-
-
-
-
-
-
-
-
-
- 1
- =TABLEUPDATE()
- ENDIF
- ENDIF NOT already DELETED
- ENDIF
- UNLOCK RECORD (RECNO())
- llRetVal=pnerror=0
- RETURN llRetVal
-
-PROCEDURE RIUPDATE
- LPARAMETERS tcFieldName,tcNewValue,tcCascadeParent
- LOCAL llRetVal
- llRetVal=.T.
- IF ISRLOCKED() OR !RLOCK()
- llRetVal=.F.
- ELSE
- IF EVAL(tcFieldName)<>tcNewValue
- PRIVATE pcCascadeParent
- pcCascadeParent=UPPER(IIF(TYPE("tcCascadeParent")<>"C","",tcCascadeParent))
- REPLACE (tcFieldName) WITH tcNewValue
- IF CURSORGETPROP('BUFFERING') > 1
- =TABLEUPDATE()
- ENDIF
- ENDIF VALUES don't already match
- ENDIF it's locked already, or I was able to lock it
- UNLOCK RECORD (RECNO())
- llRetVal=pnerror=0
- RETURN llRetVal
-
-PROCEDURE rierror
- PARAMETERS tnErrNo,tcMessage,tcCode,tcProgram
- LOCAL lnErrorRows,lnXX
- lnErrorRows=ALEN(gaErrors,1)
- IF TYPE('gaErrors[lnErrorRows,1]')<>"L"
- DIMENSION gaErrors[lnErrorRows+1,alen(gaErrors,2)]
- lnErrorRows=lnErrorRows+1
- ENDIF
- gaErrors[lnErrorRows,1]=tnErrNo
- gaErrors[lnErrorRows,2]=tcMessage
- gaErrors[lnErrorRows,3]=tcCode
- gaErrors[lnErrorRows,4]=""
- lnXX=1
- DO WHILE !EMPTY(PROGRAM(lnXX))
- gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
- PROGRAM(lnXX)
- lnXX=lnXX+1
- ENDDO
- gaErrors[lnErrorRows,5]=pcParentDBF
- gaErrors[lnErrorRows,6]=pnParentRec
- gaErrors[lnErrorRows,7]=pcParentID
- gaErrors[lnErrorRows,8]=pcParentExpr
- gaErrors[lnErrorRows,9]=pcChildDBF
- gaErrors[lnErrorRows,10]=pnChildRec
- gaErrors[lnErrorRows,11]=pcChildID
- gaErrors[lnErrorRows,12]=pcChildExpr
- RETURN tnErrNo
-
-
-PROCEDURE riopen
- PARAMETERS tcTable,tcOrder
-
- LOCAL lcCurWkArea,lcNewWkArea,lnInUseSpot,lnOccurs,lnOccurance
- lnInUseSpot=0
- lnOccurs = OCCURS(UPPER(tcTable)+"*",UPPER(pcRIcursors))
- FOR lnOccurance = 1 TO lnOccurs
- lnInUseSpot=ATC(tcTable+"*",pcRIcursors,lnOccurance)
- IF ISDIGIT(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) OR;
- EMPTY(SUBSTR(pcRIcursors,lnInUseSpot-1,1))
- EXIT
- ENDIF
- lnInUseSpot=0
- ENDFOR
-
- IF lnInUseSpot=0
- lcCurWkArea=SELECT()
- SELECT 0
- lcNewWkArea=SELECT()
- IF NOT EMPTY(tcOrder)
- USE (tcTable) AGAIN ORDER (tcOrder) ;
- ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
- ELSE
- USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
- ENDIF
- IF pnerror=0
- pcRIcursors=pcRIcursors+UPPER(tcTable)+"?"+STR(SELECT(),5)
- ELSE
- lcNewWkArea=0
- ENDIF something bad happened WHILE attempting TO OPEN the FILE
- ELSE
- lcNewWkArea=VAL(SUBSTR(pcRIcursors,lnInUseSpot+LEN(tcTable)+1,5))
- pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTable)+"*"+STR(lcNewWkArea,5),;
- UPPER(tcTable)+"?"+STR(lcNewWkArea,5))
- IF NOT EMPTY(tcOrder)
- SET ORDER TO (tcOrder) IN (lcNewWkArea)
- ENDIF sent an ORDER
- IF pnerror<>0
- lcNewWkArea=0
- ENDIF something bad happened WHILE setting ORDER
- ENDIF
- RETURN (lcNewWkArea)
-
-
-PROCEDURE riend
- PARAMETERS tlSuccess
- LOCAL lnXX,lnSpot,lcWorkArea
- IF tlSuccess
- END TRANSACTION
- ELSE
- SET DELETED OFF
- ROLLBACK
- SET DELETED ON
- ENDIF
- IF EMPTY(pcRIolderror)
- ON ERROR
- ELSE
- ON ERROR &pcRIolderror.
- ENDIF
- FOR lnXX=1 TO OCCURS("*",pcRIcursors)
- lnSpot=ATC("*",pcRIcursors,lnXX)+1
- USE IN (VAL(SUBSTR(pcRIcursors,lnSpot,5)))
- ENDFOR
- IF pcOldCompat = "ON"
- SET COMPATIBLE ON
- ENDIF
- IF pcOldDele="OFF"
- SET DELETED OFF
- ENDIF
- IF pcOldExact="ON"
- SET EXACT ON
- ENDIF
- IF pcOldTalk="ON"
- SET TALK ON
- ENDIF
- DO CASE
- CASE EMPTY(pcOldDBC)
- SET DATA TO
- CASE pcOldDBC<>DBC()
- SET DATA TO (pcOldDBC)
- ENDCASE
- RETURN .T.
-
-
-PROCEDURE rireuse
- * rireuse.prg
- PARAMETERS tcTableName,tcWkArea
- pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTableName)+"?"+STR(tcWkArea,5),;
- UPPER(tcTableName)+"*"+STR(tcWkArea,5))
- RETURN .T.
-
- ********************************************************************************
- ** "Referential integrity delete trigger for" fb2p_depto
-PROCEDURE __RI_DELETE_fb2p_depto
- LOCAL llRetVal
- llRetVal = .T.
- PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
- PRIVATE pcParentExpr,pcChildExpr
- STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
- STORE 0 TO pnParentRec,pnChildRec
- IF _TRIGGERLEVEL=1
- BEGIN TRANSACTION
- PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
- pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
- pcOldTalk=SET("TALK")
- SET TALK OFF
- pcOldDele=SET("DELETED")
- pcOldExact=SET("EXACT")
- pcOldCompat=SET("COMPATIBLE")
- SET COMPATIBLE OFF
- SET DELETED ON
- SET EXACT OFF
- pcRIcursors=""
- pcRIwkareas=""
- pcRIolderror=ON("error")
- pnerror=0
- ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
- IF TYPE('gaErrors(1)')<>"U"
- RELEASE gaErrors
- ENDIF
- PUBLIC gaErrors(1,12)
- pcOldDBC=DBC()
- SET DATA TO ("FB2P_DBC")
- ENDIF FIRST TRIGGER
- LOCAL lcParentID && parent's value to be sought in child
- LOCAL lcChildWkArea && child work area handle returned by riopen
- LOCAL lcParentWkArea
- LOCAL llDelHeaderarea
- LOCAL lcStartArea
- lcStartArea=SELECT()
- llRetVal=.T.
- lcParentWkArea=SELECT()
- SELECT (lcParentWkArea)
- pcParentDBF=DBF()
- pnParentRec=RECNO()
- STORE DEPTO TO lcParentID,pcParentID
- pcParentExpr="DEPTO"
- lcChildWkArea=riopen("nombrelargodeldbf","depto")
- IF lcChildWkArea<=0
- IF _TRIGGERLEVEL=1
- DO riend WITH .F.
- ENDIF AT the END OF the highest TRIGGER LEVEL
- RETURN .F.
- ENDIF NOT able TO OPEN the CHILD WORK area
- pcChildDBF=DBF(lcChildWkArea)
- SELECT (lcChildWkArea)
- SEEK lcParentID
- SCAN WHILE DEPTO=lcParentID AND llRetVal
- pnChildRec=RECNO()
- pcChildID=DEPTO
- pcChildExpr="DEPTO"
- llRetVal=RIDELETE()
- ENDSCAN GET ALL OF the nombrelargodeldbf RECORDS
- =rireuse("nombrelargodeldbf",lcChildWkArea)
- IF NOT llRetVal
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ENDIF
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ** "End of Referential integrity Delete trigger for" fb2p_depto
- ********************************************************************************
-
- ********************************************************************************
-PROCEDURE __RI_UPDATE_nombrelargodeldbf
- ** "Referential integrity update trigger for" nombrelargodeldbf
- LOCAL llRetVal
- llRetVal = .T.
- PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
- PRIVATE pcParentExpr,pcChildExpr
- STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
- STORE 0 TO pnParentRec,pnChildRec
- IF _TRIGGERLEVEL=1
- BEGIN TRANSACTION
- PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
- pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
- pcOldTalk=SET("TALK")
- SET TALK OFF
- pcOldDele=SET("DELETED")
- pcOldExact=SET("EXACT")
- pcOldCompat=SET("COMPATIBLE")
- SET COMPATIBLE OFF
- SET DELETED ON
- SET EXACT OFF
- pcRIcursors=""
- pcRIwkareas=""
- pcRIolderror=ON("error")
- pnerror=0
- ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
- IF TYPE('gaErrors(1)')<>"U"
- RELEASE gaErrors
- ENDIF
- PUBLIC gaErrors(1,12)
- pcOldDBC=DBC()
- SET DATA TO ("FB2P_DBC")
- ENDIF FIRST TRIGGER
- LOCAL lcParentID && parent's value to be sought in child
- LOCAL lcOldParentID && previous parent id value
- LOCAL lcChildWkArea && child work area handle returned by riopen
- LOCAL lcChildID && child's value to be sought in parent
- LOCAL lcOldChildID && old child id value
- LOCAL lcParentWkArea && parentwork area handle returned by riopen
- LOCAL lcStartArea
- lcStartArea=SELECT()
- llRetVal=.T.
- lcChildWkArea=SELECT()
- IF _TRIGGERLEVEL=1 OR TYPE("pccascadeparent")#"C" OR (NOT pcCascadeParent=="FB2P_DEPTO")
- SELECT (lcChildWkArea)
- lcChildID=DEPTO
- lcOldChildID=OLDVAL("DEPTO")
- pcChildDBF=DBF(lcChildWkArea)
- pnChildRec=RECNO(lcChildWkArea)
- pcChildID=lcOldChildID
- pcChildExpr="DEPTO"
- IF ISNULL(lcChildID) OR ISNULL(lcOldChildID) OR lcChildID <> lcOldChildID
- lcParentWkArea=riopen("fb2p_depto","depto")
- IF lcParentWkArea<=0
- IF _TRIGGERLEVEL=1
- DO riend WITH .F.
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN .F.
- ENDIF NOT able TO OPEN the CHILD WORK area
- pcParentDBF=DBF(lcParentWkArea)
- llRetVal=SEEK(lcChildID,lcParentWkArea)
- pnParentRec=RECNO(lcParentWkArea)
- IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
- ISFLOCKED(lcParentWkArea))
- IF RLOCK(lcParentWkArea)
- UNLOCK RECORD pnParentRec IN (lcParentWkArea)
- ELSE
- =rireuse("tparen",lcParentWkArea)
- pnerror = rierror(-1,"Insert restrict rule violated.","","")
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ENDIF
- ENDIF
- =rireuse("fb2p_depto",lcParentWkArea)
- IF NOT llRetVal
- pnerror = rierror(-1,"Insert restrict rule violated.","","")
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ENDIF no PARENT
- ENDIF THIS VALUE was changed
- ENDIF NOT PART OF a CASCADE FROM "fb2p_depto"
- lcParentWkArea=lcChildWkArea
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ** "End of Referential integrity Update trigger for" nombrelargodeldbf
- ********************************************************************************
-
- ********************************************************************************
- ** "Referential integrity insert trigger for" nombrelargodeldbf
-PROCEDURE __RI_INSERT_nombrelargodeldbf
- LOCAL llRetVal
- llRetVal = .T.
- PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
- PRIVATE pcParentExpr,pcChildExpr
- STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
- STORE 0 TO pnParentRec,pnChildRec
- IF _TRIGGERLEVEL=1
- BEGIN TRANSACTION
- PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
- pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
- pcOldTalk=SET("TALK")
- SET TALK OFF
- pcOldDele=SET("DELETED")
- pcOldExact=SET("EXACT")
- pcOldCompat=SET("COMPATIBLE")
- SET COMPATIBLE OFF
- SET DELETED ON
- SET EXACT OFF
- pcRIcursors=""
- pcRIwkareas=""
- pcRIolderror=ON("error")
- pnerror=0
- ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
- IF TYPE('gaErrors(1)')<>"U"
- RELEASE gaErrors
- ENDIF
- PUBLIC gaErrors(1,12)
- pcOldDBC=DBC()
- SET DATA TO ("FB2P_DBC")
- ENDIF FIRST TRIGGER
- LOCAL lcChildID && child's value to be sought in parent
- LOCAL lcParentWkArea && parentwork area handle returned by riopen
- LOCAL lcChildWkArea && child's work area
- LOCAL lcStartArea
- lcStartArea=SELECT()
- llRetVal=.T.
- lcChildWkArea=SELECT()
- SELECT (lcChildWkArea)
- lcChildID=DEPTO
- pcChildDBF=DBF(lcChildWkArea)
- pnChildRec=RECNO(lcChildWkArea)
- pcChildID=lcChildID
- pcChildExpr="DEPTO"
- lcParentWkArea=riopen("fb2p_depto","depto")
- IF lcParentWkArea<=0
- IF _TRIGGERLEVEL=1
- DO riend WITH .F.
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN .F.
- ENDIF NOT able TO OPEN the CHILD WORK area
- pcParentDBF=DBF(lcParentWkArea)
- llRetVal=SEEK(lcChildID,lcParentWkArea)
- pnParentRec=RECNO(lcParentWkArea)
- IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
- ISFLOCKED(lcParentWkArea))
- IF RLOCK(lcParentWkArea)
- UNLOCK RECORD pnParentRec IN (lcParentWkArea)
- ELSE
- =rireuse("tparen",lcParentWkArea)
- pnerror = rierror(-1,"Insert restrict rule violated.","","")
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ENDIF
- ENDIF
- =rireuse("fb2p_depto",lcParentWkArea)
- IF NOT llRetVal
- pnerror = rierror(-1,"Insert restrict rule violated.","","")
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ENDIF
- IF _TRIGGERLEVEL=1
- DO riend WITH llRetVal
- ENDIF AT the END OF the highest TRIGGER LEVEL
- SELECT (lcStartArea)
- RETURN llRetVal
- ** "End of Referential integrity insert trigger for" nombrelargodeldbf
- ********************************************************************************
- **__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**
-
- ]]>
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/FB2P_DBF.DB2 b/TESTS/DATOS_READONLY/FB2P_DBF.DB2
index 48af5b3..b153952 100644
--- a/TESTS/DATOS_READONLY/FB2P_DBF.DB2
+++ b/TESTS/DATOS_READONLY/FB2P_DBF.DB2
@@ -5,10 +5,11 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbf.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
+
1252
- 2014/01/06
+
fb2p_dbc.dbc
0x00000031
Visual FoxPro, autoincrement enabled
@@ -116,66 +117,117 @@
+
- FB2P_DBF.CDX
+
+
+
+
+ DEPTO
+ REGULAR
+ DEPTO
+ .NOT.DELETED().AND..T.
+ ASCENDING
+ GENERAL
+
+
+ EDAD
+ CANDIDATE
+ EDAD
+
+ DESCENDING
+ MACHINE
+
+
+ EDAD_ND
+ REGULAR
+ EDAD
+ .NOT.DELETED()
+ ASCENDING
+ MACHINE
+
+
+ ID
+ PRIMARY
+ ID
+
+ ASCENDING
+ MACHINE
+
+
+ I_NOMBRE
+ REGULAR
+ NOMBRE
+ .NOT.DELETED().AND..T..AND..NOT..F.
+ DESCENDING
+ GENERAL
+
+
+ NOMBRE
+ REGULAR
+ NOMBRE
+ .NOT.DELETED().AND..T..AND..T.
+ ASCENDING
+ GENERAL
+
+
+ NOTDELETED
+ BINARY
+ .NOT.DELETED()
+
+ ASCENDING
+ MACHINE
+
+
+
+
+
+
+
+
+
+
+ Fer
+ 45
+ 18
+
+ D.1.C
+
+
+
+ Fer2
+ 46
+ 22
+
+ D.1.C
+
+
+
+ Fer3
+ 47
+ 24
+
+ D.1.C
+
+
+
+ Fer4
+ 48
+ 26
+
+ D.1.C
+
+
+
+ Fer5
+ 49
+ 28
+
+ D.1.C
+
+
+
-
-
- ID
- PRIMARY
- ID
-
- ASCENDING
- MACHINE
-
-
- EDAD_ND
- REGULAR
- EDAD
- .NOT.DELETED()
- ASCENDING
- MACHINE
-
-
- NOTDELETED
- BINARY
- .NOT.DELETED()
-
- ASCENDING
- MACHINE
-
-
- EDAD
- CANDIDATE
- EDAD
-
- DESCENDING
- MACHINE
-
-
- DEPTO
- REGULAR
- DEPTO
- .NOT.DELETED().AND..T.
- ASCENDING
- GENERAL
-
-
- NOMBRE
- REGULAR
- NOMBRE
- .NOT.DELETED().AND..T..AND..T.
- ASCENDING
- GENERAL
-
-
- I_NOMBRE
- REGULAR
- NOMBRE
- .NOT.DELETED().AND..T..AND..NOT..F.
- DESCENDING
- GENERAL
-
-
+
diff --git a/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2 b/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2
index e5e7456..8b30112 100644
--- a/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2
+++ b/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2
@@ -9,7 +9,7 @@
*
DEFINE MENU _MSYSMENU BAR
-DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
+DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
@@ -22,7 +22,7 @@ ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors" && Setup some very effective error handling
ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P
-DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\
DEFINE MENU _MSYSMENU BAR
-DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
+DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
@@ -22,7 +22,7 @@ ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors"
ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P
-DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\a line break in it
ON SELECTION PAD _40O101BHZ OF _MSYSMENU messageb("Hello!")
diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdbase.vc2 b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdbase.vc2
new file mode 100644
index 0000000..4839743
--- /dev/null
+++ b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdbase.vc2
@@ -0,0 +1,139 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS grdbase AS grid
+ *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" />
+
+ *
+ *m: canresort
+ *m: commoncolumnclick && Generic column click handler
+ *m: createtag && Create a grid indexd tag for sorting
+ *m: resizecover
+ *m: visible_assign
+ *
+
+ *
+ ColumnCount = 2
+ Height = 200
+ Name = "grdbase"
+ Width = 320
+ Column1.Name = "Column1"
+ Column2.Name = "Column2"
+ *
+
+ ADD OBJECT 'Column1.Header1' AS header WITH ;
+ Caption = "Header1", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'Column1.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Column2.Header1' AS header WITH ;
+ Caption = "Header1", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'Column2.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ PROCEDURE canresort
+ *
+ * CanResort
+ *
+ RETURN .T.
+ ENDPROC
+
+ PROCEDURE Click
+ *
+ * Do some things here
+ *
+ DODEFAULT()
+ ENDPROC
+
+ PROCEDURE commoncolumnclick && Generic column click handler
+ *
+ * Common behavior when clicked
+ *
+ LPARAMETERS toColumn
+ ENDPROC
+
+ PROCEDURE createtag && Create a grid indexd tag for sorting
+ *
+ * Index on each column's ControlSource
+ *
+ ENDPROC
+
+ PROCEDURE DblClick
+ *
+ * Double-clicked!
+ *
+ RETURN DODEFAULT()
+ ENDPROC
+
+ PROCEDURE Destroy
+ *
+ * Destroy the grid
+ *
+ RETURN .T.
+ ENDPROC
+
+ PROCEDURE Resize
+ *
+ * React to resizing the grid
+ *
+ ENDPROC
+
+ PROCEDURE resizecover
+ *
+ * ResizeCover if one exists
+ *
+ ENDPROC
+
+ PROCEDURE visible_assign
+ LPARAMETERS vNewVal
+ *To do: Modify this routine for the Assign method
+ THIS.Visible = m.vNewVal
+
+ ENDPROC
+
+ PROCEDURE When
+ *
+ * When what?
+ *
+ ENDPROC
+
+ PROCEDURE Column1.Text1.Click
+ *
+ * Call common method
+ *
+ this.Parent.Parent.commoncolumnclick(this)
+ ENDPROC
+
+ PROCEDURE Column2.Text1.Click
+ *
+ * Call common method
+ *
+ this.Parent.Parent.commoncolumnclick(this)
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdgeneral.vc2 b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdgeneral.vc2
new file mode 100644
index 0000000..754e01e
--- /dev/null
+++ b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.grdgeneral.vc2
@@ -0,0 +1,74 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx"
+ *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+ *
+ Name = "grdgeneral"
+ Column1.Header1.Name = "Header1"
+ Column1.Name = "Column1"
+ Column1.Text1.Name = "Text1"
+ Column2.Header1.Name = "Header1"
+ Column2.Name = "Column2"
+ Column2.Text1.Name = "Text1"
+ *
+
+ PROCEDURE canresort
+ *
+ * Call default logic.
+ *
+ IF NOT DODEFAULT()
+ RETURN .F.
+ ENDIF
+ ENDPROC
+
+ PROCEDURE commoncolumnclick && Generic column click handler
+ *!******************************************************************************
+ *!* Method: grdGeneral::CommonColumnClick()
+ *!* Returns: Logical
+ LPARAMETERS toColumn
+
+ *
+ * Call default logic.
+ *
+ IF NOT DODEFAULT()
+ RETURN .F.
+ ENDIF
+
+ *
+ * Measure Success
+ *
+ LOCAL llSuccess as Boolean
+ llSuccess = .T.
+
+ ** TODO
+
+ *
+ * Return logical, success(T) or failure(F)
+ *
+ RETURN llSuccess
+ ENDPROC
+
+ PROCEDURE Init
+ *
+ * Call default logic.
+ *
+ IF NOT DODEFAULT()
+ RETURN .F.
+ ENDIF
+ ENDPROC
+
+ PROCEDURE Column1.Text1.Click
+ *
+ * Call default logic.
+ *
+ IF NOT DODEFAULT()
+ RETURN .F.
+ ENDIF
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
index 888f4aa..777f797 100644
--- a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
+++ b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2
@@ -4,202 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS grdbase AS grid
- *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="grdbase" Baseclass="grid" />
+*< EXTERNAL_CLASS: Name="grdgeneral" Baseclass="grid" />
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" />
-
- *
- *m: canresort
- *m: commoncolumnclick && Generic column click handler
- *m: createtag && Create a grid indexd tag for sorting
- *m: resizecover
- *m: visible_assign
- *
-
- ColumnCount = 2
- Height = 200
- Name = "grdbase"
- Width = 320
- Column1.Name = "Column1"
- Column2.Name = "Column2"
-
- ADD OBJECT 'Column1.Header1' AS header WITH ;
- Caption = "Header1", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'Column1.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Column2.Header1' AS header WITH ;
- Caption = "Header1", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'Column2.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- PROCEDURE canresort
- *
- * CanResort
- *
- RETURN .T.
- ENDPROC
-
- PROCEDURE Click
- *
- * Do some things here
- *
- DODEFAULT()
- ENDPROC
-
- PROCEDURE commoncolumnclick && Generic column click handler
- *
- * Common behavior when clicked
- *
- LPARAMETERS toColumn
- ENDPROC
-
- PROCEDURE createtag && Create a grid indexd tag for sorting
- *
- * Index on each column's ControlSource
- *
- ENDPROC
-
- PROCEDURE DblClick
- *
- * Double-clicked!
- *
- RETURN DODEFAULT()
- ENDPROC
-
- PROCEDURE Destroy
- *
- * Destroy the grid
- *
- RETURN .T.
- ENDPROC
-
- PROCEDURE Resize
- *
- * React to resizing the grid
- *
- ENDPROC
-
- PROCEDURE resizecover
- *
- * ResizeCover if one exists
- *
- ENDPROC
-
- PROCEDURE visible_assign
- LPARAMETERS vNewVal
- *To do: Modify this routine for the Assign method
- THIS.Visible = m.vNewVal
-
- ENDPROC
-
- PROCEDURE When
- *
- * When what?
- *
- ENDPROC
-
- PROCEDURE Column1.Text1.Click
- *
- * Call common method
- *
- this.Parent.Parent.commoncolumnclick(this)
- ENDPROC
-
- PROCEDURE Column2.Text1.Click
- *
- * Call common method
- *
- this.Parent.Parent.commoncolumnclick(this)
- ENDPROC
-
-ENDDEFINE
-
-DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx"
- *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" />
-
- Name = "grdgeneral"
- Column1.Header1.Name = "Header1"
- Column1.Name = "Column1"
- Column1.Text1.Name = "Text1"
- Column2.Header1.Name = "Header1"
- Column2.Name = "Column2"
- Column2.Text1.Name = "Text1"
-
- PROCEDURE canresort
- *
- * Call default logic.
- *
- IF NOT DODEFAULT()
- RETURN .F.
- ENDIF
- ENDPROC
-
- PROCEDURE commoncolumnclick && Generic column click handler
- *!******************************************************************************
- *!* Method: grdGeneral::CommonColumnClick()
- *!* Returns: Logical
- LPARAMETERS toColumn
-
- *
- * Call default logic.
- *
- IF NOT DODEFAULT()
- RETURN .F.
- ENDIF
-
- *
- * Measure Success
- *
- LOCAL llSuccess as Boolean
- llSuccess = .T.
-
- ** TODO
-
- *
- * Return logical, success(T) or failure(F)
- *
- RETURN llSuccess
- ENDPROC
-
- PROCEDURE Init
- *
- * Call default logic.
- *
- IF NOT DODEFAULT()
- RETURN .F.
- ENDIF
- ENDPROC
-
- PROCEDURE Column1.Text1.Click
- *
- * Call default logic.
- *
- IF NOT DODEFAULT()
- RETURN .F.
- ENDIF
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_checkbox.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_checkbox.dataenvironment.sc2
new file mode 100644
index 0000000..6c1f08d
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_checkbox.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_checkbox.f_base1.sc2 b/TESTS/DATOS_READONLY/f_checkbox.f_base1.sc2
new file mode 100644
index 0000000..5d9b091
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_checkbox.f_base1.sc2
@@ -0,0 +1,822 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cl_checkbox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_checkbox2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_checkbox3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Check3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_checkbox4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Check4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check6" UniqueID="" Timestamp="" />
+
+ *
+ DoCreate = .T.
+ Left = 0
+ Name = "F_base1"
+ Top = 0
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "CHECKBOX NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "CHECKBOX SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Check1' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (17), ;
+ HelpContextID = 0, ;
+ Left = (64), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (72), ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (152), ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Check2' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 64, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 96, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 152, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Cl_checkbox1' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 340, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 72, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'Cl_checkbox2' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 340, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 96, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Height = 76, ;
+ Left = 24, ;
+ Name = "Container1", ;
+ Top = 152, ;
+ Width = 516
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Container1.Check3' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 40, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 152, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Container1.Check4' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 40, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 152, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Container1.Cl_checkbox3' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 316, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'Container1.Cl_checkbox4' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 316, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 113, ;
+ Left = 24, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ Top = 276, ;
+ Width = 517, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Check5' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 35, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 152, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Check6' AS checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox normal", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 35, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Check6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 152, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="checkbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_checkbox5' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 311, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_checkbox6' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Checkbox subclasado", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 21, ;
+ HelpContextID = 0, ;
+ Left = 311, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_checkbox6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ PictureMargin = 0, ;
+ PicturePosition = 13, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 156, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_checkbox.sc2 b/TESTS/DATOS_READONLY/f_checkbox.sc2
index 05a45b7..d1988ca 100644
--- a/TESTS/DATOS_READONLY/f_checkbox.sc2
+++ b/TESTS/DATOS_READONLY/f_checkbox.sc2
@@ -4,830 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cl_checkbox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_checkbox2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_checkbox3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Check3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_checkbox4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Check4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check6" UniqueID="" Timestamp="" />
-
- DoCreate = .T.
- Left = 0
- Name = "F_base1"
- Top = 0
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "CHECKBOX NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "CHECKBOX SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Check1' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (17), ;
- HelpContextID = 0, ;
- Left = (64), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (72), ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (152), ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Check2' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 64, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 96, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 152, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Cl_checkbox1' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 340, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 72, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'Cl_checkbox2' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 340, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 96, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Height = 76, ;
- Left = 24, ;
- Name = "Container1", ;
- Top = 152, ;
- Width = 516
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Container1.Check3' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 40, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 152, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Container1.Check4' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 40, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 40, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 152, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Container1.Cl_checkbox3' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 316, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'Container1.Cl_checkbox4' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 316, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 40, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 113, ;
- Left = 24, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- Top = 276, ;
- Width = 517, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Check5' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 35, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 152, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Check6' AS checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox normal", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 35, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Check6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 40, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 152, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="checkbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_checkbox5' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 311, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_checkbox6' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Checkbox subclasado", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 21, ;
- HelpContextID = 0, ;
- Left = 311, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_checkbox6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- PictureMargin = 0, ;
- PicturePosition = 13, ;
- PictureSpacing = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 40, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 156, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_combobox.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_combobox.dataenvironment.sc2
new file mode 100644
index 0000000..728286b
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_combobox.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_combobox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_combobox.f_base1.sc2 b/TESTS/DATOS_READONLY/f_combobox.f_base1.sc2
new file mode 100644
index 0000000..c8cd5b5
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_combobox.f_base1.sc2
@@ -0,0 +1,1236 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_combobox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cl_ComboDropdown1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_ComboDropdown1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.ComboDropdown1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboDropdown1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboList1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboDropdown1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="ComboDropdown1" UniqueID="" Timestamp="" />
+
+ *
+ DoCreate = .T.
+ Name = "F_base1"
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "COMBOBOX NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "COMBOBOX SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_ComboDropdown1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 328, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 44, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'Cl_ComboList1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 328, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 7, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 76, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'ComboDropdown1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (24), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = (48), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (44), ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (200)
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'ComboList1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 48, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 8, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 76, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Height = 97, ;
+ Left = 28, ;
+ Name = "Container1", ;
+ TabIndex = 9, ;
+ Top = 116, ;
+ Width = 512
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Container1.Cl_ComboDropdown1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 300, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'Container1.Cl_ComboList1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 300, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 7, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 52, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'Container1.ComboDropdown1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 20, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'Container1.ComboList1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 20, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 8, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 52, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 153, ;
+ Left = 28, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ TabIndex = 10, ;
+ Top = 236, ;
+ Width = 513, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_ComboDropdown1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 299, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 12, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_ComboList1' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 299, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 7, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 44, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'Pageframe1.Page1.ComboDropdown1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 19, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboDropdown1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 12, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: BaseClass="combobox" />
+
+ ADD OBJECT 'Pageframe1.Page1.ComboList1' AS combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 255,255,0, ;
+ BorderStyle = 1, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 19, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "ComboList1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 2, ;
+ TabIndex = 8, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 44, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 200
+ *< END OBJECT: BaseClass="combobox" />
+
+ PROCEDURE Cl_ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Cl_ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.Cl_ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.Cl_ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.Cl_ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.Cl_ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.ComboDropdown1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.ComboList1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_combobox.sc2 b/TESTS/DATOS_READONLY/f_combobox.sc2
index e46ebb6..5e9f165 100644
--- a/TESTS/DATOS_READONLY/f_combobox.sc2
+++ b/TESTS/DATOS_READONLY/f_combobox.sc2
@@ -4,1244 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_combobox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cl_ComboDropdown1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_ComboDropdown1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.ComboDropdown1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboDropdown1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboList1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboDropdown1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="ComboDropdown1" UniqueID="" Timestamp="" />
-
- DoCreate = .T.
- Name = "F_base1"
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "COMBOBOX NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "COMBOBOX SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_ComboDropdown1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 328, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 44, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'Cl_ComboList1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 328, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 7, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 76, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'ComboDropdown1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (24), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = (48), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (44), ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (200)
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'ComboList1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 48, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 8, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 76, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Height = 97, ;
- Left = 28, ;
- Name = "Container1", ;
- TabIndex = 9, ;
- Top = 116, ;
- Width = 512
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Container1.Cl_ComboDropdown1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 300, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'Container1.Cl_ComboList1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 300, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 7, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 52, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'Container1.ComboDropdown1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 20, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'Container1.ComboList1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 20, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 8, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 52, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 153, ;
- Left = 28, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- TabIndex = 10, ;
- Top = 236, ;
- Width = 513, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_ComboDropdown1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 299, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 12, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_ComboList1' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 299, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 7, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 44, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'Pageframe1.Page1.ComboDropdown1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 19, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboDropdown1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 12, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: BaseClass="combobox" />
-
- ADD OBJECT 'Pageframe1.Page1.ComboList1' AS combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 255,255,0, ;
- BorderStyle = 1, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 19, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "ComboList1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 2, ;
- TabIndex = 8, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 44, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 200
- *< END OBJECT: BaseClass="combobox" />
-
- PROCEDURE Cl_ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Cl_ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.Cl_ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.Cl_ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.Cl_ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.Cl_ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.ComboDropdown1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.ComboList1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_commandgroup.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_commandgroup.dataenvironment.sc2
new file mode 100644
index 0000000..f7097e9
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_commandgroup.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_commandgroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_commandgroup.f_base1.sc2 b/TESTS/DATOS_READONLY/f_commandgroup.f_base1.sc2
new file mode 100644
index 0000000..08e149d
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_commandgroup.f_base1.sc2
@@ -0,0 +1,1398 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_commandgroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Commandgroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_commandbutton1" UniqueID="" Timestamp="" />
+
+ *
+ DoCreate = .T.
+ Name = "F_base1"
+ Edit1.Name = "Edit1"
+ Edit1.Value = * En los OptionGroup subclasados, cuando el Option de la clase de base tiene Autosize=.T. y la instancia tiene Autosize=.F., ocurre esto:
- Los option normales deben mantener su longitud y apariencia nuevos
- Los option graficos deben mantener su longitud y apariencia, pero pierden en height (bug de VFP)
* En los OptionGroup normales, no hay problemas y se deben mantener igual siempre
* RECOMENDACIÓN: No usar Autosize=.T. en una clase de base
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "COMMANDGROUP NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "COMMANDGROUP SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_commandbutton1' AS cl_commandbutton WITH ;
+ Alignment = 2, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ Caption = "Este es el boton 2", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (27), ;
+ Left = (306), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_commandbutton1", ;
+ OLEDragPicture = ..\..\, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureMargin = 0, ;
+ PicturePosition = 4, ;
+ PictureSpacing = 0, ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (392), ;
+ Visible = .T., ;
+ Width = (200), ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />
+
+ ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 304, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_commandgroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 44, ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 228, ;
+ Command1.Alignment = 2, ;
+ Command1.Anchor = 0, ;
+ Command1.AutoSize = .F., ;
+ Command1.BackColor = 128,255,128, ;
+ Command1.Cancel = .F., ;
+ Command1.Caption = "Este es el botón de comando 1", ;
+ Command1.ColorScheme = 1, ;
+ Command1.ColorSource = 4, ;
+ Command1.Comment = "", ;
+ Command1.Default = .F., ;
+ Command1.DisabledBackColor = 0,128,192, ;
+ Command1.DisabledForeColor = 128,0,255, ;
+ Command1.DisabledPicture = bmps\treeview.bmp, ;
+ Command1.DownPicture = ..\..\, ;
+ Command1.DragIcon = ..\..\, ;
+ Command1.DragMode = 0, ;
+ Command1.Enabled = .T., ;
+ Command1.FontBold = .F., ;
+ Command1.FontCharSet = 0, ;
+ Command1.FontCondense = .F., ;
+ Command1.FontExtend = .F., ;
+ Command1.FontItalic = .F., ;
+ Command1.FontName = "Arial", ;
+ Command1.FontOutline = .F., ;
+ Command1.FontShadow = .F., ;
+ Command1.FontSize = 8, ;
+ Command1.FontStrikethru = .F., ;
+ Command1.FontUnderline = .F., ;
+ Command1.ForeColor = 0,0,0, ;
+ Command1.Height = 21, ;
+ Command1.HelpContextID = 0, ;
+ Command1.Left = 4, ;
+ Command1.MouseIcon = ..\..\, ;
+ Command1.MousePointer = 0, ;
+ Command1.Name = "Command1", ;
+ Command1.OLEDragMode = 0, ;
+ Command1.OLEDragPicture = ..\..\, ;
+ Command1.OLEDropEffects = 3, ;
+ Command1.OLEDropMode = 0, ;
+ Command1.Picture = bmps\sobrepostal.bmp, ;
+ Command1.PictureMargin = 0, ;
+ Command1.PicturePosition = 4, ;
+ Command1.PictureSpacing = 0, ;
+ Command1.RightToLeft = .F., ;
+ Command1.SpecialEffect = 0, ;
+ Command1.StatusBarText = "", ;
+ Command1.Style = 0, ;
+ Command1.TabStop = .T., ;
+ Command1.Tag = "", ;
+ Command1.TerminateRead = .F., ;
+ Command1.Themes = .T., ;
+ Command1.ToolTipText = "", ;
+ Command1.Top = 4, ;
+ Command1.Visible = .T., ;
+ Command1.WhatsThisHelpID = -1, ;
+ Command1.Width = 200, ;
+ Command1.WordWrap = .F., ;
+ Command2.Alignment = 2, ;
+ Command2.Anchor = 0, ;
+ Command2.AutoSize = .F., ;
+ Command2.BackColor = 128,255,128, ;
+ Command2.Cancel = .F., ;
+ Command2.Caption = "Este es el botón de comando 2", ;
+ Command2.ColorScheme = 1, ;
+ Command2.ColorSource = 4, ;
+ Command2.Comment = "", ;
+ Command2.Default = .F., ;
+ Command2.DisabledBackColor = 0,128,192, ;
+ Command2.DisabledForeColor = 128,0,255, ;
+ Command2.DisabledPicture = bmps\treeview.bmp, ;
+ Command2.DownPicture = ..\..\, ;
+ Command2.DragIcon = ..\..\, ;
+ Command2.DragMode = 0, ;
+ Command2.Enabled = .F., ;
+ Command2.FontBold = .F., ;
+ Command2.FontCharSet = 0, ;
+ Command2.FontCondense = .F., ;
+ Command2.FontExtend = .F., ;
+ Command2.FontItalic = .F., ;
+ Command2.FontName = "Arial", ;
+ Command2.FontOutline = .F., ;
+ Command2.FontShadow = .F., ;
+ Command2.FontSize = 8, ;
+ Command2.FontStrikethru = .F., ;
+ Command2.FontUnderline = .F., ;
+ Command2.ForeColor = 0,0,0, ;
+ Command2.Height = 21, ;
+ Command2.HelpContextID = 0, ;
+ Command2.Left = 4, ;
+ Command2.MouseIcon = ..\..\, ;
+ Command2.MousePointer = 0, ;
+ Command2.Name = "Command2", ;
+ Command2.OLEDragMode = 0, ;
+ Command2.OLEDragPicture = ..\..\, ;
+ Command2.OLEDropEffects = 3, ;
+ Command2.OLEDropMode = 0, ;
+ Command2.Picture = bmps\sobrepostal.bmp, ;
+ Command2.PictureMargin = 0, ;
+ Command2.PicturePosition = 4, ;
+ Command2.PictureSpacing = 0, ;
+ Command2.RightToLeft = .F., ;
+ Command2.SpecialEffect = 0, ;
+ Command2.StatusBarText = "", ;
+ Command2.Style = 0, ;
+ Command2.TabStop = .T., ;
+ Command2.Tag = "", ;
+ Command2.TerminateRead = .F., ;
+ Command2.Themes = .T., ;
+ Command2.ToolTipText = "", ;
+ Command2.Top = 28, ;
+ Command2.Visible = .T., ;
+ Command2.WhatsThisHelpID = -1, ;
+ Command2.Width = 200, ;
+ Command2.WordWrap = .F., ;
+ Command3.Alignment = 2, ;
+ Command3.Anchor = 0, ;
+ Command3.AutoSize = .F., ;
+ Command3.BackColor = 128,255,128, ;
+ Command3.Cancel = .F., ;
+ Command3.Caption = "Este es el botón de comando 3", ;
+ Command3.ColorScheme = 1, ;
+ Command3.ColorSource = 4, ;
+ Command3.Comment = "", ;
+ Command3.Default = .F., ;
+ Command3.DisabledBackColor = 0,128,192, ;
+ Command3.DisabledForeColor = 128,0,255, ;
+ Command3.DisabledPicture = bmps\treeview.bmp, ;
+ Command3.DownPicture = ..\..\, ;
+ Command3.DragIcon = ..\..\, ;
+ Command3.DragMode = 0, ;
+ Command3.Enabled = .T., ;
+ Command3.FontBold = .F., ;
+ Command3.FontCharSet = 0, ;
+ Command3.FontCondense = .F., ;
+ Command3.FontExtend = .F., ;
+ Command3.FontItalic = .F., ;
+ Command3.FontName = "Arial", ;
+ Command3.FontOutline = .F., ;
+ Command3.FontShadow = .F., ;
+ Command3.FontSize = 8, ;
+ Command3.FontStrikethru = .F., ;
+ Command3.FontUnderline = .F., ;
+ Command3.ForeColor = 0,0,0, ;
+ Command3.Height = 21, ;
+ Command3.HelpContextID = 0, ;
+ Command3.Left = 4, ;
+ Command3.MouseIcon = ..\..\, ;
+ Command3.MousePointer = 0, ;
+ Command3.Name = "Command3", ;
+ Command3.OLEDragMode = 0, ;
+ Command3.OLEDragPicture = ..\..\, ;
+ Command3.OLEDropEffects = 3, ;
+ Command3.OLEDropMode = 0, ;
+ Command3.Picture = bmps\sobrepostal.bmp, ;
+ Command3.PictureMargin = 0, ;
+ Command3.PicturePosition = 4, ;
+ Command3.PictureSpacing = 0, ;
+ Command3.RightToLeft = .F., ;
+ Command3.SpecialEffect = 0, ;
+ Command3.StatusBarText = "", ;
+ Command3.Style = 0, ;
+ Command3.TabStop = .T., ;
+ Command3.Tag = "", ;
+ Command3.TerminateRead = .F., ;
+ Command3.Themes = .T., ;
+ Command3.ToolTipText = "", ;
+ Command3.Top = 52, ;
+ Command3.Visible = .T., ;
+ Command3.WhatsThisHelpID = -1, ;
+ Command3.Width = 200, ;
+ Command3.WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
+
+ ADD OBJECT 'Command1' AS commandbutton WITH ;
+ Alignment = 2, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ Cancel = .F., ;
+ Caption = "Este es el boton 1", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Default = .F., ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (27), ;
+ HelpContextID = 0, ;
+ Left = (44), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Command1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureMargin = 0, ;
+ PicturePosition = 4, ;
+ PictureSpacing = 0, ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 10, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (392), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (200), ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="commandbutton" />
+
+ ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (76), ;
+ HelpContextID = 0, ;
+ Left = (36), ;
+ MemberClass = "cl_commandbutton", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Commandgroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (44), ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (228), ;
+ Cl_commandbutton1.Alignment = 2, ;
+ Cl_commandbutton1.Anchor = 0, ;
+ Cl_commandbutton1.AutoSize = .F., ;
+ Cl_commandbutton1.BackColor = 128,255,128, ;
+ Cl_commandbutton1.Cancel = .F., ;
+ Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
+ Cl_commandbutton1.ColorScheme = 1, ;
+ Cl_commandbutton1.ColorSource = 4, ;
+ Cl_commandbutton1.Comment = "", ;
+ Cl_commandbutton1.Default = .F., ;
+ Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton1.DownPicture = ..\..\, ;
+ Cl_commandbutton1.DragIcon = ..\..\, ;
+ Cl_commandbutton1.DragMode = 0, ;
+ Cl_commandbutton1.Enabled = .T., ;
+ Cl_commandbutton1.FontBold = .F., ;
+ Cl_commandbutton1.FontCharSet = 0, ;
+ Cl_commandbutton1.FontCondense = .F., ;
+ Cl_commandbutton1.FontExtend = .F., ;
+ Cl_commandbutton1.FontItalic = .F., ;
+ Cl_commandbutton1.FontName = "Arial", ;
+ Cl_commandbutton1.FontOutline = .F., ;
+ Cl_commandbutton1.FontShadow = .F., ;
+ Cl_commandbutton1.FontSize = 8, ;
+ Cl_commandbutton1.FontStrikethru = .F., ;
+ Cl_commandbutton1.FontUnderline = .F., ;
+ Cl_commandbutton1.Height = 21, ;
+ Cl_commandbutton1.HelpContextID = 0, ;
+ Cl_commandbutton1.Left = 8, ;
+ Cl_commandbutton1.MouseIcon = ..\..\, ;
+ Cl_commandbutton1.MousePointer = 0, ;
+ Cl_commandbutton1.Name = "Cl_commandbutton1", ;
+ Cl_commandbutton1.OLEDragMode = 0, ;
+ Cl_commandbutton1.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton1.OLEDropEffects = 3, ;
+ Cl_commandbutton1.OLEDropMode = 0, ;
+ Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton1.PictureMargin = 0, ;
+ Cl_commandbutton1.PicturePosition = 4, ;
+ Cl_commandbutton1.PictureSpacing = 0, ;
+ Cl_commandbutton1.RightToLeft = .F., ;
+ Cl_commandbutton1.SpecialEffect = 0, ;
+ Cl_commandbutton1.StatusBarText = "", ;
+ Cl_commandbutton1.Style = 0, ;
+ Cl_commandbutton1.TabStop = .T., ;
+ Cl_commandbutton1.Tag = "", ;
+ Cl_commandbutton1.TerminateRead = .F., ;
+ Cl_commandbutton1.Themes = .T., ;
+ Cl_commandbutton1.ToolTipText = "", ;
+ Cl_commandbutton1.Top = 4, ;
+ Cl_commandbutton1.Visible = .T., ;
+ Cl_commandbutton1.WhatsThisHelpID = -1, ;
+ Cl_commandbutton1.Width = 200, ;
+ Cl_commandbutton1.WordWrap = .F., ;
+ Cl_commandbutton2.Alignment = 2, ;
+ Cl_commandbutton2.Anchor = 0, ;
+ Cl_commandbutton2.AutoSize = .F., ;
+ Cl_commandbutton2.BackColor = 128,255,128, ;
+ Cl_commandbutton2.Cancel = .F., ;
+ Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
+ Cl_commandbutton2.ColorScheme = 1, ;
+ Cl_commandbutton2.ColorSource = 4, ;
+ Cl_commandbutton2.Comment = "", ;
+ Cl_commandbutton2.Default = .F., ;
+ Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton2.DownPicture = ..\..\, ;
+ Cl_commandbutton2.DragIcon = ..\..\, ;
+ Cl_commandbutton2.DragMode = 0, ;
+ Cl_commandbutton2.Enabled = .F., ;
+ Cl_commandbutton2.FontBold = .F., ;
+ Cl_commandbutton2.FontCharSet = 0, ;
+ Cl_commandbutton2.FontCondense = .F., ;
+ Cl_commandbutton2.FontExtend = .F., ;
+ Cl_commandbutton2.FontItalic = .F., ;
+ Cl_commandbutton2.FontName = "Arial", ;
+ Cl_commandbutton2.FontOutline = .F., ;
+ Cl_commandbutton2.FontShadow = .F., ;
+ Cl_commandbutton2.FontSize = 8, ;
+ Cl_commandbutton2.FontStrikethru = .F., ;
+ Cl_commandbutton2.FontUnderline = .F., ;
+ Cl_commandbutton2.Height = 21, ;
+ Cl_commandbutton2.HelpContextID = 0, ;
+ Cl_commandbutton2.Left = 8, ;
+ Cl_commandbutton2.MouseIcon = ..\..\, ;
+ Cl_commandbutton2.MousePointer = 0, ;
+ Cl_commandbutton2.Name = "Cl_commandbutton2", ;
+ Cl_commandbutton2.OLEDragMode = 0, ;
+ Cl_commandbutton2.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton2.OLEDropEffects = 3, ;
+ Cl_commandbutton2.OLEDropMode = 0, ;
+ Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton2.PictureMargin = 0, ;
+ Cl_commandbutton2.PicturePosition = 4, ;
+ Cl_commandbutton2.PictureSpacing = 0, ;
+ Cl_commandbutton2.RightToLeft = .F., ;
+ Cl_commandbutton2.SpecialEffect = 0, ;
+ Cl_commandbutton2.StatusBarText = "", ;
+ Cl_commandbutton2.Style = 0, ;
+ Cl_commandbutton2.TabStop = .T., ;
+ Cl_commandbutton2.Tag = "", ;
+ Cl_commandbutton2.TerminateRead = .F., ;
+ Cl_commandbutton2.Themes = .T., ;
+ Cl_commandbutton2.ToolTipText = "", ;
+ Cl_commandbutton2.Top = 28, ;
+ Cl_commandbutton2.Visible = .T., ;
+ Cl_commandbutton2.WhatsThisHelpID = -1, ;
+ Cl_commandbutton2.Width = 200, ;
+ Cl_commandbutton2.WordWrap = .F., ;
+ Cl_commandbutton3.Alignment = 2, ;
+ Cl_commandbutton3.Anchor = 0, ;
+ Cl_commandbutton3.AutoSize = .F., ;
+ Cl_commandbutton3.BackColor = 128,255,128, ;
+ Cl_commandbutton3.Cancel = .F., ;
+ Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
+ Cl_commandbutton3.ColorScheme = 1, ;
+ Cl_commandbutton3.ColorSource = 4, ;
+ Cl_commandbutton3.Comment = "", ;
+ Cl_commandbutton3.Default = .F., ;
+ Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton3.DownPicture = ..\..\, ;
+ Cl_commandbutton3.DragIcon = ..\..\, ;
+ Cl_commandbutton3.DragMode = 0, ;
+ Cl_commandbutton3.Enabled = .T., ;
+ Cl_commandbutton3.FontBold = .F., ;
+ Cl_commandbutton3.FontCharSet = 0, ;
+ Cl_commandbutton3.FontCondense = .F., ;
+ Cl_commandbutton3.FontExtend = .F., ;
+ Cl_commandbutton3.FontItalic = .F., ;
+ Cl_commandbutton3.FontName = "Arial", ;
+ Cl_commandbutton3.FontOutline = .F., ;
+ Cl_commandbutton3.FontShadow = .F., ;
+ Cl_commandbutton3.FontSize = 8, ;
+ Cl_commandbutton3.FontStrikethru = .F., ;
+ Cl_commandbutton3.FontUnderline = .F., ;
+ Cl_commandbutton3.Height = 21, ;
+ Cl_commandbutton3.HelpContextID = 0, ;
+ Cl_commandbutton3.Left = 8, ;
+ Cl_commandbutton3.MouseIcon = ..\..\, ;
+ Cl_commandbutton3.MousePointer = 0, ;
+ Cl_commandbutton3.Name = "Cl_commandbutton3", ;
+ Cl_commandbutton3.OLEDragMode = 0, ;
+ Cl_commandbutton3.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton3.OLEDropEffects = 3, ;
+ Cl_commandbutton3.OLEDropMode = 0, ;
+ Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton3.PictureMargin = 0, ;
+ Cl_commandbutton3.PicturePosition = 4, ;
+ Cl_commandbutton3.PictureSpacing = 0, ;
+ Cl_commandbutton3.RightToLeft = .F., ;
+ Cl_commandbutton3.SpecialEffect = 0, ;
+ Cl_commandbutton3.StatusBarText = "", ;
+ Cl_commandbutton3.Style = 0, ;
+ Cl_commandbutton3.TabStop = .T., ;
+ Cl_commandbutton3.Tag = "", ;
+ Cl_commandbutton3.TerminateRead = .F., ;
+ Cl_commandbutton3.Themes = .T., ;
+ Cl_commandbutton3.ToolTipText = "", ;
+ Cl_commandbutton3.Top = 52, ;
+ Cl_commandbutton3.Visible = .T., ;
+ Cl_commandbutton3.WhatsThisHelpID = -1, ;
+ Cl_commandbutton3.Width = 200, ;
+ Cl_commandbutton3.WordWrap = .F.
+ *< END OBJECT: BaseClass="commandgroup" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Height = 101, ;
+ Left = 28, ;
+ Name = "Container1", ;
+ Top = 140, ;
+ Width = 517
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Container1.Cl_commandgroup1' AS cl_commandgroup WITH ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 0, ;
+ ButtonCount = 3, ;
+ Enabled = .F., ;
+ Height = 76, ;
+ Left = 276, ;
+ Name = "Cl_commandgroup1", ;
+ Top = 12, ;
+ Width = 228, ;
+ Command1.Alignment = 2, ;
+ Command1.Anchor = 0, ;
+ Command1.AutoSize = .F., ;
+ Command1.BackColor = 128,255,128, ;
+ Command1.Cancel = .F., ;
+ Command1.Caption = "Este es el botón de comando 1", ;
+ Command1.ColorScheme = 1, ;
+ Command1.ColorSource = 4, ;
+ Command1.Comment = "", ;
+ Command1.Default = .F., ;
+ Command1.DisabledBackColor = 0,128,192, ;
+ Command1.DisabledForeColor = 128,0,255, ;
+ Command1.DisabledPicture = bmps\treeview.bmp, ;
+ Command1.DownPicture = ..\..\, ;
+ Command1.DragIcon = ..\..\, ;
+ Command1.DragMode = 0, ;
+ Command1.Enabled = .T., ;
+ Command1.FontBold = .F., ;
+ Command1.FontCharSet = 0, ;
+ Command1.FontCondense = .F., ;
+ Command1.FontExtend = .F., ;
+ Command1.FontItalic = .F., ;
+ Command1.FontName = "Arial", ;
+ Command1.FontOutline = .F., ;
+ Command1.FontShadow = .F., ;
+ Command1.FontSize = 8, ;
+ Command1.FontStrikethru = .F., ;
+ Command1.FontUnderline = .F., ;
+ Command1.ForeColor = 0,0,0, ;
+ Command1.Height = 21, ;
+ Command1.HelpContextID = 0, ;
+ Command1.Left = 4, ;
+ Command1.MouseIcon = ..\..\, ;
+ Command1.MousePointer = 0, ;
+ Command1.Name = "Command1", ;
+ Command1.OLEDragMode = 0, ;
+ Command1.OLEDragPicture = ..\..\, ;
+ Command1.OLEDropEffects = 3, ;
+ Command1.OLEDropMode = 0, ;
+ Command1.Picture = bmps\sobrepostal.bmp, ;
+ Command1.PictureMargin = 0, ;
+ Command1.PicturePosition = 4, ;
+ Command1.PictureSpacing = 0, ;
+ Command1.RightToLeft = .F., ;
+ Command1.SpecialEffect = 0, ;
+ Command1.StatusBarText = "", ;
+ Command1.Style = 0, ;
+ Command1.TabStop = .T., ;
+ Command1.Tag = "", ;
+ Command1.TerminateRead = .F., ;
+ Command1.Themes = .T., ;
+ Command1.ToolTipText = "", ;
+ Command1.Top = 4, ;
+ Command1.Visible = .T., ;
+ Command1.WhatsThisHelpID = -1, ;
+ Command1.Width = 200, ;
+ Command1.WordWrap = .F., ;
+ Command2.Alignment = 2, ;
+ Command2.Anchor = 0, ;
+ Command2.AutoSize = .F., ;
+ Command2.BackColor = 128,255,128, ;
+ Command2.Cancel = .F., ;
+ Command2.Caption = "Este es el botón de comando 2", ;
+ Command2.ColorScheme = 1, ;
+ Command2.ColorSource = 4, ;
+ Command2.Comment = "", ;
+ Command2.Default = .F., ;
+ Command2.DisabledBackColor = 0,128,192, ;
+ Command2.DisabledForeColor = 128,0,255, ;
+ Command2.DisabledPicture = bmps\treeview.bmp, ;
+ Command2.DownPicture = ..\..\, ;
+ Command2.DragIcon = ..\..\, ;
+ Command2.DragMode = 0, ;
+ Command2.Enabled = .F., ;
+ Command2.FontBold = .F., ;
+ Command2.FontCharSet = 0, ;
+ Command2.FontCondense = .F., ;
+ Command2.FontExtend = .F., ;
+ Command2.FontItalic = .F., ;
+ Command2.FontName = "Arial", ;
+ Command2.FontOutline = .F., ;
+ Command2.FontShadow = .F., ;
+ Command2.FontSize = 8, ;
+ Command2.FontStrikethru = .F., ;
+ Command2.FontUnderline = .F., ;
+ Command2.ForeColor = 0,0,0, ;
+ Command2.Height = 21, ;
+ Command2.HelpContextID = 0, ;
+ Command2.Left = 4, ;
+ Command2.MouseIcon = ..\..\, ;
+ Command2.MousePointer = 0, ;
+ Command2.Name = "Command2", ;
+ Command2.OLEDragMode = 0, ;
+ Command2.OLEDragPicture = ..\..\, ;
+ Command2.OLEDropEffects = 3, ;
+ Command2.OLEDropMode = 0, ;
+ Command2.Picture = bmps\sobrepostal.bmp, ;
+ Command2.PictureMargin = 0, ;
+ Command2.PicturePosition = 4, ;
+ Command2.PictureSpacing = 0, ;
+ Command2.RightToLeft = .F., ;
+ Command2.SpecialEffect = 0, ;
+ Command2.StatusBarText = "", ;
+ Command2.Style = 0, ;
+ Command2.TabStop = .T., ;
+ Command2.Tag = "", ;
+ Command2.TerminateRead = .F., ;
+ Command2.Themes = .T., ;
+ Command2.ToolTipText = "", ;
+ Command2.Top = 28, ;
+ Command2.Visible = .T., ;
+ Command2.WhatsThisHelpID = -1, ;
+ Command2.Width = 200, ;
+ Command2.WordWrap = .F., ;
+ Command3.Alignment = 2, ;
+ Command3.Anchor = 0, ;
+ Command3.AutoSize = .F., ;
+ Command3.BackColor = 128,255,128, ;
+ Command3.Cancel = .F., ;
+ Command3.Caption = "Este es el botón de comando 3", ;
+ Command3.ColorScheme = 1, ;
+ Command3.ColorSource = 4, ;
+ Command3.Comment = "", ;
+ Command3.Default = .F., ;
+ Command3.DisabledBackColor = 0,128,192, ;
+ Command3.DisabledForeColor = 128,0,255, ;
+ Command3.DisabledPicture = bmps\treeview.bmp, ;
+ Command3.DownPicture = ..\..\, ;
+ Command3.DragIcon = ..\..\, ;
+ Command3.DragMode = 0, ;
+ Command3.Enabled = .T., ;
+ Command3.FontBold = .F., ;
+ Command3.FontCharSet = 0, ;
+ Command3.FontCondense = .F., ;
+ Command3.FontExtend = .F., ;
+ Command3.FontItalic = .F., ;
+ Command3.FontName = "Arial", ;
+ Command3.FontOutline = .F., ;
+ Command3.FontShadow = .F., ;
+ Command3.FontSize = 8, ;
+ Command3.FontStrikethru = .F., ;
+ Command3.FontUnderline = .F., ;
+ Command3.ForeColor = 0,0,0, ;
+ Command3.Height = 21, ;
+ Command3.HelpContextID = 0, ;
+ Command3.Left = 4, ;
+ Command3.MouseIcon = ..\..\, ;
+ Command3.MousePointer = 0, ;
+ Command3.Name = "Command3", ;
+ Command3.OLEDragMode = 0, ;
+ Command3.OLEDragPicture = ..\..\, ;
+ Command3.OLEDropEffects = 3, ;
+ Command3.OLEDropMode = 0, ;
+ Command3.Picture = bmps\sobrepostal.bmp, ;
+ Command3.PictureMargin = 0, ;
+ Command3.PicturePosition = 4, ;
+ Command3.PictureSpacing = 0, ;
+ Command3.RightToLeft = .F., ;
+ Command3.SpecialEffect = 0, ;
+ Command3.StatusBarText = "", ;
+ Command3.Style = 0, ;
+ Command3.TabStop = .T., ;
+ Command3.Tag = "", ;
+ Command3.TerminateRead = .F., ;
+ Command3.Themes = .T., ;
+ Command3.ToolTipText = "", ;
+ Command3.Top = 52, ;
+ Command3.Visible = .T., ;
+ Command3.WhatsThisHelpID = -1, ;
+ Command3.Width = 200, ;
+ Command3.WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
+
+ ADD OBJECT 'Container1.Commandgroup1' AS commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 8, ;
+ MemberClass = "cl_commandbutton", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Commandgroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 12, ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 228, ;
+ Cl_commandbutton1.Alignment = 2, ;
+ Cl_commandbutton1.Anchor = 0, ;
+ Cl_commandbutton1.AutoSize = .F., ;
+ Cl_commandbutton1.BackColor = 128,255,128, ;
+ Cl_commandbutton1.Cancel = .F., ;
+ Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
+ Cl_commandbutton1.ColorScheme = 1, ;
+ Cl_commandbutton1.ColorSource = 4, ;
+ Cl_commandbutton1.Comment = "", ;
+ Cl_commandbutton1.Default = .F., ;
+ Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton1.DownPicture = ..\..\, ;
+ Cl_commandbutton1.DragIcon = ..\..\, ;
+ Cl_commandbutton1.DragMode = 0, ;
+ Cl_commandbutton1.Enabled = .T., ;
+ Cl_commandbutton1.FontBold = .F., ;
+ Cl_commandbutton1.FontCharSet = 0, ;
+ Cl_commandbutton1.FontCondense = .F., ;
+ Cl_commandbutton1.FontExtend = .F., ;
+ Cl_commandbutton1.FontItalic = .F., ;
+ Cl_commandbutton1.FontName = "Arial", ;
+ Cl_commandbutton1.FontOutline = .F., ;
+ Cl_commandbutton1.FontShadow = .F., ;
+ Cl_commandbutton1.FontSize = 8, ;
+ Cl_commandbutton1.FontStrikethru = .F., ;
+ Cl_commandbutton1.FontUnderline = .F., ;
+ Cl_commandbutton1.Height = 21, ;
+ Cl_commandbutton1.HelpContextID = 0, ;
+ Cl_commandbutton1.Left = 8, ;
+ Cl_commandbutton1.MouseIcon = ..\..\, ;
+ Cl_commandbutton1.MousePointer = 0, ;
+ Cl_commandbutton1.Name = "Cl_commandbutton1", ;
+ Cl_commandbutton1.OLEDragMode = 0, ;
+ Cl_commandbutton1.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton1.OLEDropEffects = 3, ;
+ Cl_commandbutton1.OLEDropMode = 0, ;
+ Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton1.PictureMargin = 0, ;
+ Cl_commandbutton1.PicturePosition = 4, ;
+ Cl_commandbutton1.PictureSpacing = 0, ;
+ Cl_commandbutton1.RightToLeft = .F., ;
+ Cl_commandbutton1.SpecialEffect = 0, ;
+ Cl_commandbutton1.StatusBarText = "", ;
+ Cl_commandbutton1.Style = 0, ;
+ Cl_commandbutton1.TabStop = .T., ;
+ Cl_commandbutton1.Tag = "", ;
+ Cl_commandbutton1.TerminateRead = .F., ;
+ Cl_commandbutton1.Themes = .T., ;
+ Cl_commandbutton1.ToolTipText = "", ;
+ Cl_commandbutton1.Top = 4, ;
+ Cl_commandbutton1.Visible = .T., ;
+ Cl_commandbutton1.WhatsThisHelpID = -1, ;
+ Cl_commandbutton1.Width = 200, ;
+ Cl_commandbutton1.WordWrap = .F., ;
+ Cl_commandbutton2.Alignment = 2, ;
+ Cl_commandbutton2.Anchor = 0, ;
+ Cl_commandbutton2.AutoSize = .F., ;
+ Cl_commandbutton2.BackColor = 128,255,128, ;
+ Cl_commandbutton2.Cancel = .F., ;
+ Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
+ Cl_commandbutton2.ColorScheme = 1, ;
+ Cl_commandbutton2.ColorSource = 4, ;
+ Cl_commandbutton2.Comment = "", ;
+ Cl_commandbutton2.Default = .F., ;
+ Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton2.DownPicture = ..\..\, ;
+ Cl_commandbutton2.DragIcon = ..\..\, ;
+ Cl_commandbutton2.DragMode = 0, ;
+ Cl_commandbutton2.Enabled = .F., ;
+ Cl_commandbutton2.FontBold = .F., ;
+ Cl_commandbutton2.FontCharSet = 0, ;
+ Cl_commandbutton2.FontCondense = .F., ;
+ Cl_commandbutton2.FontExtend = .F., ;
+ Cl_commandbutton2.FontItalic = .F., ;
+ Cl_commandbutton2.FontName = "Arial", ;
+ Cl_commandbutton2.FontOutline = .F., ;
+ Cl_commandbutton2.FontShadow = .F., ;
+ Cl_commandbutton2.FontSize = 8, ;
+ Cl_commandbutton2.FontStrikethru = .F., ;
+ Cl_commandbutton2.FontUnderline = .F., ;
+ Cl_commandbutton2.Height = 21, ;
+ Cl_commandbutton2.HelpContextID = 0, ;
+ Cl_commandbutton2.Left = 8, ;
+ Cl_commandbutton2.MouseIcon = ..\..\, ;
+ Cl_commandbutton2.MousePointer = 0, ;
+ Cl_commandbutton2.Name = "Cl_commandbutton2", ;
+ Cl_commandbutton2.OLEDragMode = 0, ;
+ Cl_commandbutton2.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton2.OLEDropEffects = 3, ;
+ Cl_commandbutton2.OLEDropMode = 0, ;
+ Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton2.PictureMargin = 0, ;
+ Cl_commandbutton2.PicturePosition = 4, ;
+ Cl_commandbutton2.PictureSpacing = 0, ;
+ Cl_commandbutton2.RightToLeft = .F., ;
+ Cl_commandbutton2.SpecialEffect = 0, ;
+ Cl_commandbutton2.StatusBarText = "", ;
+ Cl_commandbutton2.Style = 0, ;
+ Cl_commandbutton2.TabStop = .T., ;
+ Cl_commandbutton2.Tag = "", ;
+ Cl_commandbutton2.TerminateRead = .F., ;
+ Cl_commandbutton2.Themes = .T., ;
+ Cl_commandbutton2.ToolTipText = "", ;
+ Cl_commandbutton2.Top = 28, ;
+ Cl_commandbutton2.Visible = .T., ;
+ Cl_commandbutton2.WhatsThisHelpID = -1, ;
+ Cl_commandbutton2.Width = 200, ;
+ Cl_commandbutton2.WordWrap = .F., ;
+ Cl_commandbutton3.Alignment = 2, ;
+ Cl_commandbutton3.Anchor = 0, ;
+ Cl_commandbutton3.AutoSize = .F., ;
+ Cl_commandbutton3.BackColor = 128,255,128, ;
+ Cl_commandbutton3.Cancel = .F., ;
+ Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
+ Cl_commandbutton3.ColorScheme = 1, ;
+ Cl_commandbutton3.ColorSource = 4, ;
+ Cl_commandbutton3.Comment = "", ;
+ Cl_commandbutton3.Default = .F., ;
+ Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton3.DownPicture = ..\..\, ;
+ Cl_commandbutton3.DragIcon = ..\..\, ;
+ Cl_commandbutton3.DragMode = 0, ;
+ Cl_commandbutton3.Enabled = .T., ;
+ Cl_commandbutton3.FontBold = .F., ;
+ Cl_commandbutton3.FontCharSet = 0, ;
+ Cl_commandbutton3.FontCondense = .F., ;
+ Cl_commandbutton3.FontExtend = .F., ;
+ Cl_commandbutton3.FontItalic = .F., ;
+ Cl_commandbutton3.FontName = "Arial", ;
+ Cl_commandbutton3.FontOutline = .F., ;
+ Cl_commandbutton3.FontShadow = .F., ;
+ Cl_commandbutton3.FontSize = 8, ;
+ Cl_commandbutton3.FontStrikethru = .F., ;
+ Cl_commandbutton3.FontUnderline = .F., ;
+ Cl_commandbutton3.Height = 21, ;
+ Cl_commandbutton3.HelpContextID = 0, ;
+ Cl_commandbutton3.Left = 8, ;
+ Cl_commandbutton3.MouseIcon = ..\..\, ;
+ Cl_commandbutton3.MousePointer = 0, ;
+ Cl_commandbutton3.Name = "Cl_commandbutton3", ;
+ Cl_commandbutton3.OLEDragMode = 0, ;
+ Cl_commandbutton3.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton3.OLEDropEffects = 3, ;
+ Cl_commandbutton3.OLEDropMode = 0, ;
+ Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton3.PictureMargin = 0, ;
+ Cl_commandbutton3.PicturePosition = 4, ;
+ Cl_commandbutton3.PictureSpacing = 0, ;
+ Cl_commandbutton3.RightToLeft = .F., ;
+ Cl_commandbutton3.SpecialEffect = 0, ;
+ Cl_commandbutton3.StatusBarText = "", ;
+ Cl_commandbutton3.Style = 0, ;
+ Cl_commandbutton3.TabStop = .T., ;
+ Cl_commandbutton3.Tag = "", ;
+ Cl_commandbutton3.TerminateRead = .F., ;
+ Cl_commandbutton3.Themes = .T., ;
+ Cl_commandbutton3.ToolTipText = "", ;
+ Cl_commandbutton3.Top = 52, ;
+ Cl_commandbutton3.Visible = .T., ;
+ Cl_commandbutton3.WhatsThisHelpID = -1, ;
+ Cl_commandbutton3.Width = 200, ;
+ Cl_commandbutton3.WordWrap = .F.
+ *< END OBJECT: BaseClass="commandgroup" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 132, ;
+ Left = 28, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ Top = 256, ;
+ Width = 517, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_commandgroup1' AS cl_commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 275, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_commandgroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 228, ;
+ Command1.Alignment = 2, ;
+ Command1.Anchor = 0, ;
+ Command1.AutoSize = .F., ;
+ Command1.BackColor = 128,255,128, ;
+ Command1.Cancel = .F., ;
+ Command1.Caption = "Este es el botón de comando 1", ;
+ Command1.ColorScheme = 1, ;
+ Command1.ColorSource = 4, ;
+ Command1.Comment = "", ;
+ Command1.Default = .F., ;
+ Command1.DisabledBackColor = 0,128,192, ;
+ Command1.DisabledForeColor = 128,0,255, ;
+ Command1.DisabledPicture = bmps\treeview.bmp, ;
+ Command1.DownPicture = ..\..\, ;
+ Command1.DragIcon = ..\..\, ;
+ Command1.DragMode = 0, ;
+ Command1.Enabled = .T., ;
+ Command1.FontBold = .F., ;
+ Command1.FontCharSet = 0, ;
+ Command1.FontCondense = .F., ;
+ Command1.FontExtend = .F., ;
+ Command1.FontItalic = .F., ;
+ Command1.FontName = "Arial", ;
+ Command1.FontOutline = .F., ;
+ Command1.FontShadow = .F., ;
+ Command1.FontSize = 8, ;
+ Command1.FontStrikethru = .F., ;
+ Command1.FontUnderline = .F., ;
+ Command1.ForeColor = 0,0,0, ;
+ Command1.Height = 21, ;
+ Command1.HelpContextID = 0, ;
+ Command1.Left = 4, ;
+ Command1.MouseIcon = ..\..\, ;
+ Command1.MousePointer = 0, ;
+ Command1.Name = "Command1", ;
+ Command1.OLEDragMode = 0, ;
+ Command1.OLEDragPicture = ..\..\, ;
+ Command1.OLEDropEffects = 3, ;
+ Command1.OLEDropMode = 0, ;
+ Command1.Picture = bmps\sobrepostal.bmp, ;
+ Command1.PictureMargin = 0, ;
+ Command1.PicturePosition = 4, ;
+ Command1.PictureSpacing = 0, ;
+ Command1.RightToLeft = .F., ;
+ Command1.SpecialEffect = 0, ;
+ Command1.StatusBarText = "", ;
+ Command1.Style = 0, ;
+ Command1.TabStop = .T., ;
+ Command1.Tag = "", ;
+ Command1.TerminateRead = .F., ;
+ Command1.Themes = .T., ;
+ Command1.ToolTipText = "", ;
+ Command1.Top = 4, ;
+ Command1.Visible = .T., ;
+ Command1.WhatsThisHelpID = -1, ;
+ Command1.Width = 200, ;
+ Command1.WordWrap = .F., ;
+ Command2.Alignment = 2, ;
+ Command2.Anchor = 0, ;
+ Command2.AutoSize = .F., ;
+ Command2.BackColor = 128,255,128, ;
+ Command2.Cancel = .F., ;
+ Command2.Caption = "Este es el botón de comando 2", ;
+ Command2.ColorScheme = 1, ;
+ Command2.ColorSource = 4, ;
+ Command2.Comment = "", ;
+ Command2.Default = .F., ;
+ Command2.DisabledBackColor = 0,128,192, ;
+ Command2.DisabledForeColor = 128,0,255, ;
+ Command2.DisabledPicture = bmps\treeview.bmp, ;
+ Command2.DownPicture = ..\..\, ;
+ Command2.DragIcon = ..\..\, ;
+ Command2.DragMode = 0, ;
+ Command2.Enabled = .F., ;
+ Command2.FontBold = .F., ;
+ Command2.FontCharSet = 0, ;
+ Command2.FontCondense = .F., ;
+ Command2.FontExtend = .F., ;
+ Command2.FontItalic = .F., ;
+ Command2.FontName = "Arial", ;
+ Command2.FontOutline = .F., ;
+ Command2.FontShadow = .F., ;
+ Command2.FontSize = 8, ;
+ Command2.FontStrikethru = .F., ;
+ Command2.FontUnderline = .F., ;
+ Command2.ForeColor = 0,0,0, ;
+ Command2.Height = 21, ;
+ Command2.HelpContextID = 0, ;
+ Command2.Left = 4, ;
+ Command2.MouseIcon = ..\..\, ;
+ Command2.MousePointer = 0, ;
+ Command2.Name = "Command2", ;
+ Command2.OLEDragMode = 0, ;
+ Command2.OLEDragPicture = ..\..\, ;
+ Command2.OLEDropEffects = 3, ;
+ Command2.OLEDropMode = 0, ;
+ Command2.Picture = bmps\sobrepostal.bmp, ;
+ Command2.PictureMargin = 0, ;
+ Command2.PicturePosition = 4, ;
+ Command2.PictureSpacing = 0, ;
+ Command2.RightToLeft = .F., ;
+ Command2.SpecialEffect = 0, ;
+ Command2.StatusBarText = "", ;
+ Command2.Style = 0, ;
+ Command2.TabStop = .T., ;
+ Command2.Tag = "", ;
+ Command2.TerminateRead = .F., ;
+ Command2.Themes = .T., ;
+ Command2.ToolTipText = "", ;
+ Command2.Top = 28, ;
+ Command2.Visible = .T., ;
+ Command2.WhatsThisHelpID = -1, ;
+ Command2.Width = 200, ;
+ Command2.WordWrap = .F., ;
+ Command3.Alignment = 2, ;
+ Command3.Anchor = 0, ;
+ Command3.AutoSize = .F., ;
+ Command3.BackColor = 128,255,128, ;
+ Command3.Cancel = .F., ;
+ Command3.Caption = "Este es el botón de comando 3", ;
+ Command3.ColorScheme = 1, ;
+ Command3.ColorSource = 4, ;
+ Command3.Comment = "", ;
+ Command3.Default = .F., ;
+ Command3.DisabledBackColor = 0,128,192, ;
+ Command3.DisabledForeColor = 128,0,255, ;
+ Command3.DisabledPicture = bmps\treeview.bmp, ;
+ Command3.DownPicture = ..\..\, ;
+ Command3.DragIcon = ..\..\, ;
+ Command3.DragMode = 0, ;
+ Command3.Enabled = .T., ;
+ Command3.FontBold = .F., ;
+ Command3.FontCharSet = 0, ;
+ Command3.FontCondense = .F., ;
+ Command3.FontExtend = .F., ;
+ Command3.FontItalic = .F., ;
+ Command3.FontName = "Arial", ;
+ Command3.FontOutline = .F., ;
+ Command3.FontShadow = .F., ;
+ Command3.FontSize = 8, ;
+ Command3.FontStrikethru = .F., ;
+ Command3.FontUnderline = .F., ;
+ Command3.ForeColor = 0,0,0, ;
+ Command3.Height = 21, ;
+ Command3.HelpContextID = 0, ;
+ Command3.Left = 4, ;
+ Command3.MouseIcon = ..\..\, ;
+ Command3.MousePointer = 0, ;
+ Command3.Name = "Command3", ;
+ Command3.OLEDragMode = 0, ;
+ Command3.OLEDragPicture = ..\..\, ;
+ Command3.OLEDropEffects = 3, ;
+ Command3.OLEDropMode = 0, ;
+ Command3.Picture = bmps\sobrepostal.bmp, ;
+ Command3.PictureMargin = 0, ;
+ Command3.PicturePosition = 4, ;
+ Command3.PictureSpacing = 0, ;
+ Command3.RightToLeft = .F., ;
+ Command3.SpecialEffect = 0, ;
+ Command3.StatusBarText = "", ;
+ Command3.Style = 0, ;
+ Command3.TabStop = .T., ;
+ Command3.Tag = "", ;
+ Command3.TerminateRead = .F., ;
+ Command3.Themes = .T., ;
+ Command3.ToolTipText = "", ;
+ Command3.Top = 52, ;
+ Command3.Visible = .T., ;
+ Command3.WhatsThisHelpID = -1, ;
+ Command3.Width = 200, ;
+ Command3.WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
+
+ ADD OBJECT 'Pageframe1.Page1.Commandgroup1' AS commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 255,128,0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 11, ;
+ MemberClass = "cl_commandbutton", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Commandgroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 228, ;
+ Cl_commandbutton1.Alignment = 2, ;
+ Cl_commandbutton1.Anchor = 0, ;
+ Cl_commandbutton1.AutoSize = .F., ;
+ Cl_commandbutton1.BackColor = 128,255,128, ;
+ Cl_commandbutton1.Cancel = .F., ;
+ Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
+ Cl_commandbutton1.ColorScheme = 1, ;
+ Cl_commandbutton1.ColorSource = 4, ;
+ Cl_commandbutton1.Comment = "", ;
+ Cl_commandbutton1.Default = .F., ;
+ Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton1.DownPicture = ..\..\, ;
+ Cl_commandbutton1.DragIcon = ..\..\, ;
+ Cl_commandbutton1.DragMode = 0, ;
+ Cl_commandbutton1.Enabled = .T., ;
+ Cl_commandbutton1.FontBold = .F., ;
+ Cl_commandbutton1.FontCharSet = 0, ;
+ Cl_commandbutton1.FontCondense = .F., ;
+ Cl_commandbutton1.FontExtend = .F., ;
+ Cl_commandbutton1.FontItalic = .F., ;
+ Cl_commandbutton1.FontName = "Arial", ;
+ Cl_commandbutton1.FontOutline = .F., ;
+ Cl_commandbutton1.FontShadow = .F., ;
+ Cl_commandbutton1.FontSize = 8, ;
+ Cl_commandbutton1.FontStrikethru = .F., ;
+ Cl_commandbutton1.FontUnderline = .F., ;
+ Cl_commandbutton1.Height = 21, ;
+ Cl_commandbutton1.HelpContextID = 0, ;
+ Cl_commandbutton1.Left = 8, ;
+ Cl_commandbutton1.MouseIcon = ..\..\, ;
+ Cl_commandbutton1.MousePointer = 0, ;
+ Cl_commandbutton1.Name = "Cl_commandbutton1", ;
+ Cl_commandbutton1.OLEDragMode = 0, ;
+ Cl_commandbutton1.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton1.OLEDropEffects = 3, ;
+ Cl_commandbutton1.OLEDropMode = 0, ;
+ Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton1.PictureMargin = 0, ;
+ Cl_commandbutton1.PicturePosition = 4, ;
+ Cl_commandbutton1.PictureSpacing = 0, ;
+ Cl_commandbutton1.RightToLeft = .F., ;
+ Cl_commandbutton1.SpecialEffect = 0, ;
+ Cl_commandbutton1.StatusBarText = "", ;
+ Cl_commandbutton1.Style = 0, ;
+ Cl_commandbutton1.TabStop = .T., ;
+ Cl_commandbutton1.Tag = "", ;
+ Cl_commandbutton1.TerminateRead = .F., ;
+ Cl_commandbutton1.Themes = .T., ;
+ Cl_commandbutton1.ToolTipText = "", ;
+ Cl_commandbutton1.Top = 4, ;
+ Cl_commandbutton1.Visible = .T., ;
+ Cl_commandbutton1.WhatsThisHelpID = -1, ;
+ Cl_commandbutton1.Width = 200, ;
+ Cl_commandbutton1.WordWrap = .F., ;
+ Cl_commandbutton2.Alignment = 2, ;
+ Cl_commandbutton2.Anchor = 0, ;
+ Cl_commandbutton2.AutoSize = .F., ;
+ Cl_commandbutton2.BackColor = 128,255,128, ;
+ Cl_commandbutton2.Cancel = .F., ;
+ Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
+ Cl_commandbutton2.ColorScheme = 1, ;
+ Cl_commandbutton2.ColorSource = 4, ;
+ Cl_commandbutton2.Comment = "", ;
+ Cl_commandbutton2.Default = .F., ;
+ Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton2.DownPicture = ..\..\, ;
+ Cl_commandbutton2.DragIcon = ..\..\, ;
+ Cl_commandbutton2.DragMode = 0, ;
+ Cl_commandbutton2.Enabled = .F., ;
+ Cl_commandbutton2.FontBold = .F., ;
+ Cl_commandbutton2.FontCharSet = 0, ;
+ Cl_commandbutton2.FontCondense = .F., ;
+ Cl_commandbutton2.FontExtend = .F., ;
+ Cl_commandbutton2.FontItalic = .F., ;
+ Cl_commandbutton2.FontName = "Arial", ;
+ Cl_commandbutton2.FontOutline = .F., ;
+ Cl_commandbutton2.FontShadow = .F., ;
+ Cl_commandbutton2.FontSize = 8, ;
+ Cl_commandbutton2.FontStrikethru = .F., ;
+ Cl_commandbutton2.FontUnderline = .F., ;
+ Cl_commandbutton2.Height = 21, ;
+ Cl_commandbutton2.HelpContextID = 0, ;
+ Cl_commandbutton2.Left = 8, ;
+ Cl_commandbutton2.MouseIcon = ..\..\, ;
+ Cl_commandbutton2.MousePointer = 0, ;
+ Cl_commandbutton2.Name = "Cl_commandbutton2", ;
+ Cl_commandbutton2.OLEDragMode = 0, ;
+ Cl_commandbutton2.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton2.OLEDropEffects = 3, ;
+ Cl_commandbutton2.OLEDropMode = 0, ;
+ Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton2.PictureMargin = 0, ;
+ Cl_commandbutton2.PicturePosition = 4, ;
+ Cl_commandbutton2.PictureSpacing = 0, ;
+ Cl_commandbutton2.RightToLeft = .F., ;
+ Cl_commandbutton2.SpecialEffect = 0, ;
+ Cl_commandbutton2.StatusBarText = "", ;
+ Cl_commandbutton2.Style = 0, ;
+ Cl_commandbutton2.TabStop = .T., ;
+ Cl_commandbutton2.Tag = "", ;
+ Cl_commandbutton2.TerminateRead = .F., ;
+ Cl_commandbutton2.Themes = .T., ;
+ Cl_commandbutton2.ToolTipText = "", ;
+ Cl_commandbutton2.Top = 28, ;
+ Cl_commandbutton2.Visible = .T., ;
+ Cl_commandbutton2.WhatsThisHelpID = -1, ;
+ Cl_commandbutton2.Width = 200, ;
+ Cl_commandbutton2.WordWrap = .F., ;
+ Cl_commandbutton3.Alignment = 2, ;
+ Cl_commandbutton3.Anchor = 0, ;
+ Cl_commandbutton3.AutoSize = .F., ;
+ Cl_commandbutton3.BackColor = 128,255,128, ;
+ Cl_commandbutton3.Cancel = .F., ;
+ Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
+ Cl_commandbutton3.ColorScheme = 1, ;
+ Cl_commandbutton3.ColorSource = 4, ;
+ Cl_commandbutton3.Comment = "", ;
+ Cl_commandbutton3.Default = .F., ;
+ Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
+ Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
+ Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_commandbutton3.DownPicture = ..\..\, ;
+ Cl_commandbutton3.DragIcon = ..\..\, ;
+ Cl_commandbutton3.DragMode = 0, ;
+ Cl_commandbutton3.Enabled = .T., ;
+ Cl_commandbutton3.FontBold = .F., ;
+ Cl_commandbutton3.FontCharSet = 0, ;
+ Cl_commandbutton3.FontCondense = .F., ;
+ Cl_commandbutton3.FontExtend = .F., ;
+ Cl_commandbutton3.FontItalic = .F., ;
+ Cl_commandbutton3.FontName = "Arial", ;
+ Cl_commandbutton3.FontOutline = .F., ;
+ Cl_commandbutton3.FontShadow = .F., ;
+ Cl_commandbutton3.FontSize = 8, ;
+ Cl_commandbutton3.FontStrikethru = .F., ;
+ Cl_commandbutton3.FontUnderline = .F., ;
+ Cl_commandbutton3.Height = 21, ;
+ Cl_commandbutton3.HelpContextID = 0, ;
+ Cl_commandbutton3.Left = 8, ;
+ Cl_commandbutton3.MouseIcon = ..\..\, ;
+ Cl_commandbutton3.MousePointer = 0, ;
+ Cl_commandbutton3.Name = "Cl_commandbutton3", ;
+ Cl_commandbutton3.OLEDragMode = 0, ;
+ Cl_commandbutton3.OLEDragPicture = ..\..\, ;
+ Cl_commandbutton3.OLEDropEffects = 3, ;
+ Cl_commandbutton3.OLEDropMode = 0, ;
+ Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_commandbutton3.PictureMargin = 0, ;
+ Cl_commandbutton3.PicturePosition = 4, ;
+ Cl_commandbutton3.PictureSpacing = 0, ;
+ Cl_commandbutton3.RightToLeft = .F., ;
+ Cl_commandbutton3.SpecialEffect = 0, ;
+ Cl_commandbutton3.StatusBarText = "", ;
+ Cl_commandbutton3.Style = 0, ;
+ Cl_commandbutton3.TabStop = .T., ;
+ Cl_commandbutton3.Tag = "", ;
+ Cl_commandbutton3.TerminateRead = .F., ;
+ Cl_commandbutton3.Themes = .T., ;
+ Cl_commandbutton3.ToolTipText = "", ;
+ Cl_commandbutton3.Top = 52, ;
+ Cl_commandbutton3.Visible = .T., ;
+ Cl_commandbutton3.WhatsThisHelpID = -1, ;
+ Cl_commandbutton3.Width = 200, ;
+ Cl_commandbutton3.WordWrap = .F.
+ *< END OBJECT: BaseClass="commandgroup" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_commandgroup.sc2 b/TESTS/DATOS_READONLY/f_commandgroup.sc2
index 2beba0f..05d28f5 100644
--- a/TESTS/DATOS_READONLY/f_commandgroup.sc2
+++ b/TESTS/DATOS_READONLY/f_commandgroup.sc2
@@ -4,1406 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_commandgroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Commandgroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_commandbutton1" UniqueID="" Timestamp="" />
-
- DoCreate = .T.
- Name = "F_base1"
- Edit1.Name = "Edit1"
- Edit1.Value = * En los OptionGroup subclasados, cuando el Option de la clase de base tiene Autosize=.T. y la instancia tiene Autosize=.F., ocurre esto:
- Los option normales deben mantener su longitud y apariencia nuevos
- Los option graficos deben mantener su longitud y apariencia, pero pierden en height (bug de VFP)
* En los OptionGroup normales, no hay problemas y se deben mantener igual siempre
* RECOMENDACIÓN: No usar Autosize=.T. en una clase de base
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "COMMANDGROUP NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "COMMANDGROUP SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_commandbutton1' AS cl_commandbutton WITH ;
- Alignment = 2, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- Caption = "Este es el boton 2", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (27), ;
- Left = (306), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_commandbutton1", ;
- OLEDragPicture = ..\..\, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureMargin = 0, ;
- PicturePosition = 4, ;
- PictureSpacing = 0, ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (392), ;
- Visible = .T., ;
- Width = (200), ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />
-
- ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 304, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_commandgroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 44, ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 228, ;
- Command1.Alignment = 2, ;
- Command1.Anchor = 0, ;
- Command1.AutoSize = .F., ;
- Command1.BackColor = 128,255,128, ;
- Command1.Cancel = .F., ;
- Command1.Caption = "Este es el botón de comando 1", ;
- Command1.ColorScheme = 1, ;
- Command1.ColorSource = 4, ;
- Command1.Comment = "", ;
- Command1.Default = .F., ;
- Command1.DisabledBackColor = 0,128,192, ;
- Command1.DisabledForeColor = 128,0,255, ;
- Command1.DisabledPicture = bmps\treeview.bmp, ;
- Command1.DownPicture = ..\..\, ;
- Command1.DragIcon = ..\..\, ;
- Command1.DragMode = 0, ;
- Command1.Enabled = .T., ;
- Command1.FontBold = .F., ;
- Command1.FontCharSet = 0, ;
- Command1.FontCondense = .F., ;
- Command1.FontExtend = .F., ;
- Command1.FontItalic = .F., ;
- Command1.FontName = "Arial", ;
- Command1.FontOutline = .F., ;
- Command1.FontShadow = .F., ;
- Command1.FontSize = 8, ;
- Command1.FontStrikethru = .F., ;
- Command1.FontUnderline = .F., ;
- Command1.ForeColor = 0,0,0, ;
- Command1.Height = 21, ;
- Command1.HelpContextID = 0, ;
- Command1.Left = 4, ;
- Command1.MouseIcon = ..\..\, ;
- Command1.MousePointer = 0, ;
- Command1.Name = "Command1", ;
- Command1.OLEDragMode = 0, ;
- Command1.OLEDragPicture = ..\..\, ;
- Command1.OLEDropEffects = 3, ;
- Command1.OLEDropMode = 0, ;
- Command1.Picture = bmps\sobrepostal.bmp, ;
- Command1.PictureMargin = 0, ;
- Command1.PicturePosition = 4, ;
- Command1.PictureSpacing = 0, ;
- Command1.RightToLeft = .F., ;
- Command1.SpecialEffect = 0, ;
- Command1.StatusBarText = "", ;
- Command1.Style = 0, ;
- Command1.TabStop = .T., ;
- Command1.Tag = "", ;
- Command1.TerminateRead = .F., ;
- Command1.Themes = .T., ;
- Command1.ToolTipText = "", ;
- Command1.Top = 4, ;
- Command1.Visible = .T., ;
- Command1.WhatsThisHelpID = -1, ;
- Command1.Width = 200, ;
- Command1.WordWrap = .F., ;
- Command2.Alignment = 2, ;
- Command2.Anchor = 0, ;
- Command2.AutoSize = .F., ;
- Command2.BackColor = 128,255,128, ;
- Command2.Cancel = .F., ;
- Command2.Caption = "Este es el botón de comando 2", ;
- Command2.ColorScheme = 1, ;
- Command2.ColorSource = 4, ;
- Command2.Comment = "", ;
- Command2.Default = .F., ;
- Command2.DisabledBackColor = 0,128,192, ;
- Command2.DisabledForeColor = 128,0,255, ;
- Command2.DisabledPicture = bmps\treeview.bmp, ;
- Command2.DownPicture = ..\..\, ;
- Command2.DragIcon = ..\..\, ;
- Command2.DragMode = 0, ;
- Command2.Enabled = .F., ;
- Command2.FontBold = .F., ;
- Command2.FontCharSet = 0, ;
- Command2.FontCondense = .F., ;
- Command2.FontExtend = .F., ;
- Command2.FontItalic = .F., ;
- Command2.FontName = "Arial", ;
- Command2.FontOutline = .F., ;
- Command2.FontShadow = .F., ;
- Command2.FontSize = 8, ;
- Command2.FontStrikethru = .F., ;
- Command2.FontUnderline = .F., ;
- Command2.ForeColor = 0,0,0, ;
- Command2.Height = 21, ;
- Command2.HelpContextID = 0, ;
- Command2.Left = 4, ;
- Command2.MouseIcon = ..\..\, ;
- Command2.MousePointer = 0, ;
- Command2.Name = "Command2", ;
- Command2.OLEDragMode = 0, ;
- Command2.OLEDragPicture = ..\..\, ;
- Command2.OLEDropEffects = 3, ;
- Command2.OLEDropMode = 0, ;
- Command2.Picture = bmps\sobrepostal.bmp, ;
- Command2.PictureMargin = 0, ;
- Command2.PicturePosition = 4, ;
- Command2.PictureSpacing = 0, ;
- Command2.RightToLeft = .F., ;
- Command2.SpecialEffect = 0, ;
- Command2.StatusBarText = "", ;
- Command2.Style = 0, ;
- Command2.TabStop = .T., ;
- Command2.Tag = "", ;
- Command2.TerminateRead = .F., ;
- Command2.Themes = .T., ;
- Command2.ToolTipText = "", ;
- Command2.Top = 28, ;
- Command2.Visible = .T., ;
- Command2.WhatsThisHelpID = -1, ;
- Command2.Width = 200, ;
- Command2.WordWrap = .F., ;
- Command3.Alignment = 2, ;
- Command3.Anchor = 0, ;
- Command3.AutoSize = .F., ;
- Command3.BackColor = 128,255,128, ;
- Command3.Cancel = .F., ;
- Command3.Caption = "Este es el botón de comando 3", ;
- Command3.ColorScheme = 1, ;
- Command3.ColorSource = 4, ;
- Command3.Comment = "", ;
- Command3.Default = .F., ;
- Command3.DisabledBackColor = 0,128,192, ;
- Command3.DisabledForeColor = 128,0,255, ;
- Command3.DisabledPicture = bmps\treeview.bmp, ;
- Command3.DownPicture = ..\..\, ;
- Command3.DragIcon = ..\..\, ;
- Command3.DragMode = 0, ;
- Command3.Enabled = .T., ;
- Command3.FontBold = .F., ;
- Command3.FontCharSet = 0, ;
- Command3.FontCondense = .F., ;
- Command3.FontExtend = .F., ;
- Command3.FontItalic = .F., ;
- Command3.FontName = "Arial", ;
- Command3.FontOutline = .F., ;
- Command3.FontShadow = .F., ;
- Command3.FontSize = 8, ;
- Command3.FontStrikethru = .F., ;
- Command3.FontUnderline = .F., ;
- Command3.ForeColor = 0,0,0, ;
- Command3.Height = 21, ;
- Command3.HelpContextID = 0, ;
- Command3.Left = 4, ;
- Command3.MouseIcon = ..\..\, ;
- Command3.MousePointer = 0, ;
- Command3.Name = "Command3", ;
- Command3.OLEDragMode = 0, ;
- Command3.OLEDragPicture = ..\..\, ;
- Command3.OLEDropEffects = 3, ;
- Command3.OLEDropMode = 0, ;
- Command3.Picture = bmps\sobrepostal.bmp, ;
- Command3.PictureMargin = 0, ;
- Command3.PicturePosition = 4, ;
- Command3.PictureSpacing = 0, ;
- Command3.RightToLeft = .F., ;
- Command3.SpecialEffect = 0, ;
- Command3.StatusBarText = "", ;
- Command3.Style = 0, ;
- Command3.TabStop = .T., ;
- Command3.Tag = "", ;
- Command3.TerminateRead = .F., ;
- Command3.Themes = .T., ;
- Command3.ToolTipText = "", ;
- Command3.Top = 52, ;
- Command3.Visible = .T., ;
- Command3.WhatsThisHelpID = -1, ;
- Command3.Width = 200, ;
- Command3.WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
-
- ADD OBJECT 'Command1' AS commandbutton WITH ;
- Alignment = 2, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- Cancel = .F., ;
- Caption = "Este es el boton 1", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Default = .F., ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (27), ;
- HelpContextID = 0, ;
- Left = (44), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Command1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureMargin = 0, ;
- PicturePosition = 4, ;
- PictureSpacing = 0, ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 10, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (392), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (200), ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="commandbutton" />
-
- ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (76), ;
- HelpContextID = 0, ;
- Left = (36), ;
- MemberClass = "cl_commandbutton", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Commandgroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (44), ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (228), ;
- Cl_commandbutton1.Alignment = 2, ;
- Cl_commandbutton1.Anchor = 0, ;
- Cl_commandbutton1.AutoSize = .F., ;
- Cl_commandbutton1.BackColor = 128,255,128, ;
- Cl_commandbutton1.Cancel = .F., ;
- Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
- Cl_commandbutton1.ColorScheme = 1, ;
- Cl_commandbutton1.ColorSource = 4, ;
- Cl_commandbutton1.Comment = "", ;
- Cl_commandbutton1.Default = .F., ;
- Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton1.DownPicture = ..\..\, ;
- Cl_commandbutton1.DragIcon = ..\..\, ;
- Cl_commandbutton1.DragMode = 0, ;
- Cl_commandbutton1.Enabled = .T., ;
- Cl_commandbutton1.FontBold = .F., ;
- Cl_commandbutton1.FontCharSet = 0, ;
- Cl_commandbutton1.FontCondense = .F., ;
- Cl_commandbutton1.FontExtend = .F., ;
- Cl_commandbutton1.FontItalic = .F., ;
- Cl_commandbutton1.FontName = "Arial", ;
- Cl_commandbutton1.FontOutline = .F., ;
- Cl_commandbutton1.FontShadow = .F., ;
- Cl_commandbutton1.FontSize = 8, ;
- Cl_commandbutton1.FontStrikethru = .F., ;
- Cl_commandbutton1.FontUnderline = .F., ;
- Cl_commandbutton1.Height = 21, ;
- Cl_commandbutton1.HelpContextID = 0, ;
- Cl_commandbutton1.Left = 8, ;
- Cl_commandbutton1.MouseIcon = ..\..\, ;
- Cl_commandbutton1.MousePointer = 0, ;
- Cl_commandbutton1.Name = "Cl_commandbutton1", ;
- Cl_commandbutton1.OLEDragMode = 0, ;
- Cl_commandbutton1.OLEDragPicture = ..\..\, ;
- Cl_commandbutton1.OLEDropEffects = 3, ;
- Cl_commandbutton1.OLEDropMode = 0, ;
- Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton1.PictureMargin = 0, ;
- Cl_commandbutton1.PicturePosition = 4, ;
- Cl_commandbutton1.PictureSpacing = 0, ;
- Cl_commandbutton1.RightToLeft = .F., ;
- Cl_commandbutton1.SpecialEffect = 0, ;
- Cl_commandbutton1.StatusBarText = "", ;
- Cl_commandbutton1.Style = 0, ;
- Cl_commandbutton1.TabStop = .T., ;
- Cl_commandbutton1.Tag = "", ;
- Cl_commandbutton1.TerminateRead = .F., ;
- Cl_commandbutton1.Themes = .T., ;
- Cl_commandbutton1.ToolTipText = "", ;
- Cl_commandbutton1.Top = 4, ;
- Cl_commandbutton1.Visible = .T., ;
- Cl_commandbutton1.WhatsThisHelpID = -1, ;
- Cl_commandbutton1.Width = 200, ;
- Cl_commandbutton1.WordWrap = .F., ;
- Cl_commandbutton2.Alignment = 2, ;
- Cl_commandbutton2.Anchor = 0, ;
- Cl_commandbutton2.AutoSize = .F., ;
- Cl_commandbutton2.BackColor = 128,255,128, ;
- Cl_commandbutton2.Cancel = .F., ;
- Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
- Cl_commandbutton2.ColorScheme = 1, ;
- Cl_commandbutton2.ColorSource = 4, ;
- Cl_commandbutton2.Comment = "", ;
- Cl_commandbutton2.Default = .F., ;
- Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton2.DownPicture = ..\..\, ;
- Cl_commandbutton2.DragIcon = ..\..\, ;
- Cl_commandbutton2.DragMode = 0, ;
- Cl_commandbutton2.Enabled = .F., ;
- Cl_commandbutton2.FontBold = .F., ;
- Cl_commandbutton2.FontCharSet = 0, ;
- Cl_commandbutton2.FontCondense = .F., ;
- Cl_commandbutton2.FontExtend = .F., ;
- Cl_commandbutton2.FontItalic = .F., ;
- Cl_commandbutton2.FontName = "Arial", ;
- Cl_commandbutton2.FontOutline = .F., ;
- Cl_commandbutton2.FontShadow = .F., ;
- Cl_commandbutton2.FontSize = 8, ;
- Cl_commandbutton2.FontStrikethru = .F., ;
- Cl_commandbutton2.FontUnderline = .F., ;
- Cl_commandbutton2.Height = 21, ;
- Cl_commandbutton2.HelpContextID = 0, ;
- Cl_commandbutton2.Left = 8, ;
- Cl_commandbutton2.MouseIcon = ..\..\, ;
- Cl_commandbutton2.MousePointer = 0, ;
- Cl_commandbutton2.Name = "Cl_commandbutton2", ;
- Cl_commandbutton2.OLEDragMode = 0, ;
- Cl_commandbutton2.OLEDragPicture = ..\..\, ;
- Cl_commandbutton2.OLEDropEffects = 3, ;
- Cl_commandbutton2.OLEDropMode = 0, ;
- Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton2.PictureMargin = 0, ;
- Cl_commandbutton2.PicturePosition = 4, ;
- Cl_commandbutton2.PictureSpacing = 0, ;
- Cl_commandbutton2.RightToLeft = .F., ;
- Cl_commandbutton2.SpecialEffect = 0, ;
- Cl_commandbutton2.StatusBarText = "", ;
- Cl_commandbutton2.Style = 0, ;
- Cl_commandbutton2.TabStop = .T., ;
- Cl_commandbutton2.Tag = "", ;
- Cl_commandbutton2.TerminateRead = .F., ;
- Cl_commandbutton2.Themes = .T., ;
- Cl_commandbutton2.ToolTipText = "", ;
- Cl_commandbutton2.Top = 28, ;
- Cl_commandbutton2.Visible = .T., ;
- Cl_commandbutton2.WhatsThisHelpID = -1, ;
- Cl_commandbutton2.Width = 200, ;
- Cl_commandbutton2.WordWrap = .F., ;
- Cl_commandbutton3.Alignment = 2, ;
- Cl_commandbutton3.Anchor = 0, ;
- Cl_commandbutton3.AutoSize = .F., ;
- Cl_commandbutton3.BackColor = 128,255,128, ;
- Cl_commandbutton3.Cancel = .F., ;
- Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
- Cl_commandbutton3.ColorScheme = 1, ;
- Cl_commandbutton3.ColorSource = 4, ;
- Cl_commandbutton3.Comment = "", ;
- Cl_commandbutton3.Default = .F., ;
- Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton3.DownPicture = ..\..\, ;
- Cl_commandbutton3.DragIcon = ..\..\, ;
- Cl_commandbutton3.DragMode = 0, ;
- Cl_commandbutton3.Enabled = .T., ;
- Cl_commandbutton3.FontBold = .F., ;
- Cl_commandbutton3.FontCharSet = 0, ;
- Cl_commandbutton3.FontCondense = .F., ;
- Cl_commandbutton3.FontExtend = .F., ;
- Cl_commandbutton3.FontItalic = .F., ;
- Cl_commandbutton3.FontName = "Arial", ;
- Cl_commandbutton3.FontOutline = .F., ;
- Cl_commandbutton3.FontShadow = .F., ;
- Cl_commandbutton3.FontSize = 8, ;
- Cl_commandbutton3.FontStrikethru = .F., ;
- Cl_commandbutton3.FontUnderline = .F., ;
- Cl_commandbutton3.Height = 21, ;
- Cl_commandbutton3.HelpContextID = 0, ;
- Cl_commandbutton3.Left = 8, ;
- Cl_commandbutton3.MouseIcon = ..\..\, ;
- Cl_commandbutton3.MousePointer = 0, ;
- Cl_commandbutton3.Name = "Cl_commandbutton3", ;
- Cl_commandbutton3.OLEDragMode = 0, ;
- Cl_commandbutton3.OLEDragPicture = ..\..\, ;
- Cl_commandbutton3.OLEDropEffects = 3, ;
- Cl_commandbutton3.OLEDropMode = 0, ;
- Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton3.PictureMargin = 0, ;
- Cl_commandbutton3.PicturePosition = 4, ;
- Cl_commandbutton3.PictureSpacing = 0, ;
- Cl_commandbutton3.RightToLeft = .F., ;
- Cl_commandbutton3.SpecialEffect = 0, ;
- Cl_commandbutton3.StatusBarText = "", ;
- Cl_commandbutton3.Style = 0, ;
- Cl_commandbutton3.TabStop = .T., ;
- Cl_commandbutton3.Tag = "", ;
- Cl_commandbutton3.TerminateRead = .F., ;
- Cl_commandbutton3.Themes = .T., ;
- Cl_commandbutton3.ToolTipText = "", ;
- Cl_commandbutton3.Top = 52, ;
- Cl_commandbutton3.Visible = .T., ;
- Cl_commandbutton3.WhatsThisHelpID = -1, ;
- Cl_commandbutton3.Width = 200, ;
- Cl_commandbutton3.WordWrap = .F.
- *< END OBJECT: BaseClass="commandgroup" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Height = 101, ;
- Left = 28, ;
- Name = "Container1", ;
- Top = 140, ;
- Width = 517
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Container1.Cl_commandgroup1' AS cl_commandgroup WITH ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 0, ;
- ButtonCount = 3, ;
- Enabled = .F., ;
- Height = 76, ;
- Left = 276, ;
- Name = "Cl_commandgroup1", ;
- Top = 12, ;
- Width = 228, ;
- Command1.Alignment = 2, ;
- Command1.Anchor = 0, ;
- Command1.AutoSize = .F., ;
- Command1.BackColor = 128,255,128, ;
- Command1.Cancel = .F., ;
- Command1.Caption = "Este es el botón de comando 1", ;
- Command1.ColorScheme = 1, ;
- Command1.ColorSource = 4, ;
- Command1.Comment = "", ;
- Command1.Default = .F., ;
- Command1.DisabledBackColor = 0,128,192, ;
- Command1.DisabledForeColor = 128,0,255, ;
- Command1.DisabledPicture = bmps\treeview.bmp, ;
- Command1.DownPicture = ..\..\, ;
- Command1.DragIcon = ..\..\, ;
- Command1.DragMode = 0, ;
- Command1.Enabled = .T., ;
- Command1.FontBold = .F., ;
- Command1.FontCharSet = 0, ;
- Command1.FontCondense = .F., ;
- Command1.FontExtend = .F., ;
- Command1.FontItalic = .F., ;
- Command1.FontName = "Arial", ;
- Command1.FontOutline = .F., ;
- Command1.FontShadow = .F., ;
- Command1.FontSize = 8, ;
- Command1.FontStrikethru = .F., ;
- Command1.FontUnderline = .F., ;
- Command1.ForeColor = 0,0,0, ;
- Command1.Height = 21, ;
- Command1.HelpContextID = 0, ;
- Command1.Left = 4, ;
- Command1.MouseIcon = ..\..\, ;
- Command1.MousePointer = 0, ;
- Command1.Name = "Command1", ;
- Command1.OLEDragMode = 0, ;
- Command1.OLEDragPicture = ..\..\, ;
- Command1.OLEDropEffects = 3, ;
- Command1.OLEDropMode = 0, ;
- Command1.Picture = bmps\sobrepostal.bmp, ;
- Command1.PictureMargin = 0, ;
- Command1.PicturePosition = 4, ;
- Command1.PictureSpacing = 0, ;
- Command1.RightToLeft = .F., ;
- Command1.SpecialEffect = 0, ;
- Command1.StatusBarText = "", ;
- Command1.Style = 0, ;
- Command1.TabStop = .T., ;
- Command1.Tag = "", ;
- Command1.TerminateRead = .F., ;
- Command1.Themes = .T., ;
- Command1.ToolTipText = "", ;
- Command1.Top = 4, ;
- Command1.Visible = .T., ;
- Command1.WhatsThisHelpID = -1, ;
- Command1.Width = 200, ;
- Command1.WordWrap = .F., ;
- Command2.Alignment = 2, ;
- Command2.Anchor = 0, ;
- Command2.AutoSize = .F., ;
- Command2.BackColor = 128,255,128, ;
- Command2.Cancel = .F., ;
- Command2.Caption = "Este es el botón de comando 2", ;
- Command2.ColorScheme = 1, ;
- Command2.ColorSource = 4, ;
- Command2.Comment = "", ;
- Command2.Default = .F., ;
- Command2.DisabledBackColor = 0,128,192, ;
- Command2.DisabledForeColor = 128,0,255, ;
- Command2.DisabledPicture = bmps\treeview.bmp, ;
- Command2.DownPicture = ..\..\, ;
- Command2.DragIcon = ..\..\, ;
- Command2.DragMode = 0, ;
- Command2.Enabled = .F., ;
- Command2.FontBold = .F., ;
- Command2.FontCharSet = 0, ;
- Command2.FontCondense = .F., ;
- Command2.FontExtend = .F., ;
- Command2.FontItalic = .F., ;
- Command2.FontName = "Arial", ;
- Command2.FontOutline = .F., ;
- Command2.FontShadow = .F., ;
- Command2.FontSize = 8, ;
- Command2.FontStrikethru = .F., ;
- Command2.FontUnderline = .F., ;
- Command2.ForeColor = 0,0,0, ;
- Command2.Height = 21, ;
- Command2.HelpContextID = 0, ;
- Command2.Left = 4, ;
- Command2.MouseIcon = ..\..\, ;
- Command2.MousePointer = 0, ;
- Command2.Name = "Command2", ;
- Command2.OLEDragMode = 0, ;
- Command2.OLEDragPicture = ..\..\, ;
- Command2.OLEDropEffects = 3, ;
- Command2.OLEDropMode = 0, ;
- Command2.Picture = bmps\sobrepostal.bmp, ;
- Command2.PictureMargin = 0, ;
- Command2.PicturePosition = 4, ;
- Command2.PictureSpacing = 0, ;
- Command2.RightToLeft = .F., ;
- Command2.SpecialEffect = 0, ;
- Command2.StatusBarText = "", ;
- Command2.Style = 0, ;
- Command2.TabStop = .T., ;
- Command2.Tag = "", ;
- Command2.TerminateRead = .F., ;
- Command2.Themes = .T., ;
- Command2.ToolTipText = "", ;
- Command2.Top = 28, ;
- Command2.Visible = .T., ;
- Command2.WhatsThisHelpID = -1, ;
- Command2.Width = 200, ;
- Command2.WordWrap = .F., ;
- Command3.Alignment = 2, ;
- Command3.Anchor = 0, ;
- Command3.AutoSize = .F., ;
- Command3.BackColor = 128,255,128, ;
- Command3.Cancel = .F., ;
- Command3.Caption = "Este es el botón de comando 3", ;
- Command3.ColorScheme = 1, ;
- Command3.ColorSource = 4, ;
- Command3.Comment = "", ;
- Command3.Default = .F., ;
- Command3.DisabledBackColor = 0,128,192, ;
- Command3.DisabledForeColor = 128,0,255, ;
- Command3.DisabledPicture = bmps\treeview.bmp, ;
- Command3.DownPicture = ..\..\, ;
- Command3.DragIcon = ..\..\, ;
- Command3.DragMode = 0, ;
- Command3.Enabled = .T., ;
- Command3.FontBold = .F., ;
- Command3.FontCharSet = 0, ;
- Command3.FontCondense = .F., ;
- Command3.FontExtend = .F., ;
- Command3.FontItalic = .F., ;
- Command3.FontName = "Arial", ;
- Command3.FontOutline = .F., ;
- Command3.FontShadow = .F., ;
- Command3.FontSize = 8, ;
- Command3.FontStrikethru = .F., ;
- Command3.FontUnderline = .F., ;
- Command3.ForeColor = 0,0,0, ;
- Command3.Height = 21, ;
- Command3.HelpContextID = 0, ;
- Command3.Left = 4, ;
- Command3.MouseIcon = ..\..\, ;
- Command3.MousePointer = 0, ;
- Command3.Name = "Command3", ;
- Command3.OLEDragMode = 0, ;
- Command3.OLEDragPicture = ..\..\, ;
- Command3.OLEDropEffects = 3, ;
- Command3.OLEDropMode = 0, ;
- Command3.Picture = bmps\sobrepostal.bmp, ;
- Command3.PictureMargin = 0, ;
- Command3.PicturePosition = 4, ;
- Command3.PictureSpacing = 0, ;
- Command3.RightToLeft = .F., ;
- Command3.SpecialEffect = 0, ;
- Command3.StatusBarText = "", ;
- Command3.Style = 0, ;
- Command3.TabStop = .T., ;
- Command3.Tag = "", ;
- Command3.TerminateRead = .F., ;
- Command3.Themes = .T., ;
- Command3.ToolTipText = "", ;
- Command3.Top = 52, ;
- Command3.Visible = .T., ;
- Command3.WhatsThisHelpID = -1, ;
- Command3.Width = 200, ;
- Command3.WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
-
- ADD OBJECT 'Container1.Commandgroup1' AS commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 8, ;
- MemberClass = "cl_commandbutton", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Commandgroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 12, ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 228, ;
- Cl_commandbutton1.Alignment = 2, ;
- Cl_commandbutton1.Anchor = 0, ;
- Cl_commandbutton1.AutoSize = .F., ;
- Cl_commandbutton1.BackColor = 128,255,128, ;
- Cl_commandbutton1.Cancel = .F., ;
- Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
- Cl_commandbutton1.ColorScheme = 1, ;
- Cl_commandbutton1.ColorSource = 4, ;
- Cl_commandbutton1.Comment = "", ;
- Cl_commandbutton1.Default = .F., ;
- Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton1.DownPicture = ..\..\, ;
- Cl_commandbutton1.DragIcon = ..\..\, ;
- Cl_commandbutton1.DragMode = 0, ;
- Cl_commandbutton1.Enabled = .T., ;
- Cl_commandbutton1.FontBold = .F., ;
- Cl_commandbutton1.FontCharSet = 0, ;
- Cl_commandbutton1.FontCondense = .F., ;
- Cl_commandbutton1.FontExtend = .F., ;
- Cl_commandbutton1.FontItalic = .F., ;
- Cl_commandbutton1.FontName = "Arial", ;
- Cl_commandbutton1.FontOutline = .F., ;
- Cl_commandbutton1.FontShadow = .F., ;
- Cl_commandbutton1.FontSize = 8, ;
- Cl_commandbutton1.FontStrikethru = .F., ;
- Cl_commandbutton1.FontUnderline = .F., ;
- Cl_commandbutton1.Height = 21, ;
- Cl_commandbutton1.HelpContextID = 0, ;
- Cl_commandbutton1.Left = 8, ;
- Cl_commandbutton1.MouseIcon = ..\..\, ;
- Cl_commandbutton1.MousePointer = 0, ;
- Cl_commandbutton1.Name = "Cl_commandbutton1", ;
- Cl_commandbutton1.OLEDragMode = 0, ;
- Cl_commandbutton1.OLEDragPicture = ..\..\, ;
- Cl_commandbutton1.OLEDropEffects = 3, ;
- Cl_commandbutton1.OLEDropMode = 0, ;
- Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton1.PictureMargin = 0, ;
- Cl_commandbutton1.PicturePosition = 4, ;
- Cl_commandbutton1.PictureSpacing = 0, ;
- Cl_commandbutton1.RightToLeft = .F., ;
- Cl_commandbutton1.SpecialEffect = 0, ;
- Cl_commandbutton1.StatusBarText = "", ;
- Cl_commandbutton1.Style = 0, ;
- Cl_commandbutton1.TabStop = .T., ;
- Cl_commandbutton1.Tag = "", ;
- Cl_commandbutton1.TerminateRead = .F., ;
- Cl_commandbutton1.Themes = .T., ;
- Cl_commandbutton1.ToolTipText = "", ;
- Cl_commandbutton1.Top = 4, ;
- Cl_commandbutton1.Visible = .T., ;
- Cl_commandbutton1.WhatsThisHelpID = -1, ;
- Cl_commandbutton1.Width = 200, ;
- Cl_commandbutton1.WordWrap = .F., ;
- Cl_commandbutton2.Alignment = 2, ;
- Cl_commandbutton2.Anchor = 0, ;
- Cl_commandbutton2.AutoSize = .F., ;
- Cl_commandbutton2.BackColor = 128,255,128, ;
- Cl_commandbutton2.Cancel = .F., ;
- Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
- Cl_commandbutton2.ColorScheme = 1, ;
- Cl_commandbutton2.ColorSource = 4, ;
- Cl_commandbutton2.Comment = "", ;
- Cl_commandbutton2.Default = .F., ;
- Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton2.DownPicture = ..\..\, ;
- Cl_commandbutton2.DragIcon = ..\..\, ;
- Cl_commandbutton2.DragMode = 0, ;
- Cl_commandbutton2.Enabled = .F., ;
- Cl_commandbutton2.FontBold = .F., ;
- Cl_commandbutton2.FontCharSet = 0, ;
- Cl_commandbutton2.FontCondense = .F., ;
- Cl_commandbutton2.FontExtend = .F., ;
- Cl_commandbutton2.FontItalic = .F., ;
- Cl_commandbutton2.FontName = "Arial", ;
- Cl_commandbutton2.FontOutline = .F., ;
- Cl_commandbutton2.FontShadow = .F., ;
- Cl_commandbutton2.FontSize = 8, ;
- Cl_commandbutton2.FontStrikethru = .F., ;
- Cl_commandbutton2.FontUnderline = .F., ;
- Cl_commandbutton2.Height = 21, ;
- Cl_commandbutton2.HelpContextID = 0, ;
- Cl_commandbutton2.Left = 8, ;
- Cl_commandbutton2.MouseIcon = ..\..\, ;
- Cl_commandbutton2.MousePointer = 0, ;
- Cl_commandbutton2.Name = "Cl_commandbutton2", ;
- Cl_commandbutton2.OLEDragMode = 0, ;
- Cl_commandbutton2.OLEDragPicture = ..\..\, ;
- Cl_commandbutton2.OLEDropEffects = 3, ;
- Cl_commandbutton2.OLEDropMode = 0, ;
- Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton2.PictureMargin = 0, ;
- Cl_commandbutton2.PicturePosition = 4, ;
- Cl_commandbutton2.PictureSpacing = 0, ;
- Cl_commandbutton2.RightToLeft = .F., ;
- Cl_commandbutton2.SpecialEffect = 0, ;
- Cl_commandbutton2.StatusBarText = "", ;
- Cl_commandbutton2.Style = 0, ;
- Cl_commandbutton2.TabStop = .T., ;
- Cl_commandbutton2.Tag = "", ;
- Cl_commandbutton2.TerminateRead = .F., ;
- Cl_commandbutton2.Themes = .T., ;
- Cl_commandbutton2.ToolTipText = "", ;
- Cl_commandbutton2.Top = 28, ;
- Cl_commandbutton2.Visible = .T., ;
- Cl_commandbutton2.WhatsThisHelpID = -1, ;
- Cl_commandbutton2.Width = 200, ;
- Cl_commandbutton2.WordWrap = .F., ;
- Cl_commandbutton3.Alignment = 2, ;
- Cl_commandbutton3.Anchor = 0, ;
- Cl_commandbutton3.AutoSize = .F., ;
- Cl_commandbutton3.BackColor = 128,255,128, ;
- Cl_commandbutton3.Cancel = .F., ;
- Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
- Cl_commandbutton3.ColorScheme = 1, ;
- Cl_commandbutton3.ColorSource = 4, ;
- Cl_commandbutton3.Comment = "", ;
- Cl_commandbutton3.Default = .F., ;
- Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton3.DownPicture = ..\..\, ;
- Cl_commandbutton3.DragIcon = ..\..\, ;
- Cl_commandbutton3.DragMode = 0, ;
- Cl_commandbutton3.Enabled = .T., ;
- Cl_commandbutton3.FontBold = .F., ;
- Cl_commandbutton3.FontCharSet = 0, ;
- Cl_commandbutton3.FontCondense = .F., ;
- Cl_commandbutton3.FontExtend = .F., ;
- Cl_commandbutton3.FontItalic = .F., ;
- Cl_commandbutton3.FontName = "Arial", ;
- Cl_commandbutton3.FontOutline = .F., ;
- Cl_commandbutton3.FontShadow = .F., ;
- Cl_commandbutton3.FontSize = 8, ;
- Cl_commandbutton3.FontStrikethru = .F., ;
- Cl_commandbutton3.FontUnderline = .F., ;
- Cl_commandbutton3.Height = 21, ;
- Cl_commandbutton3.HelpContextID = 0, ;
- Cl_commandbutton3.Left = 8, ;
- Cl_commandbutton3.MouseIcon = ..\..\, ;
- Cl_commandbutton3.MousePointer = 0, ;
- Cl_commandbutton3.Name = "Cl_commandbutton3", ;
- Cl_commandbutton3.OLEDragMode = 0, ;
- Cl_commandbutton3.OLEDragPicture = ..\..\, ;
- Cl_commandbutton3.OLEDropEffects = 3, ;
- Cl_commandbutton3.OLEDropMode = 0, ;
- Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton3.PictureMargin = 0, ;
- Cl_commandbutton3.PicturePosition = 4, ;
- Cl_commandbutton3.PictureSpacing = 0, ;
- Cl_commandbutton3.RightToLeft = .F., ;
- Cl_commandbutton3.SpecialEffect = 0, ;
- Cl_commandbutton3.StatusBarText = "", ;
- Cl_commandbutton3.Style = 0, ;
- Cl_commandbutton3.TabStop = .T., ;
- Cl_commandbutton3.Tag = "", ;
- Cl_commandbutton3.TerminateRead = .F., ;
- Cl_commandbutton3.Themes = .T., ;
- Cl_commandbutton3.ToolTipText = "", ;
- Cl_commandbutton3.Top = 52, ;
- Cl_commandbutton3.Visible = .T., ;
- Cl_commandbutton3.WhatsThisHelpID = -1, ;
- Cl_commandbutton3.Width = 200, ;
- Cl_commandbutton3.WordWrap = .F.
- *< END OBJECT: BaseClass="commandgroup" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 132, ;
- Left = 28, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- Top = 256, ;
- Width = 517, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_commandgroup1' AS cl_commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 275, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_commandgroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 8, ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 228, ;
- Command1.Alignment = 2, ;
- Command1.Anchor = 0, ;
- Command1.AutoSize = .F., ;
- Command1.BackColor = 128,255,128, ;
- Command1.Cancel = .F., ;
- Command1.Caption = "Este es el botón de comando 1", ;
- Command1.ColorScheme = 1, ;
- Command1.ColorSource = 4, ;
- Command1.Comment = "", ;
- Command1.Default = .F., ;
- Command1.DisabledBackColor = 0,128,192, ;
- Command1.DisabledForeColor = 128,0,255, ;
- Command1.DisabledPicture = bmps\treeview.bmp, ;
- Command1.DownPicture = ..\..\, ;
- Command1.DragIcon = ..\..\, ;
- Command1.DragMode = 0, ;
- Command1.Enabled = .T., ;
- Command1.FontBold = .F., ;
- Command1.FontCharSet = 0, ;
- Command1.FontCondense = .F., ;
- Command1.FontExtend = .F., ;
- Command1.FontItalic = .F., ;
- Command1.FontName = "Arial", ;
- Command1.FontOutline = .F., ;
- Command1.FontShadow = .F., ;
- Command1.FontSize = 8, ;
- Command1.FontStrikethru = .F., ;
- Command1.FontUnderline = .F., ;
- Command1.ForeColor = 0,0,0, ;
- Command1.Height = 21, ;
- Command1.HelpContextID = 0, ;
- Command1.Left = 4, ;
- Command1.MouseIcon = ..\..\, ;
- Command1.MousePointer = 0, ;
- Command1.Name = "Command1", ;
- Command1.OLEDragMode = 0, ;
- Command1.OLEDragPicture = ..\..\, ;
- Command1.OLEDropEffects = 3, ;
- Command1.OLEDropMode = 0, ;
- Command1.Picture = bmps\sobrepostal.bmp, ;
- Command1.PictureMargin = 0, ;
- Command1.PicturePosition = 4, ;
- Command1.PictureSpacing = 0, ;
- Command1.RightToLeft = .F., ;
- Command1.SpecialEffect = 0, ;
- Command1.StatusBarText = "", ;
- Command1.Style = 0, ;
- Command1.TabStop = .T., ;
- Command1.Tag = "", ;
- Command1.TerminateRead = .F., ;
- Command1.Themes = .T., ;
- Command1.ToolTipText = "", ;
- Command1.Top = 4, ;
- Command1.Visible = .T., ;
- Command1.WhatsThisHelpID = -1, ;
- Command1.Width = 200, ;
- Command1.WordWrap = .F., ;
- Command2.Alignment = 2, ;
- Command2.Anchor = 0, ;
- Command2.AutoSize = .F., ;
- Command2.BackColor = 128,255,128, ;
- Command2.Cancel = .F., ;
- Command2.Caption = "Este es el botón de comando 2", ;
- Command2.ColorScheme = 1, ;
- Command2.ColorSource = 4, ;
- Command2.Comment = "", ;
- Command2.Default = .F., ;
- Command2.DisabledBackColor = 0,128,192, ;
- Command2.DisabledForeColor = 128,0,255, ;
- Command2.DisabledPicture = bmps\treeview.bmp, ;
- Command2.DownPicture = ..\..\, ;
- Command2.DragIcon = ..\..\, ;
- Command2.DragMode = 0, ;
- Command2.Enabled = .F., ;
- Command2.FontBold = .F., ;
- Command2.FontCharSet = 0, ;
- Command2.FontCondense = .F., ;
- Command2.FontExtend = .F., ;
- Command2.FontItalic = .F., ;
- Command2.FontName = "Arial", ;
- Command2.FontOutline = .F., ;
- Command2.FontShadow = .F., ;
- Command2.FontSize = 8, ;
- Command2.FontStrikethru = .F., ;
- Command2.FontUnderline = .F., ;
- Command2.ForeColor = 0,0,0, ;
- Command2.Height = 21, ;
- Command2.HelpContextID = 0, ;
- Command2.Left = 4, ;
- Command2.MouseIcon = ..\..\, ;
- Command2.MousePointer = 0, ;
- Command2.Name = "Command2", ;
- Command2.OLEDragMode = 0, ;
- Command2.OLEDragPicture = ..\..\, ;
- Command2.OLEDropEffects = 3, ;
- Command2.OLEDropMode = 0, ;
- Command2.Picture = bmps\sobrepostal.bmp, ;
- Command2.PictureMargin = 0, ;
- Command2.PicturePosition = 4, ;
- Command2.PictureSpacing = 0, ;
- Command2.RightToLeft = .F., ;
- Command2.SpecialEffect = 0, ;
- Command2.StatusBarText = "", ;
- Command2.Style = 0, ;
- Command2.TabStop = .T., ;
- Command2.Tag = "", ;
- Command2.TerminateRead = .F., ;
- Command2.Themes = .T., ;
- Command2.ToolTipText = "", ;
- Command2.Top = 28, ;
- Command2.Visible = .T., ;
- Command2.WhatsThisHelpID = -1, ;
- Command2.Width = 200, ;
- Command2.WordWrap = .F., ;
- Command3.Alignment = 2, ;
- Command3.Anchor = 0, ;
- Command3.AutoSize = .F., ;
- Command3.BackColor = 128,255,128, ;
- Command3.Cancel = .F., ;
- Command3.Caption = "Este es el botón de comando 3", ;
- Command3.ColorScheme = 1, ;
- Command3.ColorSource = 4, ;
- Command3.Comment = "", ;
- Command3.Default = .F., ;
- Command3.DisabledBackColor = 0,128,192, ;
- Command3.DisabledForeColor = 128,0,255, ;
- Command3.DisabledPicture = bmps\treeview.bmp, ;
- Command3.DownPicture = ..\..\, ;
- Command3.DragIcon = ..\..\, ;
- Command3.DragMode = 0, ;
- Command3.Enabled = .T., ;
- Command3.FontBold = .F., ;
- Command3.FontCharSet = 0, ;
- Command3.FontCondense = .F., ;
- Command3.FontExtend = .F., ;
- Command3.FontItalic = .F., ;
- Command3.FontName = "Arial", ;
- Command3.FontOutline = .F., ;
- Command3.FontShadow = .F., ;
- Command3.FontSize = 8, ;
- Command3.FontStrikethru = .F., ;
- Command3.FontUnderline = .F., ;
- Command3.ForeColor = 0,0,0, ;
- Command3.Height = 21, ;
- Command3.HelpContextID = 0, ;
- Command3.Left = 4, ;
- Command3.MouseIcon = ..\..\, ;
- Command3.MousePointer = 0, ;
- Command3.Name = "Command3", ;
- Command3.OLEDragMode = 0, ;
- Command3.OLEDragPicture = ..\..\, ;
- Command3.OLEDropEffects = 3, ;
- Command3.OLEDropMode = 0, ;
- Command3.Picture = bmps\sobrepostal.bmp, ;
- Command3.PictureMargin = 0, ;
- Command3.PicturePosition = 4, ;
- Command3.PictureSpacing = 0, ;
- Command3.RightToLeft = .F., ;
- Command3.SpecialEffect = 0, ;
- Command3.StatusBarText = "", ;
- Command3.Style = 0, ;
- Command3.TabStop = .T., ;
- Command3.Tag = "", ;
- Command3.TerminateRead = .F., ;
- Command3.Themes = .T., ;
- Command3.ToolTipText = "", ;
- Command3.Top = 52, ;
- Command3.Visible = .T., ;
- Command3.WhatsThisHelpID = -1, ;
- Command3.Width = 200, ;
- Command3.WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
-
- ADD OBJECT 'Pageframe1.Page1.Commandgroup1' AS commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 255,128,0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 11, ;
- MemberClass = "cl_commandbutton", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Commandgroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 8, ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 228, ;
- Cl_commandbutton1.Alignment = 2, ;
- Cl_commandbutton1.Anchor = 0, ;
- Cl_commandbutton1.AutoSize = .F., ;
- Cl_commandbutton1.BackColor = 128,255,128, ;
- Cl_commandbutton1.Cancel = .F., ;
- Cl_commandbutton1.Caption = "Este es el botón de comando 1", ;
- Cl_commandbutton1.ColorScheme = 1, ;
- Cl_commandbutton1.ColorSource = 4, ;
- Cl_commandbutton1.Comment = "", ;
- Cl_commandbutton1.Default = .F., ;
- Cl_commandbutton1.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton1.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton1.DownPicture = ..\..\, ;
- Cl_commandbutton1.DragIcon = ..\..\, ;
- Cl_commandbutton1.DragMode = 0, ;
- Cl_commandbutton1.Enabled = .T., ;
- Cl_commandbutton1.FontBold = .F., ;
- Cl_commandbutton1.FontCharSet = 0, ;
- Cl_commandbutton1.FontCondense = .F., ;
- Cl_commandbutton1.FontExtend = .F., ;
- Cl_commandbutton1.FontItalic = .F., ;
- Cl_commandbutton1.FontName = "Arial", ;
- Cl_commandbutton1.FontOutline = .F., ;
- Cl_commandbutton1.FontShadow = .F., ;
- Cl_commandbutton1.FontSize = 8, ;
- Cl_commandbutton1.FontStrikethru = .F., ;
- Cl_commandbutton1.FontUnderline = .F., ;
- Cl_commandbutton1.Height = 21, ;
- Cl_commandbutton1.HelpContextID = 0, ;
- Cl_commandbutton1.Left = 8, ;
- Cl_commandbutton1.MouseIcon = ..\..\, ;
- Cl_commandbutton1.MousePointer = 0, ;
- Cl_commandbutton1.Name = "Cl_commandbutton1", ;
- Cl_commandbutton1.OLEDragMode = 0, ;
- Cl_commandbutton1.OLEDragPicture = ..\..\, ;
- Cl_commandbutton1.OLEDropEffects = 3, ;
- Cl_commandbutton1.OLEDropMode = 0, ;
- Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton1.PictureMargin = 0, ;
- Cl_commandbutton1.PicturePosition = 4, ;
- Cl_commandbutton1.PictureSpacing = 0, ;
- Cl_commandbutton1.RightToLeft = .F., ;
- Cl_commandbutton1.SpecialEffect = 0, ;
- Cl_commandbutton1.StatusBarText = "", ;
- Cl_commandbutton1.Style = 0, ;
- Cl_commandbutton1.TabStop = .T., ;
- Cl_commandbutton1.Tag = "", ;
- Cl_commandbutton1.TerminateRead = .F., ;
- Cl_commandbutton1.Themes = .T., ;
- Cl_commandbutton1.ToolTipText = "", ;
- Cl_commandbutton1.Top = 4, ;
- Cl_commandbutton1.Visible = .T., ;
- Cl_commandbutton1.WhatsThisHelpID = -1, ;
- Cl_commandbutton1.Width = 200, ;
- Cl_commandbutton1.WordWrap = .F., ;
- Cl_commandbutton2.Alignment = 2, ;
- Cl_commandbutton2.Anchor = 0, ;
- Cl_commandbutton2.AutoSize = .F., ;
- Cl_commandbutton2.BackColor = 128,255,128, ;
- Cl_commandbutton2.Cancel = .F., ;
- Cl_commandbutton2.Caption = "Este es el botón de comando 2", ;
- Cl_commandbutton2.ColorScheme = 1, ;
- Cl_commandbutton2.ColorSource = 4, ;
- Cl_commandbutton2.Comment = "", ;
- Cl_commandbutton2.Default = .F., ;
- Cl_commandbutton2.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton2.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton2.DownPicture = ..\..\, ;
- Cl_commandbutton2.DragIcon = ..\..\, ;
- Cl_commandbutton2.DragMode = 0, ;
- Cl_commandbutton2.Enabled = .F., ;
- Cl_commandbutton2.FontBold = .F., ;
- Cl_commandbutton2.FontCharSet = 0, ;
- Cl_commandbutton2.FontCondense = .F., ;
- Cl_commandbutton2.FontExtend = .F., ;
- Cl_commandbutton2.FontItalic = .F., ;
- Cl_commandbutton2.FontName = "Arial", ;
- Cl_commandbutton2.FontOutline = .F., ;
- Cl_commandbutton2.FontShadow = .F., ;
- Cl_commandbutton2.FontSize = 8, ;
- Cl_commandbutton2.FontStrikethru = .F., ;
- Cl_commandbutton2.FontUnderline = .F., ;
- Cl_commandbutton2.Height = 21, ;
- Cl_commandbutton2.HelpContextID = 0, ;
- Cl_commandbutton2.Left = 8, ;
- Cl_commandbutton2.MouseIcon = ..\..\, ;
- Cl_commandbutton2.MousePointer = 0, ;
- Cl_commandbutton2.Name = "Cl_commandbutton2", ;
- Cl_commandbutton2.OLEDragMode = 0, ;
- Cl_commandbutton2.OLEDragPicture = ..\..\, ;
- Cl_commandbutton2.OLEDropEffects = 3, ;
- Cl_commandbutton2.OLEDropMode = 0, ;
- Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton2.PictureMargin = 0, ;
- Cl_commandbutton2.PicturePosition = 4, ;
- Cl_commandbutton2.PictureSpacing = 0, ;
- Cl_commandbutton2.RightToLeft = .F., ;
- Cl_commandbutton2.SpecialEffect = 0, ;
- Cl_commandbutton2.StatusBarText = "", ;
- Cl_commandbutton2.Style = 0, ;
- Cl_commandbutton2.TabStop = .T., ;
- Cl_commandbutton2.Tag = "", ;
- Cl_commandbutton2.TerminateRead = .F., ;
- Cl_commandbutton2.Themes = .T., ;
- Cl_commandbutton2.ToolTipText = "", ;
- Cl_commandbutton2.Top = 28, ;
- Cl_commandbutton2.Visible = .T., ;
- Cl_commandbutton2.WhatsThisHelpID = -1, ;
- Cl_commandbutton2.Width = 200, ;
- Cl_commandbutton2.WordWrap = .F., ;
- Cl_commandbutton3.Alignment = 2, ;
- Cl_commandbutton3.Anchor = 0, ;
- Cl_commandbutton3.AutoSize = .F., ;
- Cl_commandbutton3.BackColor = 128,255,128, ;
- Cl_commandbutton3.Cancel = .F., ;
- Cl_commandbutton3.Caption = "Este es el botón de comando 3", ;
- Cl_commandbutton3.ColorScheme = 1, ;
- Cl_commandbutton3.ColorSource = 4, ;
- Cl_commandbutton3.Comment = "", ;
- Cl_commandbutton3.Default = .F., ;
- Cl_commandbutton3.DisabledBackColor = 0,128,192, ;
- Cl_commandbutton3.DisabledForeColor = 128,0,255, ;
- Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_commandbutton3.DownPicture = ..\..\, ;
- Cl_commandbutton3.DragIcon = ..\..\, ;
- Cl_commandbutton3.DragMode = 0, ;
- Cl_commandbutton3.Enabled = .T., ;
- Cl_commandbutton3.FontBold = .F., ;
- Cl_commandbutton3.FontCharSet = 0, ;
- Cl_commandbutton3.FontCondense = .F., ;
- Cl_commandbutton3.FontExtend = .F., ;
- Cl_commandbutton3.FontItalic = .F., ;
- Cl_commandbutton3.FontName = "Arial", ;
- Cl_commandbutton3.FontOutline = .F., ;
- Cl_commandbutton3.FontShadow = .F., ;
- Cl_commandbutton3.FontSize = 8, ;
- Cl_commandbutton3.FontStrikethru = .F., ;
- Cl_commandbutton3.FontUnderline = .F., ;
- Cl_commandbutton3.Height = 21, ;
- Cl_commandbutton3.HelpContextID = 0, ;
- Cl_commandbutton3.Left = 8, ;
- Cl_commandbutton3.MouseIcon = ..\..\, ;
- Cl_commandbutton3.MousePointer = 0, ;
- Cl_commandbutton3.Name = "Cl_commandbutton3", ;
- Cl_commandbutton3.OLEDragMode = 0, ;
- Cl_commandbutton3.OLEDragPicture = ..\..\, ;
- Cl_commandbutton3.OLEDropEffects = 3, ;
- Cl_commandbutton3.OLEDropMode = 0, ;
- Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ;
- Cl_commandbutton3.PictureMargin = 0, ;
- Cl_commandbutton3.PicturePosition = 4, ;
- Cl_commandbutton3.PictureSpacing = 0, ;
- Cl_commandbutton3.RightToLeft = .F., ;
- Cl_commandbutton3.SpecialEffect = 0, ;
- Cl_commandbutton3.StatusBarText = "", ;
- Cl_commandbutton3.Style = 0, ;
- Cl_commandbutton3.TabStop = .T., ;
- Cl_commandbutton3.Tag = "", ;
- Cl_commandbutton3.TerminateRead = .F., ;
- Cl_commandbutton3.Themes = .T., ;
- Cl_commandbutton3.ToolTipText = "", ;
- Cl_commandbutton3.Top = 52, ;
- Cl_commandbutton3.Visible = .T., ;
- Cl_commandbutton3.WhatsThisHelpID = -1, ;
- Cl_commandbutton3.Width = 200, ;
- Cl_commandbutton3.WordWrap = .F.
- *< END OBJECT: BaseClass="commandgroup" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_containers.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_containers.dataenvironment.sc2
new file mode 100644
index 0000000..d27a4fe
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_containers.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_containers.f_base1.sc2 b/TESTS/DATOS_READONLY/f_containers.f_base1.sc2
new file mode 100644
index 0000000..ce65c55
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_containers.f_base1.sc2
@@ -0,0 +1,327 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Oleboundcontrol1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_olebound1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_control1" UniqueID="" Timestamp="" />
+
+ *
+ DoCreate = .T.
+ Name = "F_base1"
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "CONTAINER NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "CONTAINER SUBCLASADO"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_container1' AS cl_container WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 255,255,0, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ForeColor = 0,0,0, ;
+ Height = 68, ;
+ HelpContextID = 0, ;
+ Left = 296, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_container1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\fondogris.bmp, ;
+ SpecialEffect = 2, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 36, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 244
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
+
+ ADD OBJECT 'Cl_control1' AS cl_control WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ForeColor = 0,0,0, ;
+ Height = (61), ;
+ HelpContextID = 0, ;
+ Left = (296), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_control1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ SpecialEffect = 2, ;
+ Style = 0, ;
+ TabIndex = 12, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (196), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (242)
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
+
+ ADD OBJECT 'Cl_olebound1' AS cl_olebound WITH ;
+ Anchor = 0, ;
+ AutoActivate = 2, ;
+ AutoSize = .F., ;
+ AutoVerbMenu = .T., ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 57, ;
+ HelpContextID = 0, ;
+ HostName = "", ;
+ Left = 296, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_olebound1", ;
+ Sizable = .T., ;
+ StatusBarText = "", ;
+ Stretch = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 120, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 244
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="oleboundcontrol" />
+
+ ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
+ ActivePage = 2, ;
+ Anchor = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ErasePage = .T., ;
+ Height = 116, ;
+ HelpContextID = 0, ;
+ Left = 300, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_pageframe1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PageCount = 3, ;
+ RightToLeft = .F., ;
+ StatusBarText = "", ;
+ TabOrientation = 0, ;
+ Tabs = .T., ;
+ TabStop = .T., ;
+ TabStretch = 1, ;
+ TabStyle = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 280, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 256, ;
+ Page1.Name = "Page1", ;
+ Page2.Name = "Page2", ;
+ Page3.Caption = "Page3", ;
+ Page3.Name = "Page3"
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 255,255,0, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ForeColor = 0,0,0, ;
+ Height = (68), ;
+ HelpContextID = 0, ;
+ Left = (28), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Container1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\fondogris.bmp, ;
+ SpecialEffect = 2, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (36), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (244)
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Oleboundcontrol1' AS oleboundcontrol WITH ;
+ Anchor = 0, ;
+ AutoActivate = 2, ;
+ AutoSize = .F., ;
+ AutoVerbMenu = .T., ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (57), ;
+ HelpContextID = 0, ;
+ HostName = "", ;
+ Left = (28), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Oleboundcontrol1", ;
+ Sizable = .T., ;
+ StatusBarText = "", ;
+ Stretch = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (120), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (244)
+ *< END OBJECT: BaseClass="oleboundcontrol" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ActivePage = 2, ;
+ Anchor = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ErasePage = .T., ;
+ Height = (117), ;
+ HelpContextID = 0, ;
+ Left = (24), ;
+ MemberClass = "cl_page", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Pageframe1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PageCount = 3, ;
+ RightToLeft = .F., ;
+ StatusBarText = "", ;
+ TabOrientation = 0, ;
+ Tabs = .T., ;
+ TabStop = .T., ;
+ TabStretch = 1, ;
+ TabStyle = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (280), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (256), ;
+ Cl_page1.BackColor = 240,240,240, ;
+ Cl_page1.Caption = "Página 1", ;
+ Cl_page1.ColorSource = 4, ;
+ Cl_page1.Comment = "", ;
+ Cl_page1.DragIcon = ..\..\, ;
+ Cl_page1.DragMode = 0, ;
+ Cl_page1.Enabled = .T., ;
+ Cl_page1.FontBold = .F., ;
+ Cl_page1.FontCharSet = 0, ;
+ Cl_page1.FontCondense = .F., ;
+ Cl_page1.FontExtend = .F., ;
+ Cl_page1.FontItalic = .F., ;
+ Cl_page1.FontName = "Arial", ;
+ Cl_page1.FontOutline = .F., ;
+ Cl_page1.FontShadow = .F., ;
+ Cl_page1.FontSize = 8, ;
+ Cl_page1.FontStrikethru = .F., ;
+ Cl_page1.FontUnderline = .F., ;
+ Cl_page1.ForeColor = 0,0,0, ;
+ Cl_page1.HelpContextID = 0, ;
+ Cl_page1.MouseIcon = ..\..\, ;
+ Cl_page1.MousePointer = 0, ;
+ Cl_page1.Name = "Cl_page1", ;
+ Cl_page1.OLEDragMode = 0, ;
+ Cl_page1.OLEDragPicture = ..\..\, ;
+ Cl_page1.OLEDropEffects = 3, ;
+ Cl_page1.OLEDropMode = 0, ;
+ Cl_page1.PageOrder = 1, ;
+ Cl_page1.Picture = ..\..\, ;
+ Cl_page1.StatusBarText = "", ;
+ Cl_page1.Tag = "", ;
+ Cl_page1.ToolTipText = "", ;
+ Cl_page1.WhatsThisHelpID = -1, ;
+ Cl_page2.Caption = "Página 2", ;
+ Cl_page2.Name = "Cl_page2", ;
+ Cl_page2.PageOrder = 2, ;
+ Cl_page3.Caption = "Página 3", ;
+ Cl_page3.Name = "Cl_page3", ;
+ Cl_page3.PageOrder = 3
+ *< END OBJECT: BaseClass="pageframe" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_containers.sc2 b/TESTS/DATOS_READONLY/f_containers.sc2
index 7e78c20..eaee88a 100644
--- a/TESTS/DATOS_READONLY/f_containers.sc2
+++ b/TESTS/DATOS_READONLY/f_containers.sc2
@@ -4,335 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Oleboundcontrol1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_olebound1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_control1" UniqueID="" Timestamp="" />
-
- DoCreate = .T.
- Name = "F_base1"
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "CONTAINER NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "CONTAINER SUBCLASADO"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_container1' AS cl_container WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 255,255,0, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ForeColor = 0,0,0, ;
- Height = 68, ;
- HelpContextID = 0, ;
- Left = 296, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_container1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\fondogris.bmp, ;
- SpecialEffect = 2, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 36, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 244
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
-
- ADD OBJECT 'Cl_control1' AS cl_control WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ForeColor = 0,0,0, ;
- Height = (61), ;
- HelpContextID = 0, ;
- Left = (296), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_control1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- SpecialEffect = 2, ;
- Style = 0, ;
- TabIndex = 12, ;
- TabStop = .T., ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (196), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (242)
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
-
- ADD OBJECT 'Cl_olebound1' AS cl_olebound WITH ;
- Anchor = 0, ;
- AutoActivate = 2, ;
- AutoSize = .F., ;
- AutoVerbMenu = .T., ;
- Comment = "", ;
- ControlSource = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 57, ;
- HelpContextID = 0, ;
- HostName = "", ;
- Left = 296, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_olebound1", ;
- Sizable = .T., ;
- StatusBarText = "", ;
- Stretch = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 120, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 244
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="oleboundcontrol" />
-
- ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
- ActivePage = 2, ;
- Anchor = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ErasePage = .T., ;
- Height = 116, ;
- HelpContextID = 0, ;
- Left = 300, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_pageframe1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PageCount = 3, ;
- RightToLeft = .F., ;
- StatusBarText = "", ;
- TabOrientation = 0, ;
- Tabs = .T., ;
- TabStop = .T., ;
- TabStretch = 1, ;
- TabStyle = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 280, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 256, ;
- Page1.Name = "Page1", ;
- Page2.Name = "Page2", ;
- Page3.Caption = "Page3", ;
- Page3.Name = "Page3"
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 255,255,0, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ForeColor = 0,0,0, ;
- Height = (68), ;
- HelpContextID = 0, ;
- Left = (28), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Container1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\fondogris.bmp, ;
- SpecialEffect = 2, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (36), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (244)
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Oleboundcontrol1' AS oleboundcontrol WITH ;
- Anchor = 0, ;
- AutoActivate = 2, ;
- AutoSize = .F., ;
- AutoVerbMenu = .T., ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (57), ;
- HelpContextID = 0, ;
- HostName = "", ;
- Left = (28), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Oleboundcontrol1", ;
- Sizable = .T., ;
- StatusBarText = "", ;
- Stretch = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (120), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (244)
- *< END OBJECT: BaseClass="oleboundcontrol" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ActivePage = 2, ;
- Anchor = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ErasePage = .T., ;
- Height = (117), ;
- HelpContextID = 0, ;
- Left = (24), ;
- MemberClass = "cl_page", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Pageframe1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PageCount = 3, ;
- RightToLeft = .F., ;
- StatusBarText = "", ;
- TabOrientation = 0, ;
- Tabs = .T., ;
- TabStop = .T., ;
- TabStretch = 1, ;
- TabStyle = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (280), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (256), ;
- Cl_page1.BackColor = 240,240,240, ;
- Cl_page1.Caption = "Página 1", ;
- Cl_page1.ColorSource = 4, ;
- Cl_page1.Comment = "", ;
- Cl_page1.DragIcon = ..\..\, ;
- Cl_page1.DragMode = 0, ;
- Cl_page1.Enabled = .T., ;
- Cl_page1.FontBold = .F., ;
- Cl_page1.FontCharSet = 0, ;
- Cl_page1.FontCondense = .F., ;
- Cl_page1.FontExtend = .F., ;
- Cl_page1.FontItalic = .F., ;
- Cl_page1.FontName = "Arial", ;
- Cl_page1.FontOutline = .F., ;
- Cl_page1.FontShadow = .F., ;
- Cl_page1.FontSize = 8, ;
- Cl_page1.FontStrikethru = .F., ;
- Cl_page1.FontUnderline = .F., ;
- Cl_page1.ForeColor = 0,0,0, ;
- Cl_page1.HelpContextID = 0, ;
- Cl_page1.MouseIcon = ..\..\, ;
- Cl_page1.MousePointer = 0, ;
- Cl_page1.Name = "Cl_page1", ;
- Cl_page1.OLEDragMode = 0, ;
- Cl_page1.OLEDragPicture = ..\..\, ;
- Cl_page1.OLEDropEffects = 3, ;
- Cl_page1.OLEDropMode = 0, ;
- Cl_page1.PageOrder = 1, ;
- Cl_page1.Picture = ..\..\, ;
- Cl_page1.StatusBarText = "", ;
- Cl_page1.Tag = "", ;
- Cl_page1.ToolTipText = "", ;
- Cl_page1.WhatsThisHelpID = -1, ;
- Cl_page2.Caption = "Página 2", ;
- Cl_page2.Name = "Cl_page2", ;
- Cl_page2.PageOrder = 2, ;
- Cl_page3.Caption = "Página 3", ;
- Cl_page3.Name = "Cl_page3", ;
- Cl_page3.PageOrder = 3
- *< END OBJECT: BaseClass="pageframe" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_form_aa.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_form_aa.dataenvironment.sc2
new file mode 100644
index 0000000..ee0ed6e
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_aa.dataenvironment.sc2
@@ -0,0 +1,17 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+
+ *
+ DataSource = .NULL.
+ Name = "Dataenvironment"
+ TabStop = .F.
+ Visible = .F.
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_aa.f_form_aa.sc2 b/TESTS/DATOS_READONLY/f_form_aa.f_form_aa.sc2
new file mode 100644
index 0000000..4669792
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_aa.f_form_aa.sc2
@@ -0,0 +1,2834 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.checkbox" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.collection" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.combobox" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.commandgroup" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.commandbutton" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.container" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.control" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.editbox" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.hyperlink" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.image" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.label" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.line" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.listbox" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.optiongroup" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.option" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.spinner" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.textbox" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+
+ *
+ *m: add_control
+ *m: run_tests
+ *p: l_activated
+ *p: n_controles_count
+ *p: valor
+ *a: a_controles[1,0]
+ *
+
+ *
+ AllowOutput = .T.
+ AlwaysOnBottom = .F.
+ AlwaysOnTop = .T.
+ AutoCenter = .F.
+ BackColor = 192,192,192
+ BindControls = .T.
+ BorderStyle = 3
+ BufferMode = 0
+ Caption = "AllControls_Test"
+ ClipControls = .T.
+ Closable = .T.
+ ColorSource = 4
+ Comment = ""
+ ContinuousScroll = .T.
+ ControlBox = .T.
+ c_testname = AllControls_Test
+ DataSession = 2
+ DEClass = "cl_dataenvironment"
+ DEClassLibrary = lib_controles.vcx
+ DefHeight =
+ DefLeft =
+ DefOleLCID = 0
+ DefTop =
+ DefWidth =
+ Desktop = .F.
+ Dockable = 0
+ DoCreate = .T.
+ DrawMode = 13
+ DrawStyle = 0
+ DrawWidth = 1
+ Enabled = .T.
+ FillColor = 0,0,0
+ FillStyle = 1
+ FontBold = .F.
+ FontCharSet = 0
+ FontCondense = .F.
+ FontExtend = .F.
+ FontItalic = .F.
+ FontName = "Arial"
+ FontOutline = .F.
+ FontShadow = .F.
+ FontSize = 9
+ FontStrikethru = .F.
+ FontUnderline = .F.
+ ForeColor = 0,0,0
+ HalfHeightCaption = .F.
+ Height = (460)
+ HelpContextID = 0
+ HScrollSmallChange = 10
+ Icon = bmps\container.ico
+ KeyPreview = .F.
+ Left = (2)
+ LockScreen = .F.
+ l_activated = .F.
+ MacDesktop = 0
+ MaxButton = .T.
+ MaxHeight = -1
+ MaxLeft = -1
+ MaxTop = -1
+ MaxWidth = -1
+ MDIForm = .F.
+ MinButton = .T.
+ MinHeight = -1
+ MinWidth = -1
+ MouseIcon = ..\..\
+ MousePointer = 0
+ Movable = .T.
+ Name = "f_form_aa"
+ n_controles_count = 0
+ OLEDragMode = 0
+ OLEDragPicture = ..\..\
+ OLEDropEffects = 3
+ OLEDropMode = 0
+ Picture = bmps\fondogris.bmp
+ RightToLeft = .F.
+ ScaleMode = 3
+ ScrollBars = 3
+ ShowInTaskBar = .T.
+ ShowTips = .F.
+ ShowWindow = 0
+ SizeBox = .F.
+ TabIndex = 1
+ TabStop = .T.
+ Tag = ""
+ Themes = .T.
+ TitleBar = 1
+ Top = (4)
+ valor = .F.
+ Visible = .T.
+ VScrollSmallChange = 10
+ WhatsThisButton = .F.
+ WhatsThisHelp = .F.
+ WhatsThisHelpID = -1
+ Width = (998)
+ WindowState = 0
+ WindowType = 0
+ ZoomBox = .F.
+ Edit1.Height = 144
+ Edit1.Left = 764
+ Edit1.Name = "Edit1"
+ Edit1.RightToLeft = .F.
+ Edit1.Top = 32
+ Edit1.Width = 212
+ Label3.BackColor = 128,255,128
+ Label3.Height = 17
+ Label3.Left = 764
+ Label3.Name = "Label3"
+ Label3.RightToLeft = .F.
+ Label3.Top = 8
+ Label3.Width = 212
+ cmdCapturar.Height = 27
+ cmdCapturar.Left = 764
+ cmdCapturar.Name = "cmdCapturar"
+ cmdCapturar.RightToLeft = .F.
+ cmdCapturar.Top = 392
+ cmdCapturar.Width = 212
+ Label1.BackColor = 128,255,128
+ Label1.Caption = "CONTROLES"
+ Label1.Height = 17
+ Label1.Left = 12
+ Label1.Name = "Label1"
+ Label1.RightToLeft = .F.
+ Label1.Top = 8
+ Label1.Width = 268
+ Label2.BackColor = 128,255,128
+ Label2.Caption = "TESTS"
+ Label2.Height = 17
+ Label2.Left = 296
+ Label2.Name = "Label2"
+ Label2.RightToLeft = .F.
+ Label2.Top = 8
+ Label2.Width = 460
+ *
+
+ ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
+ AllowAddNew = .F., ;
+ AllowAutoColumnFit = 0, ;
+ AllowCellSelection = .T., ;
+ AllowHeaderSizing = .F., ;
+ AllowRowSizing = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,217, ;
+ ChildOrder = "", ;
+ ColumnCount = 6, ;
+ Comment = "", ;
+ DeleteMark = .F., ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 9, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ GridLineColor = 0,0,0, ;
+ GridLines = 3, ;
+ GridLineWidth = 1, ;
+ HeaderHeight = 18, ;
+ Height = 424, ;
+ HelpContextID = 0, ;
+ Highlight = .T., ;
+ HighlightBackColor = 51,153,255, ;
+ HighlightForeColor = 255,255,255, ;
+ HighlightRow = .T., ;
+ HighlightRowLineWidth = 1, ;
+ HighlightStyle = 0, ;
+ Left = 296, ;
+ LinkMaster = "", ;
+ LockColumns = 0, ;
+ LockColumnsLeft = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_grid1", ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Optimize = .F., ;
+ Panel = 1, ;
+ PanelLink = .T., ;
+ Partition = 0, ;
+ ReadOnly = .F., ;
+ RecordMark = .T., ;
+ RecordSource = "C_TESTS", ;
+ RecordSourceType = 1, ;
+ RelationalExpr = "", ;
+ RightToLeft = .F., ;
+ RowHeight = 18, ;
+ ScrollBars = 2, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SplitBar = .F., ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 32, ;
+ Value = 0, ;
+ View = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 460, ;
+ COLUMN1.Alignment = 3, ;
+ COLUMN1.BackColor = 255,255,217, ;
+ COLUMN1.Bound = .T., ;
+ COLUMN1.ColumnOrder = 1, ;
+ COLUMN1.Comment = "", ;
+ COLUMN1.ControlSource = "c_ctlname", ;
+ COLUMN1.CurrentControl = "Text1", ;
+ COLUMN1.DynamicAlignment = "", ;
+ COLUMN1.DynamicBackColor = "", ;
+ COLUMN1.DynamicCurrentControl = "", ;
+ COLUMN1.DynamicFontBold = "", ;
+ COLUMN1.DynamicFontItalic = "", ;
+ COLUMN1.DynamicFontName = "", ;
+ COLUMN1.DynamicFontOutline = "", ;
+ COLUMN1.DynamicFontShadow = "", ;
+ COLUMN1.DynamicFontSize = "", ;
+ COLUMN1.DynamicFontStrikethru = "", ;
+ COLUMN1.DynamicFontUnderline = "", ;
+ COLUMN1.DynamicForeColor = "", ;
+ COLUMN1.DynamicInputMask = "", ;
+ COLUMN1.Enabled = .T., ;
+ COLUMN1.FontBold = .F., ;
+ COLUMN1.FontCharSet = 0, ;
+ COLUMN1.FontCondense = .F., ;
+ COLUMN1.FontExtend = .F., ;
+ COLUMN1.FontItalic = .F., ;
+ COLUMN1.FontName = "Arial", ;
+ COLUMN1.FontOutline = .F., ;
+ COLUMN1.FontShadow = .F., ;
+ COLUMN1.FontSize = 9, ;
+ COLUMN1.FontStrikethru = .F., ;
+ COLUMN1.FontUnderline = .F., ;
+ COLUMN1.ForeColor = 0,0,0, ;
+ COLUMN1.Format = "", ;
+ COLUMN1.Header1.Alignment = 0, ;
+ COLUMN1.Header1.BackColor = 240,240,240, ;
+ COLUMN1.Header1.Caption = "Control", ;
+ COLUMN1.Header1.Comment = "", ;
+ COLUMN1.Header1.FontBold = .F., ;
+ COLUMN1.Header1.FontCharSet = 0, ;
+ COLUMN1.Header1.FontCondense = .F., ;
+ COLUMN1.Header1.FontExtend = .F., ;
+ COLUMN1.Header1.FontItalic = .F., ;
+ COLUMN1.Header1.FontName = "Arial", ;
+ COLUMN1.Header1.FontOutline = .F., ;
+ COLUMN1.Header1.FontShadow = .F., ;
+ COLUMN1.Header1.FontSize = 9, ;
+ COLUMN1.Header1.FontStrikethru = .F., ;
+ COLUMN1.Header1.FontUnderline = .F., ;
+ COLUMN1.Header1.ForeColor = 0,0,0, ;
+ COLUMN1.Header1.MouseIcon = ..\..\, ;
+ COLUMN1.Header1.MousePointer = 0, ;
+ COLUMN1.Header1.Name = "Header1", ;
+ COLUMN1.Header1.Picture = ..\..\, ;
+ COLUMN1.Header1.StatusBarText = "", ;
+ COLUMN1.Header1.Tag = "", ;
+ COLUMN1.Header1.ToolTipText = "", ;
+ COLUMN1.Header1.WordWrap = .F., ;
+ COLUMN1.InputMask = "", ;
+ COLUMN1.MouseIcon = ..\..\, ;
+ COLUMN1.MousePointer = 0, ;
+ COLUMN1.Movable = .T., ;
+ COLUMN1.Name = "COLUMN1", ;
+ COLUMN1.ReadOnly = .F., ;
+ COLUMN1.Resizable = .T., ;
+ COLUMN1.SelectOnEntry = .T., ;
+ COLUMN1.Sparse = .T., ;
+ COLUMN1.StatusBarText = "", ;
+ COLUMN1.Tag = "", ;
+ COLUMN1.Text1.Alignment = 3, ;
+ COLUMN1.Text1.Anchor = 0, ;
+ COLUMN1.Text1.AutoComplete = 0, ;
+ COLUMN1.Text1.AutoCompSource = "", ;
+ COLUMN1.Text1.AutoCompTable = "", ;
+ COLUMN1.Text1.BackColor = 255,255,217, ;
+ COLUMN1.Text1.BackStyle = 1, ;
+ COLUMN1.Text1.BorderColor = 100,100,100, ;
+ COLUMN1.Text1.BorderStyle = 0, ;
+ COLUMN1.Text1.Century = 1, ;
+ COLUMN1.Text1.ColorScheme = 1, ;
+ COLUMN1.Text1.ColorSource = 4, ;
+ COLUMN1.Text1.Comment = "", ;
+ COLUMN1.Text1.DateFormat = 0, ;
+ COLUMN1.Text1.DateMark = "", ;
+ COLUMN1.Text1.DisabledBackColor = 255,255,255, ;
+ COLUMN1.Text1.DisabledForeColor = 109,109,109, ;
+ COLUMN1.Text1.DragIcon = ..\..\, ;
+ COLUMN1.Text1.DragMode = 0, ;
+ COLUMN1.Text1.Enabled = .T., ;
+ COLUMN1.Text1.EnableHyperlinks = .F., ;
+ COLUMN1.Text1.FontBold = .F., ;
+ COLUMN1.Text1.FontCharSet = 0, ;
+ COLUMN1.Text1.FontCondense = .F., ;
+ COLUMN1.Text1.FontExtend = .F., ;
+ COLUMN1.Text1.FontItalic = .F., ;
+ COLUMN1.Text1.FontName = "Arial", ;
+ COLUMN1.Text1.FontOutline = .F., ;
+ COLUMN1.Text1.FontShadow = .F., ;
+ COLUMN1.Text1.FontSize = 9, ;
+ COLUMN1.Text1.FontStrikethru = .F., ;
+ COLUMN1.Text1.FontUnderline = .F., ;
+ COLUMN1.Text1.ForeColor = 0,0,0, ;
+ COLUMN1.Text1.Format = "", ;
+ COLUMN1.Text1.HelpContextID = 0, ;
+ COLUMN1.Text1.HideSelection = .T., ;
+ COLUMN1.Text1.Hours = 0, ;
+ COLUMN1.Text1.IMEMode = 0, ;
+ COLUMN1.Text1.InputMask = "", ;
+ COLUMN1.Text1.IntegralHeight = .F., ;
+ COLUMN1.Text1.MemoWindow = "", ;
+ COLUMN1.Text1.MouseIcon = ..\..\, ;
+ COLUMN1.Text1.MousePointer = 0, ;
+ COLUMN1.Text1.Name = "Text1", ;
+ COLUMN1.Text1.NullDisplay = "", ;
+ COLUMN1.Text1.OLEDragMode = 0, ;
+ COLUMN1.Text1.OLEDragPicture = ..\..\, ;
+ COLUMN1.Text1.OLEDropEffects = 3, ;
+ COLUMN1.Text1.OLEDropMode = 0, ;
+ COLUMN1.Text1.OLEDropTextInsertion = 0, ;
+ COLUMN1.Text1.OpenWindow = .F., ;
+ COLUMN1.Text1.PasswordChar = "", ;
+ COLUMN1.Text1.ReadOnly = .F., ;
+ COLUMN1.Text1.RightToLeft = .F., ;
+ COLUMN1.Text1.Seconds = 2, ;
+ COLUMN1.Text1.SelectedBackColor = 51,153,255, ;
+ COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
+ COLUMN1.Text1.SelectOnEntry = .F., ;
+ COLUMN1.Text1.SpecialEffect = 0, ;
+ COLUMN1.Text1.StatusBarText = "", ;
+ COLUMN1.Text1.StrictDateEntry = 1, ;
+ COLUMN1.Text1.Style = 0, ;
+ COLUMN1.Text1.TabIndex = 1, ;
+ COLUMN1.Text1.TabStop = .T., ;
+ COLUMN1.Text1.Tag = "", ;
+ COLUMN1.Text1.TerminateRead = .F., ;
+ COLUMN1.Text1.Themes = .T., ;
+ COLUMN1.Text1.ToolTipText = "", ;
+ COLUMN1.Text1.Value = , ;
+ COLUMN1.Text1.Visible = .T., ;
+ COLUMN1.ToolTipText = "", ;
+ COLUMN1.Visible = .T., ;
+ COLUMN1.Width = 170, ;
+ COLUMN2.Alignment = 2, ;
+ COLUMN2.BackColor = 255,255,217, ;
+ COLUMN2.ControlSource = "c_Access", ;
+ COLUMN2.DynamicBackColor = 'ICASE( c_access="S", RGB(0,255,0), c_access="N", RGB(255,0,0), RGB(255,255,255) )', ;
+ COLUMN2.DynamicForeColor = 'ICASE( c_access="N", RGB(255,255,255), RGB(0,0,0) )', ;
+ COLUMN2.Enabled = .T., ;
+ COLUMN2.FontBold = .F., ;
+ COLUMN2.FontCharSet = 0, ;
+ COLUMN2.FontCondense = .F., ;
+ COLUMN2.FontExtend = .F., ;
+ COLUMN2.FontItalic = .F., ;
+ COLUMN2.FontName = "Arial", ;
+ COLUMN2.FontOutline = .F., ;
+ COLUMN2.FontShadow = .F., ;
+ COLUMN2.FontSize = 9, ;
+ COLUMN2.FontStrikethru = .F., ;
+ COLUMN2.FontUnderline = .F., ;
+ COLUMN2.ForeColor = 0,0,0, ;
+ COLUMN2.Header1.Alignment = 2, ;
+ COLUMN2.Header1.BackColor = 240,240,240, ;
+ COLUMN2.Header1.Caption = "Access", ;
+ COLUMN2.Header1.FontBold = .F., ;
+ COLUMN2.Header1.FontCharSet = 0, ;
+ COLUMN2.Header1.FontCondense = .F., ;
+ COLUMN2.Header1.FontExtend = .F., ;
+ COLUMN2.Header1.FontItalic = .F., ;
+ COLUMN2.Header1.FontName = "Arial", ;
+ COLUMN2.Header1.FontOutline = .F., ;
+ COLUMN2.Header1.FontShadow = .F., ;
+ COLUMN2.Header1.FontSize = 9, ;
+ COLUMN2.Header1.FontStrikethru = .F., ;
+ COLUMN2.Header1.FontUnderline = .F., ;
+ COLUMN2.Header1.Name = "Header1", ;
+ COLUMN2.Name = "COLUMN2", ;
+ COLUMN2.ReadOnly = .F., ;
+ COLUMN2.Text1.Alignment = 2, ;
+ COLUMN2.Text1.BackColor = 255,255,217, ;
+ COLUMN2.Text1.Enabled = .T., ;
+ COLUMN2.Text1.FontBold = .F., ;
+ COLUMN2.Text1.FontCharSet = 0, ;
+ COLUMN2.Text1.FontCondense = .F., ;
+ COLUMN2.Text1.FontExtend = .F., ;
+ COLUMN2.Text1.FontItalic = .F., ;
+ COLUMN2.Text1.FontName = "Arial", ;
+ COLUMN2.Text1.FontOutline = .F., ;
+ COLUMN2.Text1.FontShadow = .F., ;
+ COLUMN2.Text1.FontSize = 9, ;
+ COLUMN2.Text1.FontStrikethru = .F., ;
+ COLUMN2.Text1.FontUnderline = .F., ;
+ COLUMN2.Text1.ForeColor = 0,0,0, ;
+ COLUMN2.Text1.Name = "Text1", ;
+ COLUMN2.Text1.ReadOnly = .F., ;
+ COLUMN2.Text1.RightToLeft = .F., ;
+ COLUMN2.Text1.Visible = .T., ;
+ COLUMN2.Visible = .T., ;
+ COLUMN2.Width = 50, ;
+ COLUMN3.Alignment = 2, ;
+ COLUMN3.BackColor = 255,255,217, ;
+ COLUMN3.ControlSource = "c_Assign", ;
+ COLUMN3.DynamicBackColor = 'ICASE( c_assign="S", RGB(0,255,0), c_assign="N", RGB(255,0,0), RGB(255,255,255) )', ;
+ COLUMN3.DynamicForeColor = 'ICASE( c_assign="N", RGB(255,255,255), RGB(0,0,0) )', ;
+ COLUMN3.Enabled = .T., ;
+ COLUMN3.FontBold = .F., ;
+ COLUMN3.FontCharSet = 0, ;
+ COLUMN3.FontCondense = .F., ;
+ COLUMN3.FontExtend = .F., ;
+ COLUMN3.FontItalic = .F., ;
+ COLUMN3.FontName = "Arial", ;
+ COLUMN3.FontOutline = .F., ;
+ COLUMN3.FontShadow = .F., ;
+ COLUMN3.FontSize = 9, ;
+ COLUMN3.FontStrikethru = .F., ;
+ COLUMN3.FontUnderline = .F., ;
+ COLUMN3.ForeColor = 0,0,0, ;
+ COLUMN3.Header1.Alignment = 2, ;
+ COLUMN3.Header1.Caption = "Assign", ;
+ COLUMN3.Header1.FontBold = .F., ;
+ COLUMN3.Header1.FontCharSet = 0, ;
+ COLUMN3.Header1.FontCondense = .F., ;
+ COLUMN3.Header1.FontExtend = .F., ;
+ COLUMN3.Header1.FontItalic = .F., ;
+ COLUMN3.Header1.FontName = "Arial", ;
+ COLUMN3.Header1.FontOutline = .F., ;
+ COLUMN3.Header1.FontShadow = .F., ;
+ COLUMN3.Header1.FontSize = 9, ;
+ COLUMN3.Header1.FontStrikethru = .F., ;
+ COLUMN3.Header1.FontUnderline = .F., ;
+ COLUMN3.Header1.Name = "Header1", ;
+ COLUMN3.Name = "COLUMN3", ;
+ COLUMN3.ReadOnly = .F., ;
+ COLUMN3.Text1.Alignment = 2, ;
+ COLUMN3.Text1.BackColor = 255,255,217, ;
+ COLUMN3.Text1.Enabled = .T., ;
+ COLUMN3.Text1.FontBold = .F., ;
+ COLUMN3.Text1.FontCharSet = 0, ;
+ COLUMN3.Text1.FontCondense = .F., ;
+ COLUMN3.Text1.FontExtend = .F., ;
+ COLUMN3.Text1.FontItalic = .F., ;
+ COLUMN3.Text1.FontName = "Arial", ;
+ COLUMN3.Text1.FontOutline = .F., ;
+ COLUMN3.Text1.FontShadow = .F., ;
+ COLUMN3.Text1.FontSize = 9, ;
+ COLUMN3.Text1.FontStrikethru = .F., ;
+ COLUMN3.Text1.FontUnderline = .F., ;
+ COLUMN3.Text1.ForeColor = 0,0,0, ;
+ COLUMN3.Text1.Name = "Text1", ;
+ COLUMN3.Text1.ReadOnly = .F., ;
+ COLUMN3.Text1.RightToLeft = .F., ;
+ COLUMN3.Text1.Visible = .T., ;
+ COLUMN3.Visible = .T., ;
+ COLUMN3.Width = 50, ;
+ COLUMN4.Alignment = 2, ;
+ COLUMN4.BackColor = 255,255,217, ;
+ COLUMN4.ControlSource = "c_Value", ;
+ COLUMN4.DynamicBackColor = 'ICASE( c_value="S", RGB(0,255,0), c_value="N", RGB(255,0,0), RGB(255,255,255) )', ;
+ COLUMN4.DynamicForeColor = 'ICASE( c_value="N", RGB(255,255,255), RGB(0,0,0) )', ;
+ COLUMN4.Enabled = .T., ;
+ COLUMN4.FontBold = .F., ;
+ COLUMN4.FontCharSet = 0, ;
+ COLUMN4.FontCondense = .F., ;
+ COLUMN4.FontExtend = .F., ;
+ COLUMN4.FontItalic = .F., ;
+ COLUMN4.FontName = "Arial", ;
+ COLUMN4.FontOutline = .F., ;
+ COLUMN4.FontShadow = .F., ;
+ COLUMN4.FontSize = 9, ;
+ COLUMN4.FontStrikethru = .F., ;
+ COLUMN4.FontUnderline = .F., ;
+ COLUMN4.ForeColor = 0,0,0, ;
+ COLUMN4.Header1.Alignment = 2, ;
+ COLUMN4.Header1.Caption = "Value/Act", ;
+ COLUMN4.Header1.FontBold = .F., ;
+ COLUMN4.Header1.FontCharSet = 0, ;
+ COLUMN4.Header1.FontCondense = .F., ;
+ COLUMN4.Header1.FontExtend = .F., ;
+ COLUMN4.Header1.FontItalic = .F., ;
+ COLUMN4.Header1.FontName = "Arial", ;
+ COLUMN4.Header1.FontOutline = .F., ;
+ COLUMN4.Header1.FontShadow = .F., ;
+ COLUMN4.Header1.FontSize = 9, ;
+ COLUMN4.Header1.FontStrikethru = .F., ;
+ COLUMN4.Header1.FontUnderline = .F., ;
+ COLUMN4.Header1.Name = "Header1", ;
+ COLUMN4.Name = "COLUMN4", ;
+ COLUMN4.ReadOnly = .F., ;
+ COLUMN4.Text1.Alignment = 2, ;
+ COLUMN4.Text1.BackColor = 255,255,217, ;
+ COLUMN4.Text1.Enabled = .T., ;
+ COLUMN4.Text1.FontBold = .F., ;
+ COLUMN4.Text1.FontCharSet = 0, ;
+ COLUMN4.Text1.FontCondense = .F., ;
+ COLUMN4.Text1.FontExtend = .F., ;
+ COLUMN4.Text1.FontItalic = .F., ;
+ COLUMN4.Text1.FontName = "Arial", ;
+ COLUMN4.Text1.FontOutline = .F., ;
+ COLUMN4.Text1.FontShadow = .F., ;
+ COLUMN4.Text1.FontSize = 9, ;
+ COLUMN4.Text1.FontStrikethru = .F., ;
+ COLUMN4.Text1.FontUnderline = .F., ;
+ COLUMN4.Text1.ForeColor = 0,0,0, ;
+ COLUMN4.Text1.Name = "Text1", ;
+ COLUMN4.Text1.ReadOnly = .F., ;
+ COLUMN4.Text1.RightToLeft = .F., ;
+ COLUMN4.Text1.Visible = .T., ;
+ COLUMN4.Visible = .T., ;
+ COLUMN4.Width = 50, ;
+ COLUMN5.Alignment = 2, ;
+ COLUMN5.BackColor = 255,255,217, ;
+ COLUMN5.ControlSource = "c_ProgrChg", ;
+ COLUMN5.DynamicBackColor = 'ICASE( c_ProgrChg="S", RGB(0,255,0), c_ProgrChg="N", RGB(255,0,0), RGB(255,255,255) )', ;
+ COLUMN5.DynamicForeColor = 'ICASE( c_ProgrChg="N", RGB(255,255,255), RGB(0,0,0) )', ;
+ COLUMN5.Enabled = .T., ;
+ COLUMN5.FontBold = .F., ;
+ COLUMN5.FontCharSet = 0, ;
+ COLUMN5.FontCondense = .F., ;
+ COLUMN5.FontExtend = .F., ;
+ COLUMN5.FontItalic = .F., ;
+ COLUMN5.FontName = "Arial", ;
+ COLUMN5.FontOutline = .F., ;
+ COLUMN5.FontShadow = .F., ;
+ COLUMN5.FontSize = 9, ;
+ COLUMN5.FontStrikethru = .F., ;
+ COLUMN5.FontUnderline = .F., ;
+ COLUMN5.ForeColor = 0,0,0, ;
+ COLUMN5.Header1.Alignment = 2, ;
+ COLUMN5.Header1.Caption = "Prg.Chg", ;
+ COLUMN5.Header1.FontBold = .F., ;
+ COLUMN5.Header1.FontCharSet = 0, ;
+ COLUMN5.Header1.FontCondense = .F., ;
+ COLUMN5.Header1.FontExtend = .F., ;
+ COLUMN5.Header1.FontItalic = .F., ;
+ COLUMN5.Header1.FontName = "Arial", ;
+ COLUMN5.Header1.FontOutline = .F., ;
+ COLUMN5.Header1.FontShadow = .F., ;
+ COLUMN5.Header1.FontSize = 9, ;
+ COLUMN5.Header1.FontStrikethru = .F., ;
+ COLUMN5.Header1.FontUnderline = .F., ;
+ COLUMN5.Header1.Name = "Header1", ;
+ COLUMN5.Name = "COLUMN5", ;
+ COLUMN5.ReadOnly = .F., ;
+ COLUMN5.Text1.Alignment = 2, ;
+ COLUMN5.Text1.BackColor = 255,255,217, ;
+ COLUMN5.Text1.Enabled = .T., ;
+ COLUMN5.Text1.FontBold = .F., ;
+ COLUMN5.Text1.FontCharSet = 0, ;
+ COLUMN5.Text1.FontCondense = .F., ;
+ COLUMN5.Text1.FontExtend = .F., ;
+ COLUMN5.Text1.FontItalic = .F., ;
+ COLUMN5.Text1.FontName = "Arial", ;
+ COLUMN5.Text1.FontOutline = .F., ;
+ COLUMN5.Text1.FontShadow = .F., ;
+ COLUMN5.Text1.FontSize = 9, ;
+ COLUMN5.Text1.FontStrikethru = .F., ;
+ COLUMN5.Text1.FontUnderline = .F., ;
+ COLUMN5.Text1.ForeColor = 0,0,0, ;
+ COLUMN5.Text1.Name = "Text1", ;
+ COLUMN5.Text1.ReadOnly = .F., ;
+ COLUMN5.Text1.RightToLeft = .F., ;
+ COLUMN5.Text1.Visible = .T., ;
+ COLUMN5.Visible = .T., ;
+ COLUMN5.Width = 50, ;
+ Column6.Alignment = 2, ;
+ Column6.BackColor = 255,255,217, ;
+ Column6.ControlSource = "c_UI", ;
+ Column6.DynamicBackColor = 'ICASE( c_UI="S", RGB(0,255,0), c_UI="N", RGB(255,0,0), RGB(255,255,255) )', ;
+ Column6.DynamicForeColor = 'ICASE( c_UI="N", RGB(255,255,255), RGB(0,0,0) )', ;
+ Column6.Enabled = .T., ;
+ Column6.FontBold = .F., ;
+ Column6.FontCharSet = 0, ;
+ Column6.FontCondense = .F., ;
+ Column6.FontExtend = .F., ;
+ Column6.FontItalic = .F., ;
+ Column6.FontName = "Arial", ;
+ Column6.FontOutline = .F., ;
+ Column6.FontShadow = .F., ;
+ Column6.FontSize = 9, ;
+ Column6.FontStrikethru = .F., ;
+ Column6.FontUnderline = .F., ;
+ Column6.ForeColor = 0,0,0, ;
+ Column6.Name = "Column6", ;
+ Column6.ReadOnly = .F., ;
+ Column6.Visible = .T., ;
+ Column6.Width = 50
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
+
+ ADD OBJECT 'Cl_grid1.Column6.Header1' AS header WITH ;
+ Alignment = 2, ;
+ Caption = "UI", ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'Cl_grid1.Column6.Text1' AS textbox WITH ;
+ Alignment = 2, ;
+ BackColor = 255,255,217, ;
+ BorderStyle = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ RightToLeft = .F., ;
+ Visible = .T.
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Cl_image1' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 255,0,0, ;
+ BorderStyle = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 104, ;
+ HelpContextID = 0, ;
+ Left = 764, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\vfpxlogo.bmp, ;
+ RotateFlip = 0, ;
+ StatusBarText = "", ;
+ Stretch = 0, ;
+ Tag = "", ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 284, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 212, ;
+ ZOrderSet = 0
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Image1' AS image WITH ;
+ BorderColor = 255,0,0, ;
+ BorderStyle = 1, ;
+ Enabled = .T., ;
+ Height = 104, ;
+ Left = 764, ;
+ Name = "Image1", ;
+ Picture = bmps\vfpxlogo.bmp, ;
+ Top = 180, ;
+ Width = 212
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'pgf' AS cl_pageframe WITH ;
+ ActivePage = 2, ;
+ Anchor = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ErasePage = .T., ;
+ Height = 384, ;
+ HelpContextID = 0, ;
+ Left = 12, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "pgf", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PageCount = 2, ;
+ RightToLeft = .F., ;
+ StatusBarText = "", ;
+ TabIndex = 7, ;
+ TabOrientation = 1, ;
+ Tabs = .T., ;
+ TabStop = .T., ;
+ TabStretch = 1, ;
+ TabStyle = 0, ;
+ Tag = "", ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 28, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 268, ;
+ Page1.BackColor = 240,240,240, ;
+ Page1.Caption = "Page1", ;
+ Page1.ColorSource = 4, ;
+ Page1.Comment = "Sin comentarios", ;
+ Page1.DragIcon = ..\..\, ;
+ Page1.DragMode = 0, ;
+ Page1.Enabled = .T., ;
+ Page1.FontBold = .F., ;
+ Page1.FontCharSet = 0, ;
+ Page1.FontCondense = .F., ;
+ Page1.FontExtend = .F., ;
+ Page1.FontItalic = .F., ;
+ Page1.FontName = "Arial", ;
+ Page1.FontOutline = .F., ;
+ Page1.FontShadow = .F., ;
+ Page1.FontSize = 9, ;
+ Page1.FontStrikethru = .F., ;
+ Page1.FontUnderline = .F., ;
+ Page1.ForeColor = 0,0,0, ;
+ Page1.HelpContextID = 0, ;
+ Page1.MouseIcon = ..\..\, ;
+ Page1.MousePointer = 0, ;
+ Page1.Name = "Page1", ;
+ Page1.OLEDragMode = 0, ;
+ Page1.OLEDragPicture = ..\..\, ;
+ Page1.OLEDropEffects = 3, ;
+ Page1.OLEDropMode = 0, ;
+ Page1.PageOrder = 1, ;
+ Page1.Picture = ..\..\, ;
+ Page1.StatusBarText = "", ;
+ Page1.Tag = "", ;
+ Page1.ToolTipText = "", ;
+ Page1.WhatsThisHelpID = -1, ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2", ;
+ Page2.PageOrder = 2
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
+
+ ADD OBJECT 'pgf.Page1.checkbox' AS cl_checkbox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ Caption = "Chk1", ;
+ Centered = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (21), ;
+ HelpContextID = 0, ;
+ Left = (7), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "checkbox", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\treeview.bmp, ;
+ PictureMargin = 0, ;
+ PicturePosition = 4, ;
+ PictureSpacing = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 1, ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (8), ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (199), ;
+ WordWrap = .F., ;
+ ZOrderSet = 1
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
+
+ ADD OBJECT 'pgf.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (46), ;
+ HelpContextID = 0, ;
+ Left = 123, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_optiongroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 231, ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (112), ;
+ ZOrderSet = 20, ;
+ Option1.Alignment = 0, ;
+ Option1.Anchor = 0, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 192,192,192, ;
+ Option1.BackStyle = 1, ;
+ Option1.Caption = "Esta es la opc. 1", ;
+ Option1.ColorScheme = 1, ;
+ Option1.ColorSource = 4, ;
+ Option1.Comment = "", ;
+ Option1.ControlSource = "", ;
+ Option1.DisabledBackColor = 240,240,240, ;
+ Option1.DisabledForeColor = 109,109,109, ;
+ Option1.DisabledPicture = ..\..\, ;
+ Option1.DownPicture = ..\..\, ;
+ Option1.DragIcon = ..\..\, ;
+ Option1.DragMode = 0, ;
+ Option1.Enabled = .T., ;
+ Option1.FontBold = .F., ;
+ Option1.FontCondense = .F., ;
+ Option1.FontExtend = .F., ;
+ Option1.FontItalic = .F., ;
+ Option1.FontName = "Arial", ;
+ Option1.FontOutline = .F., ;
+ Option1.FontShadow = .F., ;
+ Option1.FontSize = 8, ;
+ Option1.FontStrikethru = .F., ;
+ Option1.FontUnderline = .F., ;
+ Option1.ForeColor = 0,0,0, ;
+ Option1.Height = 16, ;
+ Option1.HelpContextID = 0, ;
+ Option1.Left = 5, ;
+ Option1.MouseIcon = ..\..\, ;
+ Option1.MousePointer = 0, ;
+ Option1.Name = "Option1", ;
+ Option1.OLEDragMode = 0, ;
+ Option1.OLEDragPicture = ..\..\, ;
+ Option1.OLEDropEffects = 3, ;
+ Option1.OLEDropMode = 0, ;
+ Option1.Picture = bmps\scccheckout.bmp, ;
+ Option1.PictureMargin = 0, ;
+ Option1.PicturePosition = 4, ;
+ Option1.PictureSpacing = 0, ;
+ Option1.RightToLeft = .F., ;
+ Option1.SpecialEffect = 0, ;
+ Option1.StatusBarText = "", ;
+ Option1.Style = 0, ;
+ Option1.TabIndex = 1, ;
+ Option1.TabStop = .T., ;
+ Option1.Tag = "", ;
+ Option1.TerminateRead = .F., ;
+ Option1.Themes = .T., ;
+ Option1.ToolTipText = "", ;
+ Option1.Top = 5, ;
+ Option1.Value = 0, ;
+ Option1.Visible = .T., ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 98, ;
+ Option1.WordWrap = .F., ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 192,192,192, ;
+ Option2.Caption = "Esta es la opc. 2", ;
+ Option2.FontSize = 8, ;
+ Option2.Height = 16, ;
+ Option2.Left = 5, ;
+ Option2.Name = "Option2", ;
+ Option2.Picture = bmps\scccheckout.bmp, ;
+ Option2.PicturePosition = 4, ;
+ Option2.Style = 0, ;
+ Option2.Top = 24, ;
+ Option2.Value = 1, ;
+ Option2.Width = 102
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ;
+ Left = 218, ;
+ Name = "collection", ;
+ Top = 8
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />
+
+ ADD OBJECT 'pgf.Page1.combobox' AS cl_combobox WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 128,255,128, ;
+ BorderStyle = 1, ;
+ BoundColumn = 1, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 0, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayCount = 0, ;
+ DisplayValue = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (20), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IncrementalSearch = .T., ;
+ InputMask = "", ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = (7), ;
+ Margin = 0, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "combobox", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ Picture = bmps\treeview.bmp, ;
+ PictureSelectionDisplay = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (35), ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (196), ;
+ ZOrderSet = 3
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
+
+ ADD OBJECT 'pgf.Page1.commandbutton' AS cl_commandbutton WITH ;
+ AutoSize = .F., ;
+ Caption = "Comando", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ FontSize = 8, ;
+ Height = (25), ;
+ Left = (99), ;
+ Name = "commandbutton", ;
+ Picture = bmps\treeview.bmp, ;
+ PicturePosition = 4, ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (63), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (80), ;
+ WordWrap = .F., ;
+ ZOrderSet = 5
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />
+
+ ADD OBJECT 'pgf.Page1.commandgroup' AS cl_commandgroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (64), ;
+ HelpContextID = 0, ;
+ Left = (6), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "commandgroup", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 2, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (60), ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (93), ;
+ ZOrderSet = 4, ;
+ Command1.Alignment = 2, ;
+ Command1.Anchor = 0, ;
+ Command1.AutoSize = .F., ;
+ Command1.BackColor = 192,192,192, ;
+ Command1.Cancel = .F., ;
+ Command1.Caption = "Comando1", ;
+ Command1.ColorScheme = 1, ;
+ Command1.ColorSource = 4, ;
+ Command1.Comment = "", ;
+ Command1.Default = .F., ;
+ Command1.DisabledBackColor = 240,240,240, ;
+ Command1.DisabledForeColor = 109,109,109, ;
+ Command1.DisabledPicture = ..\..\, ;
+ Command1.DownPicture = ..\..\, ;
+ Command1.DragIcon = ..\..\, ;
+ Command1.DragMode = 0, ;
+ Command1.Enabled = .T., ;
+ Command1.FontBold = .F., ;
+ Command1.FontCharSet = 0, ;
+ Command1.FontCondense = .F., ;
+ Command1.FontExtend = .F., ;
+ Command1.FontItalic = .F., ;
+ Command1.FontName = "Arial", ;
+ Command1.FontOutline = .F., ;
+ Command1.FontShadow = .F., ;
+ Command1.FontSize = 8, ;
+ Command1.FontStrikethru = .F., ;
+ Command1.FontUnderline = .F., ;
+ Command1.ForeColor = 0,0,0, ;
+ Command1.Height = 25, ;
+ Command1.HelpContextID = 0, ;
+ Command1.Left = 1, ;
+ Command1.MouseIcon = ..\..\, ;
+ Command1.MousePointer = 0, ;
+ Command1.Name = "Command1", ;
+ Command1.OLEDragMode = 0, ;
+ Command1.OLEDragPicture = ..\..\, ;
+ Command1.OLEDropEffects = 3, ;
+ Command1.OLEDropMode = 0, ;
+ Command1.Picture = bmps\sobrepostal.bmp, ;
+ Command1.PictureMargin = 0, ;
+ Command1.PicturePosition = 4, ;
+ Command1.PictureSpacing = 0, ;
+ Command1.RightToLeft = .F., ;
+ Command1.SpecialEffect = 0, ;
+ Command1.StatusBarText = "", ;
+ Command1.Style = 0, ;
+ Command1.TabIndex = 1, ;
+ Command1.TabStop = .T., ;
+ Command1.Tag = "", ;
+ Command1.TerminateRead = .F., ;
+ Command1.Themes = .T., ;
+ Command1.ToolTipText = "", ;
+ Command1.Top = 4, ;
+ Command1.Visible = .T., ;
+ Command1.WhatsThisHelpID = -1, ;
+ Command1.Width = 90, ;
+ Command1.WordWrap = .F., ;
+ Command2.AutoSize = .F., ;
+ Command2.BackColor = 192,192,192, ;
+ Command2.Caption = "Comando2", ;
+ Command2.FontSize = 8, ;
+ Command2.Height = 25, ;
+ Command2.Left = 1, ;
+ Command2.Name = "Command2", ;
+ Command2.Picture = bmps\sobrepostal.bmp, ;
+ Command2.PicturePosition = 4, ;
+ Command2.Top = 32, ;
+ Command2.Width = 90
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
+
+ ADD OBJECT 'pgf.Page1.container' AS cl_container WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ForeColor = 0,0,0, ;
+ Height = (24), ;
+ HelpContextID = 0, ;
+ Left = (227), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "container", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ SpecialEffect = 2, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 4, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ test_aa = .F., ;
+ ToolTipText = "", ;
+ Top = (127), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (20), ;
+ ZOrderSet = 6
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
+
+ ADD OBJECT 'pgf.Page1.control' AS cl_control WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ForeColor = 0,0,0, ;
+ Height = (24), ;
+ HelpContextID = 0, ;
+ Left = (199), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "control", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ SpecialEffect = 2, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 5, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ test_aa = .F., ;
+ ToolTipText = "", ;
+ Top = (127), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (20), ;
+ ZOrderSet = 7
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
+
+ ADD OBJECT 'pgf.Page1.editbox' AS cl_editbox WITH ;
+ AddLineFeeds = .F., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 128,255,128, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (41), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = (183), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "editbox", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (60), ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (68), ;
+ ZOrderSet = 8
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
+
+ ADD OBJECT 'pgf.Page1.hyperlink' AS cl_hyperlink WITH ;
+ Comment = "", ;
+ Left = 199, ;
+ Name = "hyperlink", ;
+ Tag = "", ;
+ test_aa = .F., ;
+ Top = 103
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />
+
+ ADD OBJECT 'pgf.Page1.image' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 231, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "image", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\scccheckout.bmp, ;
+ RotateFlip = 0, ;
+ StatusBarText = "", ;
+ Stretch = 0, ;
+ Tag = "", ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 107, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16, ;
+ ZOrderSet = 10
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'pgf.Page1.label' AS cl_label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (17), ;
+ HelpContextID = 0, ;
+ Left = (6), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "label", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 7, ;
+ Tag = "", ;
+ test_aa = .F., ;
+ ToolTipText = "", ;
+ Top = (136), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (104), ;
+ WordWrap = .F., ;
+ ZOrderSet = 11
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
+
+ ADD OBJECT 'pgf.Page1.line' AS cl_line WITH ;
+ Anchor = 0, ;
+ BorderColor = 255,0,0, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .T., ;
+ Height = (8), ;
+ HelpContextID = 0, ;
+ Left = (121), ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "line", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ test_aa = .F., ;
+ ToolTipText = "", ;
+ Top = (136), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (50), ;
+ ZOrderSet = 12
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
+
+ ADD OBJECT 'pgf.Page1.listbox' AS cl_listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 128,255,128, ;
+ BoundColumn = 1, ;
+ BoundTo = .F., ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ ColumnCount = 0, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 255,255,255, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DisplayValue = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = (60), ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = (7), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "listbox", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 8, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (164), ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (224), ;
+ ZOrderSet = 13
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
+
+ ADD OBJECT 'pgf.Page1.option' AS cl_option WITH ;
+ AutoSize = .F., ;
+ Caption = "Esta es la opción B", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ FontSize = 8, ;
+ Height = (16), ;
+ Left = 11, ;
+ Name = "option", ;
+ Top = 283, ;
+ Width = (110), ;
+ ZOrderSet = 15
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />
+
+ ADD OBJECT 'pgf.Page1.optiongroup' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (46), ;
+ HelpContextID = 0, ;
+ Left = (7), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "optiongroup", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (232), ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (112), ;
+ ZOrderSet = 14, ;
+ Option1.Alignment = 0, ;
+ Option1.Anchor = 0, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 192,192,192, ;
+ Option1.BackStyle = 1, ;
+ Option1.Caption = "Esta es la opc. 1", ;
+ Option1.ColorScheme = 1, ;
+ Option1.ColorSource = 4, ;
+ Option1.Comment = "", ;
+ Option1.ControlSource = "", ;
+ Option1.DisabledBackColor = 240,240,240, ;
+ Option1.DisabledForeColor = 109,109,109, ;
+ Option1.DisabledPicture = ..\..\, ;
+ Option1.DownPicture = ..\..\, ;
+ Option1.DragIcon = ..\..\, ;
+ Option1.DragMode = 0, ;
+ Option1.Enabled = .T., ;
+ Option1.FontBold = .F., ;
+ Option1.FontCondense = .F., ;
+ Option1.FontExtend = .F., ;
+ Option1.FontItalic = .F., ;
+ Option1.FontName = "Arial", ;
+ Option1.FontOutline = .F., ;
+ Option1.FontShadow = .F., ;
+ Option1.FontSize = 8, ;
+ Option1.FontStrikethru = .F., ;
+ Option1.FontUnderline = .F., ;
+ Option1.ForeColor = 0,0,0, ;
+ Option1.Height = 41, ;
+ Option1.HelpContextID = 0, ;
+ Option1.Left = 5, ;
+ Option1.MouseIcon = ..\..\, ;
+ Option1.MousePointer = 0, ;
+ Option1.Name = "Option1", ;
+ Option1.OLEDragMode = 0, ;
+ Option1.OLEDragPicture = ..\..\, ;
+ Option1.OLEDropEffects = 3, ;
+ Option1.OLEDropMode = 0, ;
+ Option1.Picture = bmps\scccheckout.bmp, ;
+ Option1.PictureMargin = 0, ;
+ Option1.PicturePosition = 4, ;
+ Option1.PictureSpacing = 0, ;
+ Option1.RightToLeft = .F., ;
+ Option1.SpecialEffect = 0, ;
+ Option1.StatusBarText = "", ;
+ Option1.Style = 1, ;
+ Option1.TabIndex = 1, ;
+ Option1.TabStop = .T., ;
+ Option1.Tag = "", ;
+ Option1.TerminateRead = .F., ;
+ Option1.Themes = .T., ;
+ Option1.ToolTipText = "", ;
+ Option1.Top = 5, ;
+ Option1.Value = 0, ;
+ Option1.Visible = .T., ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 112, ;
+ Option1.WordWrap = .F., ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 192,192,192, ;
+ Option2.Caption = "Esta es la opc. 2", ;
+ Option2.FontSize = 8, ;
+ Option2.Height = 16, ;
+ Option2.Left = 5, ;
+ Option2.Name = "Option2", ;
+ Option2.Picture = bmps\scccheckout.bmp, ;
+ Option2.PicturePosition = 4, ;
+ Option2.Style = 1, ;
+ Option2.Top = 24, ;
+ Option2.Value = 1, ;
+ Option2.Width = 103
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'pgf.Page1.Pageframe1' AS pageframe WITH ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ ErasePage = .T., ;
+ Height = (61), ;
+ Left = (135), ;
+ MemberClass = "cl_page", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ TabOrientation = 2, ;
+ Themes = .F., ;
+ Top = (284), ;
+ Width = (117), ;
+ ZOrderSet = 19, ;
+ Cl_page1.Caption = "Pg1", ;
+ Cl_page1.Name = "Cl_page1", ;
+ Cl_page2.BackColor = 255,193,132, ;
+ Cl_page2.Caption = "Pg2", ;
+ Cl_page2.Name = "Cl_page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'pgf.Page1.spinner' AS cl_spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 128,255,128, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (19), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 11, ;
+ Margin = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "spinner", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabIndex = 9, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 303, ;
+ Value = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (108), ;
+ ZOrderSet = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
+
+ ADD OBJECT 'pgf.Page1.textbox' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 128,255,128, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (19), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 11, ;
+ Margin = 0, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "textbox", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ test_aa = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 327, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (108), ;
+ ZOrderSet = 17
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ Enabled = .T., ;
+ Height = (23), ;
+ Interval = 0, ;
+ Left = 235, ;
+ Name = "timer", ;
+ Tag = "", ;
+ test_aa = .F., ;
+ Top = 255, ;
+ Width = (23)
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
+
+ PROCEDURE Activate
+ IF NOT THISFORM.l_activated
+ THISFORM.run_tests()
+ THISFORM.l_activated = .T.
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE add_control
+ LPARAMETERS toControl
+
+ LOCAL lcCtlPath
+
+ WITH THISFORM
+ lcCtlPath = SYS(1272, toControl)
+
+ INSERT INTO C_TESTS ;
+ ( c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg, c_UI ) ;
+ VALUES ;
+ ( SUBSTR( lcCtlPath, LEN(.NAME) + 2), 'N', 'N', 'N', 'N', 'N' )
+ ENDWITH
+
+ ENDPROC
+
+ PROCEDURE Load
+ CREATE CURSOR C_TESTS ( c_CtlName C(30), c_Access C(1), c_Assign C(1), c_Value C(1), c_ProgrChg C(1), c_UI C(1) )
+ INDEX ON c_CtlName TAG c_CtlName
+
+ ENDPROC
+
+ PROCEDURE run_tests
+ TRY
+ LOCAL loEx AS Exception, loCtl
+
+ WITH THISFORM AS Form
+ *-- c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg
+ THISFORM.pgf.page1.SETALL( "Tag", "" )
+ THISFORM.pgf.ActivePage = 1
+
+ SCAN
+ *-- Test UI Enable
+ loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
+ DO CASE
+ CASE NOT PEMSTATUS(loCtl, 'UIEnable',5)
+ REPLACE c_UI WITH "-"
+ CASE loCtl.Tag = "UI"
+ REPLACE c_UI WITH "S"
+ ENDCASE
+ ENDSCAN
+
+ SCAN
+ *-- Test Access
+ loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
+ loCtl.Tag = ''
+ IF loCtl.test_aa = "ACCESS_OK"
+ REPLACE c_Access WITH "S"
+ ENDIF
+ ENDSCAN
+
+ SCAN
+ *-- Test Assign
+ loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
+ loCtl.Tag = ''
+ loCtl.test_aa = "ASSIGN_OK"
+ IF loCtl.Tag = "ASSIGN_OK"
+ REPLACE c_Assign WITH "S"
+ ENDIF
+ ENDSCAN
+
+ SCAN
+ *-- Test Valor/Activate
+ loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
+
+ DO CASE
+ CASE loCtl.Baseclass == 'Checkbox'
+ .valor = 1
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Combobox'
+ .valor = 3
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Commandgroup'
+ .valor = 2
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Editbox'
+ .valor = 'Texto editable'
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Listbox'
+ .valor = 3
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Optiongroup'
+ .valor = 2
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Optionbutton'
+ .valor = 2
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Spinner'
+ .valor = 123
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Textbox'
+ .valor = "Mi texto"
+ loCtl.ControlSource = 'THISFORM.valor'
+ IF loCtl.Value = .valor
+ REPLACE c_Value WITH "S"
+ ENDIF
+ loCtl.ControlSource = ''
+
+ CASE loCtl.Baseclass == 'Page'
+ loCtl.Parent.ActivePage = 2
+ IF loCtl.Tag = 'AC'
+ REPLACE c_Value WITH "S"
+ ENDIF
+
+ OTHERWISE
+ REPLACE c_Value WITH "-"
+
+ ENDCASE
+ ENDSCAN
+
+ SCAN
+ *-- Test ProgrammaticChange
+ loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
+ .Tag = ''
+ DO CASE
+ CASE loCtl.Baseclass == 'Checkbox'
+ loCtl.Value = 0
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Combobox'
+ loCtl.Value = 1
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Commandgroup'
+ loCtl.Value = 1
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Editbox'
+ loCtl.Value = 'Editado!'
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Listbox'
+ loCtl.Value = 1
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Optiongroup'
+ loCtl.Value = 1
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Spinner'
+ loCtl.Value = 321
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ CASE loCtl.Baseclass == 'Textbox'
+ loCtl.Value = 'Editado!'
+ IF NOT EMPTY(.tag)
+ REPLACE c_ProgrChg WITH "S"
+ ENDIF
+
+ OTHERWISE
+ REPLACE c_ProgrChg WITH "-"
+
+ ENDCASE
+
+ ENDSCAN
+ ENDWITH
+
+
+ CATCH TO loEx
+ THISFORM.edit1.Value = 'Error ' + TRANSFORM(loEx.ErrorNo) + CHR(13) ;
+ + loEx.Message + CHR(13) ;
+ + loEx.Procedure + ', Line ' + TRANSFORM(loEx.LineNo) + CHR(13) ;
+ + loEx.Details
+
+ FINALLY
+ IF USED("C_TESTS")
+ SELECT C_TESTS
+ GO TOP
+ ENDIF
+
+ ENDTRY
+
+ ENDPROC
+
+ PROCEDURE pgf.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.checkbox.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.checkbox.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.checkbox.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.checkbox.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.checkbox.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Cl_optiongroup1.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Cl_optiongroup1.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.collection.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.collection.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.collection.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.combobox.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.combobox.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.combobox.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.combobox.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.combobox.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandbutton.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandbutton.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandbutton.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandbutton.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandgroup.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandgroup.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandgroup.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandgroup.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.commandgroup.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.container.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.container.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.container.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.container.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.control.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.control.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.control.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.control.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.editbox.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.editbox.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.editbox.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.editbox.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.editbox.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.hyperlink.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.hyperlink.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.hyperlink.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.image.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.image.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.image.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.image.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.label.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.label.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.label.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.label.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.line.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.line.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.line.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.line.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.listbox.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.listbox.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.listbox.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.listbox.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.listbox.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.option.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.option.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.option.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.option.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.optiongroup.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.optiongroup.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.optiongroup.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.optiongroup.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.optiongroup.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Activate
+ THIS.Tag = 'AC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.Init
+ this.Cl_page2.Init()
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.Pageframe1.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THISFORM.pgf.Tag = 'UI'
+ ENDIF
+
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.spinner.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.spinner.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.spinner.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.spinner.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.spinner.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.textbox.Init
+ THISFORM.add_control( THIS )
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.textbox.ProgrammaticChange
+ THISFORM.Tag = 'PC'
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.textbox.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.textbox.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.textbox.UIEnable
+ LPARAMETERS lEnable
+
+ IF lEnable
+ THIS.Tag = 'UI'
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.timer.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.Page1.timer.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ PROCEDURE pgf.test_aa_access
+ IF EMPTY(THIS.Tag)
+ RETURN "ACCESS_OK"
+ ELSE
+ RETURN THIS.Tag
+ ENDIF
+
+ ENDPROC
+
+ PROCEDURE pgf.test_aa_assign
+ LPARAMETERS vNewVal
+
+ THIS.test_aa = m.vNewVal
+ THIS.Tag = EVL(m.vNewVal,'')
+
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_aa.sc2 b/TESTS/DATOS_READONLY/f_form_aa.sc2
index 699fcbd..5ff9e05 100644
--- a/TESTS/DATOS_READONLY/f_form_aa.sc2
+++ b/TESTS/DATOS_READONLY/f_form_aa.sc2
@@ -4,2840 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_form_aa" Baseclass="form" />
- DataSource = .NULL.
- Name = "Dataenvironment"
- TabStop = .F.
- Visible = .F.
-
-ENDDEFINE
-
-DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.checkbox" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.collection" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.combobox" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.commandgroup" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.commandbutton" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.container" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.control" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.editbox" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.hyperlink" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.image" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.label" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.line" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.listbox" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.optiongroup" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.option" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.spinner" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.textbox" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
-
- *
- *m: add_control
- *m: run_tests
- *p: l_activated
- *p: n_controles_count
- *p: valor
- *a: a_controles[1,0]
- *
-
- AllowOutput = .T.
- AlwaysOnBottom = .F.
- AlwaysOnTop = .T.
- AutoCenter = .F.
- BackColor = 192,192,192
- BindControls = .T.
- BorderStyle = 3
- BufferMode = 0
- Caption = "AllControls_Test"
- ClipControls = .T.
- Closable = .T.
- ColorSource = 4
- Comment = ""
- ContinuousScroll = .T.
- ControlBox = .T.
- c_testname = AllControls_Test
- DataSession = 2
- DEClass = "cl_dataenvironment"
- DEClassLibrary = lib_controles.vcx
- DefHeight =
- DefLeft =
- DefOleLCID = 0
- DefTop =
- DefWidth =
- Desktop = .F.
- Dockable = 0
- DoCreate = .T.
- DrawMode = 13
- DrawStyle = 0
- DrawWidth = 1
- Enabled = .T.
- FillColor = 0,0,0
- FillStyle = 1
- FontBold = .F.
- FontCharSet = 0
- FontCondense = .F.
- FontExtend = .F.
- FontItalic = .F.
- FontName = "Arial"
- FontOutline = .F.
- FontShadow = .F.
- FontSize = 9
- FontStrikethru = .F.
- FontUnderline = .F.
- ForeColor = 0,0,0
- HalfHeightCaption = .F.
- Height = (460)
- HelpContextID = 0
- HScrollSmallChange = 10
- Icon = bmps\container.ico
- KeyPreview = .F.
- Left = (2)
- LockScreen = .F.
- l_activated = .F.
- MacDesktop = 0
- MaxButton = .T.
- MaxHeight = -1
- MaxLeft = -1
- MaxTop = -1
- MaxWidth = -1
- MDIForm = .F.
- MinButton = .T.
- MinHeight = -1
- MinWidth = -1
- MouseIcon = ..\..\
- MousePointer = 0
- Movable = .T.
- Name = "f_form_aa"
- n_controles_count = 0
- OLEDragMode = 0
- OLEDragPicture = ..\..\
- OLEDropEffects = 3
- OLEDropMode = 0
- Picture = bmps\fondogris.bmp
- RightToLeft = .F.
- ScaleMode = 3
- ScrollBars = 3
- ShowInTaskBar = .T.
- ShowTips = .F.
- ShowWindow = 0
- SizeBox = .F.
- TabIndex = 1
- TabStop = .T.
- Tag = ""
- Themes = .T.
- TitleBar = 1
- Top = (4)
- valor = .F.
- Visible = .T.
- VScrollSmallChange = 10
- WhatsThisButton = .F.
- WhatsThisHelp = .F.
- WhatsThisHelpID = -1
- Width = (998)
- WindowState = 0
- WindowType = 0
- ZoomBox = .F.
- Edit1.Height = 144
- Edit1.Left = 764
- Edit1.Name = "Edit1"
- Edit1.RightToLeft = .F.
- Edit1.Top = 32
- Edit1.Width = 212
- Label3.BackColor = 128,255,128
- Label3.Height = 17
- Label3.Left = 764
- Label3.Name = "Label3"
- Label3.RightToLeft = .F.
- Label3.Top = 8
- Label3.Width = 212
- cmdCapturar.Height = 27
- cmdCapturar.Left = 764
- cmdCapturar.Name = "cmdCapturar"
- cmdCapturar.RightToLeft = .F.
- cmdCapturar.Top = 392
- cmdCapturar.Width = 212
- Label1.BackColor = 128,255,128
- Label1.Caption = "CONTROLES"
- Label1.Height = 17
- Label1.Left = 12
- Label1.Name = "Label1"
- Label1.RightToLeft = .F.
- Label1.Top = 8
- Label1.Width = 268
- Label2.BackColor = 128,255,128
- Label2.Caption = "TESTS"
- Label2.Height = 17
- Label2.Left = 296
- Label2.Name = "Label2"
- Label2.RightToLeft = .F.
- Label2.Top = 8
- Label2.Width = 460
-
- ADD OBJECT 'Cl_grid1' AS cl_grid WITH ;
- AllowAddNew = .F., ;
- AllowAutoColumnFit = 0, ;
- AllowCellSelection = .T., ;
- AllowHeaderSizing = .F., ;
- AllowRowSizing = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,217, ;
- ChildOrder = "", ;
- ColumnCount = 6, ;
- Comment = "", ;
- DeleteMark = .F., ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 9, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- GridLineColor = 0,0,0, ;
- GridLines = 3, ;
- GridLineWidth = 1, ;
- HeaderHeight = 18, ;
- Height = 424, ;
- HelpContextID = 0, ;
- Highlight = .T., ;
- HighlightBackColor = 51,153,255, ;
- HighlightForeColor = 255,255,255, ;
- HighlightRow = .T., ;
- HighlightRowLineWidth = 1, ;
- HighlightStyle = 0, ;
- Left = 296, ;
- LinkMaster = "", ;
- LockColumns = 0, ;
- LockColumnsLeft = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_grid1", ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Optimize = .F., ;
- Panel = 1, ;
- PanelLink = .T., ;
- Partition = 0, ;
- ReadOnly = .F., ;
- RecordMark = .T., ;
- RecordSource = "C_TESTS", ;
- RecordSourceType = 1, ;
- RelationalExpr = "", ;
- RightToLeft = .F., ;
- RowHeight = 18, ;
- ScrollBars = 2, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SplitBar = .F., ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 32, ;
- Value = 0, ;
- View = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 460, ;
- COLUMN1.Alignment = 3, ;
- COLUMN1.BackColor = 255,255,217, ;
- COLUMN1.Bound = .T., ;
- COLUMN1.ColumnOrder = 1, ;
- COLUMN1.Comment = "", ;
- COLUMN1.ControlSource = "c_ctlname", ;
- COLUMN1.CurrentControl = "Text1", ;
- COLUMN1.DynamicAlignment = "", ;
- COLUMN1.DynamicBackColor = "", ;
- COLUMN1.DynamicCurrentControl = "", ;
- COLUMN1.DynamicFontBold = "", ;
- COLUMN1.DynamicFontItalic = "", ;
- COLUMN1.DynamicFontName = "", ;
- COLUMN1.DynamicFontOutline = "", ;
- COLUMN1.DynamicFontShadow = "", ;
- COLUMN1.DynamicFontSize = "", ;
- COLUMN1.DynamicFontStrikethru = "", ;
- COLUMN1.DynamicFontUnderline = "", ;
- COLUMN1.DynamicForeColor = "", ;
- COLUMN1.DynamicInputMask = "", ;
- COLUMN1.Enabled = .T., ;
- COLUMN1.FontBold = .F., ;
- COLUMN1.FontCharSet = 0, ;
- COLUMN1.FontCondense = .F., ;
- COLUMN1.FontExtend = .F., ;
- COLUMN1.FontItalic = .F., ;
- COLUMN1.FontName = "Arial", ;
- COLUMN1.FontOutline = .F., ;
- COLUMN1.FontShadow = .F., ;
- COLUMN1.FontSize = 9, ;
- COLUMN1.FontStrikethru = .F., ;
- COLUMN1.FontUnderline = .F., ;
- COLUMN1.ForeColor = 0,0,0, ;
- COLUMN1.Format = "", ;
- COLUMN1.Header1.Alignment = 0, ;
- COLUMN1.Header1.BackColor = 240,240,240, ;
- COLUMN1.Header1.Caption = "Control", ;
- COLUMN1.Header1.Comment = "", ;
- COLUMN1.Header1.FontBold = .F., ;
- COLUMN1.Header1.FontCharSet = 0, ;
- COLUMN1.Header1.FontCondense = .F., ;
- COLUMN1.Header1.FontExtend = .F., ;
- COLUMN1.Header1.FontItalic = .F., ;
- COLUMN1.Header1.FontName = "Arial", ;
- COLUMN1.Header1.FontOutline = .F., ;
- COLUMN1.Header1.FontShadow = .F., ;
- COLUMN1.Header1.FontSize = 9, ;
- COLUMN1.Header1.FontStrikethru = .F., ;
- COLUMN1.Header1.FontUnderline = .F., ;
- COLUMN1.Header1.ForeColor = 0,0,0, ;
- COLUMN1.Header1.MouseIcon = ..\..\, ;
- COLUMN1.Header1.MousePointer = 0, ;
- COLUMN1.Header1.Name = "Header1", ;
- COLUMN1.Header1.Picture = ..\..\, ;
- COLUMN1.Header1.StatusBarText = "", ;
- COLUMN1.Header1.Tag = "", ;
- COLUMN1.Header1.ToolTipText = "", ;
- COLUMN1.Header1.WordWrap = .F., ;
- COLUMN1.InputMask = "", ;
- COLUMN1.MouseIcon = ..\..\, ;
- COLUMN1.MousePointer = 0, ;
- COLUMN1.Movable = .T., ;
- COLUMN1.Name = "COLUMN1", ;
- COLUMN1.ReadOnly = .F., ;
- COLUMN1.Resizable = .T., ;
- COLUMN1.SelectOnEntry = .T., ;
- COLUMN1.Sparse = .T., ;
- COLUMN1.StatusBarText = "", ;
- COLUMN1.Tag = "", ;
- COLUMN1.Text1.Alignment = 3, ;
- COLUMN1.Text1.Anchor = 0, ;
- COLUMN1.Text1.AutoComplete = 0, ;
- COLUMN1.Text1.AutoCompSource = "", ;
- COLUMN1.Text1.AutoCompTable = "", ;
- COLUMN1.Text1.BackColor = 255,255,217, ;
- COLUMN1.Text1.BackStyle = 1, ;
- COLUMN1.Text1.BorderColor = 100,100,100, ;
- COLUMN1.Text1.BorderStyle = 0, ;
- COLUMN1.Text1.Century = 1, ;
- COLUMN1.Text1.ColorScheme = 1, ;
- COLUMN1.Text1.ColorSource = 4, ;
- COLUMN1.Text1.Comment = "", ;
- COLUMN1.Text1.DateFormat = 0, ;
- COLUMN1.Text1.DateMark = "", ;
- COLUMN1.Text1.DisabledBackColor = 255,255,255, ;
- COLUMN1.Text1.DisabledForeColor = 109,109,109, ;
- COLUMN1.Text1.DragIcon = ..\..\, ;
- COLUMN1.Text1.DragMode = 0, ;
- COLUMN1.Text1.Enabled = .T., ;
- COLUMN1.Text1.EnableHyperlinks = .F., ;
- COLUMN1.Text1.FontBold = .F., ;
- COLUMN1.Text1.FontCharSet = 0, ;
- COLUMN1.Text1.FontCondense = .F., ;
- COLUMN1.Text1.FontExtend = .F., ;
- COLUMN1.Text1.FontItalic = .F., ;
- COLUMN1.Text1.FontName = "Arial", ;
- COLUMN1.Text1.FontOutline = .F., ;
- COLUMN1.Text1.FontShadow = .F., ;
- COLUMN1.Text1.FontSize = 9, ;
- COLUMN1.Text1.FontStrikethru = .F., ;
- COLUMN1.Text1.FontUnderline = .F., ;
- COLUMN1.Text1.ForeColor = 0,0,0, ;
- COLUMN1.Text1.Format = "", ;
- COLUMN1.Text1.HelpContextID = 0, ;
- COLUMN1.Text1.HideSelection = .T., ;
- COLUMN1.Text1.Hours = 0, ;
- COLUMN1.Text1.IMEMode = 0, ;
- COLUMN1.Text1.InputMask = "", ;
- COLUMN1.Text1.IntegralHeight = .F., ;
- COLUMN1.Text1.MemoWindow = "", ;
- COLUMN1.Text1.MouseIcon = ..\..\, ;
- COLUMN1.Text1.MousePointer = 0, ;
- COLUMN1.Text1.Name = "Text1", ;
- COLUMN1.Text1.NullDisplay = "", ;
- COLUMN1.Text1.OLEDragMode = 0, ;
- COLUMN1.Text1.OLEDragPicture = ..\..\, ;
- COLUMN1.Text1.OLEDropEffects = 3, ;
- COLUMN1.Text1.OLEDropMode = 0, ;
- COLUMN1.Text1.OLEDropTextInsertion = 0, ;
- COLUMN1.Text1.OpenWindow = .F., ;
- COLUMN1.Text1.PasswordChar = "", ;
- COLUMN1.Text1.ReadOnly = .F., ;
- COLUMN1.Text1.RightToLeft = .F., ;
- COLUMN1.Text1.Seconds = 2, ;
- COLUMN1.Text1.SelectedBackColor = 51,153,255, ;
- COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
- COLUMN1.Text1.SelectOnEntry = .F., ;
- COLUMN1.Text1.SpecialEffect = 0, ;
- COLUMN1.Text1.StatusBarText = "", ;
- COLUMN1.Text1.StrictDateEntry = 1, ;
- COLUMN1.Text1.Style = 0, ;
- COLUMN1.Text1.TabIndex = 1, ;
- COLUMN1.Text1.TabStop = .T., ;
- COLUMN1.Text1.Tag = "", ;
- COLUMN1.Text1.TerminateRead = .F., ;
- COLUMN1.Text1.Themes = .T., ;
- COLUMN1.Text1.ToolTipText = "", ;
- COLUMN1.Text1.Value = , ;
- COLUMN1.Text1.Visible = .T., ;
- COLUMN1.ToolTipText = "", ;
- COLUMN1.Visible = .T., ;
- COLUMN1.Width = 170, ;
- COLUMN2.Alignment = 2, ;
- COLUMN2.BackColor = 255,255,217, ;
- COLUMN2.ControlSource = "c_Access", ;
- COLUMN2.DynamicBackColor = 'ICASE( c_access="S", RGB(0,255,0), c_access="N", RGB(255,0,0), RGB(255,255,255) )', ;
- COLUMN2.DynamicForeColor = 'ICASE( c_access="N", RGB(255,255,255), RGB(0,0,0) )', ;
- COLUMN2.Enabled = .T., ;
- COLUMN2.FontBold = .F., ;
- COLUMN2.FontCharSet = 0, ;
- COLUMN2.FontCondense = .F., ;
- COLUMN2.FontExtend = .F., ;
- COLUMN2.FontItalic = .F., ;
- COLUMN2.FontName = "Arial", ;
- COLUMN2.FontOutline = .F., ;
- COLUMN2.FontShadow = .F., ;
- COLUMN2.FontSize = 9, ;
- COLUMN2.FontStrikethru = .F., ;
- COLUMN2.FontUnderline = .F., ;
- COLUMN2.ForeColor = 0,0,0, ;
- COLUMN2.Header1.Alignment = 2, ;
- COLUMN2.Header1.BackColor = 240,240,240, ;
- COLUMN2.Header1.Caption = "Access", ;
- COLUMN2.Header1.FontBold = .F., ;
- COLUMN2.Header1.FontCharSet = 0, ;
- COLUMN2.Header1.FontCondense = .F., ;
- COLUMN2.Header1.FontExtend = .F., ;
- COLUMN2.Header1.FontItalic = .F., ;
- COLUMN2.Header1.FontName = "Arial", ;
- COLUMN2.Header1.FontOutline = .F., ;
- COLUMN2.Header1.FontShadow = .F., ;
- COLUMN2.Header1.FontSize = 9, ;
- COLUMN2.Header1.FontStrikethru = .F., ;
- COLUMN2.Header1.FontUnderline = .F., ;
- COLUMN2.Header1.Name = "Header1", ;
- COLUMN2.Name = "COLUMN2", ;
- COLUMN2.ReadOnly = .F., ;
- COLUMN2.Text1.Alignment = 2, ;
- COLUMN2.Text1.BackColor = 255,255,217, ;
- COLUMN2.Text1.Enabled = .T., ;
- COLUMN2.Text1.FontBold = .F., ;
- COLUMN2.Text1.FontCharSet = 0, ;
- COLUMN2.Text1.FontCondense = .F., ;
- COLUMN2.Text1.FontExtend = .F., ;
- COLUMN2.Text1.FontItalic = .F., ;
- COLUMN2.Text1.FontName = "Arial", ;
- COLUMN2.Text1.FontOutline = .F., ;
- COLUMN2.Text1.FontShadow = .F., ;
- COLUMN2.Text1.FontSize = 9, ;
- COLUMN2.Text1.FontStrikethru = .F., ;
- COLUMN2.Text1.FontUnderline = .F., ;
- COLUMN2.Text1.ForeColor = 0,0,0, ;
- COLUMN2.Text1.Name = "Text1", ;
- COLUMN2.Text1.ReadOnly = .F., ;
- COLUMN2.Text1.RightToLeft = .F., ;
- COLUMN2.Text1.Visible = .T., ;
- COLUMN2.Visible = .T., ;
- COLUMN2.Width = 50, ;
- COLUMN3.Alignment = 2, ;
- COLUMN3.BackColor = 255,255,217, ;
- COLUMN3.ControlSource = "c_Assign", ;
- COLUMN3.DynamicBackColor = 'ICASE( c_assign="S", RGB(0,255,0), c_assign="N", RGB(255,0,0), RGB(255,255,255) )', ;
- COLUMN3.DynamicForeColor = 'ICASE( c_assign="N", RGB(255,255,255), RGB(0,0,0) )', ;
- COLUMN3.Enabled = .T., ;
- COLUMN3.FontBold = .F., ;
- COLUMN3.FontCharSet = 0, ;
- COLUMN3.FontCondense = .F., ;
- COLUMN3.FontExtend = .F., ;
- COLUMN3.FontItalic = .F., ;
- COLUMN3.FontName = "Arial", ;
- COLUMN3.FontOutline = .F., ;
- COLUMN3.FontShadow = .F., ;
- COLUMN3.FontSize = 9, ;
- COLUMN3.FontStrikethru = .F., ;
- COLUMN3.FontUnderline = .F., ;
- COLUMN3.ForeColor = 0,0,0, ;
- COLUMN3.Header1.Alignment = 2, ;
- COLUMN3.Header1.Caption = "Assign", ;
- COLUMN3.Header1.FontBold = .F., ;
- COLUMN3.Header1.FontCharSet = 0, ;
- COLUMN3.Header1.FontCondense = .F., ;
- COLUMN3.Header1.FontExtend = .F., ;
- COLUMN3.Header1.FontItalic = .F., ;
- COLUMN3.Header1.FontName = "Arial", ;
- COLUMN3.Header1.FontOutline = .F., ;
- COLUMN3.Header1.FontShadow = .F., ;
- COLUMN3.Header1.FontSize = 9, ;
- COLUMN3.Header1.FontStrikethru = .F., ;
- COLUMN3.Header1.FontUnderline = .F., ;
- COLUMN3.Header1.Name = "Header1", ;
- COLUMN3.Name = "COLUMN3", ;
- COLUMN3.ReadOnly = .F., ;
- COLUMN3.Text1.Alignment = 2, ;
- COLUMN3.Text1.BackColor = 255,255,217, ;
- COLUMN3.Text1.Enabled = .T., ;
- COLUMN3.Text1.FontBold = .F., ;
- COLUMN3.Text1.FontCharSet = 0, ;
- COLUMN3.Text1.FontCondense = .F., ;
- COLUMN3.Text1.FontExtend = .F., ;
- COLUMN3.Text1.FontItalic = .F., ;
- COLUMN3.Text1.FontName = "Arial", ;
- COLUMN3.Text1.FontOutline = .F., ;
- COLUMN3.Text1.FontShadow = .F., ;
- COLUMN3.Text1.FontSize = 9, ;
- COLUMN3.Text1.FontStrikethru = .F., ;
- COLUMN3.Text1.FontUnderline = .F., ;
- COLUMN3.Text1.ForeColor = 0,0,0, ;
- COLUMN3.Text1.Name = "Text1", ;
- COLUMN3.Text1.ReadOnly = .F., ;
- COLUMN3.Text1.RightToLeft = .F., ;
- COLUMN3.Text1.Visible = .T., ;
- COLUMN3.Visible = .T., ;
- COLUMN3.Width = 50, ;
- COLUMN4.Alignment = 2, ;
- COLUMN4.BackColor = 255,255,217, ;
- COLUMN4.ControlSource = "c_Value", ;
- COLUMN4.DynamicBackColor = 'ICASE( c_value="S", RGB(0,255,0), c_value="N", RGB(255,0,0), RGB(255,255,255) )', ;
- COLUMN4.DynamicForeColor = 'ICASE( c_value="N", RGB(255,255,255), RGB(0,0,0) )', ;
- COLUMN4.Enabled = .T., ;
- COLUMN4.FontBold = .F., ;
- COLUMN4.FontCharSet = 0, ;
- COLUMN4.FontCondense = .F., ;
- COLUMN4.FontExtend = .F., ;
- COLUMN4.FontItalic = .F., ;
- COLUMN4.FontName = "Arial", ;
- COLUMN4.FontOutline = .F., ;
- COLUMN4.FontShadow = .F., ;
- COLUMN4.FontSize = 9, ;
- COLUMN4.FontStrikethru = .F., ;
- COLUMN4.FontUnderline = .F., ;
- COLUMN4.ForeColor = 0,0,0, ;
- COLUMN4.Header1.Alignment = 2, ;
- COLUMN4.Header1.Caption = "Value/Act", ;
- COLUMN4.Header1.FontBold = .F., ;
- COLUMN4.Header1.FontCharSet = 0, ;
- COLUMN4.Header1.FontCondense = .F., ;
- COLUMN4.Header1.FontExtend = .F., ;
- COLUMN4.Header1.FontItalic = .F., ;
- COLUMN4.Header1.FontName = "Arial", ;
- COLUMN4.Header1.FontOutline = .F., ;
- COLUMN4.Header1.FontShadow = .F., ;
- COLUMN4.Header1.FontSize = 9, ;
- COLUMN4.Header1.FontStrikethru = .F., ;
- COLUMN4.Header1.FontUnderline = .F., ;
- COLUMN4.Header1.Name = "Header1", ;
- COLUMN4.Name = "COLUMN4", ;
- COLUMN4.ReadOnly = .F., ;
- COLUMN4.Text1.Alignment = 2, ;
- COLUMN4.Text1.BackColor = 255,255,217, ;
- COLUMN4.Text1.Enabled = .T., ;
- COLUMN4.Text1.FontBold = .F., ;
- COLUMN4.Text1.FontCharSet = 0, ;
- COLUMN4.Text1.FontCondense = .F., ;
- COLUMN4.Text1.FontExtend = .F., ;
- COLUMN4.Text1.FontItalic = .F., ;
- COLUMN4.Text1.FontName = "Arial", ;
- COLUMN4.Text1.FontOutline = .F., ;
- COLUMN4.Text1.FontShadow = .F., ;
- COLUMN4.Text1.FontSize = 9, ;
- COLUMN4.Text1.FontStrikethru = .F., ;
- COLUMN4.Text1.FontUnderline = .F., ;
- COLUMN4.Text1.ForeColor = 0,0,0, ;
- COLUMN4.Text1.Name = "Text1", ;
- COLUMN4.Text1.ReadOnly = .F., ;
- COLUMN4.Text1.RightToLeft = .F., ;
- COLUMN4.Text1.Visible = .T., ;
- COLUMN4.Visible = .T., ;
- COLUMN4.Width = 50, ;
- COLUMN5.Alignment = 2, ;
- COLUMN5.BackColor = 255,255,217, ;
- COLUMN5.ControlSource = "c_ProgrChg", ;
- COLUMN5.DynamicBackColor = 'ICASE( c_ProgrChg="S", RGB(0,255,0), c_ProgrChg="N", RGB(255,0,0), RGB(255,255,255) )', ;
- COLUMN5.DynamicForeColor = 'ICASE( c_ProgrChg="N", RGB(255,255,255), RGB(0,0,0) )', ;
- COLUMN5.Enabled = .T., ;
- COLUMN5.FontBold = .F., ;
- COLUMN5.FontCharSet = 0, ;
- COLUMN5.FontCondense = .F., ;
- COLUMN5.FontExtend = .F., ;
- COLUMN5.FontItalic = .F., ;
- COLUMN5.FontName = "Arial", ;
- COLUMN5.FontOutline = .F., ;
- COLUMN5.FontShadow = .F., ;
- COLUMN5.FontSize = 9, ;
- COLUMN5.FontStrikethru = .F., ;
- COLUMN5.FontUnderline = .F., ;
- COLUMN5.ForeColor = 0,0,0, ;
- COLUMN5.Header1.Alignment = 2, ;
- COLUMN5.Header1.Caption = "Prg.Chg", ;
- COLUMN5.Header1.FontBold = .F., ;
- COLUMN5.Header1.FontCharSet = 0, ;
- COLUMN5.Header1.FontCondense = .F., ;
- COLUMN5.Header1.FontExtend = .F., ;
- COLUMN5.Header1.FontItalic = .F., ;
- COLUMN5.Header1.FontName = "Arial", ;
- COLUMN5.Header1.FontOutline = .F., ;
- COLUMN5.Header1.FontShadow = .F., ;
- COLUMN5.Header1.FontSize = 9, ;
- COLUMN5.Header1.FontStrikethru = .F., ;
- COLUMN5.Header1.FontUnderline = .F., ;
- COLUMN5.Header1.Name = "Header1", ;
- COLUMN5.Name = "COLUMN5", ;
- COLUMN5.ReadOnly = .F., ;
- COLUMN5.Text1.Alignment = 2, ;
- COLUMN5.Text1.BackColor = 255,255,217, ;
- COLUMN5.Text1.Enabled = .T., ;
- COLUMN5.Text1.FontBold = .F., ;
- COLUMN5.Text1.FontCharSet = 0, ;
- COLUMN5.Text1.FontCondense = .F., ;
- COLUMN5.Text1.FontExtend = .F., ;
- COLUMN5.Text1.FontItalic = .F., ;
- COLUMN5.Text1.FontName = "Arial", ;
- COLUMN5.Text1.FontOutline = .F., ;
- COLUMN5.Text1.FontShadow = .F., ;
- COLUMN5.Text1.FontSize = 9, ;
- COLUMN5.Text1.FontStrikethru = .F., ;
- COLUMN5.Text1.FontUnderline = .F., ;
- COLUMN5.Text1.ForeColor = 0,0,0, ;
- COLUMN5.Text1.Name = "Text1", ;
- COLUMN5.Text1.ReadOnly = .F., ;
- COLUMN5.Text1.RightToLeft = .F., ;
- COLUMN5.Text1.Visible = .T., ;
- COLUMN5.Visible = .T., ;
- COLUMN5.Width = 50, ;
- Column6.Alignment = 2, ;
- Column6.BackColor = 255,255,217, ;
- Column6.ControlSource = "c_UI", ;
- Column6.DynamicBackColor = 'ICASE( c_UI="S", RGB(0,255,0), c_UI="N", RGB(255,0,0), RGB(255,255,255) )', ;
- Column6.DynamicForeColor = 'ICASE( c_UI="N", RGB(255,255,255), RGB(0,0,0) )', ;
- Column6.Enabled = .T., ;
- Column6.FontBold = .F., ;
- Column6.FontCharSet = 0, ;
- Column6.FontCondense = .F., ;
- Column6.FontExtend = .F., ;
- Column6.FontItalic = .F., ;
- Column6.FontName = "Arial", ;
- Column6.FontOutline = .F., ;
- Column6.FontShadow = .F., ;
- Column6.FontSize = 9, ;
- Column6.FontStrikethru = .F., ;
- Column6.FontUnderline = .F., ;
- Column6.ForeColor = 0,0,0, ;
- Column6.Name = "Column6", ;
- Column6.ReadOnly = .F., ;
- Column6.Visible = .T., ;
- Column6.Width = 50
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
-
- ADD OBJECT 'Cl_grid1.Column6.Header1' AS header WITH ;
- Alignment = 2, ;
- Caption = "UI", ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'Cl_grid1.Column6.Text1' AS textbox WITH ;
- Alignment = 2, ;
- BackColor = 255,255,217, ;
- BorderStyle = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- RightToLeft = .F., ;
- Visible = .T.
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Cl_image1' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 255,0,0, ;
- BorderStyle = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 104, ;
- HelpContextID = 0, ;
- Left = 764, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\vfpxlogo.bmp, ;
- RotateFlip = 0, ;
- StatusBarText = "", ;
- Stretch = 0, ;
- Tag = "", ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 284, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 212, ;
- ZOrderSet = 0
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Image1' AS image WITH ;
- BorderColor = 255,0,0, ;
- BorderStyle = 1, ;
- Enabled = .T., ;
- Height = 104, ;
- Left = 764, ;
- Name = "Image1", ;
- Picture = bmps\vfpxlogo.bmp, ;
- Top = 180, ;
- Width = 212
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'pgf' AS cl_pageframe WITH ;
- ActivePage = 2, ;
- Anchor = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ErasePage = .T., ;
- Height = 384, ;
- HelpContextID = 0, ;
- Left = 12, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "pgf", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PageCount = 2, ;
- RightToLeft = .F., ;
- StatusBarText = "", ;
- TabIndex = 7, ;
- TabOrientation = 1, ;
- Tabs = .T., ;
- TabStop = .T., ;
- TabStretch = 1, ;
- TabStyle = 0, ;
- Tag = "", ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 28, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 268, ;
- Page1.BackColor = 240,240,240, ;
- Page1.Caption = "Page1", ;
- Page1.ColorSource = 4, ;
- Page1.Comment = "Sin comentarios", ;
- Page1.DragIcon = ..\..\, ;
- Page1.DragMode = 0, ;
- Page1.Enabled = .T., ;
- Page1.FontBold = .F., ;
- Page1.FontCharSet = 0, ;
- Page1.FontCondense = .F., ;
- Page1.FontExtend = .F., ;
- Page1.FontItalic = .F., ;
- Page1.FontName = "Arial", ;
- Page1.FontOutline = .F., ;
- Page1.FontShadow = .F., ;
- Page1.FontSize = 9, ;
- Page1.FontStrikethru = .F., ;
- Page1.FontUnderline = .F., ;
- Page1.ForeColor = 0,0,0, ;
- Page1.HelpContextID = 0, ;
- Page1.MouseIcon = ..\..\, ;
- Page1.MousePointer = 0, ;
- Page1.Name = "Page1", ;
- Page1.OLEDragMode = 0, ;
- Page1.OLEDragPicture = ..\..\, ;
- Page1.OLEDropEffects = 3, ;
- Page1.OLEDropMode = 0, ;
- Page1.PageOrder = 1, ;
- Page1.Picture = ..\..\, ;
- Page1.StatusBarText = "", ;
- Page1.Tag = "", ;
- Page1.ToolTipText = "", ;
- Page1.WhatsThisHelpID = -1, ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2", ;
- Page2.PageOrder = 2
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
-
- ADD OBJECT 'pgf.Page1.checkbox' AS cl_checkbox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- Caption = "Chk1", ;
- Centered = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (21), ;
- HelpContextID = 0, ;
- Left = (7), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "checkbox", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\treeview.bmp, ;
- PictureMargin = 0, ;
- PicturePosition = 4, ;
- PictureSpacing = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 1, ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (8), ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (199), ;
- WordWrap = .F., ;
- ZOrderSet = 1
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" />
-
- ADD OBJECT 'pgf.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (46), ;
- HelpContextID = 0, ;
- Left = 123, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_optiongroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 231, ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (112), ;
- ZOrderSet = 20, ;
- Option1.Alignment = 0, ;
- Option1.Anchor = 0, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 192,192,192, ;
- Option1.BackStyle = 1, ;
- Option1.Caption = "Esta es la opc. 1", ;
- Option1.ColorScheme = 1, ;
- Option1.ColorSource = 4, ;
- Option1.Comment = "", ;
- Option1.ControlSource = "", ;
- Option1.DisabledBackColor = 240,240,240, ;
- Option1.DisabledForeColor = 109,109,109, ;
- Option1.DisabledPicture = ..\..\, ;
- Option1.DownPicture = ..\..\, ;
- Option1.DragIcon = ..\..\, ;
- Option1.DragMode = 0, ;
- Option1.Enabled = .T., ;
- Option1.FontBold = .F., ;
- Option1.FontCondense = .F., ;
- Option1.FontExtend = .F., ;
- Option1.FontItalic = .F., ;
- Option1.FontName = "Arial", ;
- Option1.FontOutline = .F., ;
- Option1.FontShadow = .F., ;
- Option1.FontSize = 8, ;
- Option1.FontStrikethru = .F., ;
- Option1.FontUnderline = .F., ;
- Option1.ForeColor = 0,0,0, ;
- Option1.Height = 16, ;
- Option1.HelpContextID = 0, ;
- Option1.Left = 5, ;
- Option1.MouseIcon = ..\..\, ;
- Option1.MousePointer = 0, ;
- Option1.Name = "Option1", ;
- Option1.OLEDragMode = 0, ;
- Option1.OLEDragPicture = ..\..\, ;
- Option1.OLEDropEffects = 3, ;
- Option1.OLEDropMode = 0, ;
- Option1.Picture = bmps\scccheckout.bmp, ;
- Option1.PictureMargin = 0, ;
- Option1.PicturePosition = 4, ;
- Option1.PictureSpacing = 0, ;
- Option1.RightToLeft = .F., ;
- Option1.SpecialEffect = 0, ;
- Option1.StatusBarText = "", ;
- Option1.Style = 0, ;
- Option1.TabIndex = 1, ;
- Option1.TabStop = .T., ;
- Option1.Tag = "", ;
- Option1.TerminateRead = .F., ;
- Option1.Themes = .T., ;
- Option1.ToolTipText = "", ;
- Option1.Top = 5, ;
- Option1.Value = 0, ;
- Option1.Visible = .T., ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 98, ;
- Option1.WordWrap = .F., ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 192,192,192, ;
- Option2.Caption = "Esta es la opc. 2", ;
- Option2.FontSize = 8, ;
- Option2.Height = 16, ;
- Option2.Left = 5, ;
- Option2.Name = "Option2", ;
- Option2.Picture = bmps\scccheckout.bmp, ;
- Option2.PicturePosition = 4, ;
- Option2.Style = 0, ;
- Option2.Top = 24, ;
- Option2.Value = 1, ;
- Option2.Width = 102
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ;
- Left = 218, ;
- Name = "collection", ;
- Top = 8
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />
-
- ADD OBJECT 'pgf.Page1.combobox' AS cl_combobox WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 128,255,128, ;
- BorderStyle = 1, ;
- BoundColumn = 1, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 0, ;
- ColumnLines = .T., ;
- ColumnWidths = "", ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayCount = 0, ;
- DisplayValue = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (20), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IncrementalSearch = .T., ;
- InputMask = "", ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = (7), ;
- Margin = 0, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "combobox", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- Picture = bmps\treeview.bmp, ;
- PictureSelectionDisplay = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (35), ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (196), ;
- ZOrderSet = 3
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" />
-
- ADD OBJECT 'pgf.Page1.commandbutton' AS cl_commandbutton WITH ;
- AutoSize = .F., ;
- Caption = "Comando", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- FontSize = 8, ;
- Height = (25), ;
- Left = (99), ;
- Name = "commandbutton", ;
- Picture = bmps\treeview.bmp, ;
- PicturePosition = 4, ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (63), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (80), ;
- WordWrap = .F., ;
- ZOrderSet = 5
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" />
-
- ADD OBJECT 'pgf.Page1.commandgroup' AS cl_commandgroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (64), ;
- HelpContextID = 0, ;
- Left = (6), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "commandgroup", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 2, ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (60), ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (93), ;
- ZOrderSet = 4, ;
- Command1.Alignment = 2, ;
- Command1.Anchor = 0, ;
- Command1.AutoSize = .F., ;
- Command1.BackColor = 192,192,192, ;
- Command1.Cancel = .F., ;
- Command1.Caption = "Comando1", ;
- Command1.ColorScheme = 1, ;
- Command1.ColorSource = 4, ;
- Command1.Comment = "", ;
- Command1.Default = .F., ;
- Command1.DisabledBackColor = 240,240,240, ;
- Command1.DisabledForeColor = 109,109,109, ;
- Command1.DisabledPicture = ..\..\, ;
- Command1.DownPicture = ..\..\, ;
- Command1.DragIcon = ..\..\, ;
- Command1.DragMode = 0, ;
- Command1.Enabled = .T., ;
- Command1.FontBold = .F., ;
- Command1.FontCharSet = 0, ;
- Command1.FontCondense = .F., ;
- Command1.FontExtend = .F., ;
- Command1.FontItalic = .F., ;
- Command1.FontName = "Arial", ;
- Command1.FontOutline = .F., ;
- Command1.FontShadow = .F., ;
- Command1.FontSize = 8, ;
- Command1.FontStrikethru = .F., ;
- Command1.FontUnderline = .F., ;
- Command1.ForeColor = 0,0,0, ;
- Command1.Height = 25, ;
- Command1.HelpContextID = 0, ;
- Command1.Left = 1, ;
- Command1.MouseIcon = ..\..\, ;
- Command1.MousePointer = 0, ;
- Command1.Name = "Command1", ;
- Command1.OLEDragMode = 0, ;
- Command1.OLEDragPicture = ..\..\, ;
- Command1.OLEDropEffects = 3, ;
- Command1.OLEDropMode = 0, ;
- Command1.Picture = bmps\sobrepostal.bmp, ;
- Command1.PictureMargin = 0, ;
- Command1.PicturePosition = 4, ;
- Command1.PictureSpacing = 0, ;
- Command1.RightToLeft = .F., ;
- Command1.SpecialEffect = 0, ;
- Command1.StatusBarText = "", ;
- Command1.Style = 0, ;
- Command1.TabIndex = 1, ;
- Command1.TabStop = .T., ;
- Command1.Tag = "", ;
- Command1.TerminateRead = .F., ;
- Command1.Themes = .T., ;
- Command1.ToolTipText = "", ;
- Command1.Top = 4, ;
- Command1.Visible = .T., ;
- Command1.WhatsThisHelpID = -1, ;
- Command1.Width = 90, ;
- Command1.WordWrap = .F., ;
- Command2.AutoSize = .F., ;
- Command2.BackColor = 192,192,192, ;
- Command2.Caption = "Comando2", ;
- Command2.FontSize = 8, ;
- Command2.Height = 25, ;
- Command2.Left = 1, ;
- Command2.Name = "Command2", ;
- Command2.Picture = bmps\sobrepostal.bmp, ;
- Command2.PicturePosition = 4, ;
- Command2.Top = 32, ;
- Command2.Width = 90
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" />
-
- ADD OBJECT 'pgf.Page1.container' AS cl_container WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ForeColor = 0,0,0, ;
- Height = (24), ;
- HelpContextID = 0, ;
- Left = (227), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "container", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- SpecialEffect = 2, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 4, ;
- TabStop = .T., ;
- Tag = "", ;
- test_aa = .F., ;
- ToolTipText = "", ;
- Top = (127), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (20), ;
- ZOrderSet = 6
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" />
-
- ADD OBJECT 'pgf.Page1.control' AS cl_control WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ForeColor = 0,0,0, ;
- Height = (24), ;
- HelpContextID = 0, ;
- Left = (199), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "control", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- SpecialEffect = 2, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 5, ;
- TabStop = .T., ;
- Tag = "", ;
- test_aa = .F., ;
- ToolTipText = "", ;
- Top = (127), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (20), ;
- ZOrderSet = 7
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" />
-
- ADD OBJECT 'pgf.Page1.editbox' AS cl_editbox WITH ;
- AddLineFeeds = .F., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 128,255,128, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (41), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = (183), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "editbox", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (60), ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (68), ;
- ZOrderSet = 8
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
-
- ADD OBJECT 'pgf.Page1.hyperlink' AS cl_hyperlink WITH ;
- Comment = "", ;
- Left = 199, ;
- Name = "hyperlink", ;
- Tag = "", ;
- test_aa = .F., ;
- Top = 103
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />
-
- ADD OBJECT 'pgf.Page1.image' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 231, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "image", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\scccheckout.bmp, ;
- RotateFlip = 0, ;
- StatusBarText = "", ;
- Stretch = 0, ;
- Tag = "", ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 107, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16, ;
- ZOrderSet = 10
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'pgf.Page1.label' AS cl_label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (17), ;
- HelpContextID = 0, ;
- Left = (6), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "label", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 7, ;
- Tag = "", ;
- test_aa = .F., ;
- ToolTipText = "", ;
- Top = (136), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (104), ;
- WordWrap = .F., ;
- ZOrderSet = 11
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
-
- ADD OBJECT 'pgf.Page1.line' AS cl_line WITH ;
- Anchor = 0, ;
- BorderColor = 255,0,0, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .T., ;
- Height = (8), ;
- HelpContextID = 0, ;
- Left = (121), ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "line", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- test_aa = .F., ;
- ToolTipText = "", ;
- Top = (136), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (50), ;
- ZOrderSet = 12
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
-
- ADD OBJECT 'pgf.Page1.listbox' AS cl_listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 128,255,128, ;
- BoundColumn = 1, ;
- BoundTo = .F., ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- ColumnCount = 0, ;
- ColumnLines = .T., ;
- ColumnWidths = "", ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 255,255,255, ;
- DisabledForeColor = 109,109,109, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DisplayValue = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = (60), ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = (7), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "listbox", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 8, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (164), ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (224), ;
- ZOrderSet = 13
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
-
- ADD OBJECT 'pgf.Page1.option' AS cl_option WITH ;
- AutoSize = .F., ;
- Caption = "Esta es la opción B", ;
- DefHeight = , ;
- DefWidth = , ;
- FontSize = 8, ;
- Height = (16), ;
- Left = 11, ;
- Name = "option", ;
- Top = 283, ;
- Width = (110), ;
- ZOrderSet = 15
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />
-
- ADD OBJECT 'pgf.Page1.optiongroup' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (46), ;
- HelpContextID = 0, ;
- Left = (7), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "optiongroup", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (232), ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (112), ;
- ZOrderSet = 14, ;
- Option1.Alignment = 0, ;
- Option1.Anchor = 0, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 192,192,192, ;
- Option1.BackStyle = 1, ;
- Option1.Caption = "Esta es la opc. 1", ;
- Option1.ColorScheme = 1, ;
- Option1.ColorSource = 4, ;
- Option1.Comment = "", ;
- Option1.ControlSource = "", ;
- Option1.DisabledBackColor = 240,240,240, ;
- Option1.DisabledForeColor = 109,109,109, ;
- Option1.DisabledPicture = ..\..\, ;
- Option1.DownPicture = ..\..\, ;
- Option1.DragIcon = ..\..\, ;
- Option1.DragMode = 0, ;
- Option1.Enabled = .T., ;
- Option1.FontBold = .F., ;
- Option1.FontCondense = .F., ;
- Option1.FontExtend = .F., ;
- Option1.FontItalic = .F., ;
- Option1.FontName = "Arial", ;
- Option1.FontOutline = .F., ;
- Option1.FontShadow = .F., ;
- Option1.FontSize = 8, ;
- Option1.FontStrikethru = .F., ;
- Option1.FontUnderline = .F., ;
- Option1.ForeColor = 0,0,0, ;
- Option1.Height = 41, ;
- Option1.HelpContextID = 0, ;
- Option1.Left = 5, ;
- Option1.MouseIcon = ..\..\, ;
- Option1.MousePointer = 0, ;
- Option1.Name = "Option1", ;
- Option1.OLEDragMode = 0, ;
- Option1.OLEDragPicture = ..\..\, ;
- Option1.OLEDropEffects = 3, ;
- Option1.OLEDropMode = 0, ;
- Option1.Picture = bmps\scccheckout.bmp, ;
- Option1.PictureMargin = 0, ;
- Option1.PicturePosition = 4, ;
- Option1.PictureSpacing = 0, ;
- Option1.RightToLeft = .F., ;
- Option1.SpecialEffect = 0, ;
- Option1.StatusBarText = "", ;
- Option1.Style = 1, ;
- Option1.TabIndex = 1, ;
- Option1.TabStop = .T., ;
- Option1.Tag = "", ;
- Option1.TerminateRead = .F., ;
- Option1.Themes = .T., ;
- Option1.ToolTipText = "", ;
- Option1.Top = 5, ;
- Option1.Value = 0, ;
- Option1.Visible = .T., ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 112, ;
- Option1.WordWrap = .F., ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 192,192,192, ;
- Option2.Caption = "Esta es la opc. 2", ;
- Option2.FontSize = 8, ;
- Option2.Height = 16, ;
- Option2.Left = 5, ;
- Option2.Name = "Option2", ;
- Option2.Picture = bmps\scccheckout.bmp, ;
- Option2.PicturePosition = 4, ;
- Option2.Style = 1, ;
- Option2.Top = 24, ;
- Option2.Value = 1, ;
- Option2.Width = 103
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'pgf.Page1.Pageframe1' AS pageframe WITH ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- ErasePage = .T., ;
- Height = (61), ;
- Left = (135), ;
- MemberClass = "cl_page", ;
- MemberClassLibrary = lib_controles.vcx, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- TabOrientation = 2, ;
- Themes = .F., ;
- Top = (284), ;
- Width = (117), ;
- ZOrderSet = 19, ;
- Cl_page1.Caption = "Pg1", ;
- Cl_page1.Name = "Cl_page1", ;
- Cl_page2.BackColor = 255,193,132, ;
- Cl_page2.Caption = "Pg2", ;
- Cl_page2.Name = "Cl_page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'pgf.Page1.spinner' AS cl_spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 128,255,128, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (19), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 11, ;
- Margin = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "spinner", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabIndex = 9, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 303, ;
- Value = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (108), ;
- ZOrderSet = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
-
- ADD OBJECT 'pgf.Page1.textbox' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 128,255,128, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DefHeight = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (19), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 11, ;
- Margin = 0, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "textbox", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- test_aa = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 327, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (108), ;
- ZOrderSet = 17
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ;
- Comment = "", ;
- DefHeight = , ;
- DefWidth = , ;
- Enabled = .T., ;
- Height = (23), ;
- Interval = 0, ;
- Left = 235, ;
- Name = "timer", ;
- Tag = "", ;
- test_aa = .F., ;
- Top = 255, ;
- Width = (23)
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
-
- PROCEDURE Activate
- IF NOT THISFORM.l_activated
- THISFORM.run_tests()
- THISFORM.l_activated = .T.
- ENDIF
-
- ENDPROC
-
- PROCEDURE add_control
- LPARAMETERS toControl
-
- LOCAL lcCtlPath
-
- WITH THISFORM
- lcCtlPath = SYS(1272, toControl)
-
- INSERT INTO C_TESTS ;
- ( c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg, c_UI ) ;
- VALUES ;
- ( SUBSTR( lcCtlPath, LEN(.NAME) + 2), 'N', 'N', 'N', 'N', 'N' )
- ENDWITH
-
- ENDPROC
-
- PROCEDURE Load
- CREATE CURSOR C_TESTS ( c_CtlName C(30), c_Access C(1), c_Assign C(1), c_Value C(1), c_ProgrChg C(1), c_UI C(1) )
- INDEX ON c_CtlName TAG c_CtlName
-
- ENDPROC
-
- PROCEDURE run_tests
- TRY
- LOCAL loEx AS Exception, loCtl
-
- WITH THISFORM AS Form
- *-- c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg
- THISFORM.pgf.page1.SETALL( "Tag", "" )
- THISFORM.pgf.ActivePage = 1
-
- SCAN
- *-- Test UI Enable
- loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
- DO CASE
- CASE NOT PEMSTATUS(loCtl, 'UIEnable',5)
- REPLACE c_UI WITH "-"
- CASE loCtl.Tag = "UI"
- REPLACE c_UI WITH "S"
- ENDCASE
- ENDSCAN
-
- SCAN
- *-- Test Access
- loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
- loCtl.Tag = ''
- IF loCtl.test_aa = "ACCESS_OK"
- REPLACE c_Access WITH "S"
- ENDIF
- ENDSCAN
-
- SCAN
- *-- Test Assign
- loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
- loCtl.Tag = ''
- loCtl.test_aa = "ASSIGN_OK"
- IF loCtl.Tag = "ASSIGN_OK"
- REPLACE c_Assign WITH "S"
- ENDIF
- ENDSCAN
-
- SCAN
- *-- Test Valor/Activate
- loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
-
- DO CASE
- CASE loCtl.Baseclass == 'Checkbox'
- .valor = 1
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Combobox'
- .valor = 3
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Commandgroup'
- .valor = 2
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Editbox'
- .valor = 'Texto editable'
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Listbox'
- .valor = 3
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Optiongroup'
- .valor = 2
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Optionbutton'
- .valor = 2
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Spinner'
- .valor = 123
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Textbox'
- .valor = "Mi texto"
- loCtl.ControlSource = 'THISFORM.valor'
- IF loCtl.Value = .valor
- REPLACE c_Value WITH "S"
- ENDIF
- loCtl.ControlSource = ''
-
- CASE loCtl.Baseclass == 'Page'
- loCtl.Parent.ActivePage = 2
- IF loCtl.Tag = 'AC'
- REPLACE c_Value WITH "S"
- ENDIF
-
- OTHERWISE
- REPLACE c_Value WITH "-"
-
- ENDCASE
- ENDSCAN
-
- SCAN
- *-- Test ProgrammaticChange
- loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) )
- .Tag = ''
- DO CASE
- CASE loCtl.Baseclass == 'Checkbox'
- loCtl.Value = 0
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Combobox'
- loCtl.Value = 1
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Commandgroup'
- loCtl.Value = 1
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Editbox'
- loCtl.Value = 'Editado!'
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Listbox'
- loCtl.Value = 1
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Optiongroup'
- loCtl.Value = 1
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Spinner'
- loCtl.Value = 321
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- CASE loCtl.Baseclass == 'Textbox'
- loCtl.Value = 'Editado!'
- IF NOT EMPTY(.tag)
- REPLACE c_ProgrChg WITH "S"
- ENDIF
-
- OTHERWISE
- REPLACE c_ProgrChg WITH "-"
-
- ENDCASE
-
- ENDSCAN
- ENDWITH
-
-
- CATCH TO loEx
- THISFORM.edit1.Value = 'Error ' + TRANSFORM(loEx.ErrorNo) + CHR(13) ;
- + loEx.Message + CHR(13) ;
- + loEx.Procedure + ', Line ' + TRANSFORM(loEx.LineNo) + CHR(13) ;
- + loEx.Details
-
- FINALLY
- IF USED("C_TESTS")
- SELECT C_TESTS
- GO TOP
- ENDIF
-
- ENDTRY
-
- ENDPROC
-
- PROCEDURE pgf.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.checkbox.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.checkbox.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.checkbox.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.checkbox.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.checkbox.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Cl_optiongroup1.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Cl_optiongroup1.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.collection.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.collection.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.collection.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.combobox.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.combobox.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.combobox.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.combobox.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.combobox.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandbutton.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandbutton.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandbutton.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandbutton.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandgroup.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandgroup.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandgroup.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandgroup.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.commandgroup.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.container.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.container.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.container.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.container.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.control.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.control.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.control.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.control.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.editbox.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.editbox.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.editbox.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.editbox.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.editbox.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.hyperlink.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.hyperlink.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.hyperlink.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.image.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.image.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.image.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.image.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.label.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.label.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.label.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.label.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.line.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.line.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.line.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.line.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.listbox.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.listbox.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
-
- ENDPROC
-
- PROCEDURE pgf.Page1.listbox.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.listbox.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.listbox.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.option.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.option.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.option.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.option.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.optiongroup.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.optiongroup.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
-
- ENDPROC
-
- PROCEDURE pgf.Page1.optiongroup.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.optiongroup.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.optiongroup.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Activate
- THIS.Tag = 'AC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.Init
- this.Cl_page2.Init()
-
- ENDPROC
-
- PROCEDURE pgf.Page1.Pageframe1.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THISFORM.pgf.Tag = 'UI'
- ENDIF
-
-
- ENDPROC
-
- PROCEDURE pgf.Page1.spinner.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.spinner.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
-
- ENDPROC
-
- PROCEDURE pgf.Page1.spinner.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.spinner.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.spinner.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.textbox.Init
- THISFORM.add_control( THIS )
-
- ENDPROC
-
- PROCEDURE pgf.Page1.textbox.ProgrammaticChange
- THISFORM.Tag = 'PC'
-
- ENDPROC
-
- PROCEDURE pgf.Page1.textbox.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.textbox.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.Page1.textbox.UIEnable
- LPARAMETERS lEnable
-
- IF lEnable
- THIS.Tag = 'UI'
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.timer.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.Page1.timer.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
- PROCEDURE pgf.test_aa_access
- IF EMPTY(THIS.Tag)
- RETURN "ACCESS_OK"
- ELSE
- RETURN THIS.Tag
- ENDIF
-
- ENDPROC
-
- PROCEDURE pgf.test_aa_assign
- LPARAMETERS vNewVal
-
- THIS.test_aa = m.vNewVal
- THIS.Tag = EVL(m.vNewVal,'')
-
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_form_aa2.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_form_aa2.dataenvironment.sc2
new file mode 100644
index 0000000..721eec0
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_aa2.dataenvironment.sc2
@@ -0,0 +1,17 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+
+ *
+ DataSource = .NULL.
+ Name = "Dataenvironment"
+ TabStop = .F.
+ Visible = .F.
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_aa2.f_form_aa1.sc2 b/TESTS/DATOS_READONLY/f_form_aa2.f_form_aa1.sc2
new file mode 100644
index 0000000..ce5b6c2
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_aa2.f_form_aa1.sc2
@@ -0,0 +1,1322 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *
+ AlwaysOnTop = .T.
+ DefHeight =
+ DefLeft =
+ DefTop =
+ DoCreate = .T.
+ Height = (460)
+ Left = (2)
+ Name = "F_form_aa1"
+ Top = (4)
+ Cl_image1.Height = 104
+ Cl_image1.Name = "Cl_image1"
+ Cl_image1.Width = 212
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ cmdCapturar.Name = "cmdCapturar"
+ Label1.Name = "Label1"
+ Label2.Name = "Label2"
+ Cl_grid1.AllowAddNew = .F.
+ Cl_grid1.AllowAutoColumnFit = 0
+ Cl_grid1.AllowCellSelection = .T.
+ Cl_grid1.AllowHeaderSizing = .F.
+ Cl_grid1.AllowRowSizing = .F.
+ Cl_grid1.Anchor = 0
+ Cl_grid1.BackColor = 255,255,217
+ Cl_grid1.ChildOrder = ""
+ Cl_grid1.COLUMN1.Alignment = 3
+ Cl_grid1.COLUMN1.BackColor = 255,255,217
+ Cl_grid1.COLUMN1.Bound = .T.
+ Cl_grid1.COLUMN1.ColumnOrder = 1
+ Cl_grid1.COLUMN1.Comment = ""
+ Cl_grid1.COLUMN1.ControlSource = ""
+ Cl_grid1.COLUMN1.CurrentControl = "Text1"
+ Cl_grid1.COLUMN1.DynamicAlignment = ""
+ Cl_grid1.COLUMN1.DynamicBackColor = ""
+ Cl_grid1.COLUMN1.DynamicCurrentControl = ""
+ Cl_grid1.COLUMN1.DynamicFontBold = ""
+ Cl_grid1.COLUMN1.DynamicFontItalic = ""
+ Cl_grid1.COLUMN1.DynamicFontName = ""
+ Cl_grid1.COLUMN1.DynamicFontOutline = ""
+ Cl_grid1.COLUMN1.DynamicFontShadow = ""
+ Cl_grid1.COLUMN1.DynamicFontSize = ""
+ Cl_grid1.COLUMN1.DynamicFontStrikethru = ""
+ Cl_grid1.COLUMN1.DynamicFontUnderline = ""
+ Cl_grid1.COLUMN1.DynamicForeColor = ""
+ Cl_grid1.COLUMN1.DynamicInputMask = ""
+ Cl_grid1.COLUMN1.Enabled = .T.
+ Cl_grid1.COLUMN1.FontBold = .F.
+ Cl_grid1.COLUMN1.FontCondense = .F.
+ Cl_grid1.COLUMN1.FontExtend = .F.
+ Cl_grid1.COLUMN1.FontItalic = .F.
+ Cl_grid1.COLUMN1.FontName = "Arial"
+ Cl_grid1.COLUMN1.FontOutline = .F.
+ Cl_grid1.COLUMN1.FontShadow = .F.
+ Cl_grid1.COLUMN1.FontSize = 9
+ Cl_grid1.COLUMN1.FontStrikethru = .F.
+ Cl_grid1.COLUMN1.FontUnderline = .F.
+ Cl_grid1.COLUMN1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN1.Format = ""
+ Cl_grid1.COLUMN1.Header1.Alignment = 0
+ Cl_grid1.COLUMN1.Header1.BackColor = 240,240,240
+ Cl_grid1.COLUMN1.Header1.Caption = "Control"
+ Cl_grid1.COLUMN1.Header1.Comment = ""
+ Cl_grid1.COLUMN1.Header1.FontBold = .F.
+ Cl_grid1.COLUMN1.Header1.FontCondense = .F.
+ Cl_grid1.COLUMN1.Header1.FontExtend = .F.
+ Cl_grid1.COLUMN1.Header1.FontItalic = .F.
+ Cl_grid1.COLUMN1.Header1.FontName = "Arial"
+ Cl_grid1.COLUMN1.Header1.FontOutline = .F.
+ Cl_grid1.COLUMN1.Header1.FontShadow = .F.
+ Cl_grid1.COLUMN1.Header1.FontSize = 9
+ Cl_grid1.COLUMN1.Header1.FontStrikethru = .F.
+ Cl_grid1.COLUMN1.Header1.FontUnderline = .F.
+ Cl_grid1.COLUMN1.Header1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN1.Header1.MouseIcon = ..\..\
+ Cl_grid1.COLUMN1.Header1.MousePointer = 0
+ Cl_grid1.COLUMN1.Header1.Name = "Header1"
+ Cl_grid1.COLUMN1.Header1.Picture = ..\..\
+ Cl_grid1.COLUMN1.Header1.StatusBarText = ""
+ Cl_grid1.COLUMN1.Header1.Tag = ""
+ Cl_grid1.COLUMN1.Header1.ToolTipText = ""
+ Cl_grid1.COLUMN1.Header1.WordWrap = .F.
+ Cl_grid1.COLUMN1.InputMask = ""
+ Cl_grid1.COLUMN1.MouseIcon = ..\..\
+ Cl_grid1.COLUMN1.MousePointer = 0
+ Cl_grid1.COLUMN1.Movable = .T.
+ Cl_grid1.COLUMN1.Name = "COLUMN1"
+ Cl_grid1.COLUMN1.ReadOnly = .F.
+ Cl_grid1.COLUMN1.Resizable = .T.
+ Cl_grid1.COLUMN1.SelectOnEntry = .T.
+ Cl_grid1.COLUMN1.Sparse = .T.
+ Cl_grid1.COLUMN1.Text1.Alignment = 3
+ Cl_grid1.COLUMN1.Text1.BackColor = 255,255,217
+ Cl_grid1.COLUMN1.Text1.Enabled = .T.
+ Cl_grid1.COLUMN1.Text1.FontBold = .F.
+ Cl_grid1.COLUMN1.Text1.FontCondense = .F.
+ Cl_grid1.COLUMN1.Text1.FontExtend = .F.
+ Cl_grid1.COLUMN1.Text1.FontItalic = .F.
+ Cl_grid1.COLUMN1.Text1.FontName = "Arial"
+ Cl_grid1.COLUMN1.Text1.FontOutline = .F.
+ Cl_grid1.COLUMN1.Text1.FontShadow = .F.
+ Cl_grid1.COLUMN1.Text1.FontSize = 9
+ Cl_grid1.COLUMN1.Text1.FontStrikethru = .F.
+ Cl_grid1.COLUMN1.Text1.FontUnderline = .F.
+ Cl_grid1.COLUMN1.Text1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN1.Text1.Name = "Text1"
+ Cl_grid1.COLUMN1.Text1.ReadOnly = .F.
+ Cl_grid1.COLUMN1.Text1.Visible = .T.
+ Cl_grid1.COLUMN1.Visible = .T.
+ Cl_grid1.COLUMN1.Width = 170
+ Cl_grid1.COLUMN2.BackColor = 255,255,217
+ Cl_grid1.COLUMN2.ControlSource = ""
+ Cl_grid1.COLUMN2.Enabled = .T.
+ Cl_grid1.COLUMN2.FontBold = .F.
+ Cl_grid1.COLUMN2.FontCondense = .F.
+ Cl_grid1.COLUMN2.FontExtend = .F.
+ Cl_grid1.COLUMN2.FontItalic = .F.
+ Cl_grid1.COLUMN2.FontName = "Arial"
+ Cl_grid1.COLUMN2.FontOutline = .F.
+ Cl_grid1.COLUMN2.FontShadow = .F.
+ Cl_grid1.COLUMN2.FontSize = 9
+ Cl_grid1.COLUMN2.FontStrikethru = .F.
+ Cl_grid1.COLUMN2.FontUnderline = .F.
+ Cl_grid1.COLUMN2.ForeColor = 0,0,0
+ Cl_grid1.COLUMN2.Header1.FontBold = .F.
+ Cl_grid1.COLUMN2.Header1.FontCondense = .F.
+ Cl_grid1.COLUMN2.Header1.FontExtend = .F.
+ Cl_grid1.COLUMN2.Header1.FontItalic = .F.
+ Cl_grid1.COLUMN2.Header1.FontName = "Arial"
+ Cl_grid1.COLUMN2.Header1.FontOutline = .F.
+ Cl_grid1.COLUMN2.Header1.FontShadow = .F.
+ Cl_grid1.COLUMN2.Header1.FontSize = 9
+ Cl_grid1.COLUMN2.Header1.FontStrikethru = .F.
+ Cl_grid1.COLUMN2.Header1.FontUnderline = .F.
+ Cl_grid1.COLUMN2.Header1.Name = "Header1"
+ Cl_grid1.COLUMN2.Name = "COLUMN2"
+ Cl_grid1.COLUMN2.ReadOnly = .F.
+ Cl_grid1.COLUMN2.Text1.BackColor = 255,255,217
+ Cl_grid1.COLUMN2.Text1.Enabled = .T.
+ Cl_grid1.COLUMN2.Text1.FontBold = .F.
+ Cl_grid1.COLUMN2.Text1.FontCondense = .F.
+ Cl_grid1.COLUMN2.Text1.FontExtend = .F.
+ Cl_grid1.COLUMN2.Text1.FontItalic = .F.
+ Cl_grid1.COLUMN2.Text1.FontName = "Arial"
+ Cl_grid1.COLUMN2.Text1.FontOutline = .F.
+ Cl_grid1.COLUMN2.Text1.FontShadow = .F.
+ Cl_grid1.COLUMN2.Text1.FontSize = 9
+ Cl_grid1.COLUMN2.Text1.FontStrikethru = .F.
+ Cl_grid1.COLUMN2.Text1.FontUnderline = .F.
+ Cl_grid1.COLUMN2.Text1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN2.Text1.Name = "Text1"
+ Cl_grid1.COLUMN2.Text1.ReadOnly = .F.
+ Cl_grid1.COLUMN2.Text1.Visible = .T.
+ Cl_grid1.COLUMN2.Visible = .T.
+ Cl_grid1.COLUMN3.BackColor = 255,255,217
+ Cl_grid1.COLUMN3.ControlSource = ""
+ Cl_grid1.COLUMN3.Enabled = .T.
+ Cl_grid1.COLUMN3.FontBold = .F.
+ Cl_grid1.COLUMN3.FontCondense = .F.
+ Cl_grid1.COLUMN3.FontExtend = .F.
+ Cl_grid1.COLUMN3.FontItalic = .F.
+ Cl_grid1.COLUMN3.FontName = "Arial"
+ Cl_grid1.COLUMN3.FontOutline = .F.
+ Cl_grid1.COLUMN3.FontShadow = .F.
+ Cl_grid1.COLUMN3.FontSize = 9
+ Cl_grid1.COLUMN3.FontStrikethru = .F.
+ Cl_grid1.COLUMN3.FontUnderline = .F.
+ Cl_grid1.COLUMN3.ForeColor = 0,0,0
+ Cl_grid1.COLUMN3.Header1.FontBold = .F.
+ Cl_grid1.COLUMN3.Header1.FontCondense = .F.
+ Cl_grid1.COLUMN3.Header1.FontExtend = .F.
+ Cl_grid1.COLUMN3.Header1.FontItalic = .F.
+ Cl_grid1.COLUMN3.Header1.FontName = "Arial"
+ Cl_grid1.COLUMN3.Header1.FontOutline = .F.
+ Cl_grid1.COLUMN3.Header1.FontShadow = .F.
+ Cl_grid1.COLUMN3.Header1.FontSize = 9
+ Cl_grid1.COLUMN3.Header1.FontStrikethru = .F.
+ Cl_grid1.COLUMN3.Header1.FontUnderline = .F.
+ Cl_grid1.COLUMN3.Header1.Name = "Header1"
+ Cl_grid1.COLUMN3.Name = "COLUMN3"
+ Cl_grid1.COLUMN3.ReadOnly = .F.
+ Cl_grid1.COLUMN3.Text1.BackColor = 255,255,217
+ Cl_grid1.COLUMN3.Text1.Enabled = .T.
+ Cl_grid1.COLUMN3.Text1.FontBold = .F.
+ Cl_grid1.COLUMN3.Text1.FontCondense = .F.
+ Cl_grid1.COLUMN3.Text1.FontExtend = .F.
+ Cl_grid1.COLUMN3.Text1.FontItalic = .F.
+ Cl_grid1.COLUMN3.Text1.FontName = "Arial"
+ Cl_grid1.COLUMN3.Text1.FontOutline = .F.
+ Cl_grid1.COLUMN3.Text1.FontShadow = .F.
+ Cl_grid1.COLUMN3.Text1.FontSize = 9
+ Cl_grid1.COLUMN3.Text1.FontStrikethru = .F.
+ Cl_grid1.COLUMN3.Text1.FontUnderline = .F.
+ Cl_grid1.COLUMN3.Text1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN3.Text1.Name = "Text1"
+ Cl_grid1.COLUMN3.Text1.ReadOnly = .F.
+ Cl_grid1.COLUMN3.Text1.Visible = .T.
+ Cl_grid1.COLUMN3.Visible = .T.
+ Cl_grid1.COLUMN4.BackColor = 255,255,217
+ Cl_grid1.COLUMN4.ControlSource = ""
+ Cl_grid1.COLUMN4.Enabled = .T.
+ Cl_grid1.COLUMN4.FontBold = .F.
+ Cl_grid1.COLUMN4.FontCondense = .F.
+ Cl_grid1.COLUMN4.FontExtend = .F.
+ Cl_grid1.COLUMN4.FontItalic = .F.
+ Cl_grid1.COLUMN4.FontName = "Arial"
+ Cl_grid1.COLUMN4.FontOutline = .F.
+ Cl_grid1.COLUMN4.FontShadow = .F.
+ Cl_grid1.COLUMN4.FontSize = 9
+ Cl_grid1.COLUMN4.FontStrikethru = .F.
+ Cl_grid1.COLUMN4.FontUnderline = .F.
+ Cl_grid1.COLUMN4.ForeColor = 0,0,0
+ Cl_grid1.COLUMN4.Header1.FontBold = .F.
+ Cl_grid1.COLUMN4.Header1.FontCondense = .F.
+ Cl_grid1.COLUMN4.Header1.FontExtend = .F.
+ Cl_grid1.COLUMN4.Header1.FontItalic = .F.
+ Cl_grid1.COLUMN4.Header1.FontName = "Arial"
+ Cl_grid1.COLUMN4.Header1.FontOutline = .F.
+ Cl_grid1.COLUMN4.Header1.FontShadow = .F.
+ Cl_grid1.COLUMN4.Header1.FontSize = 9
+ Cl_grid1.COLUMN4.Header1.FontStrikethru = .F.
+ Cl_grid1.COLUMN4.Header1.FontUnderline = .F.
+ Cl_grid1.COLUMN4.Header1.Name = "Header1"
+ Cl_grid1.COLUMN4.Name = "COLUMN4"
+ Cl_grid1.COLUMN4.ReadOnly = .F.
+ Cl_grid1.COLUMN4.Text1.BackColor = 255,255,217
+ Cl_grid1.COLUMN4.Text1.Enabled = .T.
+ Cl_grid1.COLUMN4.Text1.FontBold = .F.
+ Cl_grid1.COLUMN4.Text1.FontCondense = .F.
+ Cl_grid1.COLUMN4.Text1.FontExtend = .F.
+ Cl_grid1.COLUMN4.Text1.FontItalic = .F.
+ Cl_grid1.COLUMN4.Text1.FontName = "Arial"
+ Cl_grid1.COLUMN4.Text1.FontOutline = .F.
+ Cl_grid1.COLUMN4.Text1.FontShadow = .F.
+ Cl_grid1.COLUMN4.Text1.FontSize = 9
+ Cl_grid1.COLUMN4.Text1.FontStrikethru = .F.
+ Cl_grid1.COLUMN4.Text1.FontUnderline = .F.
+ Cl_grid1.COLUMN4.Text1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN4.Text1.Name = "Text1"
+ Cl_grid1.COLUMN4.Text1.ReadOnly = .F.
+ Cl_grid1.COLUMN4.Text1.Visible = .T.
+ Cl_grid1.COLUMN4.Visible = .T.
+ Cl_grid1.COLUMN5.BackColor = 255,255,217
+ Cl_grid1.COLUMN5.ControlSource = ""
+ Cl_grid1.COLUMN5.Enabled = .T.
+ Cl_grid1.COLUMN5.FontBold = .F.
+ Cl_grid1.COLUMN5.FontCondense = .F.
+ Cl_grid1.COLUMN5.FontExtend = .F.
+ Cl_grid1.COLUMN5.FontItalic = .F.
+ Cl_grid1.COLUMN5.FontName = "Arial"
+ Cl_grid1.COLUMN5.FontOutline = .F.
+ Cl_grid1.COLUMN5.FontShadow = .F.
+ Cl_grid1.COLUMN5.FontSize = 9
+ Cl_grid1.COLUMN5.FontStrikethru = .F.
+ Cl_grid1.COLUMN5.FontUnderline = .F.
+ Cl_grid1.COLUMN5.ForeColor = 0,0,0
+ Cl_grid1.COLUMN5.Header1.FontBold = .F.
+ Cl_grid1.COLUMN5.Header1.FontCondense = .F.
+ Cl_grid1.COLUMN5.Header1.FontExtend = .F.
+ Cl_grid1.COLUMN5.Header1.FontItalic = .F.
+ Cl_grid1.COLUMN5.Header1.FontName = "Arial"
+ Cl_grid1.COLUMN5.Header1.FontOutline = .F.
+ Cl_grid1.COLUMN5.Header1.FontShadow = .F.
+ Cl_grid1.COLUMN5.Header1.FontSize = 9
+ Cl_grid1.COLUMN5.Header1.FontStrikethru = .F.
+ Cl_grid1.COLUMN5.Header1.FontUnderline = .F.
+ Cl_grid1.COLUMN5.Header1.Name = "Header1"
+ Cl_grid1.COLUMN5.Name = "COLUMN5"
+ Cl_grid1.COLUMN5.ReadOnly = .F.
+ Cl_grid1.COLUMN5.Text1.BackColor = 255,255,217
+ Cl_grid1.COLUMN5.Text1.Enabled = .T.
+ Cl_grid1.COLUMN5.Text1.FontBold = .F.
+ Cl_grid1.COLUMN5.Text1.FontCondense = .F.
+ Cl_grid1.COLUMN5.Text1.FontExtend = .F.
+ Cl_grid1.COLUMN5.Text1.FontItalic = .F.
+ Cl_grid1.COLUMN5.Text1.FontName = "Arial"
+ Cl_grid1.COLUMN5.Text1.FontOutline = .F.
+ Cl_grid1.COLUMN5.Text1.FontShadow = .F.
+ Cl_grid1.COLUMN5.Text1.FontSize = 9
+ Cl_grid1.COLUMN5.Text1.FontStrikethru = .F.
+ Cl_grid1.COLUMN5.Text1.FontUnderline = .F.
+ Cl_grid1.COLUMN5.Text1.ForeColor = 0,0,0
+ Cl_grid1.COLUMN5.Text1.Name = "Text1"
+ Cl_grid1.COLUMN5.Text1.ReadOnly = .F.
+ Cl_grid1.COLUMN5.Text1.Visible = .T.
+ Cl_grid1.COLUMN5.Visible = .T.
+ Cl_grid1.Column6.BackColor = 255,255,217
+ Cl_grid1.Column6.ControlSource = ""
+ Cl_grid1.Column6.Enabled = .T.
+ Cl_grid1.Column6.FontBold = .F.
+ Cl_grid1.Column6.FontCondense = .F.
+ Cl_grid1.Column6.FontExtend = .F.
+ Cl_grid1.Column6.FontItalic = .F.
+ Cl_grid1.Column6.FontName = "Arial"
+ Cl_grid1.Column6.FontOutline = .F.
+ Cl_grid1.Column6.FontShadow = .F.
+ Cl_grid1.Column6.FontSize = 9
+ Cl_grid1.Column6.FontStrikethru = .F.
+ Cl_grid1.Column6.FontUnderline = .F.
+ Cl_grid1.Column6.ForeColor = 0,0,0
+ Cl_grid1.Column6.Header1.FontBold = .F.
+ Cl_grid1.Column6.Header1.FontCondense = .F.
+ Cl_grid1.Column6.Header1.FontExtend = .F.
+ Cl_grid1.Column6.Header1.FontItalic = .F.
+ Cl_grid1.Column6.Header1.FontName = "Arial"
+ Cl_grid1.Column6.Header1.FontOutline = .F.
+ Cl_grid1.Column6.Header1.FontShadow = .F.
+ Cl_grid1.Column6.Header1.FontSize = 9
+ Cl_grid1.Column6.Header1.FontStrikethru = .F.
+ Cl_grid1.Column6.Header1.FontUnderline = .F.
+ Cl_grid1.Column6.Header1.Name = "Header1"
+ Cl_grid1.Column6.Name = "Column6"
+ Cl_grid1.Column6.ReadOnly = .F.
+ Cl_grid1.Column6.Text1.BackColor = 255,255,217
+ Cl_grid1.Column6.Text1.Enabled = .T.
+ Cl_grid1.Column6.Text1.FontBold = .F.
+ Cl_grid1.Column6.Text1.FontCondense = .F.
+ Cl_grid1.Column6.Text1.FontExtend = .F.
+ Cl_grid1.Column6.Text1.FontItalic = .F.
+ Cl_grid1.Column6.Text1.FontName = "Arial"
+ Cl_grid1.Column6.Text1.FontOutline = .F.
+ Cl_grid1.Column6.Text1.FontShadow = .F.
+ Cl_grid1.Column6.Text1.FontSize = 9
+ Cl_grid1.Column6.Text1.FontStrikethru = .F.
+ Cl_grid1.Column6.Text1.FontUnderline = .F.
+ Cl_grid1.Column6.Text1.ForeColor = 0,0,0
+ Cl_grid1.Column6.Text1.Name = "Text1"
+ Cl_grid1.Column6.Text1.ReadOnly = .F.
+ Cl_grid1.Column6.Text1.Visible = .T.
+ Cl_grid1.Column6.Visible = .T.
+ Cl_grid1.ColumnCount = 6
+ Cl_grid1.Comment = ""
+ Cl_grid1.DeleteMark = .F.
+ Cl_grid1.DragIcon = ..\..\
+ Cl_grid1.DragMode = 0
+ Cl_grid1.Enabled = .T.
+ Cl_grid1.FontBold = .F.
+ Cl_grid1.FontCondense = .F.
+ Cl_grid1.FontExtend = .F.
+ Cl_grid1.FontItalic = .F.
+ Cl_grid1.FontName = "Arial"
+ Cl_grid1.FontOutline = .F.
+ Cl_grid1.FontShadow = .F.
+ Cl_grid1.FontSize = 9
+ Cl_grid1.FontStrikethru = .F.
+ Cl_grid1.FontUnderline = .F.
+ Cl_grid1.ForeColor = 0,0,0
+ Cl_grid1.GridLineColor = 0,0,0
+ Cl_grid1.GridLines = 3
+ Cl_grid1.GridLineWidth = 1
+ Cl_grid1.HeaderHeight = 18
+ Cl_grid1.HelpContextID = 0
+ Cl_grid1.Highlight = .T.
+ Cl_grid1.HighlightBackColor = 51,153,255
+ Cl_grid1.HighlightForeColor = 255,255,255
+ Cl_grid1.HighlightRow = .T.
+ Cl_grid1.HighlightRowLineWidth = 1
+ Cl_grid1.HighlightStyle = 0
+ Cl_grid1.Left = 296
+ Cl_grid1.LinkMaster = ""
+ Cl_grid1.LockColumns = 0
+ Cl_grid1.LockColumnsLeft = 0
+ Cl_grid1.MouseIcon = ..\..\
+ Cl_grid1.MousePointer = 0
+ Cl_grid1.Name = "Cl_grid1"
+ Cl_grid1.OLEDragPicture = ..\..\
+ Cl_grid1.OLEDropEffects = 3
+ Cl_grid1.OLEDropMode = 0
+ Cl_grid1.Optimize = .F.
+ Cl_grid1.Panel = 1
+ Cl_grid1.PanelLink = .T.
+ Cl_grid1.Partition = 0
+ Cl_grid1.ReadOnly = .F.
+ Cl_grid1.RecordMark = .T.
+ Cl_grid1.RecordSource = "C_TESTS"
+ Cl_grid1.RecordSourceType = 1
+ Cl_grid1.RelationalExpr = ""
+ Cl_grid1.RightToLeft = .F.
+ Cl_grid1.RowHeight = 18
+ Cl_grid1.ScrollBars = 2
+ Cl_grid1.SelectedItemBackColor = 51,153,255
+ Cl_grid1.SelectedItemForeColor = 255,255,255
+ Cl_grid1.SplitBar = .F.
+ Cl_grid1.StatusBarText = ""
+ Cl_grid1.TabIndex = 6
+ Cl_grid1.TabStop = .T.
+ Cl_grid1.Tag = ""
+ Cl_grid1.Themes = .T.
+ Cl_grid1.ToolTipText = ""
+ Cl_grid1.Top = 32
+ Cl_grid1.Value = 0
+ Cl_grid1.View = 0
+ Cl_grid1.Visible = .T.
+ Cl_grid1.WhatsThisHelpID = -1
+ pgf.ActivePage = 2
+ pgf.Anchor = 0
+ pgf.ColorSource = 4
+ pgf.Comment = ""
+ pgf.DragIcon = ..\..\
+ pgf.DragMode = 0
+ pgf.Enabled = .T.
+ pgf.ErasePage = .T.
+ pgf.Height = 388
+ pgf.HelpContextID = 0
+ pgf.Left = 12
+ pgf.MouseIcon = ..\..\
+ pgf.MousePointer = 0
+ pgf.Name = "pgf"
+ pgf.OLEDragMode = 0
+ pgf.OLEDragPicture = ..\..\
+ pgf.OLEDropEffects = 3
+ pgf.OLEDropMode = 0
+ pgf.Page1.Checkbox.Alignment = 0
+ pgf.Page1.Checkbox.Anchor = 0
+ pgf.Page1.Checkbox.AutoSize = .F.
+ pgf.Page1.Checkbox.BackColor = 240,240,240
+ pgf.Page1.Checkbox.BackStyle = 1
+ pgf.Page1.Checkbox.Caption = "Chk1"
+ pgf.Page1.Checkbox.Centered = .F.
+ pgf.Page1.Checkbox.ColorScheme = 1
+ pgf.Page1.Checkbox.ColorSource = 4
+ pgf.Page1.Checkbox.Comment = ""
+ pgf.Page1.Checkbox.ControlSource = ""
+ pgf.Page1.Checkbox.DefHeight =
+ pgf.Page1.Checkbox.DefLeft =
+ pgf.Page1.Checkbox.DefTop =
+ pgf.Page1.Checkbox.DefWidth =
+ pgf.Page1.Checkbox.DisabledBackColor = 240,240,240
+ pgf.Page1.Checkbox.DisabledForeColor = 109,109,109
+ pgf.Page1.Checkbox.DisabledPicture = ..\..\
+ pgf.Page1.Checkbox.DownPicture = ..\..\
+ pgf.Page1.Checkbox.DragIcon = ..\..\
+ pgf.Page1.Checkbox.DragMode = 0
+ pgf.Page1.Checkbox.Enabled = .T.
+ pgf.Page1.Checkbox.FontBold = .F.
+ pgf.Page1.Checkbox.FontCondense = .F.
+ pgf.Page1.Checkbox.FontExtend = .F.
+ pgf.Page1.Checkbox.FontItalic = .F.
+ pgf.Page1.Checkbox.FontName = "Arial"
+ pgf.Page1.Checkbox.FontOutline = .F.
+ pgf.Page1.Checkbox.FontShadow = .F.
+ pgf.Page1.Checkbox.FontSize = 8
+ pgf.Page1.Checkbox.FontStrikethru = .F.
+ pgf.Page1.Checkbox.FontUnderline = .F.
+ pgf.Page1.Checkbox.ForeColor = 0,0,0
+ pgf.Page1.Checkbox.Height = (21)
+ pgf.Page1.Checkbox.HelpContextID = 0
+ pgf.Page1.Checkbox.Left = (7)
+ pgf.Page1.Checkbox.MouseIcon = ..\..\
+ pgf.Page1.Checkbox.MousePointer = 0
+ pgf.Page1.Checkbox.Name = "Checkbox"
+ pgf.Page1.Checkbox.OLEDragMode = 0
+ pgf.Page1.Checkbox.OLEDragPicture = ..\..\
+ pgf.Page1.Checkbox.OLEDropEffects = 3
+ pgf.Page1.Checkbox.OLEDropMode = 0
+ pgf.Page1.Checkbox.Picture = bmps\treeview.bmp
+ pgf.Page1.Checkbox.PictureMargin = 0
+ pgf.Page1.Checkbox.PicturePosition = 4
+ pgf.Page1.Checkbox.PictureSpacing = 0
+ pgf.Page1.Checkbox.ReadOnly = .F.
+ pgf.Page1.Checkbox.RightToLeft = .F.
+ pgf.Page1.Checkbox.SpecialEffect = 0
+ pgf.Page1.Checkbox.StatusBarText = ""
+ pgf.Page1.Checkbox.Style = 1
+ pgf.Page1.Checkbox.TabIndex = 1
+ pgf.Page1.Checkbox.TabStop = .T.
+ pgf.Page1.Checkbox.Tag = ""
+ pgf.Page1.Checkbox.TerminateRead = .F.
+ pgf.Page1.Checkbox.test_aa = .F.
+ pgf.Page1.Checkbox.Themes = .T.
+ pgf.Page1.Checkbox.ToolTipText = ""
+ pgf.Page1.Checkbox.Top = (8)
+ pgf.Page1.Checkbox.Value = 0
+ pgf.Page1.Checkbox.Visible = .T.
+ pgf.Page1.Checkbox.WhatsThisHelpID = -1
+ pgf.Page1.Checkbox.Width = (199)
+ pgf.Page1.Checkbox.WordWrap = .F.
+ pgf.Page1.Cl_optiongroup1.DefHeight =
+ pgf.Page1.Cl_optiongroup1.DefWidth =
+ pgf.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
+ pgf.Page1.Cl_optiongroup1.Option1.Left = 5
+ pgf.Page1.Cl_optiongroup1.Option1.Name = "Option1"
+ pgf.Page1.Cl_optiongroup1.Option1.Top = 5
+ pgf.Page1.Cl_optiongroup1.Option2.Left = 5
+ pgf.Page1.Cl_optiongroup1.Option2.Name = "Option2"
+ pgf.Page1.Cl_optiongroup1.Option2.Top = 24
+ pgf.Page1.Collection.Comment = ""
+ pgf.Page1.Collection.KeySort = 0
+ pgf.Page1.Collection.Name = "Collection"
+ pgf.Page1.Collection.Tag = ""
+ pgf.Page1.Collection.test_aa = .F.
+ pgf.Page1.ComboBox.Alignment = 0
+ pgf.Page1.ComboBox.Anchor = 0
+ pgf.Page1.ComboBox.BackColor = 255,255,255
+ pgf.Page1.ComboBox.BorderColor = 128,255,128
+ pgf.Page1.ComboBox.BorderStyle = 1
+ pgf.Page1.ComboBox.BoundColumn = 1
+ pgf.Page1.ComboBox.BoundTo = .F.
+ pgf.Page1.ComboBox.ColorScheme = 2
+ pgf.Page1.ComboBox.ColorSource = 4
+ pgf.Page1.ComboBox.ColumnCount = 0
+ pgf.Page1.ComboBox.ColumnLines = .T.
+ pgf.Page1.ComboBox.ColumnWidths = ""
+ pgf.Page1.ComboBox.Comment = ""
+ pgf.Page1.ComboBox.ControlSource = ""
+ pgf.Page1.ComboBox.DefHeight =
+ pgf.Page1.ComboBox.DefLeft =
+ pgf.Page1.ComboBox.DefTop =
+ pgf.Page1.ComboBox.DefWidth =
+ pgf.Page1.ComboBox.DisabledBackColor = 240,240,240
+ pgf.Page1.ComboBox.DisabledForeColor = 109,109,109
+ pgf.Page1.ComboBox.DisabledItemBackColor = 255,255,255
+ pgf.Page1.ComboBox.DisabledItemForeColor = 109,109,109
+ pgf.Page1.ComboBox.DisplayCount = 0
+ pgf.Page1.ComboBox.DisplayValue =
+ pgf.Page1.ComboBox.DragIcon = ..\..\
+ pgf.Page1.ComboBox.DragMode = 0
+ pgf.Page1.ComboBox.Enabled = .T.
+ pgf.Page1.ComboBox.FirstElement = 1
+ pgf.Page1.ComboBox.FontBold = .F.
+ pgf.Page1.ComboBox.FontCondense = .F.
+ pgf.Page1.ComboBox.FontExtend = .F.
+ pgf.Page1.ComboBox.FontItalic = .F.
+ pgf.Page1.ComboBox.FontName = "Arial"
+ pgf.Page1.ComboBox.FontOutline = .F.
+ pgf.Page1.ComboBox.FontShadow = .F.
+ pgf.Page1.ComboBox.FontSize = 8
+ pgf.Page1.ComboBox.FontStrikethru = .F.
+ pgf.Page1.ComboBox.FontUnderline = .F.
+ pgf.Page1.ComboBox.ForeColor = 0,0,0
+ pgf.Page1.ComboBox.Format = ""
+ pgf.Page1.ComboBox.Height = (20)
+ pgf.Page1.ComboBox.HelpContextID = 0
+ pgf.Page1.ComboBox.HideSelection = .T.
+ pgf.Page1.ComboBox.IMEMode = 0
+ pgf.Page1.ComboBox.IncrementalSearch = .T.
+ pgf.Page1.ComboBox.InputMask = ""
+ pgf.Page1.ComboBox.ItemBackColor = 255,255,255
+ pgf.Page1.ComboBox.ItemForeColor = 0,0,0
+ pgf.Page1.ComboBox.ItemTips = .F.
+ pgf.Page1.ComboBox.Left = (7)
+ pgf.Page1.ComboBox.Margin = 0
+ pgf.Page1.ComboBox.MaxLength = 0
+ pgf.Page1.ComboBox.MouseIcon = ..\..\
+ pgf.Page1.ComboBox.MousePointer = 0
+ pgf.Page1.ComboBox.Name = "ComboBox"
+ pgf.Page1.ComboBox.NullDisplay = ""
+ pgf.Page1.ComboBox.NumberOfElements = 0
+ pgf.Page1.ComboBox.OLEDragMode = 0
+ pgf.Page1.ComboBox.OLEDragPicture = ..\..\
+ pgf.Page1.ComboBox.OLEDropEffects = 3
+ pgf.Page1.ComboBox.OLEDropMode = 0
+ pgf.Page1.ComboBox.OLEDropTextInsertion = 0
+ pgf.Page1.ComboBox.Picture = bmps\treeview.bmp
+ pgf.Page1.ComboBox.PictureSelectionDisplay = 0
+ pgf.Page1.ComboBox.ReadOnly = .F.
+ pgf.Page1.ComboBox.RightToLeft = .F.
+ pgf.Page1.ComboBox.RowSource = ""
+ pgf.Page1.ComboBox.RowSourceType = 0
+ pgf.Page1.ComboBox.SelectedBackColor = 51,153,255
+ pgf.Page1.ComboBox.SelectedForeColor = 255,255,255
+ pgf.Page1.ComboBox.SelectedItemBackColor = 51,153,255
+ pgf.Page1.ComboBox.SelectedItemForeColor = 255,255,255
+ pgf.Page1.ComboBox.SelectOnEntry = .F.
+ pgf.Page1.ComboBox.Sorted = .F.
+ pgf.Page1.ComboBox.SpecialEffect = 1
+ pgf.Page1.ComboBox.StatusBarText = ""
+ pgf.Page1.ComboBox.Style = 0
+ pgf.Page1.ComboBox.TabIndex = 1
+ pgf.Page1.ComboBox.TabStop = .T.
+ pgf.Page1.ComboBox.Tag = ""
+ pgf.Page1.ComboBox.TerminateRead = .F.
+ pgf.Page1.ComboBox.test_aa = .F.
+ pgf.Page1.ComboBox.Themes = .T.
+ pgf.Page1.ComboBox.ToolTipText = ""
+ pgf.Page1.ComboBox.Top = (35)
+ pgf.Page1.ComboBox.Value =
+ pgf.Page1.ComboBox.Visible = .T.
+ pgf.Page1.ComboBox.WhatsThisHelpID = -1
+ pgf.Page1.ComboBox.Width = (196)
+ pgf.Page1.CommandButton.Alignment = 2
+ pgf.Page1.CommandButton.Anchor = 0
+ pgf.Page1.CommandButton.AutoSize = .F.
+ pgf.Page1.CommandButton.BackColor = 240,240,240
+ pgf.Page1.CommandButton.Cancel = .F.
+ pgf.Page1.CommandButton.Caption = "Comando"
+ pgf.Page1.CommandButton.ColorScheme = 1
+ pgf.Page1.CommandButton.ColorSource = 4
+ pgf.Page1.CommandButton.Comment = ""
+ pgf.Page1.CommandButton.Default = .F.
+ pgf.Page1.CommandButton.DefHeight =
+ pgf.Page1.CommandButton.DefLeft =
+ pgf.Page1.CommandButton.DefTop =
+ pgf.Page1.CommandButton.DefWidth =
+ pgf.Page1.CommandButton.DisabledBackColor = 240,240,240
+ pgf.Page1.CommandButton.DisabledForeColor = 109,109,109
+ pgf.Page1.CommandButton.DisabledPicture = ..\..\
+ pgf.Page1.CommandButton.DownPicture = ..\..\
+ pgf.Page1.CommandButton.DragIcon = ..\..\
+ pgf.Page1.CommandButton.DragMode = 0
+ pgf.Page1.CommandButton.Enabled = .T.
+ pgf.Page1.CommandButton.FontBold = .F.
+ pgf.Page1.CommandButton.FontCondense = .F.
+ pgf.Page1.CommandButton.FontExtend = .F.
+ pgf.Page1.CommandButton.FontItalic = .F.
+ pgf.Page1.CommandButton.FontName = "Arial"
+ pgf.Page1.CommandButton.FontOutline = .F.
+ pgf.Page1.CommandButton.FontShadow = .F.
+ pgf.Page1.CommandButton.FontSize = 8
+ pgf.Page1.CommandButton.FontStrikethru = .F.
+ pgf.Page1.CommandButton.FontUnderline = .F.
+ pgf.Page1.CommandButton.ForeColor = 0,0,0
+ pgf.Page1.CommandButton.Height = (25)
+ pgf.Page1.CommandButton.HelpContextID = 0
+ pgf.Page1.CommandButton.Left = (99)
+ pgf.Page1.CommandButton.MouseIcon = ..\..\
+ pgf.Page1.CommandButton.MousePointer = 0
+ pgf.Page1.CommandButton.Name = "CommandButton"
+ pgf.Page1.CommandButton.OLEDragMode = 0
+ pgf.Page1.CommandButton.OLEDragPicture = ..\..\
+ pgf.Page1.CommandButton.OLEDropEffects = 3
+ pgf.Page1.CommandButton.OLEDropMode = 0
+ pgf.Page1.CommandButton.Picture = bmps\treeview.bmp
+ pgf.Page1.CommandButton.PictureMargin = 0
+ pgf.Page1.CommandButton.PicturePosition = 4
+ pgf.Page1.CommandButton.PictureSpacing = 0
+ pgf.Page1.CommandButton.RightToLeft = .F.
+ pgf.Page1.CommandButton.SpecialEffect = 0
+ pgf.Page1.CommandButton.StatusBarText = ""
+ pgf.Page1.CommandButton.Style = 0
+ pgf.Page1.CommandButton.TabIndex = 3
+ pgf.Page1.CommandButton.TabStop = .T.
+ pgf.Page1.CommandButton.Tag = ""
+ pgf.Page1.CommandButton.TerminateRead = .F.
+ pgf.Page1.CommandButton.test_aa = .F.
+ pgf.Page1.CommandButton.Themes = .T.
+ pgf.Page1.CommandButton.ToolTipText = ""
+ pgf.Page1.CommandButton.Top = (63)
+ pgf.Page1.CommandButton.Visible = .T.
+ pgf.Page1.CommandButton.WhatsThisHelpID = -1
+ pgf.Page1.CommandButton.Width = (80)
+ pgf.Page1.CommandButton.WordWrap = .F.
+ pgf.Page1.CommandGroup.Anchor = 0
+ pgf.Page1.CommandGroup.AutoSize = .F.
+ pgf.Page1.CommandGroup.BackColor = 240,240,240
+ pgf.Page1.CommandGroup.BackStyle = 1
+ pgf.Page1.CommandGroup.BorderColor = 100,100,100
+ pgf.Page1.CommandGroup.BorderStyle = 1
+ pgf.Page1.CommandGroup.ButtonCount = 2
+ pgf.Page1.CommandGroup.ColorSource = 4
+ pgf.Page1.CommandGroup.Command1.Left = 1
+ pgf.Page1.CommandGroup.Command1.Name = "Command1"
+ pgf.Page1.CommandGroup.Command1.Top = 4
+ pgf.Page1.CommandGroup.Command2.Left = 1
+ pgf.Page1.CommandGroup.Command2.Name = "Command2"
+ pgf.Page1.CommandGroup.Command2.Top = 32
+ pgf.Page1.CommandGroup.Comment = ""
+ pgf.Page1.CommandGroup.ControlSource = ""
+ pgf.Page1.CommandGroup.DefHeight =
+ pgf.Page1.CommandGroup.DefLeft =
+ pgf.Page1.CommandGroup.DefTop =
+ pgf.Page1.CommandGroup.DefWidth =
+ pgf.Page1.CommandGroup.DragIcon = ..\..\
+ pgf.Page1.CommandGroup.DragMode = 0
+ pgf.Page1.CommandGroup.Enabled = .T.
+ pgf.Page1.CommandGroup.Height = (64)
+ pgf.Page1.CommandGroup.HelpContextID = 0
+ pgf.Page1.CommandGroup.Left = (6)
+ pgf.Page1.CommandGroup.MouseIcon = ..\..\
+ pgf.Page1.CommandGroup.MousePointer = 0
+ pgf.Page1.CommandGroup.Name = "CommandGroup"
+ pgf.Page1.CommandGroup.OLEDragMode = 0
+ pgf.Page1.CommandGroup.OLEDragPicture = ..\..\
+ pgf.Page1.CommandGroup.OLEDropEffects = 3
+ pgf.Page1.CommandGroup.OLEDropMode = 0
+ pgf.Page1.CommandGroup.SpecialEffect = 0
+ pgf.Page1.CommandGroup.StatusBarText = ""
+ pgf.Page1.CommandGroup.TabIndex = 2
+ pgf.Page1.CommandGroup.Tag = ""
+ pgf.Page1.CommandGroup.TerminateRead = .F.
+ pgf.Page1.CommandGroup.test_aa = .F.
+ pgf.Page1.CommandGroup.Themes = .T.
+ pgf.Page1.CommandGroup.ToolTipText = ""
+ pgf.Page1.CommandGroup.Top = (60)
+ pgf.Page1.CommandGroup.Value = 1
+ pgf.Page1.CommandGroup.Visible = .T.
+ pgf.Page1.CommandGroup.WhatsThisHelpID = -1
+ pgf.Page1.CommandGroup.Width = (93)
+ pgf.Page1.Container.Anchor = 0
+ pgf.Page1.Container.BackColor = 240,240,240
+ pgf.Page1.Container.BackStyle = 1
+ pgf.Page1.Container.BorderColor = 100,100,100
+ pgf.Page1.Container.BorderWidth = 1
+ pgf.Page1.Container.ColorSource = 4
+ pgf.Page1.Container.Comment = ""
+ pgf.Page1.Container.DefHeight =
+ pgf.Page1.Container.DefLeft =
+ pgf.Page1.Container.DefTop =
+ pgf.Page1.Container.DefWidth =
+ pgf.Page1.Container.DragIcon = ..\..\
+ pgf.Page1.Container.DragMode = 0
+ pgf.Page1.Container.Enabled = .T.
+ pgf.Page1.Container.ForeColor = 0,0,0
+ pgf.Page1.Container.Height = (24)
+ pgf.Page1.Container.HelpContextID = 0
+ pgf.Page1.Container.Left = (227)
+ pgf.Page1.Container.MouseIcon = ..\..\
+ pgf.Page1.Container.MousePointer = 0
+ pgf.Page1.Container.Name = "Container"
+ pgf.Page1.Container.OLEDragMode = 0
+ pgf.Page1.Container.OLEDragPicture = ..\..\
+ pgf.Page1.Container.OLEDropEffects = 3
+ pgf.Page1.Container.OLEDropMode = 0
+ pgf.Page1.Container.SpecialEffect = 2
+ pgf.Page1.Container.StatusBarText = ""
+ pgf.Page1.Container.Style = 0
+ pgf.Page1.Container.TabIndex = 4
+ pgf.Page1.Container.TabStop = .T.
+ pgf.Page1.Container.Tag = ""
+ pgf.Page1.Container.test_aa = .F.
+ pgf.Page1.Container.ToolTipText = ""
+ pgf.Page1.Container.Top = (127)
+ pgf.Page1.Container.Visible = .T.
+ pgf.Page1.Container.WhatsThisHelpID = -1
+ pgf.Page1.Container.Width = (20)
+ pgf.Page1.Control.Anchor = 0
+ pgf.Page1.Control.BackColor = 240,240,240
+ pgf.Page1.Control.BackStyle = 1
+ pgf.Page1.Control.BorderColor = 100,100,100
+ pgf.Page1.Control.BorderWidth = 1
+ pgf.Page1.Control.ColorSource = 4
+ pgf.Page1.Control.Comment = ""
+ pgf.Page1.Control.DefHeight =
+ pgf.Page1.Control.DefLeft =
+ pgf.Page1.Control.DefTop =
+ pgf.Page1.Control.DefWidth =
+ pgf.Page1.Control.DragIcon = ..\..\
+ pgf.Page1.Control.DragMode = 0
+ pgf.Page1.Control.Enabled = .T.
+ pgf.Page1.Control.ForeColor = 0,0,0
+ pgf.Page1.Control.Height = (24)
+ pgf.Page1.Control.HelpContextID = 0
+ pgf.Page1.Control.Left = (199)
+ pgf.Page1.Control.MouseIcon = ..\..\
+ pgf.Page1.Control.MousePointer = 0
+ pgf.Page1.Control.Name = "Control"
+ pgf.Page1.Control.OLEDragMode = 0
+ pgf.Page1.Control.OLEDragPicture = ..\..\
+ pgf.Page1.Control.OLEDropEffects = 3
+ pgf.Page1.Control.OLEDropMode = 0
+ pgf.Page1.Control.SpecialEffect = 2
+ pgf.Page1.Control.StatusBarText = ""
+ pgf.Page1.Control.Style = 0
+ pgf.Page1.Control.TabIndex = 5
+ pgf.Page1.Control.TabStop = .T.
+ pgf.Page1.Control.Tag = ""
+ pgf.Page1.Control.test_aa = .F.
+ pgf.Page1.Control.ToolTipText = ""
+ pgf.Page1.Control.Top = (127)
+ pgf.Page1.Control.Visible = .T.
+ pgf.Page1.Control.WhatsThisHelpID = -1
+ pgf.Page1.Control.Width = (20)
+ pgf.Page1.EditBox.DefHeight =
+ pgf.Page1.EditBox.DefLeft =
+ pgf.Page1.EditBox.DefTop =
+ pgf.Page1.EditBox.DefWidth =
+ pgf.Page1.EditBox.Name = "EditBox"
+ pgf.Page1.HyperLink.Comment = ""
+ pgf.Page1.HyperLink.Name = "HyperLink"
+ pgf.Page1.HyperLink.Tag = ""
+ pgf.Page1.HyperLink.test_aa = .F.
+ pgf.Page1.Image.Anchor = 0
+ pgf.Page1.Image.BackStyle = 1
+ pgf.Page1.Image.BorderColor = 100,100,100
+ pgf.Page1.Image.BorderStyle = 0
+ pgf.Page1.Image.ColorSource = 4
+ pgf.Page1.Image.Comment = ""
+ pgf.Page1.Image.DefHeight =
+ pgf.Page1.Image.DefLeft =
+ pgf.Page1.Image.DragIcon = ..\..\
+ pgf.Page1.Image.DragMode = 0
+ pgf.Page1.Image.Enabled = .T.
+ pgf.Page1.Image.Height = (16)
+ pgf.Page1.Image.HelpContextID = 0
+ pgf.Page1.Image.Left = (231)
+ pgf.Page1.Image.MouseIcon = ..\..\
+ pgf.Page1.Image.MousePointer = 0
+ pgf.Page1.Image.Name = "Image"
+ pgf.Page1.Image.OLEDragMode = 0
+ pgf.Page1.Image.OLEDragPicture = ..\..\
+ pgf.Page1.Image.OLEDropEffects = 3
+ pgf.Page1.Image.OLEDropMode = 0
+ pgf.Page1.Image.Picture = bmps\scccheckout.bmp
+ pgf.Page1.Image.RotateFlip = 0
+ pgf.Page1.Image.StatusBarText = ""
+ pgf.Page1.Image.Stretch = 0
+ pgf.Page1.Image.Tag = ""
+ pgf.Page1.Image.test_aa = .F.
+ pgf.Page1.Image.Themes = .T.
+ pgf.Page1.Image.ToolTipText = ""
+ pgf.Page1.Image.Top = 107
+ pgf.Page1.Image.Visible = .T.
+ pgf.Page1.Image.WhatsThisHelpID = -1
+ pgf.Page1.Image.Width = 16
+ pgf.Page1.Label.Alignment = 0
+ pgf.Page1.Label.Anchor = 0
+ pgf.Page1.Label.AutoSize = .F.
+ pgf.Page1.Label.BackColor = 240,240,240
+ pgf.Page1.Label.BackStyle = 1
+ pgf.Page1.Label.BorderStyle = 0
+ pgf.Page1.Label.Caption = "Label4"
+ pgf.Page1.Label.ColorScheme = 1
+ pgf.Page1.Label.ColorSource = 4
+ pgf.Page1.Label.Comment = ""
+ pgf.Page1.Label.DefHeight =
+ pgf.Page1.Label.DefLeft =
+ pgf.Page1.Label.DefTop =
+ pgf.Page1.Label.DefWidth =
+ pgf.Page1.Label.DisabledBackColor = 240,240,240
+ pgf.Page1.Label.DisabledForeColor = 109,109,109
+ pgf.Page1.Label.DragIcon = ..\..\
+ pgf.Page1.Label.DragMode = 0
+ pgf.Page1.Label.Enabled = .T.
+ pgf.Page1.Label.FontBold = .F.
+ pgf.Page1.Label.FontCondense = .F.
+ pgf.Page1.Label.FontExtend = .F.
+ pgf.Page1.Label.FontItalic = .F.
+ pgf.Page1.Label.FontName = "Arial"
+ pgf.Page1.Label.FontOutline = .F.
+ pgf.Page1.Label.FontShadow = .F.
+ pgf.Page1.Label.FontSize = 8
+ pgf.Page1.Label.FontStrikethru = .F.
+ pgf.Page1.Label.FontUnderline = .F.
+ pgf.Page1.Label.ForeColor = 0,0,0
+ pgf.Page1.Label.Height = (17)
+ pgf.Page1.Label.HelpContextID = 0
+ pgf.Page1.Label.Left = (6)
+ pgf.Page1.Label.MouseIcon = ..\..\
+ pgf.Page1.Label.MousePointer = 0
+ pgf.Page1.Label.Name = "Label"
+ pgf.Page1.Label.OLEDragMode = 0
+ pgf.Page1.Label.OLEDragPicture = ..\..\
+ pgf.Page1.Label.OLEDropEffects = 3
+ pgf.Page1.Label.OLEDropMode = 0
+ pgf.Page1.Label.RightToLeft = .F.
+ pgf.Page1.Label.Rotation = 0
+ pgf.Page1.Label.StatusBarText = ""
+ pgf.Page1.Label.Style = 0
+ pgf.Page1.Label.TabIndex = 7
+ pgf.Page1.Label.Tag = ""
+ pgf.Page1.Label.test_aa = .F.
+ pgf.Page1.Label.ToolTipText = ""
+ pgf.Page1.Label.Top = (136)
+ pgf.Page1.Label.Visible = .T.
+ pgf.Page1.Label.WhatsThisHelpID = -1
+ pgf.Page1.Label.Width = (104)
+ pgf.Page1.Label.WordWrap = .F.
+ pgf.Page1.Line.Anchor = 0
+ pgf.Page1.Line.BorderColor = 255,0,0
+ pgf.Page1.Line.BorderStyle = 1
+ pgf.Page1.Line.BorderWidth = 1
+ pgf.Page1.Line.ColorSource = 4
+ pgf.Page1.Line.Comment = ""
+ pgf.Page1.Line.DefHeight =
+ pgf.Page1.Line.DefLeft =
+ pgf.Page1.Line.DefTop =
+ pgf.Page1.Line.DefWidth =
+ pgf.Page1.Line.DragIcon = ..\..\
+ pgf.Page1.Line.DragMode = 0
+ pgf.Page1.Line.DrawMode = 13
+ pgf.Page1.Line.Enabled = .T.
+ pgf.Page1.Line.Height = (8)
+ pgf.Page1.Line.HelpContextID = 0
+ pgf.Page1.Line.Left = (121)
+ pgf.Page1.Line.LineSlant = "\"
+ pgf.Page1.Line.MouseIcon = ..\..\
+ pgf.Page1.Line.MousePointer = 0
+ pgf.Page1.Line.Name = "Line"
+ pgf.Page1.Line.OLEDragMode = 0
+ pgf.Page1.Line.OLEDragPicture = ..\..\
+ pgf.Page1.Line.OLEDropEffects = 3
+ pgf.Page1.Line.OLEDropMode = 0
+ pgf.Page1.Line.PolyPoints = ""
+ pgf.Page1.Line.Rotation = 0
+ pgf.Page1.Line.StatusBarText = ""
+ pgf.Page1.Line.Tag = ""
+ pgf.Page1.Line.test_aa = .F.
+ pgf.Page1.Line.ToolTipText = ""
+ pgf.Page1.Line.Top = (136)
+ pgf.Page1.Line.Visible = .T.
+ pgf.Page1.Line.WhatsThisHelpID = -1
+ pgf.Page1.Line.Width = (50)
+ pgf.Page1.ListBox.Anchor = 0
+ pgf.Page1.ListBox.AutoHideScrollbar = 0
+ pgf.Page1.ListBox.BorderColor = 128,255,128
+ pgf.Page1.ListBox.BoundColumn = 1
+ pgf.Page1.ListBox.BoundTo = .F.
+ pgf.Page1.ListBox.ColorScheme = 1
+ pgf.Page1.ListBox.ColorSource = 4
+ pgf.Page1.ListBox.ColumnCount = 0
+ pgf.Page1.ListBox.ColumnLines = .T.
+ pgf.Page1.ListBox.ColumnWidths = ""
+ pgf.Page1.ListBox.Comment = ""
+ pgf.Page1.ListBox.ControlSource = ""
+ pgf.Page1.ListBox.DefHeight =
+ pgf.Page1.ListBox.DefLeft =
+ pgf.Page1.ListBox.DefTop =
+ pgf.Page1.ListBox.DefWidth =
+ pgf.Page1.ListBox.DisabledBackColor = 255,255,255
+ pgf.Page1.ListBox.DisabledForeColor = 109,109,109
+ pgf.Page1.ListBox.DisabledItemBackColor = 255,255,255
+ pgf.Page1.ListBox.DisabledItemForeColor = 109,109,109
+ pgf.Page1.ListBox.DisplayValue =
+ pgf.Page1.ListBox.DragIcon = ..\..\
+ pgf.Page1.ListBox.DragMode = 0
+ pgf.Page1.ListBox.Enabled = .T.
+ pgf.Page1.ListBox.FirstElement = 1
+ pgf.Page1.ListBox.FontBold = .F.
+ pgf.Page1.ListBox.FontCondense = .F.
+ pgf.Page1.ListBox.FontExtend = .F.
+ pgf.Page1.ListBox.FontItalic = .F.
+ pgf.Page1.ListBox.FontName = "Arial"
+ pgf.Page1.ListBox.FontOutline = .F.
+ pgf.Page1.ListBox.FontShadow = .F.
+ pgf.Page1.ListBox.FontSize = 8
+ pgf.Page1.ListBox.FontStrikethru = .F.
+ pgf.Page1.ListBox.FontUnderline = .F.
+ pgf.Page1.ListBox.Height = (60)
+ pgf.Page1.ListBox.HelpContextID = 0
+ pgf.Page1.ListBox.IncrementalSearch = .T.
+ pgf.Page1.ListBox.IntegralHeight = .F.
+ pgf.Page1.ListBox.ItemBackColor = 255,255,255
+ pgf.Page1.ListBox.ItemForeColor = 0,0,0
+ pgf.Page1.ListBox.ItemTips = .F.
+ pgf.Page1.ListBox.Left = (7)
+ pgf.Page1.ListBox.MouseIcon = ..\..\
+ pgf.Page1.ListBox.MousePointer = 0
+ pgf.Page1.ListBox.MoverBars = .F.
+ pgf.Page1.ListBox.MultiSelect = .F.
+ pgf.Page1.ListBox.Name = "ListBox"
+ pgf.Page1.ListBox.NullDisplay = ""
+ pgf.Page1.ListBox.OLEDragMode = 0
+ pgf.Page1.ListBox.OLEDragPicture = ..\..\
+ pgf.Page1.ListBox.OLEDropEffects = 3
+ pgf.Page1.ListBox.OLEDropMode = 0
+ pgf.Page1.ListBox.Picture = ..\..\
+ pgf.Page1.ListBox.RightToLeft = .F.
+ pgf.Page1.ListBox.RowSource = ""
+ pgf.Page1.ListBox.RowSourceType = 0
+ pgf.Page1.ListBox.SelectedItemBackColor = 51,153,255
+ pgf.Page1.ListBox.SelectedItemForeColor = 255,255,255
+ pgf.Page1.ListBox.Sorted = .F.
+ pgf.Page1.ListBox.SpecialEffect = 1
+ pgf.Page1.ListBox.StatusBarText = ""
+ pgf.Page1.ListBox.TabIndex = 8
+ pgf.Page1.ListBox.TabStop = .T.
+ pgf.Page1.ListBox.Tag = ""
+ pgf.Page1.ListBox.TerminateRead = .F.
+ pgf.Page1.ListBox.test_aa = .F.
+ pgf.Page1.ListBox.Themes = .T.
+ pgf.Page1.ListBox.ToolTipText = ""
+ pgf.Page1.ListBox.Top = (164)
+ pgf.Page1.ListBox.Value =
+ pgf.Page1.ListBox.Visible = .T.
+ pgf.Page1.ListBox.WhatsThisHelpID = -1
+ pgf.Page1.ListBox.Width = (224)
+ pgf.Page1.Name = "Page1"
+ pgf.Page1.option.Alignment = 0
+ pgf.Page1.option.Anchor = 0
+ pgf.Page1.option.AutoSize = .F.
+ pgf.Page1.option.BackColor = 240,240,240
+ pgf.Page1.option.BackStyle = 1
+ pgf.Page1.option.Caption = "Esta es la opción B"
+ pgf.Page1.option.ColorScheme = 1
+ pgf.Page1.option.ColorSource = 4
+ pgf.Page1.option.Comment = ""
+ pgf.Page1.option.ControlSource = ""
+ pgf.Page1.option.DefHeight =
+ pgf.Page1.option.DefLeft =
+ pgf.Page1.option.DefTop =
+ pgf.Page1.option.DefWidth =
+ pgf.Page1.option.DisabledBackColor = 240,240,240
+ pgf.Page1.option.DisabledForeColor = 109,109,109
+ pgf.Page1.option.DisabledPicture = ..\..\
+ pgf.Page1.option.DownPicture = ..\..\
+ pgf.Page1.option.DragIcon = ..\..\
+ pgf.Page1.option.DragMode = 0
+ pgf.Page1.option.Enabled = .T.
+ pgf.Page1.option.FontBold = .F.
+ pgf.Page1.option.FontCharSet = 0
+ pgf.Page1.option.FontCondense = .F.
+ pgf.Page1.option.FontExtend = .F.
+ pgf.Page1.option.FontItalic = .F.
+ pgf.Page1.option.FontName = "Arial"
+ pgf.Page1.option.FontOutline = .F.
+ pgf.Page1.option.FontShadow = .F.
+ pgf.Page1.option.FontSize = 8
+ pgf.Page1.option.FontStrikethru = .F.
+ pgf.Page1.option.FontUnderline = .F.
+ pgf.Page1.option.ForeColor = 0,0,0
+ pgf.Page1.option.Height = (16)
+ pgf.Page1.option.HelpContextID = 0
+ pgf.Page1.option.Left = (123)
+ pgf.Page1.option.MouseIcon = ..\..\
+ pgf.Page1.option.MousePointer = 0
+ pgf.Page1.option.Name = "option"
+ pgf.Page1.option.OLEDragMode = 0
+ pgf.Page1.option.OLEDragPicture = ..\..\
+ pgf.Page1.option.OLEDropEffects = 3
+ pgf.Page1.option.OLEDropMode = 0
+ pgf.Page1.option.Picture = ..\..\
+ pgf.Page1.option.PictureMargin = 0
+ pgf.Page1.option.PicturePosition = 13
+ pgf.Page1.option.PictureSpacing = 0
+ pgf.Page1.option.RightToLeft = .F.
+ pgf.Page1.option.SpecialEffect = 0
+ pgf.Page1.option.StatusBarText = ""
+ pgf.Page1.option.Style = 0
+ pgf.Page1.option.TabIndex = 1
+ pgf.Page1.option.TabStop = .T.
+ pgf.Page1.option.Tag = ""
+ pgf.Page1.option.TerminateRead = .F.
+ pgf.Page1.option.test_aa = .F.
+ pgf.Page1.option.Themes = .T.
+ pgf.Page1.option.ToolTipText = ""
+ pgf.Page1.option.Top = (232)
+ pgf.Page1.option.Value = 0
+ pgf.Page1.option.Visible = .T.
+ pgf.Page1.option.WhatsThisHelpID = -1
+ pgf.Page1.option.Width = (110)
+ pgf.Page1.option.WordWrap = .F.
+ pgf.Page1.OptionGroup.Anchor = 0
+ pgf.Page1.OptionGroup.AutoSize = .F.
+ pgf.Page1.OptionGroup.BackColor = 240,240,240
+ pgf.Page1.OptionGroup.BackStyle = 1
+ pgf.Page1.OptionGroup.BorderColor = 100,100,100
+ pgf.Page1.OptionGroup.BorderStyle = 1
+ pgf.Page1.OptionGroup.ButtonCount = 2
+ pgf.Page1.OptionGroup.ColorSource = 4
+ pgf.Page1.OptionGroup.Comment = ""
+ pgf.Page1.OptionGroup.ControlSource = ""
+ pgf.Page1.OptionGroup.DefHeight =
+ pgf.Page1.OptionGroup.DefLeft =
+ pgf.Page1.OptionGroup.DefTop =
+ pgf.Page1.OptionGroup.DefWidth =
+ pgf.Page1.OptionGroup.DragIcon = ..\..\
+ pgf.Page1.OptionGroup.DragMode = 0
+ pgf.Page1.OptionGroup.Enabled = .T.
+ pgf.Page1.OptionGroup.Height = (46)
+ pgf.Page1.OptionGroup.HelpContextID = 0
+ pgf.Page1.OptionGroup.Left = (7)
+ pgf.Page1.OptionGroup.MemberClassLibrary = ..\..\
+ pgf.Page1.OptionGroup.MouseIcon = ..\..\
+ pgf.Page1.OptionGroup.MousePointer = 0
+ pgf.Page1.OptionGroup.Name = "OptionGroup"
+ pgf.Page1.OptionGroup.OLEDragMode = 0
+ pgf.Page1.OptionGroup.OLEDragPicture = ..\..\
+ pgf.Page1.OptionGroup.OLEDropEffects = 3
+ pgf.Page1.OptionGroup.OLEDropMode = 0
+ pgf.Page1.OptionGroup.Option1.Height = 16
+ pgf.Page1.OptionGroup.Option1.Left = 5
+ pgf.Page1.OptionGroup.Option1.Name = "Option1"
+ pgf.Page1.OptionGroup.Option1.Top = 5
+ pgf.Page1.OptionGroup.Option1.Width = 103
+ pgf.Page1.OptionGroup.Option2.Height = 16
+ pgf.Page1.OptionGroup.Option2.Left = 5
+ pgf.Page1.OptionGroup.Option2.Name = "Option2"
+ pgf.Page1.OptionGroup.Option2.Top = 24
+ pgf.Page1.OptionGroup.Option2.Value = 0
+ pgf.Page1.OptionGroup.Option2.Width = 103
+ pgf.Page1.OptionGroup.SpecialEffect = 0
+ pgf.Page1.OptionGroup.StatusBarText = ""
+ pgf.Page1.OptionGroup.TabIndex = 1
+ pgf.Page1.OptionGroup.Tag = ""
+ pgf.Page1.OptionGroup.TerminateRead = .F.
+ pgf.Page1.OptionGroup.test_aa = .F.
+ pgf.Page1.OptionGroup.Themes = .T.
+ pgf.Page1.OptionGroup.ToolTipText = ""
+ pgf.Page1.OptionGroup.Top = (232)
+ pgf.Page1.OptionGroup.Value = 0
+ pgf.Page1.OptionGroup.Visible = .T.
+ pgf.Page1.OptionGroup.WhatsThisHelpID = -1
+ pgf.Page1.OptionGroup.Width = (112)
+ pgf.Page1.Pageframe1.ActivePage = 1
+ pgf.Page1.Pageframe1.Anchor = 0
+ pgf.Page1.Pageframe1.Cl_page1.Name = "Cl_page1"
+ pgf.Page1.Pageframe1.Cl_page2.Name = "Cl_page2"
+ pgf.Page1.Pageframe1.ColorSource = 4
+ pgf.Page1.Pageframe1.Comment = ""
+ pgf.Page1.Pageframe1.DefHeight =
+ pgf.Page1.Pageframe1.DefLeft =
+ pgf.Page1.Pageframe1.DefTop =
+ pgf.Page1.Pageframe1.DefWidth =
+ pgf.Page1.Pageframe1.DragIcon = ..\..\
+ pgf.Page1.Pageframe1.DragMode = 0
+ pgf.Page1.Pageframe1.Enabled = .T.
+ pgf.Page1.Pageframe1.ErasePage = .T.
+ pgf.Page1.Pageframe1.Height = (61)
+ pgf.Page1.Pageframe1.HelpContextID = 0
+ pgf.Page1.Pageframe1.Left = (135)
+ pgf.Page1.Pageframe1.MemberClassLibrary = lib_controles.vcx
+ pgf.Page1.Pageframe1.MouseIcon = ..\..\
+ pgf.Page1.Pageframe1.MousePointer = 0
+ pgf.Page1.Pageframe1.Name = "Pageframe1"
+ pgf.Page1.Pageframe1.OLEDragMode = 0
+ pgf.Page1.Pageframe1.OLEDragPicture = ..\..\
+ pgf.Page1.Pageframe1.OLEDropEffects = 3
+ pgf.Page1.Pageframe1.OLEDropMode = 0
+ pgf.Page1.Pageframe1.PageCount = 2
+ pgf.Page1.Pageframe1.RightToLeft = .F.
+ pgf.Page1.Pageframe1.StatusBarText = ""
+ pgf.Page1.Pageframe1.TabIndex = 10
+ pgf.Page1.Pageframe1.TabOrientation = 2
+ pgf.Page1.Pageframe1.Tabs = .T.
+ pgf.Page1.Pageframe1.TabStop = .T.
+ pgf.Page1.Pageframe1.TabStretch = 1
+ pgf.Page1.Pageframe1.TabStyle = 0
+ pgf.Page1.Pageframe1.Tag = ""
+ pgf.Page1.Pageframe1.Themes = .F.
+ pgf.Page1.Pageframe1.ToolTipText = ""
+ pgf.Page1.Pageframe1.Top = (284)
+ pgf.Page1.Pageframe1.Visible = .T.
+ pgf.Page1.Pageframe1.WhatsThisHelpID = -1
+ pgf.Page1.Pageframe1.Width = (117)
+ pgf.Page1.PageOrder = 1
+ pgf.Page1.Spinner.Alignment = 1
+ pgf.Page1.Spinner.Anchor = 0
+ pgf.Page1.Spinner.BackColor = 255,255,255
+ pgf.Page1.Spinner.BorderColor = 128,255,128
+ pgf.Page1.Spinner.BorderStyle = 1
+ pgf.Page1.Spinner.ColorScheme = 1
+ pgf.Page1.Spinner.ColorSource = 4
+ pgf.Page1.Spinner.Comment = ""
+ pgf.Page1.Spinner.ControlSource = ""
+ pgf.Page1.Spinner.DefHeight =
+ pgf.Page1.Spinner.DefLeft =
+ pgf.Page1.Spinner.DefTop =
+ pgf.Page1.Spinner.DefWidth =
+ pgf.Page1.Spinner.DisabledBackColor = 240,240,240
+ pgf.Page1.Spinner.DisabledForeColor = 109,109,109
+ pgf.Page1.Spinner.DragIcon = ..\..\
+ pgf.Page1.Spinner.DragMode = 0
+ pgf.Page1.Spinner.Enabled = .T.
+ pgf.Page1.Spinner.FontBold = .F.
+ pgf.Page1.Spinner.FontCondense = .F.
+ pgf.Page1.Spinner.FontExtend = .F.
+ pgf.Page1.Spinner.FontItalic = .F.
+ pgf.Page1.Spinner.FontName = "Arial"
+ pgf.Page1.Spinner.FontOutline = .F.
+ pgf.Page1.Spinner.FontShadow = .F.
+ pgf.Page1.Spinner.FontSize = 8
+ pgf.Page1.Spinner.FontStrikethru = .F.
+ pgf.Page1.Spinner.FontUnderline = .F.
+ pgf.Page1.Spinner.ForeColor = 0,0,0
+ pgf.Page1.Spinner.Format = ""
+ pgf.Page1.Spinner.Height = (19)
+ pgf.Page1.Spinner.HelpContextID = 0
+ pgf.Page1.Spinner.HideSelection = .T.
+ pgf.Page1.Spinner.Increment = 1.00
+ pgf.Page1.Spinner.InputMask = ""
+ pgf.Page1.Spinner.KeyboardHighValue = 2147483647
+ pgf.Page1.Spinner.KeyboardLowValue = -2147483647
+ pgf.Page1.Spinner.Left = (11)
+ pgf.Page1.Spinner.Margin = 0
+ pgf.Page1.Spinner.MouseIcon = ..\..\
+ pgf.Page1.Spinner.MousePointer = 0
+ pgf.Page1.Spinner.Name = "Spinner"
+ pgf.Page1.Spinner.NullDisplay = ""
+ pgf.Page1.Spinner.OLEDragMode = 0
+ pgf.Page1.Spinner.OLEDragPicture = ..\..\
+ pgf.Page1.Spinner.OLEDropEffects = 3
+ pgf.Page1.Spinner.OLEDropMode = 0
+ pgf.Page1.Spinner.OLEDropTextInsertion = 0
+ pgf.Page1.Spinner.ReadOnly = .F.
+ pgf.Page1.Spinner.RightToLeft = .F.
+ pgf.Page1.Spinner.SelectedBackColor = 51,153,255
+ pgf.Page1.Spinner.SelectedForeColor = 255,255,255
+ pgf.Page1.Spinner.SelectOnEntry = .F.
+ pgf.Page1.Spinner.SpecialEffect = 1
+ pgf.Page1.Spinner.SpinnerHighValue = 2147483647.00
+ pgf.Page1.Spinner.SpinnerLowValue = -2147483647.00
+ pgf.Page1.Spinner.StatusBarText = ""
+ pgf.Page1.Spinner.TabIndex = 9
+ pgf.Page1.Spinner.TabStop = .T.
+ pgf.Page1.Spinner.Tag = ""
+ pgf.Page1.Spinner.TerminateRead = .F.
+ pgf.Page1.Spinner.test_aa = .F.
+ pgf.Page1.Spinner.Themes = .T.
+ pgf.Page1.Spinner.ToolTipText = ""
+ pgf.Page1.Spinner.Top = (292)
+ pgf.Page1.Spinner.Value = 0
+ pgf.Page1.Spinner.Visible = .T.
+ pgf.Page1.Spinner.WhatsThisHelpID = -1
+ pgf.Page1.Spinner.Width = (108)
+ pgf.Page1.TextBox.Alignment = 3
+ pgf.Page1.TextBox.Anchor = 0
+ pgf.Page1.TextBox.AutoComplete = 0
+ pgf.Page1.TextBox.AutoCompSource = ""
+ pgf.Page1.TextBox.AutoCompTable = ""
+ pgf.Page1.TextBox.BackColor = 255,255,255
+ pgf.Page1.TextBox.BackStyle = 1
+ pgf.Page1.TextBox.BorderColor = 128,255,128
+ pgf.Page1.TextBox.BorderStyle = 1
+ pgf.Page1.TextBox.Century = 1
+ pgf.Page1.TextBox.ColorScheme = 1
+ pgf.Page1.TextBox.ColorSource = 4
+ pgf.Page1.TextBox.Comment = ""
+ pgf.Page1.TextBox.ControlSource = ""
+ pgf.Page1.TextBox.DateFormat = 0
+ pgf.Page1.TextBox.DateMark = ""
+ pgf.Page1.TextBox.DefHeight =
+ pgf.Page1.TextBox.DefLeft =
+ pgf.Page1.TextBox.DefTop =
+ pgf.Page1.TextBox.DefWidth =
+ pgf.Page1.TextBox.DisabledBackColor = 240,240,240
+ pgf.Page1.TextBox.DisabledForeColor = 109,109,109
+ pgf.Page1.TextBox.DragIcon = ..\..\
+ pgf.Page1.TextBox.DragMode = 0
+ pgf.Page1.TextBox.Enabled = .T.
+ pgf.Page1.TextBox.EnableHyperlinks = .F.
+ pgf.Page1.TextBox.FontBold = .F.
+ pgf.Page1.TextBox.FontCondense = .F.
+ pgf.Page1.TextBox.FontExtend = .F.
+ pgf.Page1.TextBox.FontItalic = .F.
+ pgf.Page1.TextBox.FontName = "Arial"
+ pgf.Page1.TextBox.FontOutline = .F.
+ pgf.Page1.TextBox.FontShadow = .F.
+ pgf.Page1.TextBox.FontSize = 8
+ pgf.Page1.TextBox.FontStrikethru = .F.
+ pgf.Page1.TextBox.FontUnderline = .F.
+ pgf.Page1.TextBox.ForeColor = 0,0,0
+ pgf.Page1.TextBox.Format = ""
+ pgf.Page1.TextBox.Height = (19)
+ pgf.Page1.TextBox.HelpContextID = 0
+ pgf.Page1.TextBox.HideSelection = .T.
+ pgf.Page1.TextBox.Hours = 0
+ pgf.Page1.TextBox.IMEMode = 0
+ pgf.Page1.TextBox.InputMask = ""
+ pgf.Page1.TextBox.IntegralHeight = .F.
+ pgf.Page1.TextBox.Left = (11)
+ pgf.Page1.TextBox.Margin = 0
+ pgf.Page1.TextBox.MaxLength = 0
+ pgf.Page1.TextBox.MemoWindow = ""
+ pgf.Page1.TextBox.MouseIcon = ..\..\
+ pgf.Page1.TextBox.MousePointer = 0
+ pgf.Page1.TextBox.Name = "TextBox"
+ pgf.Page1.TextBox.NullDisplay = ""
+ pgf.Page1.TextBox.OLEDragMode = 0
+ pgf.Page1.TextBox.OLEDragPicture = ..\..\
+ pgf.Page1.TextBox.OLEDropEffects = 3
+ pgf.Page1.TextBox.OLEDropMode = 0
+ pgf.Page1.TextBox.OLEDropTextInsertion = 0
+ pgf.Page1.TextBox.OpenWindow = .F.
+ pgf.Page1.TextBox.PasswordChar = ""
+ pgf.Page1.TextBox.ReadOnly = .F.
+ pgf.Page1.TextBox.RightToLeft = .F.
+ pgf.Page1.TextBox.Seconds = 2
+ pgf.Page1.TextBox.SelectedBackColor = 51,153,255
+ pgf.Page1.TextBox.SelectedForeColor = 255,255,255
+ pgf.Page1.TextBox.SelectOnEntry = .F.
+ pgf.Page1.TextBox.SpecialEffect = 1
+ pgf.Page1.TextBox.StatusBarText = ""
+ pgf.Page1.TextBox.StrictDateEntry = 1
+ pgf.Page1.TextBox.Style = 0
+ pgf.Page1.TextBox.TabIndex = 1
+ pgf.Page1.TextBox.TabStop = .T.
+ pgf.Page1.TextBox.Tag = ""
+ pgf.Page1.TextBox.TerminateRead = .F.
+ pgf.Page1.TextBox.test_aa = .F.
+ pgf.Page1.TextBox.Themes = .T.
+ pgf.Page1.TextBox.ToolTipText = ""
+ pgf.Page1.TextBox.Top = (320)
+ pgf.Page1.TextBox.Value =
+ pgf.Page1.TextBox.Visible = .T.
+ pgf.Page1.TextBox.WhatsThisHelpID = -1
+ pgf.Page1.TextBox.Width = (108)
+ pgf.Page1.Timer.Comment = "no comment"
+ pgf.Page1.Timer.DefHeight =
+ pgf.Page1.Timer.DefLeft =
+ pgf.Page1.Timer.DefTop =
+ pgf.Page1.Timer.DefWidth =
+ pgf.Page1.Timer.Enabled = .T.
+ pgf.Page1.Timer.Height = (23)
+ pgf.Page1.Timer.Interval = 0
+ pgf.Page1.Timer.Left = (207)
+ pgf.Page1.Timer.Name = "Timer"
+ pgf.Page1.Timer.test_aa = .F.
+ pgf.Page1.Timer.Top = (252)
+ pgf.Page1.Timer.Width = (23)
+ pgf.Page2.Name = "Page2"
+ pgf.Page2.PageOrder = 2
+ pgf.PageCount = 2
+ pgf.RightToLeft = .F.
+ pgf.TabIndex = 7
+ pgf.TabOrientation = 1
+ pgf.Tabs = .T.
+ pgf.TabStop = .T.
+ pgf.TabStretch = 1
+ pgf.TabStyle = 0
+ pgf.Tag = ""
+ pgf.test_aa = .F.
+ pgf.Themes = .T.
+ pgf.ToolTipText = ""
+ pgf.Top = 28
+ pgf.Visible = .T.
+ pgf.WhatsThisHelpID = -1
+ pgf.Width = 268
+ Image1.Height = 104
+ Image1.Name = "Image1"
+ Image1.Width = 212
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_aa2.sc2 b/TESTS/DATOS_READONLY/f_form_aa2.sc2
index e175f1f..9a2245e 100644
--- a/TESTS/DATOS_READONLY/f_form_aa2.sc2
+++ b/TESTS/DATOS_READONLY/f_form_aa2.sc2
@@ -4,1328 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_form_aa1" Baseclass="form" />
- DataSource = .NULL.
- Name = "Dataenvironment"
- TabStop = .F.
- Visible = .F.
-
-ENDDEFINE
-
-DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- AlwaysOnTop = .T.
- DefHeight =
- DefLeft =
- DefTop =
- DoCreate = .T.
- Height = (460)
- Left = (2)
- Name = "F_form_aa1"
- Top = (4)
- Cl_image1.Height = 104
- Cl_image1.Name = "Cl_image1"
- Cl_image1.Width = 212
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- cmdCapturar.Name = "cmdCapturar"
- Label1.Name = "Label1"
- Label2.Name = "Label2"
- Cl_grid1.AllowAddNew = .F.
- Cl_grid1.AllowAutoColumnFit = 0
- Cl_grid1.AllowCellSelection = .T.
- Cl_grid1.AllowHeaderSizing = .F.
- Cl_grid1.AllowRowSizing = .F.
- Cl_grid1.Anchor = 0
- Cl_grid1.BackColor = 255,255,217
- Cl_grid1.ChildOrder = ""
- Cl_grid1.COLUMN1.Alignment = 3
- Cl_grid1.COLUMN1.BackColor = 255,255,217
- Cl_grid1.COLUMN1.Bound = .T.
- Cl_grid1.COLUMN1.ColumnOrder = 1
- Cl_grid1.COLUMN1.Comment = ""
- Cl_grid1.COLUMN1.ControlSource = ""
- Cl_grid1.COLUMN1.CurrentControl = "Text1"
- Cl_grid1.COLUMN1.DynamicAlignment = ""
- Cl_grid1.COLUMN1.DynamicBackColor = ""
- Cl_grid1.COLUMN1.DynamicCurrentControl = ""
- Cl_grid1.COLUMN1.DynamicFontBold = ""
- Cl_grid1.COLUMN1.DynamicFontItalic = ""
- Cl_grid1.COLUMN1.DynamicFontName = ""
- Cl_grid1.COLUMN1.DynamicFontOutline = ""
- Cl_grid1.COLUMN1.DynamicFontShadow = ""
- Cl_grid1.COLUMN1.DynamicFontSize = ""
- Cl_grid1.COLUMN1.DynamicFontStrikethru = ""
- Cl_grid1.COLUMN1.DynamicFontUnderline = ""
- Cl_grid1.COLUMN1.DynamicForeColor = ""
- Cl_grid1.COLUMN1.DynamicInputMask = ""
- Cl_grid1.COLUMN1.Enabled = .T.
- Cl_grid1.COLUMN1.FontBold = .F.
- Cl_grid1.COLUMN1.FontCondense = .F.
- Cl_grid1.COLUMN1.FontExtend = .F.
- Cl_grid1.COLUMN1.FontItalic = .F.
- Cl_grid1.COLUMN1.FontName = "Arial"
- Cl_grid1.COLUMN1.FontOutline = .F.
- Cl_grid1.COLUMN1.FontShadow = .F.
- Cl_grid1.COLUMN1.FontSize = 9
- Cl_grid1.COLUMN1.FontStrikethru = .F.
- Cl_grid1.COLUMN1.FontUnderline = .F.
- Cl_grid1.COLUMN1.ForeColor = 0,0,0
- Cl_grid1.COLUMN1.Format = ""
- Cl_grid1.COLUMN1.Header1.Alignment = 0
- Cl_grid1.COLUMN1.Header1.BackColor = 240,240,240
- Cl_grid1.COLUMN1.Header1.Caption = "Control"
- Cl_grid1.COLUMN1.Header1.Comment = ""
- Cl_grid1.COLUMN1.Header1.FontBold = .F.
- Cl_grid1.COLUMN1.Header1.FontCondense = .F.
- Cl_grid1.COLUMN1.Header1.FontExtend = .F.
- Cl_grid1.COLUMN1.Header1.FontItalic = .F.
- Cl_grid1.COLUMN1.Header1.FontName = "Arial"
- Cl_grid1.COLUMN1.Header1.FontOutline = .F.
- Cl_grid1.COLUMN1.Header1.FontShadow = .F.
- Cl_grid1.COLUMN1.Header1.FontSize = 9
- Cl_grid1.COLUMN1.Header1.FontStrikethru = .F.
- Cl_grid1.COLUMN1.Header1.FontUnderline = .F.
- Cl_grid1.COLUMN1.Header1.ForeColor = 0,0,0
- Cl_grid1.COLUMN1.Header1.MouseIcon = ..\..\
- Cl_grid1.COLUMN1.Header1.MousePointer = 0
- Cl_grid1.COLUMN1.Header1.Name = "Header1"
- Cl_grid1.COLUMN1.Header1.Picture = ..\..\
- Cl_grid1.COLUMN1.Header1.StatusBarText = ""
- Cl_grid1.COLUMN1.Header1.Tag = ""
- Cl_grid1.COLUMN1.Header1.ToolTipText = ""
- Cl_grid1.COLUMN1.Header1.WordWrap = .F.
- Cl_grid1.COLUMN1.InputMask = ""
- Cl_grid1.COLUMN1.MouseIcon = ..\..\
- Cl_grid1.COLUMN1.MousePointer = 0
- Cl_grid1.COLUMN1.Movable = .T.
- Cl_grid1.COLUMN1.Name = "COLUMN1"
- Cl_grid1.COLUMN1.ReadOnly = .F.
- Cl_grid1.COLUMN1.Resizable = .T.
- Cl_grid1.COLUMN1.SelectOnEntry = .T.
- Cl_grid1.COLUMN1.Sparse = .T.
- Cl_grid1.COLUMN1.Text1.Alignment = 3
- Cl_grid1.COLUMN1.Text1.BackColor = 255,255,217
- Cl_grid1.COLUMN1.Text1.Enabled = .T.
- Cl_grid1.COLUMN1.Text1.FontBold = .F.
- Cl_grid1.COLUMN1.Text1.FontCondense = .F.
- Cl_grid1.COLUMN1.Text1.FontExtend = .F.
- Cl_grid1.COLUMN1.Text1.FontItalic = .F.
- Cl_grid1.COLUMN1.Text1.FontName = "Arial"
- Cl_grid1.COLUMN1.Text1.FontOutline = .F.
- Cl_grid1.COLUMN1.Text1.FontShadow = .F.
- Cl_grid1.COLUMN1.Text1.FontSize = 9
- Cl_grid1.COLUMN1.Text1.FontStrikethru = .F.
- Cl_grid1.COLUMN1.Text1.FontUnderline = .F.
- Cl_grid1.COLUMN1.Text1.ForeColor = 0,0,0
- Cl_grid1.COLUMN1.Text1.Name = "Text1"
- Cl_grid1.COLUMN1.Text1.ReadOnly = .F.
- Cl_grid1.COLUMN1.Text1.Visible = .T.
- Cl_grid1.COLUMN1.Visible = .T.
- Cl_grid1.COLUMN1.Width = 170
- Cl_grid1.COLUMN2.BackColor = 255,255,217
- Cl_grid1.COLUMN2.ControlSource = ""
- Cl_grid1.COLUMN2.Enabled = .T.
- Cl_grid1.COLUMN2.FontBold = .F.
- Cl_grid1.COLUMN2.FontCondense = .F.
- Cl_grid1.COLUMN2.FontExtend = .F.
- Cl_grid1.COLUMN2.FontItalic = .F.
- Cl_grid1.COLUMN2.FontName = "Arial"
- Cl_grid1.COLUMN2.FontOutline = .F.
- Cl_grid1.COLUMN2.FontShadow = .F.
- Cl_grid1.COLUMN2.FontSize = 9
- Cl_grid1.COLUMN2.FontStrikethru = .F.
- Cl_grid1.COLUMN2.FontUnderline = .F.
- Cl_grid1.COLUMN2.ForeColor = 0,0,0
- Cl_grid1.COLUMN2.Header1.FontBold = .F.
- Cl_grid1.COLUMN2.Header1.FontCondense = .F.
- Cl_grid1.COLUMN2.Header1.FontExtend = .F.
- Cl_grid1.COLUMN2.Header1.FontItalic = .F.
- Cl_grid1.COLUMN2.Header1.FontName = "Arial"
- Cl_grid1.COLUMN2.Header1.FontOutline = .F.
- Cl_grid1.COLUMN2.Header1.FontShadow = .F.
- Cl_grid1.COLUMN2.Header1.FontSize = 9
- Cl_grid1.COLUMN2.Header1.FontStrikethru = .F.
- Cl_grid1.COLUMN2.Header1.FontUnderline = .F.
- Cl_grid1.COLUMN2.Header1.Name = "Header1"
- Cl_grid1.COLUMN2.Name = "COLUMN2"
- Cl_grid1.COLUMN2.ReadOnly = .F.
- Cl_grid1.COLUMN2.Text1.BackColor = 255,255,217
- Cl_grid1.COLUMN2.Text1.Enabled = .T.
- Cl_grid1.COLUMN2.Text1.FontBold = .F.
- Cl_grid1.COLUMN2.Text1.FontCondense = .F.
- Cl_grid1.COLUMN2.Text1.FontExtend = .F.
- Cl_grid1.COLUMN2.Text1.FontItalic = .F.
- Cl_grid1.COLUMN2.Text1.FontName = "Arial"
- Cl_grid1.COLUMN2.Text1.FontOutline = .F.
- Cl_grid1.COLUMN2.Text1.FontShadow = .F.
- Cl_grid1.COLUMN2.Text1.FontSize = 9
- Cl_grid1.COLUMN2.Text1.FontStrikethru = .F.
- Cl_grid1.COLUMN2.Text1.FontUnderline = .F.
- Cl_grid1.COLUMN2.Text1.ForeColor = 0,0,0
- Cl_grid1.COLUMN2.Text1.Name = "Text1"
- Cl_grid1.COLUMN2.Text1.ReadOnly = .F.
- Cl_grid1.COLUMN2.Text1.Visible = .T.
- Cl_grid1.COLUMN2.Visible = .T.
- Cl_grid1.COLUMN3.BackColor = 255,255,217
- Cl_grid1.COLUMN3.ControlSource = ""
- Cl_grid1.COLUMN3.Enabled = .T.
- Cl_grid1.COLUMN3.FontBold = .F.
- Cl_grid1.COLUMN3.FontCondense = .F.
- Cl_grid1.COLUMN3.FontExtend = .F.
- Cl_grid1.COLUMN3.FontItalic = .F.
- Cl_grid1.COLUMN3.FontName = "Arial"
- Cl_grid1.COLUMN3.FontOutline = .F.
- Cl_grid1.COLUMN3.FontShadow = .F.
- Cl_grid1.COLUMN3.FontSize = 9
- Cl_grid1.COLUMN3.FontStrikethru = .F.
- Cl_grid1.COLUMN3.FontUnderline = .F.
- Cl_grid1.COLUMN3.ForeColor = 0,0,0
- Cl_grid1.COLUMN3.Header1.FontBold = .F.
- Cl_grid1.COLUMN3.Header1.FontCondense = .F.
- Cl_grid1.COLUMN3.Header1.FontExtend = .F.
- Cl_grid1.COLUMN3.Header1.FontItalic = .F.
- Cl_grid1.COLUMN3.Header1.FontName = "Arial"
- Cl_grid1.COLUMN3.Header1.FontOutline = .F.
- Cl_grid1.COLUMN3.Header1.FontShadow = .F.
- Cl_grid1.COLUMN3.Header1.FontSize = 9
- Cl_grid1.COLUMN3.Header1.FontStrikethru = .F.
- Cl_grid1.COLUMN3.Header1.FontUnderline = .F.
- Cl_grid1.COLUMN3.Header1.Name = "Header1"
- Cl_grid1.COLUMN3.Name = "COLUMN3"
- Cl_grid1.COLUMN3.ReadOnly = .F.
- Cl_grid1.COLUMN3.Text1.BackColor = 255,255,217
- Cl_grid1.COLUMN3.Text1.Enabled = .T.
- Cl_grid1.COLUMN3.Text1.FontBold = .F.
- Cl_grid1.COLUMN3.Text1.FontCondense = .F.
- Cl_grid1.COLUMN3.Text1.FontExtend = .F.
- Cl_grid1.COLUMN3.Text1.FontItalic = .F.
- Cl_grid1.COLUMN3.Text1.FontName = "Arial"
- Cl_grid1.COLUMN3.Text1.FontOutline = .F.
- Cl_grid1.COLUMN3.Text1.FontShadow = .F.
- Cl_grid1.COLUMN3.Text1.FontSize = 9
- Cl_grid1.COLUMN3.Text1.FontStrikethru = .F.
- Cl_grid1.COLUMN3.Text1.FontUnderline = .F.
- Cl_grid1.COLUMN3.Text1.ForeColor = 0,0,0
- Cl_grid1.COLUMN3.Text1.Name = "Text1"
- Cl_grid1.COLUMN3.Text1.ReadOnly = .F.
- Cl_grid1.COLUMN3.Text1.Visible = .T.
- Cl_grid1.COLUMN3.Visible = .T.
- Cl_grid1.COLUMN4.BackColor = 255,255,217
- Cl_grid1.COLUMN4.ControlSource = ""
- Cl_grid1.COLUMN4.Enabled = .T.
- Cl_grid1.COLUMN4.FontBold = .F.
- Cl_grid1.COLUMN4.FontCondense = .F.
- Cl_grid1.COLUMN4.FontExtend = .F.
- Cl_grid1.COLUMN4.FontItalic = .F.
- Cl_grid1.COLUMN4.FontName = "Arial"
- Cl_grid1.COLUMN4.FontOutline = .F.
- Cl_grid1.COLUMN4.FontShadow = .F.
- Cl_grid1.COLUMN4.FontSize = 9
- Cl_grid1.COLUMN4.FontStrikethru = .F.
- Cl_grid1.COLUMN4.FontUnderline = .F.
- Cl_grid1.COLUMN4.ForeColor = 0,0,0
- Cl_grid1.COLUMN4.Header1.FontBold = .F.
- Cl_grid1.COLUMN4.Header1.FontCondense = .F.
- Cl_grid1.COLUMN4.Header1.FontExtend = .F.
- Cl_grid1.COLUMN4.Header1.FontItalic = .F.
- Cl_grid1.COLUMN4.Header1.FontName = "Arial"
- Cl_grid1.COLUMN4.Header1.FontOutline = .F.
- Cl_grid1.COLUMN4.Header1.FontShadow = .F.
- Cl_grid1.COLUMN4.Header1.FontSize = 9
- Cl_grid1.COLUMN4.Header1.FontStrikethru = .F.
- Cl_grid1.COLUMN4.Header1.FontUnderline = .F.
- Cl_grid1.COLUMN4.Header1.Name = "Header1"
- Cl_grid1.COLUMN4.Name = "COLUMN4"
- Cl_grid1.COLUMN4.ReadOnly = .F.
- Cl_grid1.COLUMN4.Text1.BackColor = 255,255,217
- Cl_grid1.COLUMN4.Text1.Enabled = .T.
- Cl_grid1.COLUMN4.Text1.FontBold = .F.
- Cl_grid1.COLUMN4.Text1.FontCondense = .F.
- Cl_grid1.COLUMN4.Text1.FontExtend = .F.
- Cl_grid1.COLUMN4.Text1.FontItalic = .F.
- Cl_grid1.COLUMN4.Text1.FontName = "Arial"
- Cl_grid1.COLUMN4.Text1.FontOutline = .F.
- Cl_grid1.COLUMN4.Text1.FontShadow = .F.
- Cl_grid1.COLUMN4.Text1.FontSize = 9
- Cl_grid1.COLUMN4.Text1.FontStrikethru = .F.
- Cl_grid1.COLUMN4.Text1.FontUnderline = .F.
- Cl_grid1.COLUMN4.Text1.ForeColor = 0,0,0
- Cl_grid1.COLUMN4.Text1.Name = "Text1"
- Cl_grid1.COLUMN4.Text1.ReadOnly = .F.
- Cl_grid1.COLUMN4.Text1.Visible = .T.
- Cl_grid1.COLUMN4.Visible = .T.
- Cl_grid1.COLUMN5.BackColor = 255,255,217
- Cl_grid1.COLUMN5.ControlSource = ""
- Cl_grid1.COLUMN5.Enabled = .T.
- Cl_grid1.COLUMN5.FontBold = .F.
- Cl_grid1.COLUMN5.FontCondense = .F.
- Cl_grid1.COLUMN5.FontExtend = .F.
- Cl_grid1.COLUMN5.FontItalic = .F.
- Cl_grid1.COLUMN5.FontName = "Arial"
- Cl_grid1.COLUMN5.FontOutline = .F.
- Cl_grid1.COLUMN5.FontShadow = .F.
- Cl_grid1.COLUMN5.FontSize = 9
- Cl_grid1.COLUMN5.FontStrikethru = .F.
- Cl_grid1.COLUMN5.FontUnderline = .F.
- Cl_grid1.COLUMN5.ForeColor = 0,0,0
- Cl_grid1.COLUMN5.Header1.FontBold = .F.
- Cl_grid1.COLUMN5.Header1.FontCondense = .F.
- Cl_grid1.COLUMN5.Header1.FontExtend = .F.
- Cl_grid1.COLUMN5.Header1.FontItalic = .F.
- Cl_grid1.COLUMN5.Header1.FontName = "Arial"
- Cl_grid1.COLUMN5.Header1.FontOutline = .F.
- Cl_grid1.COLUMN5.Header1.FontShadow = .F.
- Cl_grid1.COLUMN5.Header1.FontSize = 9
- Cl_grid1.COLUMN5.Header1.FontStrikethru = .F.
- Cl_grid1.COLUMN5.Header1.FontUnderline = .F.
- Cl_grid1.COLUMN5.Header1.Name = "Header1"
- Cl_grid1.COLUMN5.Name = "COLUMN5"
- Cl_grid1.COLUMN5.ReadOnly = .F.
- Cl_grid1.COLUMN5.Text1.BackColor = 255,255,217
- Cl_grid1.COLUMN5.Text1.Enabled = .T.
- Cl_grid1.COLUMN5.Text1.FontBold = .F.
- Cl_grid1.COLUMN5.Text1.FontCondense = .F.
- Cl_grid1.COLUMN5.Text1.FontExtend = .F.
- Cl_grid1.COLUMN5.Text1.FontItalic = .F.
- Cl_grid1.COLUMN5.Text1.FontName = "Arial"
- Cl_grid1.COLUMN5.Text1.FontOutline = .F.
- Cl_grid1.COLUMN5.Text1.FontShadow = .F.
- Cl_grid1.COLUMN5.Text1.FontSize = 9
- Cl_grid1.COLUMN5.Text1.FontStrikethru = .F.
- Cl_grid1.COLUMN5.Text1.FontUnderline = .F.
- Cl_grid1.COLUMN5.Text1.ForeColor = 0,0,0
- Cl_grid1.COLUMN5.Text1.Name = "Text1"
- Cl_grid1.COLUMN5.Text1.ReadOnly = .F.
- Cl_grid1.COLUMN5.Text1.Visible = .T.
- Cl_grid1.COLUMN5.Visible = .T.
- Cl_grid1.Column6.BackColor = 255,255,217
- Cl_grid1.Column6.ControlSource = ""
- Cl_grid1.Column6.Enabled = .T.
- Cl_grid1.Column6.FontBold = .F.
- Cl_grid1.Column6.FontCondense = .F.
- Cl_grid1.Column6.FontExtend = .F.
- Cl_grid1.Column6.FontItalic = .F.
- Cl_grid1.Column6.FontName = "Arial"
- Cl_grid1.Column6.FontOutline = .F.
- Cl_grid1.Column6.FontShadow = .F.
- Cl_grid1.Column6.FontSize = 9
- Cl_grid1.Column6.FontStrikethru = .F.
- Cl_grid1.Column6.FontUnderline = .F.
- Cl_grid1.Column6.ForeColor = 0,0,0
- Cl_grid1.Column6.Header1.FontBold = .F.
- Cl_grid1.Column6.Header1.FontCondense = .F.
- Cl_grid1.Column6.Header1.FontExtend = .F.
- Cl_grid1.Column6.Header1.FontItalic = .F.
- Cl_grid1.Column6.Header1.FontName = "Arial"
- Cl_grid1.Column6.Header1.FontOutline = .F.
- Cl_grid1.Column6.Header1.FontShadow = .F.
- Cl_grid1.Column6.Header1.FontSize = 9
- Cl_grid1.Column6.Header1.FontStrikethru = .F.
- Cl_grid1.Column6.Header1.FontUnderline = .F.
- Cl_grid1.Column6.Header1.Name = "Header1"
- Cl_grid1.Column6.Name = "Column6"
- Cl_grid1.Column6.ReadOnly = .F.
- Cl_grid1.Column6.Text1.BackColor = 255,255,217
- Cl_grid1.Column6.Text1.Enabled = .T.
- Cl_grid1.Column6.Text1.FontBold = .F.
- Cl_grid1.Column6.Text1.FontCondense = .F.
- Cl_grid1.Column6.Text1.FontExtend = .F.
- Cl_grid1.Column6.Text1.FontItalic = .F.
- Cl_grid1.Column6.Text1.FontName = "Arial"
- Cl_grid1.Column6.Text1.FontOutline = .F.
- Cl_grid1.Column6.Text1.FontShadow = .F.
- Cl_grid1.Column6.Text1.FontSize = 9
- Cl_grid1.Column6.Text1.FontStrikethru = .F.
- Cl_grid1.Column6.Text1.FontUnderline = .F.
- Cl_grid1.Column6.Text1.ForeColor = 0,0,0
- Cl_grid1.Column6.Text1.Name = "Text1"
- Cl_grid1.Column6.Text1.ReadOnly = .F.
- Cl_grid1.Column6.Text1.Visible = .T.
- Cl_grid1.Column6.Visible = .T.
- Cl_grid1.ColumnCount = 6
- Cl_grid1.Comment = ""
- Cl_grid1.DeleteMark = .F.
- Cl_grid1.DragIcon = ..\..\
- Cl_grid1.DragMode = 0
- Cl_grid1.Enabled = .T.
- Cl_grid1.FontBold = .F.
- Cl_grid1.FontCondense = .F.
- Cl_grid1.FontExtend = .F.
- Cl_grid1.FontItalic = .F.
- Cl_grid1.FontName = "Arial"
- Cl_grid1.FontOutline = .F.
- Cl_grid1.FontShadow = .F.
- Cl_grid1.FontSize = 9
- Cl_grid1.FontStrikethru = .F.
- Cl_grid1.FontUnderline = .F.
- Cl_grid1.ForeColor = 0,0,0
- Cl_grid1.GridLineColor = 0,0,0
- Cl_grid1.GridLines = 3
- Cl_grid1.GridLineWidth = 1
- Cl_grid1.HeaderHeight = 18
- Cl_grid1.HelpContextID = 0
- Cl_grid1.Highlight = .T.
- Cl_grid1.HighlightBackColor = 51,153,255
- Cl_grid1.HighlightForeColor = 255,255,255
- Cl_grid1.HighlightRow = .T.
- Cl_grid1.HighlightRowLineWidth = 1
- Cl_grid1.HighlightStyle = 0
- Cl_grid1.Left = 296
- Cl_grid1.LinkMaster = ""
- Cl_grid1.LockColumns = 0
- Cl_grid1.LockColumnsLeft = 0
- Cl_grid1.MouseIcon = ..\..\
- Cl_grid1.MousePointer = 0
- Cl_grid1.Name = "Cl_grid1"
- Cl_grid1.OLEDragPicture = ..\..\
- Cl_grid1.OLEDropEffects = 3
- Cl_grid1.OLEDropMode = 0
- Cl_grid1.Optimize = .F.
- Cl_grid1.Panel = 1
- Cl_grid1.PanelLink = .T.
- Cl_grid1.Partition = 0
- Cl_grid1.ReadOnly = .F.
- Cl_grid1.RecordMark = .T.
- Cl_grid1.RecordSource = "C_TESTS"
- Cl_grid1.RecordSourceType = 1
- Cl_grid1.RelationalExpr = ""
- Cl_grid1.RightToLeft = .F.
- Cl_grid1.RowHeight = 18
- Cl_grid1.ScrollBars = 2
- Cl_grid1.SelectedItemBackColor = 51,153,255
- Cl_grid1.SelectedItemForeColor = 255,255,255
- Cl_grid1.SplitBar = .F.
- Cl_grid1.StatusBarText = ""
- Cl_grid1.TabIndex = 6
- Cl_grid1.TabStop = .T.
- Cl_grid1.Tag = ""
- Cl_grid1.Themes = .T.
- Cl_grid1.ToolTipText = ""
- Cl_grid1.Top = 32
- Cl_grid1.Value = 0
- Cl_grid1.View = 0
- Cl_grid1.Visible = .T.
- Cl_grid1.WhatsThisHelpID = -1
- pgf.ActivePage = 2
- pgf.Anchor = 0
- pgf.ColorSource = 4
- pgf.Comment = ""
- pgf.DragIcon = ..\..\
- pgf.DragMode = 0
- pgf.Enabled = .T.
- pgf.ErasePage = .T.
- pgf.Height = 388
- pgf.HelpContextID = 0
- pgf.Left = 12
- pgf.MouseIcon = ..\..\
- pgf.MousePointer = 0
- pgf.Name = "pgf"
- pgf.OLEDragMode = 0
- pgf.OLEDragPicture = ..\..\
- pgf.OLEDropEffects = 3
- pgf.OLEDropMode = 0
- pgf.Page1.Checkbox.Alignment = 0
- pgf.Page1.Checkbox.Anchor = 0
- pgf.Page1.Checkbox.AutoSize = .F.
- pgf.Page1.Checkbox.BackColor = 240,240,240
- pgf.Page1.Checkbox.BackStyle = 1
- pgf.Page1.Checkbox.Caption = "Chk1"
- pgf.Page1.Checkbox.Centered = .F.
- pgf.Page1.Checkbox.ColorScheme = 1
- pgf.Page1.Checkbox.ColorSource = 4
- pgf.Page1.Checkbox.Comment = ""
- pgf.Page1.Checkbox.ControlSource = ""
- pgf.Page1.Checkbox.DefHeight =
- pgf.Page1.Checkbox.DefLeft =
- pgf.Page1.Checkbox.DefTop =
- pgf.Page1.Checkbox.DefWidth =
- pgf.Page1.Checkbox.DisabledBackColor = 240,240,240
- pgf.Page1.Checkbox.DisabledForeColor = 109,109,109
- pgf.Page1.Checkbox.DisabledPicture = ..\..\
- pgf.Page1.Checkbox.DownPicture = ..\..\
- pgf.Page1.Checkbox.DragIcon = ..\..\
- pgf.Page1.Checkbox.DragMode = 0
- pgf.Page1.Checkbox.Enabled = .T.
- pgf.Page1.Checkbox.FontBold = .F.
- pgf.Page1.Checkbox.FontCondense = .F.
- pgf.Page1.Checkbox.FontExtend = .F.
- pgf.Page1.Checkbox.FontItalic = .F.
- pgf.Page1.Checkbox.FontName = "Arial"
- pgf.Page1.Checkbox.FontOutline = .F.
- pgf.Page1.Checkbox.FontShadow = .F.
- pgf.Page1.Checkbox.FontSize = 8
- pgf.Page1.Checkbox.FontStrikethru = .F.
- pgf.Page1.Checkbox.FontUnderline = .F.
- pgf.Page1.Checkbox.ForeColor = 0,0,0
- pgf.Page1.Checkbox.Height = (21)
- pgf.Page1.Checkbox.HelpContextID = 0
- pgf.Page1.Checkbox.Left = (7)
- pgf.Page1.Checkbox.MouseIcon = ..\..\
- pgf.Page1.Checkbox.MousePointer = 0
- pgf.Page1.Checkbox.Name = "Checkbox"
- pgf.Page1.Checkbox.OLEDragMode = 0
- pgf.Page1.Checkbox.OLEDragPicture = ..\..\
- pgf.Page1.Checkbox.OLEDropEffects = 3
- pgf.Page1.Checkbox.OLEDropMode = 0
- pgf.Page1.Checkbox.Picture = bmps\treeview.bmp
- pgf.Page1.Checkbox.PictureMargin = 0
- pgf.Page1.Checkbox.PicturePosition = 4
- pgf.Page1.Checkbox.PictureSpacing = 0
- pgf.Page1.Checkbox.ReadOnly = .F.
- pgf.Page1.Checkbox.RightToLeft = .F.
- pgf.Page1.Checkbox.SpecialEffect = 0
- pgf.Page1.Checkbox.StatusBarText = ""
- pgf.Page1.Checkbox.Style = 1
- pgf.Page1.Checkbox.TabIndex = 1
- pgf.Page1.Checkbox.TabStop = .T.
- pgf.Page1.Checkbox.Tag = ""
- pgf.Page1.Checkbox.TerminateRead = .F.
- pgf.Page1.Checkbox.test_aa = .F.
- pgf.Page1.Checkbox.Themes = .T.
- pgf.Page1.Checkbox.ToolTipText = ""
- pgf.Page1.Checkbox.Top = (8)
- pgf.Page1.Checkbox.Value = 0
- pgf.Page1.Checkbox.Visible = .T.
- pgf.Page1.Checkbox.WhatsThisHelpID = -1
- pgf.Page1.Checkbox.Width = (199)
- pgf.Page1.Checkbox.WordWrap = .F.
- pgf.Page1.Cl_optiongroup1.DefHeight =
- pgf.Page1.Cl_optiongroup1.DefWidth =
- pgf.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
- pgf.Page1.Cl_optiongroup1.Option1.Left = 5
- pgf.Page1.Cl_optiongroup1.Option1.Name = "Option1"
- pgf.Page1.Cl_optiongroup1.Option1.Top = 5
- pgf.Page1.Cl_optiongroup1.Option2.Left = 5
- pgf.Page1.Cl_optiongroup1.Option2.Name = "Option2"
- pgf.Page1.Cl_optiongroup1.Option2.Top = 24
- pgf.Page1.Collection.Comment = ""
- pgf.Page1.Collection.KeySort = 0
- pgf.Page1.Collection.Name = "Collection"
- pgf.Page1.Collection.Tag = ""
- pgf.Page1.Collection.test_aa = .F.
- pgf.Page1.ComboBox.Alignment = 0
- pgf.Page1.ComboBox.Anchor = 0
- pgf.Page1.ComboBox.BackColor = 255,255,255
- pgf.Page1.ComboBox.BorderColor = 128,255,128
- pgf.Page1.ComboBox.BorderStyle = 1
- pgf.Page1.ComboBox.BoundColumn = 1
- pgf.Page1.ComboBox.BoundTo = .F.
- pgf.Page1.ComboBox.ColorScheme = 2
- pgf.Page1.ComboBox.ColorSource = 4
- pgf.Page1.ComboBox.ColumnCount = 0
- pgf.Page1.ComboBox.ColumnLines = .T.
- pgf.Page1.ComboBox.ColumnWidths = ""
- pgf.Page1.ComboBox.Comment = ""
- pgf.Page1.ComboBox.ControlSource = ""
- pgf.Page1.ComboBox.DefHeight =
- pgf.Page1.ComboBox.DefLeft =
- pgf.Page1.ComboBox.DefTop =
- pgf.Page1.ComboBox.DefWidth =
- pgf.Page1.ComboBox.DisabledBackColor = 240,240,240
- pgf.Page1.ComboBox.DisabledForeColor = 109,109,109
- pgf.Page1.ComboBox.DisabledItemBackColor = 255,255,255
- pgf.Page1.ComboBox.DisabledItemForeColor = 109,109,109
- pgf.Page1.ComboBox.DisplayCount = 0
- pgf.Page1.ComboBox.DisplayValue =
- pgf.Page1.ComboBox.DragIcon = ..\..\
- pgf.Page1.ComboBox.DragMode = 0
- pgf.Page1.ComboBox.Enabled = .T.
- pgf.Page1.ComboBox.FirstElement = 1
- pgf.Page1.ComboBox.FontBold = .F.
- pgf.Page1.ComboBox.FontCondense = .F.
- pgf.Page1.ComboBox.FontExtend = .F.
- pgf.Page1.ComboBox.FontItalic = .F.
- pgf.Page1.ComboBox.FontName = "Arial"
- pgf.Page1.ComboBox.FontOutline = .F.
- pgf.Page1.ComboBox.FontShadow = .F.
- pgf.Page1.ComboBox.FontSize = 8
- pgf.Page1.ComboBox.FontStrikethru = .F.
- pgf.Page1.ComboBox.FontUnderline = .F.
- pgf.Page1.ComboBox.ForeColor = 0,0,0
- pgf.Page1.ComboBox.Format = ""
- pgf.Page1.ComboBox.Height = (20)
- pgf.Page1.ComboBox.HelpContextID = 0
- pgf.Page1.ComboBox.HideSelection = .T.
- pgf.Page1.ComboBox.IMEMode = 0
- pgf.Page1.ComboBox.IncrementalSearch = .T.
- pgf.Page1.ComboBox.InputMask = ""
- pgf.Page1.ComboBox.ItemBackColor = 255,255,255
- pgf.Page1.ComboBox.ItemForeColor = 0,0,0
- pgf.Page1.ComboBox.ItemTips = .F.
- pgf.Page1.ComboBox.Left = (7)
- pgf.Page1.ComboBox.Margin = 0
- pgf.Page1.ComboBox.MaxLength = 0
- pgf.Page1.ComboBox.MouseIcon = ..\..\
- pgf.Page1.ComboBox.MousePointer = 0
- pgf.Page1.ComboBox.Name = "ComboBox"
- pgf.Page1.ComboBox.NullDisplay = ""
- pgf.Page1.ComboBox.NumberOfElements = 0
- pgf.Page1.ComboBox.OLEDragMode = 0
- pgf.Page1.ComboBox.OLEDragPicture = ..\..\
- pgf.Page1.ComboBox.OLEDropEffects = 3
- pgf.Page1.ComboBox.OLEDropMode = 0
- pgf.Page1.ComboBox.OLEDropTextInsertion = 0
- pgf.Page1.ComboBox.Picture = bmps\treeview.bmp
- pgf.Page1.ComboBox.PictureSelectionDisplay = 0
- pgf.Page1.ComboBox.ReadOnly = .F.
- pgf.Page1.ComboBox.RightToLeft = .F.
- pgf.Page1.ComboBox.RowSource = ""
- pgf.Page1.ComboBox.RowSourceType = 0
- pgf.Page1.ComboBox.SelectedBackColor = 51,153,255
- pgf.Page1.ComboBox.SelectedForeColor = 255,255,255
- pgf.Page1.ComboBox.SelectedItemBackColor = 51,153,255
- pgf.Page1.ComboBox.SelectedItemForeColor = 255,255,255
- pgf.Page1.ComboBox.SelectOnEntry = .F.
- pgf.Page1.ComboBox.Sorted = .F.
- pgf.Page1.ComboBox.SpecialEffect = 1
- pgf.Page1.ComboBox.StatusBarText = ""
- pgf.Page1.ComboBox.Style = 0
- pgf.Page1.ComboBox.TabIndex = 1
- pgf.Page1.ComboBox.TabStop = .T.
- pgf.Page1.ComboBox.Tag = ""
- pgf.Page1.ComboBox.TerminateRead = .F.
- pgf.Page1.ComboBox.test_aa = .F.
- pgf.Page1.ComboBox.Themes = .T.
- pgf.Page1.ComboBox.ToolTipText = ""
- pgf.Page1.ComboBox.Top = (35)
- pgf.Page1.ComboBox.Value =
- pgf.Page1.ComboBox.Visible = .T.
- pgf.Page1.ComboBox.WhatsThisHelpID = -1
- pgf.Page1.ComboBox.Width = (196)
- pgf.Page1.CommandButton.Alignment = 2
- pgf.Page1.CommandButton.Anchor = 0
- pgf.Page1.CommandButton.AutoSize = .F.
- pgf.Page1.CommandButton.BackColor = 240,240,240
- pgf.Page1.CommandButton.Cancel = .F.
- pgf.Page1.CommandButton.Caption = "Comando"
- pgf.Page1.CommandButton.ColorScheme = 1
- pgf.Page1.CommandButton.ColorSource = 4
- pgf.Page1.CommandButton.Comment = ""
- pgf.Page1.CommandButton.Default = .F.
- pgf.Page1.CommandButton.DefHeight =
- pgf.Page1.CommandButton.DefLeft =
- pgf.Page1.CommandButton.DefTop =
- pgf.Page1.CommandButton.DefWidth =
- pgf.Page1.CommandButton.DisabledBackColor = 240,240,240
- pgf.Page1.CommandButton.DisabledForeColor = 109,109,109
- pgf.Page1.CommandButton.DisabledPicture = ..\..\
- pgf.Page1.CommandButton.DownPicture = ..\..\
- pgf.Page1.CommandButton.DragIcon = ..\..\
- pgf.Page1.CommandButton.DragMode = 0
- pgf.Page1.CommandButton.Enabled = .T.
- pgf.Page1.CommandButton.FontBold = .F.
- pgf.Page1.CommandButton.FontCondense = .F.
- pgf.Page1.CommandButton.FontExtend = .F.
- pgf.Page1.CommandButton.FontItalic = .F.
- pgf.Page1.CommandButton.FontName = "Arial"
- pgf.Page1.CommandButton.FontOutline = .F.
- pgf.Page1.CommandButton.FontShadow = .F.
- pgf.Page1.CommandButton.FontSize = 8
- pgf.Page1.CommandButton.FontStrikethru = .F.
- pgf.Page1.CommandButton.FontUnderline = .F.
- pgf.Page1.CommandButton.ForeColor = 0,0,0
- pgf.Page1.CommandButton.Height = (25)
- pgf.Page1.CommandButton.HelpContextID = 0
- pgf.Page1.CommandButton.Left = (99)
- pgf.Page1.CommandButton.MouseIcon = ..\..\
- pgf.Page1.CommandButton.MousePointer = 0
- pgf.Page1.CommandButton.Name = "CommandButton"
- pgf.Page1.CommandButton.OLEDragMode = 0
- pgf.Page1.CommandButton.OLEDragPicture = ..\..\
- pgf.Page1.CommandButton.OLEDropEffects = 3
- pgf.Page1.CommandButton.OLEDropMode = 0
- pgf.Page1.CommandButton.Picture = bmps\treeview.bmp
- pgf.Page1.CommandButton.PictureMargin = 0
- pgf.Page1.CommandButton.PicturePosition = 4
- pgf.Page1.CommandButton.PictureSpacing = 0
- pgf.Page1.CommandButton.RightToLeft = .F.
- pgf.Page1.CommandButton.SpecialEffect = 0
- pgf.Page1.CommandButton.StatusBarText = ""
- pgf.Page1.CommandButton.Style = 0
- pgf.Page1.CommandButton.TabIndex = 3
- pgf.Page1.CommandButton.TabStop = .T.
- pgf.Page1.CommandButton.Tag = ""
- pgf.Page1.CommandButton.TerminateRead = .F.
- pgf.Page1.CommandButton.test_aa = .F.
- pgf.Page1.CommandButton.Themes = .T.
- pgf.Page1.CommandButton.ToolTipText = ""
- pgf.Page1.CommandButton.Top = (63)
- pgf.Page1.CommandButton.Visible = .T.
- pgf.Page1.CommandButton.WhatsThisHelpID = -1
- pgf.Page1.CommandButton.Width = (80)
- pgf.Page1.CommandButton.WordWrap = .F.
- pgf.Page1.CommandGroup.Anchor = 0
- pgf.Page1.CommandGroup.AutoSize = .F.
- pgf.Page1.CommandGroup.BackColor = 240,240,240
- pgf.Page1.CommandGroup.BackStyle = 1
- pgf.Page1.CommandGroup.BorderColor = 100,100,100
- pgf.Page1.CommandGroup.BorderStyle = 1
- pgf.Page1.CommandGroup.ButtonCount = 2
- pgf.Page1.CommandGroup.ColorSource = 4
- pgf.Page1.CommandGroup.Command1.Left = 1
- pgf.Page1.CommandGroup.Command1.Name = "Command1"
- pgf.Page1.CommandGroup.Command1.Top = 4
- pgf.Page1.CommandGroup.Command2.Left = 1
- pgf.Page1.CommandGroup.Command2.Name = "Command2"
- pgf.Page1.CommandGroup.Command2.Top = 32
- pgf.Page1.CommandGroup.Comment = ""
- pgf.Page1.CommandGroup.ControlSource = ""
- pgf.Page1.CommandGroup.DefHeight =
- pgf.Page1.CommandGroup.DefLeft =
- pgf.Page1.CommandGroup.DefTop =
- pgf.Page1.CommandGroup.DefWidth =
- pgf.Page1.CommandGroup.DragIcon = ..\..\
- pgf.Page1.CommandGroup.DragMode = 0
- pgf.Page1.CommandGroup.Enabled = .T.
- pgf.Page1.CommandGroup.Height = (64)
- pgf.Page1.CommandGroup.HelpContextID = 0
- pgf.Page1.CommandGroup.Left = (6)
- pgf.Page1.CommandGroup.MouseIcon = ..\..\
- pgf.Page1.CommandGroup.MousePointer = 0
- pgf.Page1.CommandGroup.Name = "CommandGroup"
- pgf.Page1.CommandGroup.OLEDragMode = 0
- pgf.Page1.CommandGroup.OLEDragPicture = ..\..\
- pgf.Page1.CommandGroup.OLEDropEffects = 3
- pgf.Page1.CommandGroup.OLEDropMode = 0
- pgf.Page1.CommandGroup.SpecialEffect = 0
- pgf.Page1.CommandGroup.StatusBarText = ""
- pgf.Page1.CommandGroup.TabIndex = 2
- pgf.Page1.CommandGroup.Tag = ""
- pgf.Page1.CommandGroup.TerminateRead = .F.
- pgf.Page1.CommandGroup.test_aa = .F.
- pgf.Page1.CommandGroup.Themes = .T.
- pgf.Page1.CommandGroup.ToolTipText = ""
- pgf.Page1.CommandGroup.Top = (60)
- pgf.Page1.CommandGroup.Value = 1
- pgf.Page1.CommandGroup.Visible = .T.
- pgf.Page1.CommandGroup.WhatsThisHelpID = -1
- pgf.Page1.CommandGroup.Width = (93)
- pgf.Page1.Container.Anchor = 0
- pgf.Page1.Container.BackColor = 240,240,240
- pgf.Page1.Container.BackStyle = 1
- pgf.Page1.Container.BorderColor = 100,100,100
- pgf.Page1.Container.BorderWidth = 1
- pgf.Page1.Container.ColorSource = 4
- pgf.Page1.Container.Comment = ""
- pgf.Page1.Container.DefHeight =
- pgf.Page1.Container.DefLeft =
- pgf.Page1.Container.DefTop =
- pgf.Page1.Container.DefWidth =
- pgf.Page1.Container.DragIcon = ..\..\
- pgf.Page1.Container.DragMode = 0
- pgf.Page1.Container.Enabled = .T.
- pgf.Page1.Container.ForeColor = 0,0,0
- pgf.Page1.Container.Height = (24)
- pgf.Page1.Container.HelpContextID = 0
- pgf.Page1.Container.Left = (227)
- pgf.Page1.Container.MouseIcon = ..\..\
- pgf.Page1.Container.MousePointer = 0
- pgf.Page1.Container.Name = "Container"
- pgf.Page1.Container.OLEDragMode = 0
- pgf.Page1.Container.OLEDragPicture = ..\..\
- pgf.Page1.Container.OLEDropEffects = 3
- pgf.Page1.Container.OLEDropMode = 0
- pgf.Page1.Container.SpecialEffect = 2
- pgf.Page1.Container.StatusBarText = ""
- pgf.Page1.Container.Style = 0
- pgf.Page1.Container.TabIndex = 4
- pgf.Page1.Container.TabStop = .T.
- pgf.Page1.Container.Tag = ""
- pgf.Page1.Container.test_aa = .F.
- pgf.Page1.Container.ToolTipText = ""
- pgf.Page1.Container.Top = (127)
- pgf.Page1.Container.Visible = .T.
- pgf.Page1.Container.WhatsThisHelpID = -1
- pgf.Page1.Container.Width = (20)
- pgf.Page1.Control.Anchor = 0
- pgf.Page1.Control.BackColor = 240,240,240
- pgf.Page1.Control.BackStyle = 1
- pgf.Page1.Control.BorderColor = 100,100,100
- pgf.Page1.Control.BorderWidth = 1
- pgf.Page1.Control.ColorSource = 4
- pgf.Page1.Control.Comment = ""
- pgf.Page1.Control.DefHeight =
- pgf.Page1.Control.DefLeft =
- pgf.Page1.Control.DefTop =
- pgf.Page1.Control.DefWidth =
- pgf.Page1.Control.DragIcon = ..\..\
- pgf.Page1.Control.DragMode = 0
- pgf.Page1.Control.Enabled = .T.
- pgf.Page1.Control.ForeColor = 0,0,0
- pgf.Page1.Control.Height = (24)
- pgf.Page1.Control.HelpContextID = 0
- pgf.Page1.Control.Left = (199)
- pgf.Page1.Control.MouseIcon = ..\..\
- pgf.Page1.Control.MousePointer = 0
- pgf.Page1.Control.Name = "Control"
- pgf.Page1.Control.OLEDragMode = 0
- pgf.Page1.Control.OLEDragPicture = ..\..\
- pgf.Page1.Control.OLEDropEffects = 3
- pgf.Page1.Control.OLEDropMode = 0
- pgf.Page1.Control.SpecialEffect = 2
- pgf.Page1.Control.StatusBarText = ""
- pgf.Page1.Control.Style = 0
- pgf.Page1.Control.TabIndex = 5
- pgf.Page1.Control.TabStop = .T.
- pgf.Page1.Control.Tag = ""
- pgf.Page1.Control.test_aa = .F.
- pgf.Page1.Control.ToolTipText = ""
- pgf.Page1.Control.Top = (127)
- pgf.Page1.Control.Visible = .T.
- pgf.Page1.Control.WhatsThisHelpID = -1
- pgf.Page1.Control.Width = (20)
- pgf.Page1.EditBox.DefHeight =
- pgf.Page1.EditBox.DefLeft =
- pgf.Page1.EditBox.DefTop =
- pgf.Page1.EditBox.DefWidth =
- pgf.Page1.EditBox.Name = "EditBox"
- pgf.Page1.HyperLink.Comment = ""
- pgf.Page1.HyperLink.Name = "HyperLink"
- pgf.Page1.HyperLink.Tag = ""
- pgf.Page1.HyperLink.test_aa = .F.
- pgf.Page1.Image.Anchor = 0
- pgf.Page1.Image.BackStyle = 1
- pgf.Page1.Image.BorderColor = 100,100,100
- pgf.Page1.Image.BorderStyle = 0
- pgf.Page1.Image.ColorSource = 4
- pgf.Page1.Image.Comment = ""
- pgf.Page1.Image.DefHeight =
- pgf.Page1.Image.DefLeft =
- pgf.Page1.Image.DragIcon = ..\..\
- pgf.Page1.Image.DragMode = 0
- pgf.Page1.Image.Enabled = .T.
- pgf.Page1.Image.Height = (16)
- pgf.Page1.Image.HelpContextID = 0
- pgf.Page1.Image.Left = (231)
- pgf.Page1.Image.MouseIcon = ..\..\
- pgf.Page1.Image.MousePointer = 0
- pgf.Page1.Image.Name = "Image"
- pgf.Page1.Image.OLEDragMode = 0
- pgf.Page1.Image.OLEDragPicture = ..\..\
- pgf.Page1.Image.OLEDropEffects = 3
- pgf.Page1.Image.OLEDropMode = 0
- pgf.Page1.Image.Picture = bmps\scccheckout.bmp
- pgf.Page1.Image.RotateFlip = 0
- pgf.Page1.Image.StatusBarText = ""
- pgf.Page1.Image.Stretch = 0
- pgf.Page1.Image.Tag = ""
- pgf.Page1.Image.test_aa = .F.
- pgf.Page1.Image.Themes = .T.
- pgf.Page1.Image.ToolTipText = ""
- pgf.Page1.Image.Top = 107
- pgf.Page1.Image.Visible = .T.
- pgf.Page1.Image.WhatsThisHelpID = -1
- pgf.Page1.Image.Width = 16
- pgf.Page1.Label.Alignment = 0
- pgf.Page1.Label.Anchor = 0
- pgf.Page1.Label.AutoSize = .F.
- pgf.Page1.Label.BackColor = 240,240,240
- pgf.Page1.Label.BackStyle = 1
- pgf.Page1.Label.BorderStyle = 0
- pgf.Page1.Label.Caption = "Label4"
- pgf.Page1.Label.ColorScheme = 1
- pgf.Page1.Label.ColorSource = 4
- pgf.Page1.Label.Comment = ""
- pgf.Page1.Label.DefHeight =
- pgf.Page1.Label.DefLeft =
- pgf.Page1.Label.DefTop =
- pgf.Page1.Label.DefWidth =
- pgf.Page1.Label.DisabledBackColor = 240,240,240
- pgf.Page1.Label.DisabledForeColor = 109,109,109
- pgf.Page1.Label.DragIcon = ..\..\
- pgf.Page1.Label.DragMode = 0
- pgf.Page1.Label.Enabled = .T.
- pgf.Page1.Label.FontBold = .F.
- pgf.Page1.Label.FontCondense = .F.
- pgf.Page1.Label.FontExtend = .F.
- pgf.Page1.Label.FontItalic = .F.
- pgf.Page1.Label.FontName = "Arial"
- pgf.Page1.Label.FontOutline = .F.
- pgf.Page1.Label.FontShadow = .F.
- pgf.Page1.Label.FontSize = 8
- pgf.Page1.Label.FontStrikethru = .F.
- pgf.Page1.Label.FontUnderline = .F.
- pgf.Page1.Label.ForeColor = 0,0,0
- pgf.Page1.Label.Height = (17)
- pgf.Page1.Label.HelpContextID = 0
- pgf.Page1.Label.Left = (6)
- pgf.Page1.Label.MouseIcon = ..\..\
- pgf.Page1.Label.MousePointer = 0
- pgf.Page1.Label.Name = "Label"
- pgf.Page1.Label.OLEDragMode = 0
- pgf.Page1.Label.OLEDragPicture = ..\..\
- pgf.Page1.Label.OLEDropEffects = 3
- pgf.Page1.Label.OLEDropMode = 0
- pgf.Page1.Label.RightToLeft = .F.
- pgf.Page1.Label.Rotation = 0
- pgf.Page1.Label.StatusBarText = ""
- pgf.Page1.Label.Style = 0
- pgf.Page1.Label.TabIndex = 7
- pgf.Page1.Label.Tag = ""
- pgf.Page1.Label.test_aa = .F.
- pgf.Page1.Label.ToolTipText = ""
- pgf.Page1.Label.Top = (136)
- pgf.Page1.Label.Visible = .T.
- pgf.Page1.Label.WhatsThisHelpID = -1
- pgf.Page1.Label.Width = (104)
- pgf.Page1.Label.WordWrap = .F.
- pgf.Page1.Line.Anchor = 0
- pgf.Page1.Line.BorderColor = 255,0,0
- pgf.Page1.Line.BorderStyle = 1
- pgf.Page1.Line.BorderWidth = 1
- pgf.Page1.Line.ColorSource = 4
- pgf.Page1.Line.Comment = ""
- pgf.Page1.Line.DefHeight =
- pgf.Page1.Line.DefLeft =
- pgf.Page1.Line.DefTop =
- pgf.Page1.Line.DefWidth =
- pgf.Page1.Line.DragIcon = ..\..\
- pgf.Page1.Line.DragMode = 0
- pgf.Page1.Line.DrawMode = 13
- pgf.Page1.Line.Enabled = .T.
- pgf.Page1.Line.Height = (8)
- pgf.Page1.Line.HelpContextID = 0
- pgf.Page1.Line.Left = (121)
- pgf.Page1.Line.LineSlant = "\"
- pgf.Page1.Line.MouseIcon = ..\..\
- pgf.Page1.Line.MousePointer = 0
- pgf.Page1.Line.Name = "Line"
- pgf.Page1.Line.OLEDragMode = 0
- pgf.Page1.Line.OLEDragPicture = ..\..\
- pgf.Page1.Line.OLEDropEffects = 3
- pgf.Page1.Line.OLEDropMode = 0
- pgf.Page1.Line.PolyPoints = ""
- pgf.Page1.Line.Rotation = 0
- pgf.Page1.Line.StatusBarText = ""
- pgf.Page1.Line.Tag = ""
- pgf.Page1.Line.test_aa = .F.
- pgf.Page1.Line.ToolTipText = ""
- pgf.Page1.Line.Top = (136)
- pgf.Page1.Line.Visible = .T.
- pgf.Page1.Line.WhatsThisHelpID = -1
- pgf.Page1.Line.Width = (50)
- pgf.Page1.ListBox.Anchor = 0
- pgf.Page1.ListBox.AutoHideScrollbar = 0
- pgf.Page1.ListBox.BorderColor = 128,255,128
- pgf.Page1.ListBox.BoundColumn = 1
- pgf.Page1.ListBox.BoundTo = .F.
- pgf.Page1.ListBox.ColorScheme = 1
- pgf.Page1.ListBox.ColorSource = 4
- pgf.Page1.ListBox.ColumnCount = 0
- pgf.Page1.ListBox.ColumnLines = .T.
- pgf.Page1.ListBox.ColumnWidths = ""
- pgf.Page1.ListBox.Comment = ""
- pgf.Page1.ListBox.ControlSource = ""
- pgf.Page1.ListBox.DefHeight =
- pgf.Page1.ListBox.DefLeft =
- pgf.Page1.ListBox.DefTop =
- pgf.Page1.ListBox.DefWidth =
- pgf.Page1.ListBox.DisabledBackColor = 255,255,255
- pgf.Page1.ListBox.DisabledForeColor = 109,109,109
- pgf.Page1.ListBox.DisabledItemBackColor = 255,255,255
- pgf.Page1.ListBox.DisabledItemForeColor = 109,109,109
- pgf.Page1.ListBox.DisplayValue =
- pgf.Page1.ListBox.DragIcon = ..\..\
- pgf.Page1.ListBox.DragMode = 0
- pgf.Page1.ListBox.Enabled = .T.
- pgf.Page1.ListBox.FirstElement = 1
- pgf.Page1.ListBox.FontBold = .F.
- pgf.Page1.ListBox.FontCondense = .F.
- pgf.Page1.ListBox.FontExtend = .F.
- pgf.Page1.ListBox.FontItalic = .F.
- pgf.Page1.ListBox.FontName = "Arial"
- pgf.Page1.ListBox.FontOutline = .F.
- pgf.Page1.ListBox.FontShadow = .F.
- pgf.Page1.ListBox.FontSize = 8
- pgf.Page1.ListBox.FontStrikethru = .F.
- pgf.Page1.ListBox.FontUnderline = .F.
- pgf.Page1.ListBox.Height = (60)
- pgf.Page1.ListBox.HelpContextID = 0
- pgf.Page1.ListBox.IncrementalSearch = .T.
- pgf.Page1.ListBox.IntegralHeight = .F.
- pgf.Page1.ListBox.ItemBackColor = 255,255,255
- pgf.Page1.ListBox.ItemForeColor = 0,0,0
- pgf.Page1.ListBox.ItemTips = .F.
- pgf.Page1.ListBox.Left = (7)
- pgf.Page1.ListBox.MouseIcon = ..\..\
- pgf.Page1.ListBox.MousePointer = 0
- pgf.Page1.ListBox.MoverBars = .F.
- pgf.Page1.ListBox.MultiSelect = .F.
- pgf.Page1.ListBox.Name = "ListBox"
- pgf.Page1.ListBox.NullDisplay = ""
- pgf.Page1.ListBox.OLEDragMode = 0
- pgf.Page1.ListBox.OLEDragPicture = ..\..\
- pgf.Page1.ListBox.OLEDropEffects = 3
- pgf.Page1.ListBox.OLEDropMode = 0
- pgf.Page1.ListBox.Picture = ..\..\
- pgf.Page1.ListBox.RightToLeft = .F.
- pgf.Page1.ListBox.RowSource = ""
- pgf.Page1.ListBox.RowSourceType = 0
- pgf.Page1.ListBox.SelectedItemBackColor = 51,153,255
- pgf.Page1.ListBox.SelectedItemForeColor = 255,255,255
- pgf.Page1.ListBox.Sorted = .F.
- pgf.Page1.ListBox.SpecialEffect = 1
- pgf.Page1.ListBox.StatusBarText = ""
- pgf.Page1.ListBox.TabIndex = 8
- pgf.Page1.ListBox.TabStop = .T.
- pgf.Page1.ListBox.Tag = ""
- pgf.Page1.ListBox.TerminateRead = .F.
- pgf.Page1.ListBox.test_aa = .F.
- pgf.Page1.ListBox.Themes = .T.
- pgf.Page1.ListBox.ToolTipText = ""
- pgf.Page1.ListBox.Top = (164)
- pgf.Page1.ListBox.Value =
- pgf.Page1.ListBox.Visible = .T.
- pgf.Page1.ListBox.WhatsThisHelpID = -1
- pgf.Page1.ListBox.Width = (224)
- pgf.Page1.Name = "Page1"
- pgf.Page1.option.Alignment = 0
- pgf.Page1.option.Anchor = 0
- pgf.Page1.option.AutoSize = .F.
- pgf.Page1.option.BackColor = 240,240,240
- pgf.Page1.option.BackStyle = 1
- pgf.Page1.option.Caption = "Esta es la opción B"
- pgf.Page1.option.ColorScheme = 1
- pgf.Page1.option.ColorSource = 4
- pgf.Page1.option.Comment = ""
- pgf.Page1.option.ControlSource = ""
- pgf.Page1.option.DefHeight =
- pgf.Page1.option.DefLeft =
- pgf.Page1.option.DefTop =
- pgf.Page1.option.DefWidth =
- pgf.Page1.option.DisabledBackColor = 240,240,240
- pgf.Page1.option.DisabledForeColor = 109,109,109
- pgf.Page1.option.DisabledPicture = ..\..\
- pgf.Page1.option.DownPicture = ..\..\
- pgf.Page1.option.DragIcon = ..\..\
- pgf.Page1.option.DragMode = 0
- pgf.Page1.option.Enabled = .T.
- pgf.Page1.option.FontBold = .F.
- pgf.Page1.option.FontCharSet = 0
- pgf.Page1.option.FontCondense = .F.
- pgf.Page1.option.FontExtend = .F.
- pgf.Page1.option.FontItalic = .F.
- pgf.Page1.option.FontName = "Arial"
- pgf.Page1.option.FontOutline = .F.
- pgf.Page1.option.FontShadow = .F.
- pgf.Page1.option.FontSize = 8
- pgf.Page1.option.FontStrikethru = .F.
- pgf.Page1.option.FontUnderline = .F.
- pgf.Page1.option.ForeColor = 0,0,0
- pgf.Page1.option.Height = (16)
- pgf.Page1.option.HelpContextID = 0
- pgf.Page1.option.Left = (123)
- pgf.Page1.option.MouseIcon = ..\..\
- pgf.Page1.option.MousePointer = 0
- pgf.Page1.option.Name = "option"
- pgf.Page1.option.OLEDragMode = 0
- pgf.Page1.option.OLEDragPicture = ..\..\
- pgf.Page1.option.OLEDropEffects = 3
- pgf.Page1.option.OLEDropMode = 0
- pgf.Page1.option.Picture = ..\..\
- pgf.Page1.option.PictureMargin = 0
- pgf.Page1.option.PicturePosition = 13
- pgf.Page1.option.PictureSpacing = 0
- pgf.Page1.option.RightToLeft = .F.
- pgf.Page1.option.SpecialEffect = 0
- pgf.Page1.option.StatusBarText = ""
- pgf.Page1.option.Style = 0
- pgf.Page1.option.TabIndex = 1
- pgf.Page1.option.TabStop = .T.
- pgf.Page1.option.Tag = ""
- pgf.Page1.option.TerminateRead = .F.
- pgf.Page1.option.test_aa = .F.
- pgf.Page1.option.Themes = .T.
- pgf.Page1.option.ToolTipText = ""
- pgf.Page1.option.Top = (232)
- pgf.Page1.option.Value = 0
- pgf.Page1.option.Visible = .T.
- pgf.Page1.option.WhatsThisHelpID = -1
- pgf.Page1.option.Width = (110)
- pgf.Page1.option.WordWrap = .F.
- pgf.Page1.OptionGroup.Anchor = 0
- pgf.Page1.OptionGroup.AutoSize = .F.
- pgf.Page1.OptionGroup.BackColor = 240,240,240
- pgf.Page1.OptionGroup.BackStyle = 1
- pgf.Page1.OptionGroup.BorderColor = 100,100,100
- pgf.Page1.OptionGroup.BorderStyle = 1
- pgf.Page1.OptionGroup.ButtonCount = 2
- pgf.Page1.OptionGroup.ColorSource = 4
- pgf.Page1.OptionGroup.Comment = ""
- pgf.Page1.OptionGroup.ControlSource = ""
- pgf.Page1.OptionGroup.DefHeight =
- pgf.Page1.OptionGroup.DefLeft =
- pgf.Page1.OptionGroup.DefTop =
- pgf.Page1.OptionGroup.DefWidth =
- pgf.Page1.OptionGroup.DragIcon = ..\..\
- pgf.Page1.OptionGroup.DragMode = 0
- pgf.Page1.OptionGroup.Enabled = .T.
- pgf.Page1.OptionGroup.Height = (46)
- pgf.Page1.OptionGroup.HelpContextID = 0
- pgf.Page1.OptionGroup.Left = (7)
- pgf.Page1.OptionGroup.MemberClassLibrary = ..\..\
- pgf.Page1.OptionGroup.MouseIcon = ..\..\
- pgf.Page1.OptionGroup.MousePointer = 0
- pgf.Page1.OptionGroup.Name = "OptionGroup"
- pgf.Page1.OptionGroup.OLEDragMode = 0
- pgf.Page1.OptionGroup.OLEDragPicture = ..\..\
- pgf.Page1.OptionGroup.OLEDropEffects = 3
- pgf.Page1.OptionGroup.OLEDropMode = 0
- pgf.Page1.OptionGroup.Option1.Height = 16
- pgf.Page1.OptionGroup.Option1.Left = 5
- pgf.Page1.OptionGroup.Option1.Name = "Option1"
- pgf.Page1.OptionGroup.Option1.Top = 5
- pgf.Page1.OptionGroup.Option1.Width = 103
- pgf.Page1.OptionGroup.Option2.Height = 16
- pgf.Page1.OptionGroup.Option2.Left = 5
- pgf.Page1.OptionGroup.Option2.Name = "Option2"
- pgf.Page1.OptionGroup.Option2.Top = 24
- pgf.Page1.OptionGroup.Option2.Value = 0
- pgf.Page1.OptionGroup.Option2.Width = 103
- pgf.Page1.OptionGroup.SpecialEffect = 0
- pgf.Page1.OptionGroup.StatusBarText = ""
- pgf.Page1.OptionGroup.TabIndex = 1
- pgf.Page1.OptionGroup.Tag = ""
- pgf.Page1.OptionGroup.TerminateRead = .F.
- pgf.Page1.OptionGroup.test_aa = .F.
- pgf.Page1.OptionGroup.Themes = .T.
- pgf.Page1.OptionGroup.ToolTipText = ""
- pgf.Page1.OptionGroup.Top = (232)
- pgf.Page1.OptionGroup.Value = 0
- pgf.Page1.OptionGroup.Visible = .T.
- pgf.Page1.OptionGroup.WhatsThisHelpID = -1
- pgf.Page1.OptionGroup.Width = (112)
- pgf.Page1.Pageframe1.ActivePage = 1
- pgf.Page1.Pageframe1.Anchor = 0
- pgf.Page1.Pageframe1.Cl_page1.Name = "Cl_page1"
- pgf.Page1.Pageframe1.Cl_page2.Name = "Cl_page2"
- pgf.Page1.Pageframe1.ColorSource = 4
- pgf.Page1.Pageframe1.Comment = ""
- pgf.Page1.Pageframe1.DefHeight =
- pgf.Page1.Pageframe1.DefLeft =
- pgf.Page1.Pageframe1.DefTop =
- pgf.Page1.Pageframe1.DefWidth =
- pgf.Page1.Pageframe1.DragIcon = ..\..\
- pgf.Page1.Pageframe1.DragMode = 0
- pgf.Page1.Pageframe1.Enabled = .T.
- pgf.Page1.Pageframe1.ErasePage = .T.
- pgf.Page1.Pageframe1.Height = (61)
- pgf.Page1.Pageframe1.HelpContextID = 0
- pgf.Page1.Pageframe1.Left = (135)
- pgf.Page1.Pageframe1.MemberClassLibrary = lib_controles.vcx
- pgf.Page1.Pageframe1.MouseIcon = ..\..\
- pgf.Page1.Pageframe1.MousePointer = 0
- pgf.Page1.Pageframe1.Name = "Pageframe1"
- pgf.Page1.Pageframe1.OLEDragMode = 0
- pgf.Page1.Pageframe1.OLEDragPicture = ..\..\
- pgf.Page1.Pageframe1.OLEDropEffects = 3
- pgf.Page1.Pageframe1.OLEDropMode = 0
- pgf.Page1.Pageframe1.PageCount = 2
- pgf.Page1.Pageframe1.RightToLeft = .F.
- pgf.Page1.Pageframe1.StatusBarText = ""
- pgf.Page1.Pageframe1.TabIndex = 10
- pgf.Page1.Pageframe1.TabOrientation = 2
- pgf.Page1.Pageframe1.Tabs = .T.
- pgf.Page1.Pageframe1.TabStop = .T.
- pgf.Page1.Pageframe1.TabStretch = 1
- pgf.Page1.Pageframe1.TabStyle = 0
- pgf.Page1.Pageframe1.Tag = ""
- pgf.Page1.Pageframe1.Themes = .F.
- pgf.Page1.Pageframe1.ToolTipText = ""
- pgf.Page1.Pageframe1.Top = (284)
- pgf.Page1.Pageframe1.Visible = .T.
- pgf.Page1.Pageframe1.WhatsThisHelpID = -1
- pgf.Page1.Pageframe1.Width = (117)
- pgf.Page1.PageOrder = 1
- pgf.Page1.Spinner.Alignment = 1
- pgf.Page1.Spinner.Anchor = 0
- pgf.Page1.Spinner.BackColor = 255,255,255
- pgf.Page1.Spinner.BorderColor = 128,255,128
- pgf.Page1.Spinner.BorderStyle = 1
- pgf.Page1.Spinner.ColorScheme = 1
- pgf.Page1.Spinner.ColorSource = 4
- pgf.Page1.Spinner.Comment = ""
- pgf.Page1.Spinner.ControlSource = ""
- pgf.Page1.Spinner.DefHeight =
- pgf.Page1.Spinner.DefLeft =
- pgf.Page1.Spinner.DefTop =
- pgf.Page1.Spinner.DefWidth =
- pgf.Page1.Spinner.DisabledBackColor = 240,240,240
- pgf.Page1.Spinner.DisabledForeColor = 109,109,109
- pgf.Page1.Spinner.DragIcon = ..\..\
- pgf.Page1.Spinner.DragMode = 0
- pgf.Page1.Spinner.Enabled = .T.
- pgf.Page1.Spinner.FontBold = .F.
- pgf.Page1.Spinner.FontCondense = .F.
- pgf.Page1.Spinner.FontExtend = .F.
- pgf.Page1.Spinner.FontItalic = .F.
- pgf.Page1.Spinner.FontName = "Arial"
- pgf.Page1.Spinner.FontOutline = .F.
- pgf.Page1.Spinner.FontShadow = .F.
- pgf.Page1.Spinner.FontSize = 8
- pgf.Page1.Spinner.FontStrikethru = .F.
- pgf.Page1.Spinner.FontUnderline = .F.
- pgf.Page1.Spinner.ForeColor = 0,0,0
- pgf.Page1.Spinner.Format = ""
- pgf.Page1.Spinner.Height = (19)
- pgf.Page1.Spinner.HelpContextID = 0
- pgf.Page1.Spinner.HideSelection = .T.
- pgf.Page1.Spinner.Increment = 1.00
- pgf.Page1.Spinner.InputMask = ""
- pgf.Page1.Spinner.KeyboardHighValue = 2147483647
- pgf.Page1.Spinner.KeyboardLowValue = -2147483647
- pgf.Page1.Spinner.Left = (11)
- pgf.Page1.Spinner.Margin = 0
- pgf.Page1.Spinner.MouseIcon = ..\..\
- pgf.Page1.Spinner.MousePointer = 0
- pgf.Page1.Spinner.Name = "Spinner"
- pgf.Page1.Spinner.NullDisplay = ""
- pgf.Page1.Spinner.OLEDragMode = 0
- pgf.Page1.Spinner.OLEDragPicture = ..\..\
- pgf.Page1.Spinner.OLEDropEffects = 3
- pgf.Page1.Spinner.OLEDropMode = 0
- pgf.Page1.Spinner.OLEDropTextInsertion = 0
- pgf.Page1.Spinner.ReadOnly = .F.
- pgf.Page1.Spinner.RightToLeft = .F.
- pgf.Page1.Spinner.SelectedBackColor = 51,153,255
- pgf.Page1.Spinner.SelectedForeColor = 255,255,255
- pgf.Page1.Spinner.SelectOnEntry = .F.
- pgf.Page1.Spinner.SpecialEffect = 1
- pgf.Page1.Spinner.SpinnerHighValue = 2147483647.00
- pgf.Page1.Spinner.SpinnerLowValue = -2147483647.00
- pgf.Page1.Spinner.StatusBarText = ""
- pgf.Page1.Spinner.TabIndex = 9
- pgf.Page1.Spinner.TabStop = .T.
- pgf.Page1.Spinner.Tag = ""
- pgf.Page1.Spinner.TerminateRead = .F.
- pgf.Page1.Spinner.test_aa = .F.
- pgf.Page1.Spinner.Themes = .T.
- pgf.Page1.Spinner.ToolTipText = ""
- pgf.Page1.Spinner.Top = (292)
- pgf.Page1.Spinner.Value = 0
- pgf.Page1.Spinner.Visible = .T.
- pgf.Page1.Spinner.WhatsThisHelpID = -1
- pgf.Page1.Spinner.Width = (108)
- pgf.Page1.TextBox.Alignment = 3
- pgf.Page1.TextBox.Anchor = 0
- pgf.Page1.TextBox.AutoComplete = 0
- pgf.Page1.TextBox.AutoCompSource = ""
- pgf.Page1.TextBox.AutoCompTable = ""
- pgf.Page1.TextBox.BackColor = 255,255,255
- pgf.Page1.TextBox.BackStyle = 1
- pgf.Page1.TextBox.BorderColor = 128,255,128
- pgf.Page1.TextBox.BorderStyle = 1
- pgf.Page1.TextBox.Century = 1
- pgf.Page1.TextBox.ColorScheme = 1
- pgf.Page1.TextBox.ColorSource = 4
- pgf.Page1.TextBox.Comment = ""
- pgf.Page1.TextBox.ControlSource = ""
- pgf.Page1.TextBox.DateFormat = 0
- pgf.Page1.TextBox.DateMark = ""
- pgf.Page1.TextBox.DefHeight =
- pgf.Page1.TextBox.DefLeft =
- pgf.Page1.TextBox.DefTop =
- pgf.Page1.TextBox.DefWidth =
- pgf.Page1.TextBox.DisabledBackColor = 240,240,240
- pgf.Page1.TextBox.DisabledForeColor = 109,109,109
- pgf.Page1.TextBox.DragIcon = ..\..\
- pgf.Page1.TextBox.DragMode = 0
- pgf.Page1.TextBox.Enabled = .T.
- pgf.Page1.TextBox.EnableHyperlinks = .F.
- pgf.Page1.TextBox.FontBold = .F.
- pgf.Page1.TextBox.FontCondense = .F.
- pgf.Page1.TextBox.FontExtend = .F.
- pgf.Page1.TextBox.FontItalic = .F.
- pgf.Page1.TextBox.FontName = "Arial"
- pgf.Page1.TextBox.FontOutline = .F.
- pgf.Page1.TextBox.FontShadow = .F.
- pgf.Page1.TextBox.FontSize = 8
- pgf.Page1.TextBox.FontStrikethru = .F.
- pgf.Page1.TextBox.FontUnderline = .F.
- pgf.Page1.TextBox.ForeColor = 0,0,0
- pgf.Page1.TextBox.Format = ""
- pgf.Page1.TextBox.Height = (19)
- pgf.Page1.TextBox.HelpContextID = 0
- pgf.Page1.TextBox.HideSelection = .T.
- pgf.Page1.TextBox.Hours = 0
- pgf.Page1.TextBox.IMEMode = 0
- pgf.Page1.TextBox.InputMask = ""
- pgf.Page1.TextBox.IntegralHeight = .F.
- pgf.Page1.TextBox.Left = (11)
- pgf.Page1.TextBox.Margin = 0
- pgf.Page1.TextBox.MaxLength = 0
- pgf.Page1.TextBox.MemoWindow = ""
- pgf.Page1.TextBox.MouseIcon = ..\..\
- pgf.Page1.TextBox.MousePointer = 0
- pgf.Page1.TextBox.Name = "TextBox"
- pgf.Page1.TextBox.NullDisplay = ""
- pgf.Page1.TextBox.OLEDragMode = 0
- pgf.Page1.TextBox.OLEDragPicture = ..\..\
- pgf.Page1.TextBox.OLEDropEffects = 3
- pgf.Page1.TextBox.OLEDropMode = 0
- pgf.Page1.TextBox.OLEDropTextInsertion = 0
- pgf.Page1.TextBox.OpenWindow = .F.
- pgf.Page1.TextBox.PasswordChar = ""
- pgf.Page1.TextBox.ReadOnly = .F.
- pgf.Page1.TextBox.RightToLeft = .F.
- pgf.Page1.TextBox.Seconds = 2
- pgf.Page1.TextBox.SelectedBackColor = 51,153,255
- pgf.Page1.TextBox.SelectedForeColor = 255,255,255
- pgf.Page1.TextBox.SelectOnEntry = .F.
- pgf.Page1.TextBox.SpecialEffect = 1
- pgf.Page1.TextBox.StatusBarText = ""
- pgf.Page1.TextBox.StrictDateEntry = 1
- pgf.Page1.TextBox.Style = 0
- pgf.Page1.TextBox.TabIndex = 1
- pgf.Page1.TextBox.TabStop = .T.
- pgf.Page1.TextBox.Tag = ""
- pgf.Page1.TextBox.TerminateRead = .F.
- pgf.Page1.TextBox.test_aa = .F.
- pgf.Page1.TextBox.Themes = .T.
- pgf.Page1.TextBox.ToolTipText = ""
- pgf.Page1.TextBox.Top = (320)
- pgf.Page1.TextBox.Value =
- pgf.Page1.TextBox.Visible = .T.
- pgf.Page1.TextBox.WhatsThisHelpID = -1
- pgf.Page1.TextBox.Width = (108)
- pgf.Page1.Timer.Comment = "no comment"
- pgf.Page1.Timer.DefHeight =
- pgf.Page1.Timer.DefLeft =
- pgf.Page1.Timer.DefTop =
- pgf.Page1.Timer.DefWidth =
- pgf.Page1.Timer.Enabled = .T.
- pgf.Page1.Timer.Height = (23)
- pgf.Page1.Timer.Interval = 0
- pgf.Page1.Timer.Left = (207)
- pgf.Page1.Timer.Name = "Timer"
- pgf.Page1.Timer.test_aa = .F.
- pgf.Page1.Timer.Top = (252)
- pgf.Page1.Timer.Width = (23)
- pgf.Page2.Name = "Page2"
- pgf.Page2.PageOrder = 2
- pgf.PageCount = 2
- pgf.RightToLeft = .F.
- pgf.TabIndex = 7
- pgf.TabOrientation = 1
- pgf.Tabs = .T.
- pgf.TabStop = .T.
- pgf.TabStretch = 1
- pgf.TabStyle = 0
- pgf.Tag = ""
- pgf.test_aa = .F.
- pgf.Themes = .T.
- pgf.ToolTipText = ""
- pgf.Top = 28
- pgf.Visible = .T.
- pgf.WhatsThisHelpID = -1
- pgf.Width = 268
- Image1.Height = 104
- Image1.Name = "Image1"
- Image1.Width = 212
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_form_controles.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_form_controles.dataenvironment.sc2
new file mode 100644
index 0000000..29b3fcb
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_controles.dataenvironment.sc2
@@ -0,0 +1,17 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_controles.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Name = "Dataenvironment"
+ TabStop = .F.
+ Visible = .F.
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_controles.f_base1.sc2 b/TESTS/DATOS_READONLY/f_form_controles.f_base1.sc2
new file mode 100644
index 0000000..1a5ace2
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_form_controles.f_base1.sc2
@@ -0,0 +1,3128 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_controles.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image7" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image8" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image9" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image10" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Spinner1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Line2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image7" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image8" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image9" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Image10" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Spinner2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image7" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image8" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image9" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image10" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_label1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_shape1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_line1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_spinner1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_label2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_shape2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_line2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image7" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image8" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image9" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_image10" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_spinner2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Timer1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_timer1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Hyperlink1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_hyperlink1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_collection1" UniqueID="" Timestamp="" />
+
+ *
+ AllowOutput = .T.
+ AlwaysOnBottom = .F.
+ AlwaysOnTop = .T.
+ AutoCenter = .F.
+ BackColor = 192,192,192
+ BindControls = .T.
+ BorderStyle = 3
+ BufferMode = 0
+ Caption = "Form_y_Controles_Varios_Test"
+ ClipControls = .T.
+ Closable = .T.
+ ColorSource = 4
+ Comment = ""
+ ContinuousScroll = .T.
+ ControlBox = .T.
+ DataSession = 1
+ DEClass = "cl_dataenvironment"
+ DEClassLibrary = lib_controles.vcx
+ DefHeight =
+ DefLeft =
+ DefOleLCID = 0
+ DefTop =
+ DefWidth =
+ Desktop = .F.
+ Dockable = 0
+ DoCreate = .T.
+ DrawMode = 13
+ DrawStyle = 0
+ DrawWidth = 1
+ Enabled = .T.
+ FillColor = 0,0,0
+ FillStyle = 1
+ FontBold = .F.
+ FontCharSet = 0
+ FontCondense = .F.
+ FontExtend = .F.
+ FontItalic = .F.
+ FontName = "Arial"
+ FontOutline = .F.
+ FontShadow = .F.
+ FontSize = 8
+ FontStrikethru = .F.
+ FontUnderline = .F.
+ ForeColor = 0,0,0
+ HalfHeightCaption = .F.
+ Height = (424)
+ HelpContextID = 0
+ HScrollSmallChange = 10
+ Icon = bmps\container.ico
+ KeyPreview = .F.
+ Left = (2)
+ LockScreen = .F.
+ MacDesktop = 0
+ MaxButton = .T.
+ MaxHeight = -1
+ MaxLeft = -1
+ MaxTop = -1
+ MaxWidth = -1
+ MDIForm = .F.
+ MinButton = .T.
+ MinHeight = -1
+ MinWidth = -1
+ MouseIcon = ..\..\
+ MousePointer = 0
+ Movable = .T.
+ Name = "F_base1"
+ OLEDragMode = 0
+ OLEDragPicture = ..\..\
+ OLEDropEffects = 3
+ OLEDropMode = 0
+ Picture = bmps\fondogris.bmp
+ RightToLeft = .F.
+ ScaleMode = 3
+ ScrollBars = 0
+ ShowInTaskBar = .T.
+ ShowTips = .F.
+ ShowWindow = 0
+ SizeBox = .F.
+ TabIndex = 1
+ TabStop = .T.
+ Tag = ""
+ Themes = .T.
+ TitleBar = 1
+ Top = (3)
+ Visible = .T.
+ VScrollSmallChange = 10
+ WhatsThisButton = .F.
+ WhatsThisHelp = .F.
+ WhatsThisHelpID = -1
+ Width = (819)
+ WindowState = 0
+ WindowType = 0
+ ZoomBox = .F.
+ Edit1.Name = "Edit1"
+ Edit1.RightToLeft = .F.
+ Label3.Name = "Label3"
+ Label3.RightToLeft = .F.
+ cmdCapturar.Name = "cmdCapturar"
+ cmdCapturar.RightToLeft = .F.
+ Label1.Caption = "CONTROL NORMAL"
+ Label1.Name = "Label1"
+ Label1.RightToLeft = .F.
+ Label2.Caption = "CONTROL SUBCLASADOS"
+ Label2.Name = "Label2"
+ Label2.RightToLeft = .F.
+ *
+
+ ADD OBJECT 'Cl_collection1' AS cl_collection WITH ;
+ Left = 325, ;
+ Name = "Cl_collection1", ;
+ Top = 390
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />
+
+ ADD OBJECT 'Cl_hyperlink1' AS cl_hyperlink WITH ;
+ Comment = "", ;
+ Left = 362, ;
+ Name = "Cl_hyperlink1", ;
+ Tag = "", ;
+ Top = 390
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />
+
+ ADD OBJECT 'Cl_image1' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 312, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image10' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 496, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image10", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 132, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image2' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 312, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 120, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image3' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 388, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image4' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 348, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image5' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 388, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 132, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image6' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 420, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image7' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 420, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image7", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 120, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image8' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 496, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image8", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_image9' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 456, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_image9", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_label1' AS cl_label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 312, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_label1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
+
+ ADD OBJECT 'Cl_label2' AS cl_label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 420, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_label2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
+
+ ADD OBJECT 'Cl_line1' AS cl_line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 312, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_line1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 80, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
+
+ ADD OBJECT 'Cl_line2' AS cl_line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 420, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_line2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 80, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
+
+ ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
+ ActivePage = 2, ;
+ Anchor = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ErasePage = .T., ;
+ Height = 188, ;
+ HelpContextID = 0, ;
+ Left = 292, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_pageframe1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PageCount = 3, ;
+ RightToLeft = .F., ;
+ StatusBarText = "", ;
+ TabOrientation = 0, ;
+ Tabs = .T., ;
+ TabStop = .T., ;
+ TabStretch = 1, ;
+ TabStyle = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 200, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 256, ;
+ Page1.Name = "Page1", ;
+ Page2.Name = "Page2", ;
+ Page3.Caption = "Page3", ;
+ Page3.Name = "Page3"
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image1' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 19, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image10' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 203, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image10", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image2' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 19, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 88, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image3' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 95, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image4' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 55, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image5' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 95, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image6' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 127, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image7' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 127, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image7", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 88, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image8' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 203, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image8", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Image9' AS cl_image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 163, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image9", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Label4' AS cl_label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 19, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Label5' AS cl_label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 127, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Line1' AS cl_line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 19, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Line2' AS cl_line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 127, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Shape1' AS cl_shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 19, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 28, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Shape2' AS cl_shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 127, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 28, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Spinner1' AS cl_spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 19, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 128, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
+
+ ADD OBJECT 'Cl_pageframe1.Page2.Spinner2' AS cl_spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 127, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 128, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
+
+ ADD OBJECT 'Cl_shape1' AS cl_shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 312, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_shape1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 60, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
+
+ ADD OBJECT 'Cl_shape2' AS cl_shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 420, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_shape2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 60, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
+
+ ADD OBJECT 'Cl_spinner1' AS cl_spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 312, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_spinner1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 160, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
+
+ ADD OBJECT 'Cl_spinner2' AS cl_spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 420, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_spinner2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 160, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
+
+ ADD OBJECT 'Cl_timer1' AS cl_timer WITH ;
+ Comment = "", ;
+ Enabled = .T., ;
+ Height = 23, ;
+ Interval = 0, ;
+ Left = 292, ;
+ Name = "Cl_timer1", ;
+ Tag = "", ;
+ Top = 392, ;
+ Width = 23
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
+
+ ADD OBJECT 'Hyperlink1' AS hyperlink WITH ;
+ Comment = "", ;
+ Height = 23, ;
+ Left = 72, ;
+ Name = "Hyperlink1", ;
+ Tag = "", ;
+ Top = 392, ;
+ Width = 23
+ *< END OBJECT: BaseClass="hyperlink" />
+
+ ADD OBJECT 'Image1' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = (16), ;
+ HelpContextID = 0, ;
+ Left = (44), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (100), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (17)
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image10' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 228, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image10", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 132, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image2' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 44, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 120, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image3' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 120, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image4' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 80, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image5' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 120, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 132, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image6' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 152, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image7' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 152, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image7", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 120, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image8' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 228, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image8", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Image9' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 188, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image9", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Label4' AS label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = (17), ;
+ HelpContextID = 0, ;
+ Left = (44), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (40), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (104), ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'Label5' AS label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 152, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 40, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'Line1' AS line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Height = (8), ;
+ HelpContextID = 0, ;
+ Left = (44), ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (80), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (104)
+ *< END OBJECT: BaseClass="line" />
+
+ ADD OBJECT 'Line2' AS line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 152, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 80, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="line" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ActivePage = 2, ;
+ Anchor = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ ErasePage = .T., ;
+ Height = (189), ;
+ HelpContextID = 0, ;
+ Left = (20), ;
+ MemberClass = "cl_page", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Pageframe1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PageCount = 3, ;
+ RightToLeft = .F., ;
+ StatusBarText = "", ;
+ TabOrientation = 0, ;
+ Tabs = .T., ;
+ TabStop = .T., ;
+ TabStretch = 1, ;
+ TabStyle = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (200), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (256), ;
+ Cl_page1.Name = "Cl_page1", ;
+ Cl_page2.Name = "Cl_page2", ;
+ Cl_page3.Name = "Cl_page3"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image1' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 23, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image10' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 207, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image10", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image2' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 23, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 88, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image3' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 99, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image3", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image4' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 59, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image5' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 99, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 5, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 100, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image6' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 131, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image6", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 17
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image7' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 32, ;
+ HelpContextID = 0, ;
+ Left = 131, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image7", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ StatusBarText = "", ;
+ Stretch = 1, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 88, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 32
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image8' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 20, ;
+ HelpContextID = 0, ;
+ Left = 207, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image8", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 16
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Image9' AS image WITH ;
+ Anchor = 0, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 0, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ Height = 52, ;
+ HelpContextID = 0, ;
+ Left = 167, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Image9", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RotateFlip = 1, ;
+ StatusBarText = "", ;
+ Stretch = 2, ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 68, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 36
+ *< END OBJECT: BaseClass="image" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Label4' AS label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 23, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label4", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Label5' AS label WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderStyle = 0, ;
+ Caption = "Label4", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 131, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Label5", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ RightToLeft = .F., ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104, ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="label" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Line1' AS line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 23, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="line" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Line2' AS line WITH ;
+ Anchor = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ Height = 8, ;
+ HelpContextID = 0, ;
+ Left = 131, ;
+ LineSlant = "\", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Line2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="line" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Shape1' AS shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 23, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 28, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Shape2' AS shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 131, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 28, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Spinner1' AS spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 23, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 128, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="spinner" />
+
+ ADD OBJECT 'Pageframe1.Cl_page2.Spinner2' AS spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 131, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 128, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="spinner" />
+
+ ADD OBJECT 'Shape1' AS shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = (17), ;
+ HelpContextID = 0, ;
+ Left = (44), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = (60), ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (105)
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'Shape2' AS shape WITH ;
+ Anchor = 0, ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ BorderWidth = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ Curvature = 0, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ DrawMode = 13, ;
+ Enabled = .F., ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ Height = 17, ;
+ HelpContextID = 0, ;
+ Left = 152, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Shape2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ PolyPoints = "", ;
+ Rotation = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ Top = 60, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 105
+ *< END OBJECT: BaseClass="shape" />
+
+ ADD OBJECT 'Spinner1' AS spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (24), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = (44), ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (160), ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (104)
+ *< END OBJECT: BaseClass="spinner" />
+
+ ADD OBJECT 'Spinner2' AS spinner WITH ;
+ Alignment = 1, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 24, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Increment = 1.00, ;
+ InputMask = "", ;
+ KeyboardHighValue = 2147483647, ;
+ KeyboardLowValue = -2147483647, ;
+ Left = 152, ;
+ Margin = 2, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Spinner2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ SpinnerHighValue = 2147483647.00, ;
+ SpinnerLowValue = -2147483647.00, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 160, ;
+ Value = 123, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 104
+ *< END OBJECT: BaseClass="spinner" />
+
+ ADD OBJECT 'Timer1' AS timer WITH ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ Enabled = .T., ;
+ Height = (23), ;
+ Interval = 0, ;
+ Left = (24), ;
+ Name = "Timer1", ;
+ Tag = "", ;
+ Top = (392), ;
+ Width = (23)
+ *< END OBJECT: BaseClass="timer" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_form_controles.sc2 b/TESTS/DATOS_READONLY/f_form_controles.sc2
index a90be08..6bada67 100644
--- a/TESTS/DATOS_READONLY/f_form_controles.sc2
+++ b/TESTS/DATOS_READONLY/f_form_controles.sc2
@@ -4,3134 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_controles.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_base1" Baseclass="form" />
- DataSource = .NULL.
- Name = "Dataenvironment"
- TabStop = .F.
- Visible = .F.
-
-ENDDEFINE
-
-DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image7" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image8" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image9" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image10" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Spinner1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Line2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image7" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image8" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image9" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Image10" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Spinner2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image7" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image8" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image9" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image10" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_label1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_shape1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_line1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_spinner1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_label2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_shape2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_line2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image7" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image8" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image9" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_image10" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_spinner2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Timer1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_timer1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Hyperlink1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_hyperlink1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_collection1" UniqueID="" Timestamp="" />
-
- AllowOutput = .T.
- AlwaysOnBottom = .F.
- AlwaysOnTop = .T.
- AutoCenter = .F.
- BackColor = 192,192,192
- BindControls = .T.
- BorderStyle = 3
- BufferMode = 0
- Caption = "Form_y_Controles_Varios_Test"
- ClipControls = .T.
- Closable = .T.
- ColorSource = 4
- Comment = ""
- ContinuousScroll = .T.
- ControlBox = .T.
- DataSession = 1
- DEClass = "cl_dataenvironment"
- DEClassLibrary = lib_controles.vcx
- DefHeight =
- DefLeft =
- DefOleLCID = 0
- DefTop =
- DefWidth =
- Desktop = .F.
- Dockable = 0
- DoCreate = .T.
- DrawMode = 13
- DrawStyle = 0
- DrawWidth = 1
- Enabled = .T.
- FillColor = 0,0,0
- FillStyle = 1
- FontBold = .F.
- FontCharSet = 0
- FontCondense = .F.
- FontExtend = .F.
- FontItalic = .F.
- FontName = "Arial"
- FontOutline = .F.
- FontShadow = .F.
- FontSize = 8
- FontStrikethru = .F.
- FontUnderline = .F.
- ForeColor = 0,0,0
- HalfHeightCaption = .F.
- Height = (424)
- HelpContextID = 0
- HScrollSmallChange = 10
- Icon = bmps\container.ico
- KeyPreview = .F.
- Left = (2)
- LockScreen = .F.
- MacDesktop = 0
- MaxButton = .T.
- MaxHeight = -1
- MaxLeft = -1
- MaxTop = -1
- MaxWidth = -1
- MDIForm = .F.
- MinButton = .T.
- MinHeight = -1
- MinWidth = -1
- MouseIcon = ..\..\
- MousePointer = 0
- Movable = .T.
- Name = "F_base1"
- OLEDragMode = 0
- OLEDragPicture = ..\..\
- OLEDropEffects = 3
- OLEDropMode = 0
- Picture = bmps\fondogris.bmp
- RightToLeft = .F.
- ScaleMode = 3
- ScrollBars = 0
- ShowInTaskBar = .T.
- ShowTips = .F.
- ShowWindow = 0
- SizeBox = .F.
- TabIndex = 1
- TabStop = .T.
- Tag = ""
- Themes = .T.
- TitleBar = 1
- Top = (3)
- Visible = .T.
- VScrollSmallChange = 10
- WhatsThisButton = .F.
- WhatsThisHelp = .F.
- WhatsThisHelpID = -1
- Width = (819)
- WindowState = 0
- WindowType = 0
- ZoomBox = .F.
- Edit1.Name = "Edit1"
- Edit1.RightToLeft = .F.
- Label3.Name = "Label3"
- Label3.RightToLeft = .F.
- cmdCapturar.Name = "cmdCapturar"
- cmdCapturar.RightToLeft = .F.
- Label1.Caption = "CONTROL NORMAL"
- Label1.Name = "Label1"
- Label1.RightToLeft = .F.
- Label2.Caption = "CONTROL SUBCLASADOS"
- Label2.Name = "Label2"
- Label2.RightToLeft = .F.
-
- ADD OBJECT 'Cl_collection1' AS cl_collection WITH ;
- Left = 325, ;
- Name = "Cl_collection1", ;
- Top = 390
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" />
-
- ADD OBJECT 'Cl_hyperlink1' AS cl_hyperlink WITH ;
- Comment = "", ;
- Left = 362, ;
- Name = "Cl_hyperlink1", ;
- Tag = "", ;
- Top = 390
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" />
-
- ADD OBJECT 'Cl_image1' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 312, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image10' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 496, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image10", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 132, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image2' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 312, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 120, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image3' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 388, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image4' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 348, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image5' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 388, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 132, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image6' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 420, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image7' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 420, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image7", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 120, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image8' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 496, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image8", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_image9' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 456, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_image9", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_label1' AS cl_label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 312, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_label1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 40, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
-
- ADD OBJECT 'Cl_label2' AS cl_label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 420, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_label2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 40, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
-
- ADD OBJECT 'Cl_line1' AS cl_line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 312, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_line1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 80, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
-
- ADD OBJECT 'Cl_line2' AS cl_line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 420, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_line2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 80, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
-
- ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ;
- ActivePage = 2, ;
- Anchor = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ErasePage = .T., ;
- Height = 188, ;
- HelpContextID = 0, ;
- Left = 292, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_pageframe1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PageCount = 3, ;
- RightToLeft = .F., ;
- StatusBarText = "", ;
- TabOrientation = 0, ;
- Tabs = .T., ;
- TabStop = .T., ;
- TabStretch = 1, ;
- TabStyle = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 200, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 256, ;
- Page1.Name = "Page1", ;
- Page2.Name = "Page2", ;
- Page3.Caption = "Page3", ;
- Page3.Name = "Page3"
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image1' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 19, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image10' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 203, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image10", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image2' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 19, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 88, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image3' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 95, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image4' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 55, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image5' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 95, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image6' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 127, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image7' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 127, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image7", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 88, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image8' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 203, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image8", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Image9' AS cl_image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 163, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image9", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Label4' AS cl_label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 19, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 8, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Label5' AS cl_label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 127, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 8, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Line1' AS cl_line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 19, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 48, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Line2' AS cl_line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 127, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 48, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Shape1' AS cl_shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 19, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 28, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Shape2' AS cl_shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 127, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 28, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Spinner1' AS cl_spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 19, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 128, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
-
- ADD OBJECT 'Cl_pageframe1.Page2.Spinner2' AS cl_spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 127, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 128, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
-
- ADD OBJECT 'Cl_shape1' AS cl_shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 312, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_shape1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 60, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
-
- ADD OBJECT 'Cl_shape2' AS cl_shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 420, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_shape2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 60, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" />
-
- ADD OBJECT 'Cl_spinner1' AS cl_spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 312, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_spinner1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 160, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
-
- ADD OBJECT 'Cl_spinner2' AS cl_spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 420, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_spinner2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 160, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" />
-
- ADD OBJECT 'Cl_timer1' AS cl_timer WITH ;
- Comment = "", ;
- Enabled = .T., ;
- Height = 23, ;
- Interval = 0, ;
- Left = 292, ;
- Name = "Cl_timer1", ;
- Tag = "", ;
- Top = 392, ;
- Width = 23
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" />
-
- ADD OBJECT 'Hyperlink1' AS hyperlink WITH ;
- Comment = "", ;
- Height = 23, ;
- Left = 72, ;
- Name = "Hyperlink1", ;
- Tag = "", ;
- Top = 392, ;
- Width = 23
- *< END OBJECT: BaseClass="hyperlink" />
-
- ADD OBJECT 'Image1' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = (16), ;
- HelpContextID = 0, ;
- Left = (44), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (100), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (17)
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image10' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 228, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image10", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 132, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image2' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 44, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 120, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image3' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 120, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image4' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 80, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image5' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 120, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 132, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image6' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 152, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image7' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 152, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image7", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 120, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image8' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 228, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image8", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Image9' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 188, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image9", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Label4' AS label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = (17), ;
- HelpContextID = 0, ;
- Left = (44), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (40), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (104), ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'Label5' AS label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 152, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 40, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'Line1' AS line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Height = (8), ;
- HelpContextID = 0, ;
- Left = (44), ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (80), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (104)
- *< END OBJECT: BaseClass="line" />
-
- ADD OBJECT 'Line2' AS line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 152, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 80, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="line" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ActivePage = 2, ;
- Anchor = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- ErasePage = .T., ;
- Height = (189), ;
- HelpContextID = 0, ;
- Left = (20), ;
- MemberClass = "cl_page", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Pageframe1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PageCount = 3, ;
- RightToLeft = .F., ;
- StatusBarText = "", ;
- TabOrientation = 0, ;
- Tabs = .T., ;
- TabStop = .T., ;
- TabStretch = 1, ;
- TabStyle = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (200), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (256), ;
- Cl_page1.Name = "Cl_page1", ;
- Cl_page2.Name = "Cl_page2", ;
- Cl_page3.Name = "Cl_page3"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image1' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 23, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image10' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 207, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image10", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image2' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 23, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 88, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image3' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 99, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image3", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image4' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 59, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image5' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 99, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 5, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 100, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image6' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 131, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image6", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 17
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image7' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 32, ;
- HelpContextID = 0, ;
- Left = 131, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image7", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- StatusBarText = "", ;
- Stretch = 1, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 88, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 32
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image8' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 20, ;
- HelpContextID = 0, ;
- Left = 207, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image8", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 16
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Image9' AS image WITH ;
- Anchor = 0, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 0, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- Height = 52, ;
- HelpContextID = 0, ;
- Left = 167, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Image9", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RotateFlip = 1, ;
- StatusBarText = "", ;
- Stretch = 2, ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 68, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 36
- *< END OBJECT: BaseClass="image" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Label4' AS label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 23, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label4", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 8, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Label5' AS label WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderStyle = 0, ;
- Caption = "Label4", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 131, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Label5", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- RightToLeft = .F., ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 8, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104, ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="label" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Line1' AS line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 23, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 48, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="line" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Line2' AS line WITH ;
- Anchor = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- Height = 8, ;
- HelpContextID = 0, ;
- Left = 131, ;
- LineSlant = "\", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Line2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 48, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="line" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Shape1' AS shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 23, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 28, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Shape2' AS shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 131, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 28, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Spinner1' AS spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 23, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 128, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="spinner" />
-
- ADD OBJECT 'Pageframe1.Cl_page2.Spinner2' AS spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 131, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 128, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="spinner" />
-
- ADD OBJECT 'Shape1' AS shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = (17), ;
- HelpContextID = 0, ;
- Left = (44), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = (60), ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (105)
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'Shape2' AS shape WITH ;
- Anchor = 0, ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- BorderWidth = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- Curvature = 0, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- DrawMode = 13, ;
- Enabled = .F., ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- Height = 17, ;
- HelpContextID = 0, ;
- Left = 152, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Shape2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- PolyPoints = "", ;
- Rotation = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- Tag = "", ;
- ToolTipText = "", ;
- Top = 60, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 105
- *< END OBJECT: BaseClass="shape" />
-
- ADD OBJECT 'Spinner1' AS spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (24), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = (44), ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (160), ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (104)
- *< END OBJECT: BaseClass="spinner" />
-
- ADD OBJECT 'Spinner2' AS spinner WITH ;
- Alignment = 1, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 24, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Increment = 1.00, ;
- InputMask = "", ;
- KeyboardHighValue = 2147483647, ;
- KeyboardLowValue = -2147483647, ;
- Left = 152, ;
- Margin = 2, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Spinner2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- SpinnerHighValue = 2147483647.00, ;
- SpinnerLowValue = -2147483647.00, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 160, ;
- Value = 123, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 104
- *< END OBJECT: BaseClass="spinner" />
-
- ADD OBJECT 'Timer1' AS timer WITH ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- Enabled = .T., ;
- Height = (23), ;
- Interval = 0, ;
- Left = (24), ;
- Name = "Timer1", ;
- Tag = "", ;
- Top = (392), ;
- Width = (23)
- *< END OBJECT: BaseClass="timer" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_formset.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_formset.dataenvironment.sc2
new file mode 100644
index 0000000..a5eac1f
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_formset.dataenvironment.sc2
@@ -0,0 +1,48 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_formset.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
+
+ *
+ AutoCloseTables = .T.
+ AutoOpenTables = .T.
+ Comment = ""
+ DataSource = .NULL.
+ DataSourceType = ""
+ Height = 200
+ InitialSelectedAlias = ""
+ Left = 1
+ Name = "Dataenvironment"
+ OpenViews = 0
+ Tag = ""
+ Top = 220
+ Width = 520
+ *
+
+ ADD OBJECT 'Cursor1' AS cursor WITH ;
+ Alias = "encuestas", ;
+ BufferModeOverride = 1, ;
+ Comment = "", ;
+ CursorSource = encuestas.dbf, ;
+ Exclusive = .F., ;
+ Filter = "", ;
+ Height = 90, ;
+ Left = 10, ;
+ Name = "Cursor1", ;
+ NoDataOnLoad = .F., ;
+ Order = "", ;
+ OrderDirection = 0, ;
+ ReadOnly = .F., ;
+ Tag = "", ;
+ Top = 20, ;
+ Width = 90
+ *< END OBJECT: BaseClass="cursor" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_formset.formset.sc2 b/TESTS/DATOS_READONLY/f_formset.formset.sc2
new file mode 100644
index 0000000..50da59d
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_formset.formset.sc2
@@ -0,0 +1,931 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_formset.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS formset AS formset
+ *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" />
+
+ *
+ *p: c_testname
+ *
+
+ *
+ AutoRelease = .T.
+ BufferMode = 0
+ Comment = ""
+ c_testname = Formset_Test
+ DataSession = 2
+ Name = "Formset"
+ ReadCycle = .T.
+ ReadLock = .T.
+ ReadMouse = .T.
+ ReadSave = .F.
+ ReadTimeout = 0
+ Tag = ""
+ Visible = .T.
+ WindowList = ""
+ WindowType = 0
+ *
+
+ ADD OBJECT 'F_base1' AS f_base WITH ;
+ AllowOutput = .T., ;
+ AlwaysOnBottom = .F., ;
+ AlwaysOnTop = .T., ;
+ AutoCenter = .F., ;
+ BackColor = 192,192,192, ;
+ BindControls = .T., ;
+ BorderStyle = 3, ;
+ ClipControls = .T., ;
+ Closable = .T., ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ContinuousScroll = .T., ;
+ ControlBox = .T., ;
+ c_testname = Formset_Test, ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefOleLCID = 0, ;
+ DefTop = , ;
+ DefWidth = , ;
+ Desktop = .F., ;
+ Dockable = 0, ;
+ DoCreate = .T., ;
+ DrawMode = 13, ;
+ DrawStyle = 0, ;
+ DrawWidth = 1, ;
+ Enabled = .T., ;
+ FillColor = 0,0,0, ;
+ FillStyle = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ HalfHeightCaption = .F., ;
+ Height = (424), ;
+ HelpContextID = 0, ;
+ HScrollSmallChange = 10, ;
+ Icon = ..\..\, ;
+ KeyPreview = .F., ;
+ Left = (2), ;
+ LockScreen = .F., ;
+ MacDesktop = 0, ;
+ MaxButton = .T., ;
+ MaxHeight = -1, ;
+ MaxLeft = -1, ;
+ MaxTop = -1, ;
+ MaxWidth = -1, ;
+ MDIForm = .F., ;
+ MinButton = .T., ;
+ MinHeight = -1, ;
+ MinWidth = -1, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Movable = .T., ;
+ Name = "F_base1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = ..\..\, ;
+ RightToLeft = .F., ;
+ ScaleMode = 3, ;
+ ScrollBars = 0, ;
+ ShowInTaskBar = .T., ;
+ ShowTips = .F., ;
+ ShowWindow = 0, ;
+ SizeBox = .F., ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ Themes = .T., ;
+ TitleBar = 1, ;
+ Top = (4), ;
+ Visible = .T., ;
+ VScrollSmallChange = 10, ;
+ WhatsThisButton = .F., ;
+ WhatsThisHelp = .F., ;
+ WhatsThisHelpID = -1, ;
+ Width = (819), ;
+ WindowState = 0, ;
+ WindowType = 0, ;
+ ZoomBox = .F., ;
+ Edit1.Name = "Edit1", ;
+ Edit1.RightToLeft = .F., ;
+ Label3.Name = "Label3", ;
+ Label3.RightToLeft = .F., ;
+ cmdCapturar.Name = "cmdCapturar", ;
+ cmdCapturar.RightToLeft = .F., ;
+ Label1.Name = "Label1", ;
+ Label1.RightToLeft = .F., ;
+ Label2.Name = "Label2", ;
+ Label2.RightToLeft = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="form" />
+
+ ADD OBJECT 'F_base1.Cl_grid1' AS cl_grid WITH ;
+ AllowAddNew = .F., ;
+ AllowAutoColumnFit = 0, ;
+ AllowCellSelection = .T., ;
+ AllowHeaderSizing = .T., ;
+ AllowRowSizing = .T., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ ChildOrder = "", ;
+ ColumnCount = 5, ;
+ Comment = "", ;
+ DeleteMark = .T., ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ GridLineColor = 0,0,0, ;
+ GridLines = 3, ;
+ GridLineWidth = 1, ;
+ HeaderHeight = 17, ;
+ Height = 160, ;
+ HelpContextID = 0, ;
+ Highlight = .T., ;
+ HighlightBackColor = 51,153,255, ;
+ HighlightForeColor = 255,255,255, ;
+ HighlightRow = .T., ;
+ HighlightRowLineWidth = 1, ;
+ HighlightStyle = 0, ;
+ Left = 308, ;
+ LinkMaster = "", ;
+ LockColumns = 0, ;
+ LockColumnsLeft = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_grid1", ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Optimize = .F., ;
+ Panel = 1, ;
+ PanelLink = .T., ;
+ Partition = 0, ;
+ ReadOnly = .F., ;
+ RecordMark = .T., ;
+ RecordSource = "encuestas", ;
+ RecordSourceType = 1, ;
+ RelationalExpr = "", ;
+ RightToLeft = .F., ;
+ RowHeight = 17, ;
+ ScrollBars = 3, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SplitBar = .T., ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 32, ;
+ Value = 0, ;
+ View = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 228, ;
+ Column1.BackColor = 255,255,255, ;
+ Column1.ControlSource = "", ;
+ Column1.Enabled = .T., ;
+ Column1.FontBold = .F., ;
+ Column1.FontCharSet = 0, ;
+ Column1.FontCondense = .F., ;
+ Column1.FontExtend = .F., ;
+ Column1.FontItalic = .F., ;
+ Column1.FontName = "Arial", ;
+ Column1.FontOutline = .F., ;
+ Column1.FontShadow = .F., ;
+ Column1.FontSize = 8, ;
+ Column1.FontStrikethru = .F., ;
+ Column1.FontUnderline = .F., ;
+ Column1.ForeColor = 0,0,0, ;
+ Column1.Header1.FontBold = .F., ;
+ Column1.Header1.FontCharSet = 0, ;
+ Column1.Header1.FontCondense = .F., ;
+ Column1.Header1.FontExtend = .F., ;
+ Column1.Header1.FontItalic = .F., ;
+ Column1.Header1.FontName = "Arial", ;
+ Column1.Header1.FontOutline = .F., ;
+ Column1.Header1.FontShadow = .F., ;
+ Column1.Header1.FontSize = 8, ;
+ Column1.Header1.FontStrikethru = .F., ;
+ Column1.Header1.FontUnderline = .F., ;
+ Column1.Header1.Name = "Header1", ;
+ Column1.Name = "Column1", ;
+ Column1.ReadOnly = .F., ;
+ Column1.Text1.BackColor = 255,255,255, ;
+ Column1.Text1.Enabled = .T., ;
+ Column1.Text1.FontBold = .F., ;
+ Column1.Text1.FontCharSet = 0, ;
+ Column1.Text1.FontCondense = .F., ;
+ Column1.Text1.FontExtend = .F., ;
+ Column1.Text1.FontItalic = .F., ;
+ Column1.Text1.FontName = "Arial", ;
+ Column1.Text1.FontOutline = .F., ;
+ Column1.Text1.FontShadow = .F., ;
+ Column1.Text1.FontSize = 8, ;
+ Column1.Text1.FontStrikethru = .F., ;
+ Column1.Text1.FontUnderline = .F., ;
+ Column1.Text1.ForeColor = 0,0,0, ;
+ Column1.Text1.Name = "Text1", ;
+ Column1.Text1.ReadOnly = .F., ;
+ Column1.Text1.Visible = .T., ;
+ Column1.Visible = .T., ;
+ Column2.BackColor = 255,255,255, ;
+ Column2.ControlSource = "", ;
+ Column2.Enabled = .T., ;
+ Column2.FontBold = .F., ;
+ Column2.FontCharSet = 0, ;
+ Column2.FontCondense = .F., ;
+ Column2.FontExtend = .F., ;
+ Column2.FontItalic = .F., ;
+ Column2.FontName = "Arial", ;
+ Column2.FontOutline = .F., ;
+ Column2.FontShadow = .F., ;
+ Column2.FontSize = 8, ;
+ Column2.FontStrikethru = .F., ;
+ Column2.FontUnderline = .F., ;
+ Column2.ForeColor = 0,0,0, ;
+ Column2.Header1.FontBold = .F., ;
+ Column2.Header1.FontCharSet = 0, ;
+ Column2.Header1.FontCondense = .F., ;
+ Column2.Header1.FontExtend = .F., ;
+ Column2.Header1.FontItalic = .F., ;
+ Column2.Header1.FontName = "Arial", ;
+ Column2.Header1.FontOutline = .F., ;
+ Column2.Header1.FontShadow = .F., ;
+ Column2.Header1.FontSize = 8, ;
+ Column2.Header1.FontStrikethru = .F., ;
+ Column2.Header1.FontUnderline = .F., ;
+ Column2.Header1.Name = "Header1", ;
+ Column2.Name = "Column2", ;
+ Column2.ReadOnly = .F., ;
+ Column2.Text1.BackColor = 255,255,255, ;
+ Column2.Text1.Enabled = .T., ;
+ Column2.Text1.FontBold = .F., ;
+ Column2.Text1.FontCharSet = 0, ;
+ Column2.Text1.FontCondense = .F., ;
+ Column2.Text1.FontExtend = .F., ;
+ Column2.Text1.FontItalic = .F., ;
+ Column2.Text1.FontName = "Arial", ;
+ Column2.Text1.FontOutline = .F., ;
+ Column2.Text1.FontShadow = .F., ;
+ Column2.Text1.FontSize = 8, ;
+ Column2.Text1.FontStrikethru = .F., ;
+ Column2.Text1.FontUnderline = .F., ;
+ Column2.Text1.ForeColor = 0,0,0, ;
+ Column2.Text1.Name = "Text1", ;
+ Column2.Text1.ReadOnly = .F., ;
+ Column2.Text1.Visible = .T., ;
+ Column2.Visible = .T., ;
+ Column3.BackColor = 255,255,255, ;
+ Column3.ControlSource = "", ;
+ Column3.Enabled = .T., ;
+ Column3.FontBold = .F., ;
+ Column3.FontCharSet = 0, ;
+ Column3.FontCondense = .F., ;
+ Column3.FontExtend = .F., ;
+ Column3.FontItalic = .F., ;
+ Column3.FontName = "Arial", ;
+ Column3.FontOutline = .F., ;
+ Column3.FontShadow = .F., ;
+ Column3.FontSize = 8, ;
+ Column3.FontStrikethru = .F., ;
+ Column3.FontUnderline = .F., ;
+ Column3.ForeColor = 0,0,0, ;
+ Column3.Header1.FontBold = .F., ;
+ Column3.Header1.FontCharSet = 0, ;
+ Column3.Header1.FontCondense = .F., ;
+ Column3.Header1.FontExtend = .F., ;
+ Column3.Header1.FontItalic = .F., ;
+ Column3.Header1.FontName = "Arial", ;
+ Column3.Header1.FontOutline = .F., ;
+ Column3.Header1.FontShadow = .F., ;
+ Column3.Header1.FontSize = 8, ;
+ Column3.Header1.FontStrikethru = .F., ;
+ Column3.Header1.FontUnderline = .F., ;
+ Column3.Header1.Name = "Header1", ;
+ Column3.Name = "Column3", ;
+ Column3.ReadOnly = .F., ;
+ Column3.Text1.BackColor = 255,255,255, ;
+ Column3.Text1.Enabled = .T., ;
+ Column3.Text1.FontBold = .F., ;
+ Column3.Text1.FontCharSet = 0, ;
+ Column3.Text1.FontCondense = .F., ;
+ Column3.Text1.FontExtend = .F., ;
+ Column3.Text1.FontItalic = .F., ;
+ Column3.Text1.FontName = "Arial", ;
+ Column3.Text1.FontOutline = .F., ;
+ Column3.Text1.FontShadow = .F., ;
+ Column3.Text1.FontSize = 8, ;
+ Column3.Text1.FontStrikethru = .F., ;
+ Column3.Text1.FontUnderline = .F., ;
+ Column3.Text1.ForeColor = 0,0,0, ;
+ Column3.Text1.Name = "Text1", ;
+ Column3.Text1.ReadOnly = .F., ;
+ Column3.Text1.Visible = .T., ;
+ Column3.Visible = .T., ;
+ Column4.BackColor = 255,255,255, ;
+ Column4.ControlSource = "", ;
+ Column4.Enabled = .T., ;
+ Column4.FontBold = .F., ;
+ Column4.FontCharSet = 0, ;
+ Column4.FontCondense = .F., ;
+ Column4.FontExtend = .F., ;
+ Column4.FontItalic = .F., ;
+ Column4.FontName = "Arial", ;
+ Column4.FontOutline = .F., ;
+ Column4.FontShadow = .F., ;
+ Column4.FontSize = 8, ;
+ Column4.FontStrikethru = .F., ;
+ Column4.FontUnderline = .F., ;
+ Column4.ForeColor = 0,0,0, ;
+ Column4.Header1.FontBold = .F., ;
+ Column4.Header1.FontCharSet = 0, ;
+ Column4.Header1.FontCondense = .F., ;
+ Column4.Header1.FontExtend = .F., ;
+ Column4.Header1.FontItalic = .F., ;
+ Column4.Header1.FontName = "Arial", ;
+ Column4.Header1.FontOutline = .F., ;
+ Column4.Header1.FontShadow = .F., ;
+ Column4.Header1.FontSize = 8, ;
+ Column4.Header1.FontStrikethru = .F., ;
+ Column4.Header1.FontUnderline = .F., ;
+ Column4.Header1.Name = "Header1", ;
+ Column4.Name = "Column4", ;
+ Column4.ReadOnly = .F., ;
+ Column4.Text1.BackColor = 255,255,255, ;
+ Column4.Text1.Enabled = .T., ;
+ Column4.Text1.FontBold = .F., ;
+ Column4.Text1.FontCharSet = 0, ;
+ Column4.Text1.FontCondense = .F., ;
+ Column4.Text1.FontExtend = .F., ;
+ Column4.Text1.FontItalic = .F., ;
+ Column4.Text1.FontName = "Arial", ;
+ Column4.Text1.FontOutline = .F., ;
+ Column4.Text1.FontShadow = .F., ;
+ Column4.Text1.FontSize = 8, ;
+ Column4.Text1.FontStrikethru = .F., ;
+ Column4.Text1.FontUnderline = .F., ;
+ Column4.Text1.ForeColor = 0,0,0, ;
+ Column4.Text1.Name = "Text1", ;
+ Column4.Text1.ReadOnly = .F., ;
+ Column4.Text1.Visible = .T., ;
+ Column4.Visible = .T., ;
+ Column5.BackColor = 255,255,255, ;
+ Column5.ControlSource = "", ;
+ Column5.Enabled = .T., ;
+ Column5.FontBold = .F., ;
+ Column5.FontCharSet = 0, ;
+ Column5.FontCondense = .F., ;
+ Column5.FontExtend = .F., ;
+ Column5.FontItalic = .F., ;
+ Column5.FontName = "Arial", ;
+ Column5.FontOutline = .F., ;
+ Column5.FontShadow = .F., ;
+ Column5.FontSize = 8, ;
+ Column5.FontStrikethru = .F., ;
+ Column5.FontUnderline = .F., ;
+ Column5.ForeColor = 0,0,0, ;
+ Column5.Header1.FontBold = .F., ;
+ Column5.Header1.FontCharSet = 0, ;
+ Column5.Header1.FontCondense = .F., ;
+ Column5.Header1.FontExtend = .F., ;
+ Column5.Header1.FontItalic = .F., ;
+ Column5.Header1.FontName = "Arial", ;
+ Column5.Header1.FontOutline = .F., ;
+ Column5.Header1.FontShadow = .F., ;
+ Column5.Header1.FontSize = 8, ;
+ Column5.Header1.FontStrikethru = .F., ;
+ Column5.Header1.FontUnderline = .F., ;
+ Column5.Header1.Name = "Header1", ;
+ Column5.Name = "Column5", ;
+ Column5.ReadOnly = .F., ;
+ Column5.Text1.BackColor = 255,255,255, ;
+ Column5.Text1.Enabled = .T., ;
+ Column5.Text1.FontBold = .F., ;
+ Column5.Text1.FontCharSet = 0, ;
+ Column5.Text1.FontCondense = .F., ;
+ Column5.Text1.FontExtend = .F., ;
+ Column5.Text1.FontItalic = .F., ;
+ Column5.Text1.FontName = "Arial", ;
+ Column5.Text1.FontOutline = .F., ;
+ Column5.Text1.FontShadow = .F., ;
+ Column5.Text1.FontSize = 8, ;
+ Column5.Text1.FontStrikethru = .F., ;
+ Column5.Text1.FontUnderline = .F., ;
+ Column5.Text1.ForeColor = 0,0,0, ;
+ Column5.Text1.Name = "Text1", ;
+ Column5.Text1.ReadOnly = .F., ;
+ Column5.Text1.Visible = .T., ;
+ Column5.Visible = .T.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
+
+ ADD OBJECT 'F_base1.grdEncuestas' AS grid WITH ;
+ AllowAddNew = .F., ;
+ AllowAutoColumnFit = 0, ;
+ AllowCellSelection = .T., ;
+ AllowHeaderSizing = .T., ;
+ AllowRowSizing = .T., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ ChildOrder = "", ;
+ ColumnCount = 5, ;
+ Comment = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DeleteMark = .T., ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ GridLineColor = 0,0,0, ;
+ GridLines = 3, ;
+ GridLineWidth = 1, ;
+ HeaderHeight = 17, ;
+ Height = (160), ;
+ HelpContextID = 0, ;
+ Highlight = .T., ;
+ HighlightBackColor = 51,153,255, ;
+ HighlightForeColor = 255,255,255, ;
+ HighlightRow = .T., ;
+ HighlightRowLineWidth = 1, ;
+ HighlightStyle = 0, ;
+ Left = (40), ;
+ LinkMaster = "", ;
+ LockColumns = 0, ;
+ LockColumnsLeft = 0, ;
+ MemberClass = "cl_Column", ;
+ MemberClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "grdEncuestas", ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Optimize = .F., ;
+ Panel = 1, ;
+ PanelLink = .T., ;
+ Partition = 0, ;
+ ReadOnly = .F., ;
+ RecordMark = .T., ;
+ RecordSource = "encuestas", ;
+ RecordSourceType = 1, ;
+ RelationalExpr = "", ;
+ RightToLeft = .F., ;
+ RowHeight = 17, ;
+ ScrollBars = 3, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ SplitBar = .T., ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (32), ;
+ Value = 0, ;
+ View = 0, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (228), ;
+ Cl_column1.Alignment = 3, ;
+ Cl_column1.BackColor = 255,255,255, ;
+ Cl_column1.Bound = .T., ;
+ Cl_column1.ColumnOrder = 1, ;
+ Cl_column1.Comment = "Ver este Column", ;
+ Cl_column1.ControlSource = "promotor", ;
+ Cl_column1.CurrentControl = "Text1", ;
+ Cl_column1.DynamicAlignment = "", ;
+ Cl_column1.DynamicBackColor = "", ;
+ Cl_column1.DynamicCurrentControl = "", ;
+ Cl_column1.DynamicFontBold = "", ;
+ Cl_column1.DynamicFontItalic = "", ;
+ Cl_column1.DynamicFontName = "", ;
+ Cl_column1.DynamicFontOutline = "", ;
+ Cl_column1.DynamicFontShadow = "", ;
+ Cl_column1.DynamicFontSize = "", ;
+ Cl_column1.DynamicFontStrikethru = "", ;
+ Cl_column1.DynamicFontUnderline = "", ;
+ Cl_column1.DynamicForeColor = "", ;
+ Cl_column1.DynamicInputMask = "", ;
+ Cl_column1.Enabled = .T., ;
+ Cl_column1.FontBold = .F., ;
+ Cl_column1.FontCharSet = 0, ;
+ Cl_column1.FontCondense = .F., ;
+ Cl_column1.FontExtend = .F., ;
+ Cl_column1.FontItalic = .F., ;
+ Cl_column1.FontName = "Arial", ;
+ Cl_column1.FontOutline = .F., ;
+ Cl_column1.FontShadow = .F., ;
+ Cl_column1.FontSize = 8, ;
+ Cl_column1.FontStrikethru = .F., ;
+ Cl_column1.FontUnderline = .F., ;
+ Cl_column1.ForeColor = 0,0,0, ;
+ Cl_column1.Format = "", ;
+ Cl_column1.HeaderClass = "cl_Header", ;
+ Cl_column1.HeaderClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
+ Cl_column1.InputMask = "", ;
+ Cl_column1.MouseIcon = ..\..\, ;
+ Cl_column1.MousePointer = 0, ;
+ Cl_column1.Movable = .T., ;
+ Cl_column1.Name = "Cl_column1", ;
+ Cl_column1.ReadOnly = .F., ;
+ Cl_column1.Resizable = .T., ;
+ Cl_column1.SelectOnEntry = .T., ;
+ Cl_column1.Sparse = .T., ;
+ Cl_column1.StatusBarText = "", ;
+ Cl_column1.Tag = "", ;
+ Cl_column1.ToolTipText = "", ;
+ Cl_column1.Visible = .T., ;
+ Cl_column1.Width = 75, ;
+ Cl_column2.BackColor = 255,255,255, ;
+ Cl_column2.Enabled = .T., ;
+ Cl_column2.FontBold = .F., ;
+ Cl_column2.FontCharSet = 0, ;
+ Cl_column2.FontCondense = .F., ;
+ Cl_column2.FontExtend = .F., ;
+ Cl_column2.FontItalic = .F., ;
+ Cl_column2.FontName = "Arial", ;
+ Cl_column2.FontOutline = .F., ;
+ Cl_column2.FontShadow = .F., ;
+ Cl_column2.FontSize = 8, ;
+ Cl_column2.FontStrikethru = .F., ;
+ Cl_column2.FontUnderline = .F., ;
+ Cl_column2.ForeColor = 0,0,0, ;
+ Cl_column2.Name = "Cl_column2", ;
+ Cl_column2.ReadOnly = .F., ;
+ Cl_column2.Visible = .T., ;
+ Cl_column3.BackColor = 255,255,255, ;
+ Cl_column3.Enabled = .T., ;
+ Cl_column3.FontBold = .F., ;
+ Cl_column3.FontCharSet = 0, ;
+ Cl_column3.FontCondense = .F., ;
+ Cl_column3.FontExtend = .F., ;
+ Cl_column3.FontItalic = .F., ;
+ Cl_column3.FontName = "Arial", ;
+ Cl_column3.FontOutline = .F., ;
+ Cl_column3.FontShadow = .F., ;
+ Cl_column3.FontSize = 8, ;
+ Cl_column3.FontStrikethru = .F., ;
+ Cl_column3.FontUnderline = .F., ;
+ Cl_column3.ForeColor = 0,0,0, ;
+ Cl_column3.Name = "Cl_column3", ;
+ Cl_column3.ReadOnly = .F., ;
+ Cl_column3.Visible = .T., ;
+ Cl_column4.BackColor = 255,255,255, ;
+ Cl_column4.Enabled = .T., ;
+ Cl_column4.FontBold = .F., ;
+ Cl_column4.FontCharSet = 0, ;
+ Cl_column4.FontCondense = .F., ;
+ Cl_column4.FontExtend = .F., ;
+ Cl_column4.FontItalic = .F., ;
+ Cl_column4.FontName = "Arial", ;
+ Cl_column4.FontOutline = .F., ;
+ Cl_column4.FontShadow = .F., ;
+ Cl_column4.FontSize = 8, ;
+ Cl_column4.FontStrikethru = .F., ;
+ Cl_column4.FontUnderline = .F., ;
+ Cl_column4.ForeColor = 0,0,0, ;
+ Cl_column4.Name = "Cl_column4", ;
+ Cl_column4.ReadOnly = .F., ;
+ Cl_column4.Visible = .T., ;
+ Cl_column5.BackColor = 255,255,255, ;
+ Cl_column5.Enabled = .T., ;
+ Cl_column5.FontBold = .F., ;
+ Cl_column5.FontCharSet = 0, ;
+ Cl_column5.FontCondense = .F., ;
+ Cl_column5.FontExtend = .F., ;
+ Cl_column5.FontItalic = .F., ;
+ Cl_column5.FontName = "Arial", ;
+ Cl_column5.FontOutline = .F., ;
+ Cl_column5.FontShadow = .F., ;
+ Cl_column5.FontSize = 8, ;
+ Cl_column5.FontStrikethru = .F., ;
+ Cl_column5.FontUnderline = .F., ;
+ Cl_column5.ForeColor = 0,0,0, ;
+ Cl_column5.Name = "Cl_column5", ;
+ Cl_column5.ReadOnly = .F., ;
+ Cl_column5.Visible = .T.
+ *< END OBJECT: BaseClass="grid" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Cl_header1' AS cl_header WITH ;
+ Alignment = 0, ;
+ BackColor = 240,240,240, ;
+ Caption = "promotor", ;
+ Comment = "", ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_header1", ;
+ Picture = ..\..\, ;
+ StatusBarText = "", ;
+ Tag = "", ;
+ ToolTipText = "", ;
+ WordWrap = .F.
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Text1' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Header1' AS header WITH ;
+ Caption = "idenc", ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Header1' AS header WITH ;
+ Caption = "calific", ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Header1' AS header WITH ;
+ Caption = "fecha", ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Header1' AS header WITH ;
+ Caption = "resultado", ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ FontName = "Arial", ;
+ FontSize = 8, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1", ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 213, ;
+ Left = 28, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ Top = 200, ;
+ Width = 517, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.Cl_grid1' AS cl_grid WITH ;
+ Left = 279, ;
+ Name = "Cl_grid1", ;
+ Top = 8, ;
+ Column1.Header1.Name = "Header1", ;
+ Column1.Name = "Column1", ;
+ Column1.Text1.Name = "Text1", ;
+ Column2.Header1.Name = "Header1", ;
+ Column2.Name = "Column2", ;
+ Column2.Text1.Name = "Text1", ;
+ Column3.Header1.Name = "Header1", ;
+ Column3.Name = "Column3", ;
+ Column3.Text1.Name = "Text1", ;
+ Column4.Header1.Name = "Header1", ;
+ Column4.Name = "Column4", ;
+ Column4.Text1.Name = "Text1", ;
+ Column5.Header1.Name = "Header1", ;
+ Column5.Name = "Column5", ;
+ Column5.Text1.Name = "Text1"
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas' AS grid WITH ;
+ ColumnCount = 5, ;
+ Height = 160, ;
+ Left = 11, ;
+ Name = "grdEncuestas", ;
+ RecordSource = "encuestas", ;
+ RecordSourceType = 1, ;
+ Top = 8, ;
+ Width = 228, ;
+ Column1.ControlSource = "encuestas.promotor", ;
+ Column1.Name = "Column1", ;
+ Column2.ControlSource = "encuestas.idenc", ;
+ Column2.Name = "Column2", ;
+ Column3.ControlSource = "encuestas.calific", ;
+ Column3.Name = "Column3", ;
+ Column4.ControlSource = "encuestas.fecha", ;
+ Column4.Name = "Column4", ;
+ Column5.ControlSource = "encuestas.resultado", ;
+ Column5.Name = "Column5"
+ *< END OBJECT: BaseClass="grid" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1' AS header WITH ;
+ Caption = "promotor", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1' AS header WITH ;
+ Caption = "idenc", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1' AS header WITH ;
+ Caption = "calific", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1' AS header WITH ;
+ Caption = "fecha", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1' AS header WITH ;
+ Caption = "resultado", ;
+ Name = "Header1"
+ *< END OBJECT: BaseClass="header" />
+
+ ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1' AS textbox WITH ;
+ BackColor = 255,255,255, ;
+ BorderStyle = 0, ;
+ ForeColor = 0,0,0, ;
+ Margin = 0, ;
+ Name = "Text1"
+ *< END OBJECT: BaseClass="textbox" />
+
+ PROCEDURE Refresh
+ DOEVENTS FORCE
+ THISFORMSET.Forms(1).c_testname = THISFORMSET.c_testname
+ THISFORMSET.Forms(1).REFRESH()
+
+ ENDPROC
+
+ PROCEDURE F_base1.Cl_grid1.Init
+ this.AutoFit()
+
+ ENDPROC
+
+ PROCEDURE F_base1.grdEncuestas.Init
+ this.AutoFit()
+
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_formset.sc2 b/TESTS/DATOS_READONLY/f_formset.sc2
index 2482016..67f478f 100644
--- a/TESTS/DATOS_READONLY/f_formset.sc2
+++ b/TESTS/DATOS_READONLY/f_formset.sc2
@@ -4,968 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_formset.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="formset" Baseclass="formset" />
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />
-
- AutoCloseTables = .T.
- AutoOpenTables = .T.
- Comment = ""
- DataSource = .NULL.
- DataSourceType = ""
- Height = 200
- InitialSelectedAlias = ""
- Left = 1
- Name = "Dataenvironment"
- OpenViews = 0
- Tag = ""
- Top = 220
- Width = 520
-
- ADD OBJECT 'Cursor1' AS cursor WITH ;
- Alias = "encuestas", ;
- BufferModeOverride = 1, ;
- Comment = "", ;
- CursorSource = encuestas.dbf, ;
- Exclusive = .F., ;
- Filter = "", ;
- Height = 90, ;
- Left = 10, ;
- Name = "Cursor1", ;
- NoDataOnLoad = .F., ;
- Order = "", ;
- OrderDirection = 0, ;
- ReadOnly = .F., ;
- Tag = "", ;
- Top = 20, ;
- Width = 90
- *< END OBJECT: BaseClass="cursor" />
-
-ENDDEFINE
-
-DEFINE CLASS formset AS formset
- *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" />
-
- *
- *p: c_testname
- *
-
- AutoRelease = .T.
- BufferMode = 0
- Comment = ""
- c_testname = Formset_Test
- DataSession = 2
- Name = "Formset"
- ReadCycle = .T.
- ReadLock = .T.
- ReadMouse = .T.
- ReadSave = .F.
- ReadTimeout = 0
- Tag = ""
- Visible = .T.
- WindowList = ""
- WindowType = 0
-
- ADD OBJECT 'F_base1' AS f_base WITH ;
- AllowOutput = .T., ;
- AlwaysOnBottom = .F., ;
- AlwaysOnTop = .T., ;
- AutoCenter = .F., ;
- BackColor = 192,192,192, ;
- BindControls = .T., ;
- BorderStyle = 3, ;
- ClipControls = .T., ;
- Closable = .T., ;
- ColorSource = 4, ;
- Comment = "", ;
- ContinuousScroll = .T., ;
- ControlBox = .T., ;
- c_testname = Formset_Test, ;
- DefHeight = , ;
- DefLeft = , ;
- DefOleLCID = 0, ;
- DefTop = , ;
- DefWidth = , ;
- Desktop = .F., ;
- Dockable = 0, ;
- DoCreate = .T., ;
- DrawMode = 13, ;
- DrawStyle = 0, ;
- DrawWidth = 1, ;
- Enabled = .T., ;
- FillColor = 0,0,0, ;
- FillStyle = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- HalfHeightCaption = .F., ;
- Height = (424), ;
- HelpContextID = 0, ;
- HScrollSmallChange = 10, ;
- Icon = ..\..\, ;
- KeyPreview = .F., ;
- Left = (2), ;
- LockScreen = .F., ;
- MacDesktop = 0, ;
- MaxButton = .T., ;
- MaxHeight = -1, ;
- MaxLeft = -1, ;
- MaxTop = -1, ;
- MaxWidth = -1, ;
- MDIForm = .F., ;
- MinButton = .T., ;
- MinHeight = -1, ;
- MinWidth = -1, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Movable = .T., ;
- Name = "F_base1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = ..\..\, ;
- RightToLeft = .F., ;
- ScaleMode = 3, ;
- ScrollBars = 0, ;
- ShowInTaskBar = .T., ;
- ShowTips = .F., ;
- ShowWindow = 0, ;
- SizeBox = .F., ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- Themes = .T., ;
- TitleBar = 1, ;
- Top = (4), ;
- Visible = .T., ;
- VScrollSmallChange = 10, ;
- WhatsThisButton = .F., ;
- WhatsThisHelp = .F., ;
- WhatsThisHelpID = -1, ;
- Width = (819), ;
- WindowState = 0, ;
- WindowType = 0, ;
- ZoomBox = .F., ;
- Edit1.Name = "Edit1", ;
- Edit1.RightToLeft = .F., ;
- Label3.Name = "Label3", ;
- Label3.RightToLeft = .F., ;
- cmdCapturar.Name = "cmdCapturar", ;
- cmdCapturar.RightToLeft = .F., ;
- Label1.Name = "Label1", ;
- Label1.RightToLeft = .F., ;
- Label2.Name = "Label2", ;
- Label2.RightToLeft = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="form" />
-
- ADD OBJECT 'F_base1.Cl_grid1' AS cl_grid WITH ;
- AllowAddNew = .F., ;
- AllowAutoColumnFit = 0, ;
- AllowCellSelection = .T., ;
- AllowHeaderSizing = .T., ;
- AllowRowSizing = .T., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- ChildOrder = "", ;
- ColumnCount = 5, ;
- Comment = "", ;
- DeleteMark = .T., ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- GridLineColor = 0,0,0, ;
- GridLines = 3, ;
- GridLineWidth = 1, ;
- HeaderHeight = 17, ;
- Height = 160, ;
- HelpContextID = 0, ;
- Highlight = .T., ;
- HighlightBackColor = 51,153,255, ;
- HighlightForeColor = 255,255,255, ;
- HighlightRow = .T., ;
- HighlightRowLineWidth = 1, ;
- HighlightStyle = 0, ;
- Left = 308, ;
- LinkMaster = "", ;
- LockColumns = 0, ;
- LockColumnsLeft = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_grid1", ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Optimize = .F., ;
- Panel = 1, ;
- PanelLink = .T., ;
- Partition = 0, ;
- ReadOnly = .F., ;
- RecordMark = .T., ;
- RecordSource = "encuestas", ;
- RecordSourceType = 1, ;
- RelationalExpr = "", ;
- RightToLeft = .F., ;
- RowHeight = 17, ;
- ScrollBars = 3, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SplitBar = .T., ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 32, ;
- Value = 0, ;
- View = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 228, ;
- Column1.BackColor = 255,255,255, ;
- Column1.ControlSource = "", ;
- Column1.Enabled = .T., ;
- Column1.FontBold = .F., ;
- Column1.FontCharSet = 0, ;
- Column1.FontCondense = .F., ;
- Column1.FontExtend = .F., ;
- Column1.FontItalic = .F., ;
- Column1.FontName = "Arial", ;
- Column1.FontOutline = .F., ;
- Column1.FontShadow = .F., ;
- Column1.FontSize = 8, ;
- Column1.FontStrikethru = .F., ;
- Column1.FontUnderline = .F., ;
- Column1.ForeColor = 0,0,0, ;
- Column1.Header1.FontBold = .F., ;
- Column1.Header1.FontCharSet = 0, ;
- Column1.Header1.FontCondense = .F., ;
- Column1.Header1.FontExtend = .F., ;
- Column1.Header1.FontItalic = .F., ;
- Column1.Header1.FontName = "Arial", ;
- Column1.Header1.FontOutline = .F., ;
- Column1.Header1.FontShadow = .F., ;
- Column1.Header1.FontSize = 8, ;
- Column1.Header1.FontStrikethru = .F., ;
- Column1.Header1.FontUnderline = .F., ;
- Column1.Header1.Name = "Header1", ;
- Column1.Name = "Column1", ;
- Column1.ReadOnly = .F., ;
- Column1.Text1.BackColor = 255,255,255, ;
- Column1.Text1.Enabled = .T., ;
- Column1.Text1.FontBold = .F., ;
- Column1.Text1.FontCharSet = 0, ;
- Column1.Text1.FontCondense = .F., ;
- Column1.Text1.FontExtend = .F., ;
- Column1.Text1.FontItalic = .F., ;
- Column1.Text1.FontName = "Arial", ;
- Column1.Text1.FontOutline = .F., ;
- Column1.Text1.FontShadow = .F., ;
- Column1.Text1.FontSize = 8, ;
- Column1.Text1.FontStrikethru = .F., ;
- Column1.Text1.FontUnderline = .F., ;
- Column1.Text1.ForeColor = 0,0,0, ;
- Column1.Text1.Name = "Text1", ;
- Column1.Text1.ReadOnly = .F., ;
- Column1.Text1.Visible = .T., ;
- Column1.Visible = .T., ;
- Column2.BackColor = 255,255,255, ;
- Column2.ControlSource = "", ;
- Column2.Enabled = .T., ;
- Column2.FontBold = .F., ;
- Column2.FontCharSet = 0, ;
- Column2.FontCondense = .F., ;
- Column2.FontExtend = .F., ;
- Column2.FontItalic = .F., ;
- Column2.FontName = "Arial", ;
- Column2.FontOutline = .F., ;
- Column2.FontShadow = .F., ;
- Column2.FontSize = 8, ;
- Column2.FontStrikethru = .F., ;
- Column2.FontUnderline = .F., ;
- Column2.ForeColor = 0,0,0, ;
- Column2.Header1.FontBold = .F., ;
- Column2.Header1.FontCharSet = 0, ;
- Column2.Header1.FontCondense = .F., ;
- Column2.Header1.FontExtend = .F., ;
- Column2.Header1.FontItalic = .F., ;
- Column2.Header1.FontName = "Arial", ;
- Column2.Header1.FontOutline = .F., ;
- Column2.Header1.FontShadow = .F., ;
- Column2.Header1.FontSize = 8, ;
- Column2.Header1.FontStrikethru = .F., ;
- Column2.Header1.FontUnderline = .F., ;
- Column2.Header1.Name = "Header1", ;
- Column2.Name = "Column2", ;
- Column2.ReadOnly = .F., ;
- Column2.Text1.BackColor = 255,255,255, ;
- Column2.Text1.Enabled = .T., ;
- Column2.Text1.FontBold = .F., ;
- Column2.Text1.FontCharSet = 0, ;
- Column2.Text1.FontCondense = .F., ;
- Column2.Text1.FontExtend = .F., ;
- Column2.Text1.FontItalic = .F., ;
- Column2.Text1.FontName = "Arial", ;
- Column2.Text1.FontOutline = .F., ;
- Column2.Text1.FontShadow = .F., ;
- Column2.Text1.FontSize = 8, ;
- Column2.Text1.FontStrikethru = .F., ;
- Column2.Text1.FontUnderline = .F., ;
- Column2.Text1.ForeColor = 0,0,0, ;
- Column2.Text1.Name = "Text1", ;
- Column2.Text1.ReadOnly = .F., ;
- Column2.Text1.Visible = .T., ;
- Column2.Visible = .T., ;
- Column3.BackColor = 255,255,255, ;
- Column3.ControlSource = "", ;
- Column3.Enabled = .T., ;
- Column3.FontBold = .F., ;
- Column3.FontCharSet = 0, ;
- Column3.FontCondense = .F., ;
- Column3.FontExtend = .F., ;
- Column3.FontItalic = .F., ;
- Column3.FontName = "Arial", ;
- Column3.FontOutline = .F., ;
- Column3.FontShadow = .F., ;
- Column3.FontSize = 8, ;
- Column3.FontStrikethru = .F., ;
- Column3.FontUnderline = .F., ;
- Column3.ForeColor = 0,0,0, ;
- Column3.Header1.FontBold = .F., ;
- Column3.Header1.FontCharSet = 0, ;
- Column3.Header1.FontCondense = .F., ;
- Column3.Header1.FontExtend = .F., ;
- Column3.Header1.FontItalic = .F., ;
- Column3.Header1.FontName = "Arial", ;
- Column3.Header1.FontOutline = .F., ;
- Column3.Header1.FontShadow = .F., ;
- Column3.Header1.FontSize = 8, ;
- Column3.Header1.FontStrikethru = .F., ;
- Column3.Header1.FontUnderline = .F., ;
- Column3.Header1.Name = "Header1", ;
- Column3.Name = "Column3", ;
- Column3.ReadOnly = .F., ;
- Column3.Text1.BackColor = 255,255,255, ;
- Column3.Text1.Enabled = .T., ;
- Column3.Text1.FontBold = .F., ;
- Column3.Text1.FontCharSet = 0, ;
- Column3.Text1.FontCondense = .F., ;
- Column3.Text1.FontExtend = .F., ;
- Column3.Text1.FontItalic = .F., ;
- Column3.Text1.FontName = "Arial", ;
- Column3.Text1.FontOutline = .F., ;
- Column3.Text1.FontShadow = .F., ;
- Column3.Text1.FontSize = 8, ;
- Column3.Text1.FontStrikethru = .F., ;
- Column3.Text1.FontUnderline = .F., ;
- Column3.Text1.ForeColor = 0,0,0, ;
- Column3.Text1.Name = "Text1", ;
- Column3.Text1.ReadOnly = .F., ;
- Column3.Text1.Visible = .T., ;
- Column3.Visible = .T., ;
- Column4.BackColor = 255,255,255, ;
- Column4.ControlSource = "", ;
- Column4.Enabled = .T., ;
- Column4.FontBold = .F., ;
- Column4.FontCharSet = 0, ;
- Column4.FontCondense = .F., ;
- Column4.FontExtend = .F., ;
- Column4.FontItalic = .F., ;
- Column4.FontName = "Arial", ;
- Column4.FontOutline = .F., ;
- Column4.FontShadow = .F., ;
- Column4.FontSize = 8, ;
- Column4.FontStrikethru = .F., ;
- Column4.FontUnderline = .F., ;
- Column4.ForeColor = 0,0,0, ;
- Column4.Header1.FontBold = .F., ;
- Column4.Header1.FontCharSet = 0, ;
- Column4.Header1.FontCondense = .F., ;
- Column4.Header1.FontExtend = .F., ;
- Column4.Header1.FontItalic = .F., ;
- Column4.Header1.FontName = "Arial", ;
- Column4.Header1.FontOutline = .F., ;
- Column4.Header1.FontShadow = .F., ;
- Column4.Header1.FontSize = 8, ;
- Column4.Header1.FontStrikethru = .F., ;
- Column4.Header1.FontUnderline = .F., ;
- Column4.Header1.Name = "Header1", ;
- Column4.Name = "Column4", ;
- Column4.ReadOnly = .F., ;
- Column4.Text1.BackColor = 255,255,255, ;
- Column4.Text1.Enabled = .T., ;
- Column4.Text1.FontBold = .F., ;
- Column4.Text1.FontCharSet = 0, ;
- Column4.Text1.FontCondense = .F., ;
- Column4.Text1.FontExtend = .F., ;
- Column4.Text1.FontItalic = .F., ;
- Column4.Text1.FontName = "Arial", ;
- Column4.Text1.FontOutline = .F., ;
- Column4.Text1.FontShadow = .F., ;
- Column4.Text1.FontSize = 8, ;
- Column4.Text1.FontStrikethru = .F., ;
- Column4.Text1.FontUnderline = .F., ;
- Column4.Text1.ForeColor = 0,0,0, ;
- Column4.Text1.Name = "Text1", ;
- Column4.Text1.ReadOnly = .F., ;
- Column4.Text1.Visible = .T., ;
- Column4.Visible = .T., ;
- Column5.BackColor = 255,255,255, ;
- Column5.ControlSource = "", ;
- Column5.Enabled = .T., ;
- Column5.FontBold = .F., ;
- Column5.FontCharSet = 0, ;
- Column5.FontCondense = .F., ;
- Column5.FontExtend = .F., ;
- Column5.FontItalic = .F., ;
- Column5.FontName = "Arial", ;
- Column5.FontOutline = .F., ;
- Column5.FontShadow = .F., ;
- Column5.FontSize = 8, ;
- Column5.FontStrikethru = .F., ;
- Column5.FontUnderline = .F., ;
- Column5.ForeColor = 0,0,0, ;
- Column5.Header1.FontBold = .F., ;
- Column5.Header1.FontCharSet = 0, ;
- Column5.Header1.FontCondense = .F., ;
- Column5.Header1.FontExtend = .F., ;
- Column5.Header1.FontItalic = .F., ;
- Column5.Header1.FontName = "Arial", ;
- Column5.Header1.FontOutline = .F., ;
- Column5.Header1.FontShadow = .F., ;
- Column5.Header1.FontSize = 8, ;
- Column5.Header1.FontStrikethru = .F., ;
- Column5.Header1.FontUnderline = .F., ;
- Column5.Header1.Name = "Header1", ;
- Column5.Name = "Column5", ;
- Column5.ReadOnly = .F., ;
- Column5.Text1.BackColor = 255,255,255, ;
- Column5.Text1.Enabled = .T., ;
- Column5.Text1.FontBold = .F., ;
- Column5.Text1.FontCharSet = 0, ;
- Column5.Text1.FontCondense = .F., ;
- Column5.Text1.FontExtend = .F., ;
- Column5.Text1.FontItalic = .F., ;
- Column5.Text1.FontName = "Arial", ;
- Column5.Text1.FontOutline = .F., ;
- Column5.Text1.FontShadow = .F., ;
- Column5.Text1.FontSize = 8, ;
- Column5.Text1.FontStrikethru = .F., ;
- Column5.Text1.FontUnderline = .F., ;
- Column5.Text1.ForeColor = 0,0,0, ;
- Column5.Text1.Name = "Text1", ;
- Column5.Text1.ReadOnly = .F., ;
- Column5.Text1.Visible = .T., ;
- Column5.Visible = .T.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
-
- ADD OBJECT 'F_base1.grdEncuestas' AS grid WITH ;
- AllowAddNew = .F., ;
- AllowAutoColumnFit = 0, ;
- AllowCellSelection = .T., ;
- AllowHeaderSizing = .T., ;
- AllowRowSizing = .T., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- ChildOrder = "", ;
- ColumnCount = 5, ;
- Comment = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DeleteMark = .T., ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- GridLineColor = 0,0,0, ;
- GridLines = 3, ;
- GridLineWidth = 1, ;
- HeaderHeight = 17, ;
- Height = (160), ;
- HelpContextID = 0, ;
- Highlight = .T., ;
- HighlightBackColor = 51,153,255, ;
- HighlightForeColor = 255,255,255, ;
- HighlightRow = .T., ;
- HighlightRowLineWidth = 1, ;
- HighlightStyle = 0, ;
- Left = (40), ;
- LinkMaster = "", ;
- LockColumns = 0, ;
- LockColumnsLeft = 0, ;
- MemberClass = "cl_Column", ;
- MemberClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "grdEncuestas", ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Optimize = .F., ;
- Panel = 1, ;
- PanelLink = .T., ;
- Partition = 0, ;
- ReadOnly = .F., ;
- RecordMark = .T., ;
- RecordSource = "encuestas", ;
- RecordSourceType = 1, ;
- RelationalExpr = "", ;
- RightToLeft = .F., ;
- RowHeight = 17, ;
- ScrollBars = 3, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- SplitBar = .T., ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (32), ;
- Value = 0, ;
- View = 0, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (228), ;
- Cl_column1.Alignment = 3, ;
- Cl_column1.BackColor = 255,255,255, ;
- Cl_column1.Bound = .T., ;
- Cl_column1.ColumnOrder = 1, ;
- Cl_column1.Comment = "Ver este Column", ;
- Cl_column1.ControlSource = "promotor", ;
- Cl_column1.CurrentControl = "Text1", ;
- Cl_column1.DynamicAlignment = "", ;
- Cl_column1.DynamicBackColor = "", ;
- Cl_column1.DynamicCurrentControl = "", ;
- Cl_column1.DynamicFontBold = "", ;
- Cl_column1.DynamicFontItalic = "", ;
- Cl_column1.DynamicFontName = "", ;
- Cl_column1.DynamicFontOutline = "", ;
- Cl_column1.DynamicFontShadow = "", ;
- Cl_column1.DynamicFontSize = "", ;
- Cl_column1.DynamicFontStrikethru = "", ;
- Cl_column1.DynamicFontUnderline = "", ;
- Cl_column1.DynamicForeColor = "", ;
- Cl_column1.DynamicInputMask = "", ;
- Cl_column1.Enabled = .T., ;
- Cl_column1.FontBold = .F., ;
- Cl_column1.FontCharSet = 0, ;
- Cl_column1.FontCondense = .F., ;
- Cl_column1.FontExtend = .F., ;
- Cl_column1.FontItalic = .F., ;
- Cl_column1.FontName = "Arial", ;
- Cl_column1.FontOutline = .F., ;
- Cl_column1.FontShadow = .F., ;
- Cl_column1.FontSize = 8, ;
- Cl_column1.FontStrikethru = .F., ;
- Cl_column1.FontUnderline = .F., ;
- Cl_column1.ForeColor = 0,0,0, ;
- Cl_column1.Format = "", ;
- Cl_column1.HeaderClass = "cl_Header", ;
- Cl_column1.HeaderClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ;
- Cl_column1.InputMask = "", ;
- Cl_column1.MouseIcon = ..\..\, ;
- Cl_column1.MousePointer = 0, ;
- Cl_column1.Movable = .T., ;
- Cl_column1.Name = "Cl_column1", ;
- Cl_column1.ReadOnly = .F., ;
- Cl_column1.Resizable = .T., ;
- Cl_column1.SelectOnEntry = .T., ;
- Cl_column1.Sparse = .T., ;
- Cl_column1.StatusBarText = "", ;
- Cl_column1.Tag = "", ;
- Cl_column1.ToolTipText = "", ;
- Cl_column1.Visible = .T., ;
- Cl_column1.Width = 75, ;
- Cl_column2.BackColor = 255,255,255, ;
- Cl_column2.Enabled = .T., ;
- Cl_column2.FontBold = .F., ;
- Cl_column2.FontCharSet = 0, ;
- Cl_column2.FontCondense = .F., ;
- Cl_column2.FontExtend = .F., ;
- Cl_column2.FontItalic = .F., ;
- Cl_column2.FontName = "Arial", ;
- Cl_column2.FontOutline = .F., ;
- Cl_column2.FontShadow = .F., ;
- Cl_column2.FontSize = 8, ;
- Cl_column2.FontStrikethru = .F., ;
- Cl_column2.FontUnderline = .F., ;
- Cl_column2.ForeColor = 0,0,0, ;
- Cl_column2.Name = "Cl_column2", ;
- Cl_column2.ReadOnly = .F., ;
- Cl_column2.Visible = .T., ;
- Cl_column3.BackColor = 255,255,255, ;
- Cl_column3.Enabled = .T., ;
- Cl_column3.FontBold = .F., ;
- Cl_column3.FontCharSet = 0, ;
- Cl_column3.FontCondense = .F., ;
- Cl_column3.FontExtend = .F., ;
- Cl_column3.FontItalic = .F., ;
- Cl_column3.FontName = "Arial", ;
- Cl_column3.FontOutline = .F., ;
- Cl_column3.FontShadow = .F., ;
- Cl_column3.FontSize = 8, ;
- Cl_column3.FontStrikethru = .F., ;
- Cl_column3.FontUnderline = .F., ;
- Cl_column3.ForeColor = 0,0,0, ;
- Cl_column3.Name = "Cl_column3", ;
- Cl_column3.ReadOnly = .F., ;
- Cl_column3.Visible = .T., ;
- Cl_column4.BackColor = 255,255,255, ;
- Cl_column4.Enabled = .T., ;
- Cl_column4.FontBold = .F., ;
- Cl_column4.FontCharSet = 0, ;
- Cl_column4.FontCondense = .F., ;
- Cl_column4.FontExtend = .F., ;
- Cl_column4.FontItalic = .F., ;
- Cl_column4.FontName = "Arial", ;
- Cl_column4.FontOutline = .F., ;
- Cl_column4.FontShadow = .F., ;
- Cl_column4.FontSize = 8, ;
- Cl_column4.FontStrikethru = .F., ;
- Cl_column4.FontUnderline = .F., ;
- Cl_column4.ForeColor = 0,0,0, ;
- Cl_column4.Name = "Cl_column4", ;
- Cl_column4.ReadOnly = .F., ;
- Cl_column4.Visible = .T., ;
- Cl_column5.BackColor = 255,255,255, ;
- Cl_column5.Enabled = .T., ;
- Cl_column5.FontBold = .F., ;
- Cl_column5.FontCharSet = 0, ;
- Cl_column5.FontCondense = .F., ;
- Cl_column5.FontExtend = .F., ;
- Cl_column5.FontItalic = .F., ;
- Cl_column5.FontName = "Arial", ;
- Cl_column5.FontOutline = .F., ;
- Cl_column5.FontShadow = .F., ;
- Cl_column5.FontSize = 8, ;
- Cl_column5.FontStrikethru = .F., ;
- Cl_column5.FontUnderline = .F., ;
- Cl_column5.ForeColor = 0,0,0, ;
- Cl_column5.Name = "Cl_column5", ;
- Cl_column5.ReadOnly = .F., ;
- Cl_column5.Visible = .T.
- *< END OBJECT: BaseClass="grid" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Cl_header1' AS cl_header WITH ;
- Alignment = 0, ;
- BackColor = 240,240,240, ;
- Caption = "promotor", ;
- Comment = "", ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_header1", ;
- Picture = ..\..\, ;
- StatusBarText = "", ;
- Tag = "", ;
- ToolTipText = "", ;
- WordWrap = .F.
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Text1' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- FontName = "Arial", ;
- FontSize = 8, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Header1' AS header WITH ;
- Caption = "idenc", ;
- FontName = "Arial", ;
- FontSize = 8, ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- FontName = "Arial", ;
- FontSize = 8, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Header1' AS header WITH ;
- Caption = "calific", ;
- FontName = "Arial", ;
- FontSize = 8, ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- FontName = "Arial", ;
- FontSize = 8, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Header1' AS header WITH ;
- Caption = "fecha", ;
- FontName = "Arial", ;
- FontSize = 8, ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- FontName = "Arial", ;
- FontSize = 8, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Header1' AS header WITH ;
- Caption = "resultado", ;
- FontName = "Arial", ;
- FontSize = 8, ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- FontName = "Arial", ;
- FontSize = 8, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1", ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 213, ;
- Left = 28, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- Top = 200, ;
- Width = 517, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.Cl_grid1' AS cl_grid WITH ;
- Left = 279, ;
- Name = "Cl_grid1", ;
- Top = 8, ;
- Column1.Header1.Name = "Header1", ;
- Column1.Name = "Column1", ;
- Column1.Text1.Name = "Text1", ;
- Column2.Header1.Name = "Header1", ;
- Column2.Name = "Column2", ;
- Column2.Text1.Name = "Text1", ;
- Column3.Header1.Name = "Header1", ;
- Column3.Name = "Column3", ;
- Column3.Text1.Name = "Text1", ;
- Column4.Header1.Name = "Header1", ;
- Column4.Name = "Column4", ;
- Column4.Text1.Name = "Text1", ;
- Column5.Header1.Name = "Header1", ;
- Column5.Name = "Column5", ;
- Column5.Text1.Name = "Text1"
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas' AS grid WITH ;
- ColumnCount = 5, ;
- Height = 160, ;
- Left = 11, ;
- Name = "grdEncuestas", ;
- RecordSource = "encuestas", ;
- RecordSourceType = 1, ;
- Top = 8, ;
- Width = 228, ;
- Column1.ControlSource = "encuestas.promotor", ;
- Column1.Name = "Column1", ;
- Column2.ControlSource = "encuestas.idenc", ;
- Column2.Name = "Column2", ;
- Column3.ControlSource = "encuestas.calific", ;
- Column3.Name = "Column3", ;
- Column4.ControlSource = "encuestas.fecha", ;
- Column4.Name = "Column4", ;
- Column5.ControlSource = "encuestas.resultado", ;
- Column5.Name = "Column5"
- *< END OBJECT: BaseClass="grid" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1' AS header WITH ;
- Caption = "promotor", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1' AS header WITH ;
- Caption = "idenc", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1' AS header WITH ;
- Caption = "calific", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1' AS header WITH ;
- Caption = "fecha", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1' AS header WITH ;
- Caption = "resultado", ;
- Name = "Header1"
- *< END OBJECT: BaseClass="header" />
-
- ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1' AS textbox WITH ;
- BackColor = 255,255,255, ;
- BorderStyle = 0, ;
- ForeColor = 0,0,0, ;
- Margin = 0, ;
- Name = "Text1"
- *< END OBJECT: BaseClass="textbox" />
-
- PROCEDURE Refresh
- DOEVENTS FORCE
- THISFORMSET.Forms(1).c_testname = THISFORMSET.c_testname
- THISFORMSET.Forms(1).REFRESH()
-
- ENDPROC
-
- PROCEDURE F_base1.Cl_grid1.Init
- this.AutoFit()
-
- ENDPROC
-
- PROCEDURE F_base1.grdEncuestas.Init
- this.AutoFit()
-
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_listbox.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_listbox.dataenvironment.sc2
new file mode 100644
index 0000000..66c492c
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_listbox.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_listbox.f_listbox_test.sc2 b/TESTS/DATOS_READONLY/f_listbox.f_listbox_test.sc2
new file mode 100644
index 0000000..0a37302
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_listbox.f_listbox_test.sc2
@@ -0,0 +1,567 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cl_ListBox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" />
+
+ *
+ c_testname = Listbox_Test
+ DoCreate = .T.
+ Left = 0
+ Name = "F_Listbox_Test"
+ Top = 0
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "LISTBOX NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "LISTBOX SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = 60, ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 308, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "Cl_ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 44, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 224
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Height = 97, ;
+ Left = 28, ;
+ Name = "Container1", ;
+ TabIndex = 9, ;
+ Top = 128, ;
+ Width = 512
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = 60, ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 280, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "Cl_ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 12, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 224
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
+
+ ADD OBJECT 'Container1.ListBox1' AS listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = 60, ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 8, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 12, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 224
+ *< END OBJECT: BaseClass="listbox" />
+
+ ADD OBJECT 'ListBox1' AS listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = (60), ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = (36), ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (44), ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (224)
+ *< END OBJECT: BaseClass="listbox" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 137, ;
+ Left = 28, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ TabIndex = 10, ;
+ Top = 252, ;
+ Width = 513, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = 60, ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 279, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "Cl_ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 6, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 224
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ;
+ Anchor = 0, ;
+ AutoHideScrollbar = 0, ;
+ BorderColor = 255,255,0, ;
+ BoundColumn = 2, ;
+ BoundTo = .F., ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ ColumnCount = 2, ;
+ ColumnLines = .T., ;
+ ColumnWidths = "150,150", ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DisabledItemBackColor = 255,255,255, ;
+ DisabledItemForeColor = 109,109,109, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FirstElement = 1, ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ Height = 60, ;
+ HelpContextID = 0, ;
+ IncrementalSearch = .T., ;
+ IntegralHeight = .F., ;
+ ItemBackColor = 255,255,255, ;
+ ItemForeColor = 0,0,0, ;
+ ItemTips = .F., ;
+ Left = 7, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ MoverBars = .F., ;
+ MultiSelect = .F., ;
+ Name = "ListBox1", ;
+ NullDisplay = "", ;
+ NumberOfElements = 0, ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ RightToLeft = .F., ;
+ RowSource = "", ;
+ RowSourceType = 0, ;
+ SelectedItemBackColor = 51,153,255, ;
+ SelectedItemForeColor = 255,255,255, ;
+ Sorted = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ TabIndex = 11, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Value = , ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 224
+ *< END OBJECT: BaseClass="listbox" />
+
+ PROCEDURE Cl_ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.Cl_ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Container1.ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.Cl_ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ PROCEDURE Pageframe1.Page1.ListBox1.Init
+ this.AddListItem('Este es el valor.A1')
+ this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.B1')
+ this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
+ this.AddListItem('Este es el valor.C1')
+ this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
+ this.ListIndex = 2
+
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_listbox.sc2 b/TESTS/DATOS_READONLY/f_listbox.sc2
index 4454467..fab5cc8 100644
--- a/TESTS/DATOS_READONLY/f_listbox.sc2
+++ b/TESTS/DATOS_READONLY/f_listbox.sc2
@@ -4,575 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_listbox_test" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cl_ListBox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" />
-
- c_testname = Listbox_Test
- DoCreate = .T.
- Left = 0
- Name = "F_Listbox_Test"
- Top = 0
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "LISTBOX NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "LISTBOX SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = 60, ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 308, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "Cl_ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 44, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 224
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Height = 97, ;
- Left = 28, ;
- Name = "Container1", ;
- TabIndex = 9, ;
- Top = 128, ;
- Width = 512
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = 60, ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 280, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "Cl_ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 12, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 224
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
-
- ADD OBJECT 'Container1.ListBox1' AS listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = 60, ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 8, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 12, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 224
- *< END OBJECT: BaseClass="listbox" />
-
- ADD OBJECT 'ListBox1' AS listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = (60), ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = (36), ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (44), ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (224)
- *< END OBJECT: BaseClass="listbox" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 137, ;
- Left = 28, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- TabIndex = 10, ;
- Top = 252, ;
- Width = 513, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = 60, ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 279, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "Cl_ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 6, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 8, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 224
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" />
-
- ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ;
- Anchor = 0, ;
- AutoHideScrollbar = 0, ;
- BorderColor = 255,255,0, ;
- BoundColumn = 2, ;
- BoundTo = .F., ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- ColumnCount = 2, ;
- ColumnLines = .T., ;
- ColumnWidths = "150,150", ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DisabledItemBackColor = 255,255,255, ;
- DisabledItemForeColor = 109,109,109, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FirstElement = 1, ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- Height = 60, ;
- HelpContextID = 0, ;
- IncrementalSearch = .T., ;
- IntegralHeight = .F., ;
- ItemBackColor = 255,255,255, ;
- ItemForeColor = 0,0,0, ;
- ItemTips = .F., ;
- Left = 7, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- MoverBars = .F., ;
- MultiSelect = .F., ;
- Name = "ListBox1", ;
- NullDisplay = "", ;
- NumberOfElements = 0, ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- RightToLeft = .F., ;
- RowSource = "", ;
- RowSourceType = 0, ;
- SelectedItemBackColor = 51,153,255, ;
- SelectedItemForeColor = 255,255,255, ;
- Sorted = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- TabIndex = 11, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 8, ;
- Value = , ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 224
- *< END OBJECT: BaseClass="listbox" />
-
- PROCEDURE Cl_ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.Cl_ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Container1.ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.Cl_ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
- PROCEDURE Pageframe1.Page1.ListBox1.Init
- this.AddListItem('Este es el valor.A1')
- this.AddListItem('Este es el valor.A2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.B1')
- this.AddListItem('Este es el valor.B2', this.NewItemId, 2)
- this.AddListItem('Este es el valor.C1')
- this.AddListItem('Este es el valor.C2', this.NewItemId, 2)
- this.ListIndex = 2
-
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_nullchars_incode.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_nullchars_incode.dataenvironment.sc2
new file mode 100644
index 0000000..1e266b4
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_nullchars_incode.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_nullchars_incode.form1.sc2 b/TESTS/DATOS_READONLY/f_nullchars_incode.form1.sc2
new file mode 100644
index 0000000..75fffd2
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_nullchars_incode.form1.sc2
@@ -0,0 +1,28 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS form1 AS form
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *
+ Caption = "Form1"
+ DoCreate = .T.
+ Height = 79
+ Left = 0
+ Name = "Form1"
+ Top = 0
+ Width = 394
+ *
+
+ PROCEDURE Click
+ LPARAMETERS p1, p2, p3
+ ENDPROC
+
+ PROCEDURE Load
+ LPARAMETERS p1, p2, p3
+ ENDPROC
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_nullchars_incode.sc2 b/TESTS/DATOS_READONLY/f_nullchars_incode.sc2
index 4c7ace6..57bd1f2 100644
--- a/TESTS/DATOS_READONLY/f_nullchars_incode.sc2
+++ b/TESTS/DATOS_READONLY/f_nullchars_incode.sc2
@@ -4,36 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="form1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS form1 AS form
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- Caption = "Form1"
- DoCreate = .T.
- Height = 79
- Left = 0
- Name = "Form1"
- Top = 0
- Width = 394
-
- PROCEDURE Click
- LPARAMETERS p1, p2, p3
- ENDPROC
-
- PROCEDURE Load
- LPARAMETERS p1, p2, p3
- ENDPROC
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_optiongroup.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_optiongroup.dataenvironment.sc2
new file mode 100644
index 0000000..67a63e4
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_optiongroup.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_optiongroup.f_optiongroup_test.sc2 b/TESTS/DATOS_READONLY/f_optiongroup.f_optiongroup_test.sc2
new file mode 100644
index 0000000..6fbf4bd
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_optiongroup.f_optiongroup_test.sc2
@@ -0,0 +1,1427 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_optiongroup_test AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_optiongroup2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Optiongroup2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_option1" UniqueID="" Timestamp="" />
+
+ *
+ BackColor = 192,192,192
+ Caption = "OptionGroup_Test"
+ c_testname = OptionGroup_Test
+ DoCreate = .T.
+ Height = 448
+ Left = 0
+ Name = "F_OptionGroup_Test"
+ Top = 0
+ Width = 819
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "OPTIONGROUP NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "OPTIONGROUP SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_option1' AS cl_option WITH ;
+ Alignment = 0, ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 128,255,255, ;
+ BackStyle = 1, ;
+ Caption = "La opción separada es larga también", ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 240,240,240, ;
+ DisabledForeColor = 109,109,109, ;
+ DisabledPicture = ..\..\, ;
+ DownPicture = ..\..\, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Height = 16, ;
+ HelpContextID = 0, ;
+ Left = 304, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_option1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ Picture = bmps\sobrepostal.bmp, ;
+ PictureMargin = 0, ;
+ PicturePosition = 4, ;
+ PictureSpacing = 0, ;
+ RightToLeft = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ Style = 0, ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (424), ;
+ Value = 1, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (220), ;
+ WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />
+
+ ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackStyle = 0, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ControlSource = "", ;
+ Height = 76, ;
+ Left = 296, ;
+ Name = "Cl_optiongroup1", ;
+ Top = 28, ;
+ Value = 2, ;
+ Width = 248, ;
+ Option1.Alignment = 0, ;
+ Option1.Anchor = 0, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 240,240,240, ;
+ Option1.Caption = "La Opción 1", ;
+ Option1.ColorScheme = 1, ;
+ Option1.ColorSource = 4, ;
+ Option1.Comment = "", ;
+ Option1.ControlSource = "", ;
+ Option1.DisabledBackColor = 240,240,240, ;
+ Option1.DisabledForeColor = 109,109,109, ;
+ Option1.DisabledPicture = ..\..\, ;
+ Option1.DownPicture = ..\..\, ;
+ Option1.DragIcon = ..\..\, ;
+ Option1.DragMode = 0, ;
+ Option1.Enabled = .T., ;
+ Option1.FontBold = .F., ;
+ Option1.FontCharSet = 0, ;
+ Option1.FontCondense = .F., ;
+ Option1.FontExtend = .F., ;
+ Option1.FontItalic = .F., ;
+ Option1.FontName = "Arial", ;
+ Option1.FontOutline = .F., ;
+ Option1.FontShadow = .F., ;
+ Option1.FontStrikethru = .F., ;
+ Option1.FontUnderline = .F., ;
+ Option1.ForeColor = 0,0,0, ;
+ Option1.Height = 17, ;
+ Option1.HelpContextID = 0, ;
+ Option1.Left = 8, ;
+ Option1.MouseIcon = ..\..\, ;
+ Option1.MousePointer = 0, ;
+ Option1.Name = "Option1", ;
+ Option1.OLEDragMode = 0, ;
+ Option1.OLEDragPicture = ..\..\, ;
+ Option1.OLEDropEffects = 3, ;
+ Option1.OLEDropMode = 0, ;
+ Option1.Picture = ..\..\, ;
+ Option1.PictureMargin = 0, ;
+ Option1.PicturePosition = 13, ;
+ Option1.PictureSpacing = 0, ;
+ Option1.RightToLeft = .F., ;
+ Option1.SpecialEffect = 0, ;
+ Option1.StatusBarText = "", ;
+ Option1.Style = 0, ;
+ Option1.TabStop = .T., ;
+ Option1.Tag = "", ;
+ Option1.TerminateRead = .F., ;
+ Option1.Themes = .T., ;
+ Option1.ToolTipText = "", ;
+ Option1.Top = 4, ;
+ Option1.Value = 0, ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 84, ;
+ Option1.WordWrap = .F., ;
+ Option2.Alignment = 0, ;
+ Option2.Anchor = 0, ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 240,240,240, ;
+ Option2.Caption = "La opción 2 es más larga", ;
+ Option2.ColorScheme = 1, ;
+ Option2.ColorSource = 4, ;
+ Option2.Comment = "", ;
+ Option2.ControlSource = "", ;
+ Option2.DisabledBackColor = 240,240,240, ;
+ Option2.DisabledForeColor = 109,109,109, ;
+ Option2.DisabledPicture = ..\..\, ;
+ Option2.DownPicture = ..\..\, ;
+ Option2.DragIcon = ..\..\, ;
+ Option2.DragMode = 0, ;
+ Option2.Enabled = .T., ;
+ Option2.FontBold = .F., ;
+ Option2.FontCharSet = 0, ;
+ Option2.FontCondense = .F., ;
+ Option2.FontExtend = .F., ;
+ Option2.FontItalic = .F., ;
+ Option2.FontName = "Arial", ;
+ Option2.FontOutline = .F., ;
+ Option2.FontShadow = .F., ;
+ Option2.FontStrikethru = .F., ;
+ Option2.FontUnderline = .F., ;
+ Option2.ForeColor = 0,0,0, ;
+ Option2.Height = 17, ;
+ Option2.HelpContextID = 0, ;
+ Option2.Left = 8, ;
+ Option2.MouseIcon = ..\..\, ;
+ Option2.MousePointer = 0, ;
+ Option2.Name = "Option2", ;
+ Option2.OLEDragMode = 0, ;
+ Option2.OLEDragPicture = ..\..\, ;
+ Option2.OLEDropEffects = 3, ;
+ Option2.OLEDropMode = 0, ;
+ Option2.Picture = ..\..\, ;
+ Option2.PictureMargin = 0, ;
+ Option2.PicturePosition = 13, ;
+ Option2.PictureSpacing = 0, ;
+ Option2.RightToLeft = .F., ;
+ Option2.SpecialEffect = 0, ;
+ Option2.StatusBarText = "", ;
+ Option2.Style = 0, ;
+ Option2.TabStop = .T., ;
+ Option2.Tag = "", ;
+ Option2.TerminateRead = .F., ;
+ Option2.Themes = .T., ;
+ Option2.ToolTipText = "", ;
+ Option2.Top = 28, ;
+ Option2.Value = 1, ;
+ Option2.WhatsThisHelpID = -1, ;
+ Option2.Width = 158, ;
+ Option2.WordWrap = .F., ;
+ Option3.Alignment = 0, ;
+ Option3.Anchor = 0, ;
+ Option3.BackColor = 128,255,128, ;
+ Option3.Caption = "La opción 3 es la más larga de todas", ;
+ Option3.ColorScheme = 1, ;
+ Option3.ColorSource = 4, ;
+ Option3.Comment = "", ;
+ Option3.ControlSource = "", ;
+ Option3.DisabledBackColor = 240,240,240, ;
+ Option3.DisabledForeColor = 109,109,109, ;
+ Option3.DisabledPicture = ..\..\, ;
+ Option3.DownPicture = ..\..\, ;
+ Option3.DragIcon = ..\..\, ;
+ Option3.DragMode = 0, ;
+ Option3.Enabled = .T., ;
+ Option3.FontBold = .F., ;
+ Option3.FontCharSet = 0, ;
+ Option3.FontCondense = .F., ;
+ Option3.FontExtend = .F., ;
+ Option3.FontItalic = .F., ;
+ Option3.FontName = "Arial", ;
+ Option3.FontOutline = .F., ;
+ Option3.FontShadow = .F., ;
+ Option3.FontStrikethru = .F., ;
+ Option3.FontUnderline = .F., ;
+ Option3.ForeColor = 0,0,0, ;
+ Option3.Height = 17, ;
+ Option3.HelpContextID = 0, ;
+ Option3.Left = 8, ;
+ Option3.MouseIcon = ..\..\, ;
+ Option3.MousePointer = 0, ;
+ Option3.Name = "Option3", ;
+ Option3.OLEDragMode = 0, ;
+ Option3.OLEDragPicture = ..\..\, ;
+ Option3.OLEDropEffects = 3, ;
+ Option3.OLEDropMode = 0, ;
+ Option3.Picture = ..\..\, ;
+ Option3.PictureMargin = 0, ;
+ Option3.PicturePosition = 13, ;
+ Option3.PictureSpacing = 0, ;
+ Option3.RightToLeft = .F., ;
+ Option3.SpecialEffect = 0, ;
+ Option3.StatusBarText = "", ;
+ Option3.Style = 0, ;
+ Option3.TabStop = .T., ;
+ Option3.Tag = "", ;
+ Option3.TerminateRead = .F., ;
+ Option3.Themes = .T., ;
+ Option3.ToolTipText = "", ;
+ Option3.Top = 52, ;
+ Option3.Value = 0, ;
+ Option3.WhatsThisHelpID = -1, ;
+ Option3.Width = 222, ;
+ Option3.WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'Cl_optiongroup2' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ControlSource = "", ;
+ Height = 76, ;
+ Left = 296, ;
+ Name = "Cl_optiongroup2", ;
+ Top = 112, ;
+ Value = 2, ;
+ Width = 248, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 240,240,240, ;
+ Option1.Caption = "La Opción 1", ;
+ Option1.FontBold = .F., ;
+ Option1.Height = 27, ;
+ Option1.Left = 8, ;
+ Option1.Name = "Option1", ;
+ Option1.SpecialEffect = 0, ;
+ Option1.Style = 1, ;
+ Option1.Top = 4, ;
+ Option1.Value = 0, ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 84, ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 240,240,240, ;
+ Option2.Caption = "La opción 2 es más larga", ;
+ Option2.FontBold = .F., ;
+ Option2.Height = 27, ;
+ Option2.Left = 8, ;
+ Option2.Name = "Option2", ;
+ Option2.SpecialEffect = 0, ;
+ Option2.Style = 1, ;
+ Option2.Top = 28, ;
+ Option2.Value = 1, ;
+ Option2.WhatsThisHelpID = -1, ;
+ Option2.Width = 158, ;
+ Option3.AutoSize = .F., ;
+ Option3.BackColor = 128,255,128, ;
+ Option3.Caption = "La opción 3 es la más larga de todas", ;
+ Option3.FontBold = .F., ;
+ Option3.Height = 21, ;
+ Option3.Left = 8, ;
+ Option3.Name = "Option3", ;
+ Option3.SpecialEffect = 0, ;
+ Option3.Style = 1, ;
+ Option3.Top = 52, ;
+ Option3.WhatsThisHelpID = -1, ;
+ Option3.Width = 222
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (76), ;
+ HelpContextID = 0, ;
+ Left = (24), ;
+ MemberClass = "cl_option", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Optiongroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (24), ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (248), ;
+ Cl_option1.Alignment = 0, ;
+ Cl_option1.Anchor = 0, ;
+ Cl_option1.AutoSize = .F., ;
+ Cl_option1.BackColor = 240,240,240, ;
+ Cl_option1.BackStyle = 1, ;
+ Cl_option1.Caption = "La opción 1", ;
+ Cl_option1.ColorScheme = 1, ;
+ Cl_option1.ColorSource = 4, ;
+ Cl_option1.Comment = "", ;
+ Cl_option1.ControlSource = "", ;
+ Cl_option1.DisabledBackColor = 0,128,192, ;
+ Cl_option1.DisabledForeColor = 128,0,255, ;
+ Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option1.DownPicture = ..\..\, ;
+ Cl_option1.DragIcon = ..\..\, ;
+ Cl_option1.DragMode = 0, ;
+ Cl_option1.Enabled = .T., ;
+ Cl_option1.FontBold = .F., ;
+ Cl_option1.FontCharSet = 0, ;
+ Cl_option1.FontCondense = .F., ;
+ Cl_option1.FontExtend = .F., ;
+ Cl_option1.FontItalic = .F., ;
+ Cl_option1.FontName = "Arial", ;
+ Cl_option1.FontOutline = .F., ;
+ Cl_option1.FontShadow = .F., ;
+ Cl_option1.FontSize = 8, ;
+ Cl_option1.FontStrikethru = .F., ;
+ Cl_option1.FontUnderline = .F., ;
+ Cl_option1.ForeColor = 0,0,0, ;
+ Cl_option1.Height = 16, ;
+ Cl_option1.HelpContextID = 0, ;
+ Cl_option1.Left = 16, ;
+ Cl_option1.MouseIcon = ..\..\, ;
+ Cl_option1.MousePointer = 0, ;
+ Cl_option1.Name = "Cl_option1", ;
+ Cl_option1.OLEDragMode = 0, ;
+ Cl_option1.OLEDragPicture = ..\..\, ;
+ Cl_option1.OLEDropEffects = 3, ;
+ Cl_option1.OLEDropMode = 0, ;
+ Cl_option1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option1.PictureMargin = 0, ;
+ Cl_option1.PicturePosition = 4, ;
+ Cl_option1.PictureSpacing = 0, ;
+ Cl_option1.RightToLeft = .F., ;
+ Cl_option1.SpecialEffect = 0, ;
+ Cl_option1.StatusBarText = "", ;
+ Cl_option1.Style = 0, ;
+ Cl_option1.TabStop = .T., ;
+ Cl_option1.Tag = "", ;
+ Cl_option1.TerminateRead = .F., ;
+ Cl_option1.Themes = .T., ;
+ Cl_option1.ToolTipText = "", ;
+ Cl_option1.Top = 4, ;
+ Cl_option1.Visible = .T., ;
+ Cl_option1.WhatsThisHelpID = -1, ;
+ Cl_option1.Width = 74, ;
+ Cl_option1.WordWrap = .F., ;
+ Cl_option2.Alignment = 0, ;
+ Cl_option2.Anchor = 0, ;
+ Cl_option2.BackColor = 240,240,240, ;
+ Cl_option2.BackStyle = 1, ;
+ Cl_option2.Caption = "La opción 2 es más larga", ;
+ Cl_option2.ColorScheme = 1, ;
+ Cl_option2.ColorSource = 4, ;
+ Cl_option2.Comment = "", ;
+ Cl_option2.ControlSource = "", ;
+ Cl_option2.DisabledBackColor = 0,128,192, ;
+ Cl_option2.DisabledForeColor = 128,0,255, ;
+ Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option2.DownPicture = ..\..\, ;
+ Cl_option2.DragIcon = ..\..\, ;
+ Cl_option2.DragMode = 0, ;
+ Cl_option2.Enabled = .T., ;
+ Cl_option2.FontBold = .F., ;
+ Cl_option2.FontCharSet = 0, ;
+ Cl_option2.FontCondense = .F., ;
+ Cl_option2.FontExtend = .F., ;
+ Cl_option2.FontItalic = .F., ;
+ Cl_option2.FontName = "Arial", ;
+ Cl_option2.FontOutline = .F., ;
+ Cl_option2.FontShadow = .F., ;
+ Cl_option2.FontSize = 8, ;
+ Cl_option2.FontStrikethru = .F., ;
+ Cl_option2.FontUnderline = .F., ;
+ Cl_option2.ForeColor = 0,0,0, ;
+ Cl_option2.HelpContextID = 0, ;
+ Cl_option2.Left = 16, ;
+ Cl_option2.MouseIcon = ..\..\, ;
+ Cl_option2.MousePointer = 0, ;
+ Cl_option2.Name = "Cl_option2", ;
+ Cl_option2.OLEDragMode = 0, ;
+ Cl_option2.OLEDragPicture = ..\..\, ;
+ Cl_option2.OLEDropEffects = 3, ;
+ Cl_option2.OLEDropMode = 0, ;
+ Cl_option2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option2.PictureMargin = 0, ;
+ Cl_option2.PicturePosition = 4, ;
+ Cl_option2.PictureSpacing = 0, ;
+ Cl_option2.RightToLeft = .F., ;
+ Cl_option2.SpecialEffect = 0, ;
+ Cl_option2.StatusBarText = "", ;
+ Cl_option2.Style = 0, ;
+ Cl_option2.TabStop = .T., ;
+ Cl_option2.Tag = "", ;
+ Cl_option2.TerminateRead = .F., ;
+ Cl_option2.Themes = .T., ;
+ Cl_option2.ToolTipText = "", ;
+ Cl_option2.Top = 28, ;
+ Cl_option2.Value = 1, ;
+ Cl_option2.Visible = .T., ;
+ Cl_option2.WhatsThisHelpID = -1, ;
+ Cl_option2.WordWrap = .F., ;
+ Cl_option3.Alignment = 0, ;
+ Cl_option3.Anchor = 0, ;
+ Cl_option3.AutoSize = .F., ;
+ Cl_option3.BackColor = 240,240,240, ;
+ Cl_option3.BackStyle = 1, ;
+ Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
+ Cl_option3.ColorScheme = 1, ;
+ Cl_option3.ColorSource = 4, ;
+ Cl_option3.Comment = "", ;
+ Cl_option3.ControlSource = "", ;
+ Cl_option3.DefWidth = , ;
+ Cl_option3.DisabledBackColor = 213,233,255, ;
+ Cl_option3.DisabledForeColor = 128,0,255, ;
+ Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option3.DownPicture = ..\..\, ;
+ Cl_option3.DragIcon = ..\..\, ;
+ Cl_option3.DragMode = 0, ;
+ Cl_option3.Enabled = .F., ;
+ Cl_option3.FontBold = .F., ;
+ Cl_option3.FontCharSet = 0, ;
+ Cl_option3.FontCondense = .F., ;
+ Cl_option3.FontExtend = .F., ;
+ Cl_option3.FontItalic = .F., ;
+ Cl_option3.FontName = "Arial", ;
+ Cl_option3.FontOutline = .F., ;
+ Cl_option3.FontShadow = .F., ;
+ Cl_option3.FontSize = 8, ;
+ Cl_option3.FontStrikethru = .F., ;
+ Cl_option3.FontUnderline = .F., ;
+ Cl_option3.ForeColor = 0,0,0, ;
+ Cl_option3.HelpContextID = 0, ;
+ Cl_option3.Left = 16, ;
+ Cl_option3.MouseIcon = ..\..\, ;
+ Cl_option3.MousePointer = 0, ;
+ Cl_option3.Name = "Cl_option3", ;
+ Cl_option3.OLEDragMode = 0, ;
+ Cl_option3.OLEDragPicture = ..\..\, ;
+ Cl_option3.OLEDropEffects = 3, ;
+ Cl_option3.OLEDropMode = 0, ;
+ Cl_option3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option3.PictureMargin = 0, ;
+ Cl_option3.PicturePosition = 4, ;
+ Cl_option3.PictureSpacing = 0, ;
+ Cl_option3.RightToLeft = .F., ;
+ Cl_option3.SpecialEffect = 0, ;
+ Cl_option3.StatusBarText = "", ;
+ Cl_option3.Style = 0, ;
+ Cl_option3.TabStop = .T., ;
+ Cl_option3.Tag = "", ;
+ Cl_option3.TerminateRead = .F., ;
+ Cl_option3.Themes = .T., ;
+ Cl_option3.ToolTipText = "", ;
+ Cl_option3.Top = 52, ;
+ Cl_option3.Visible = .T., ;
+ Cl_option3.WhatsThisHelpID = -1, ;
+ Cl_option3.Width = (195), ;
+ Cl_option3.WordWrap = .F.
+ *< END OBJECT: BaseClass="optiongroup" />
+
+ ADD OBJECT 'Optiongroup2' AS optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 24, ;
+ MemberClass = "cl_option", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MousePointer = 0, ;
+ Name = "Optiongroup2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 112, ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 248, ;
+ Cl_option1.Alignment = 0, ;
+ Cl_option1.Anchor = 0, ;
+ Cl_option1.AutoSize = .F., ;
+ Cl_option1.BackColor = 240,240,240, ;
+ Cl_option1.BackStyle = 1, ;
+ Cl_option1.Caption = "La opción 1", ;
+ Cl_option1.ColorScheme = 1, ;
+ Cl_option1.ColorSource = 4, ;
+ Cl_option1.Comment = "", ;
+ Cl_option1.ControlSource = "", ;
+ Cl_option1.DisabledBackColor = 0,128,192, ;
+ Cl_option1.DisabledForeColor = 128,0,255, ;
+ Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option1.DownPicture = ..\..\, ;
+ Cl_option1.DragIcon = ..\..\, ;
+ Cl_option1.DragMode = 0, ;
+ Cl_option1.Enabled = .T., ;
+ Cl_option1.FontBold = .F., ;
+ Cl_option1.FontCharSet = 0, ;
+ Cl_option1.FontCondense = .F., ;
+ Cl_option1.FontExtend = .F., ;
+ Cl_option1.FontItalic = .F., ;
+ Cl_option1.FontName = "Arial", ;
+ Cl_option1.FontOutline = .F., ;
+ Cl_option1.FontShadow = .F., ;
+ Cl_option1.FontSize = 8, ;
+ Cl_option1.FontStrikethru = .F., ;
+ Cl_option1.FontUnderline = .F., ;
+ Cl_option1.ForeColor = 0,0,0, ;
+ Cl_option1.Height = 42, ;
+ Cl_option1.HelpContextID = 0, ;
+ Cl_option1.Left = 16, ;
+ Cl_option1.MouseIcon = ..\..\, ;
+ Cl_option1.MousePointer = 0, ;
+ Cl_option1.Name = "Cl_option1", ;
+ Cl_option1.OLEDragMode = 0, ;
+ Cl_option1.OLEDragPicture = ..\..\, ;
+ Cl_option1.OLEDropEffects = 3, ;
+ Cl_option1.OLEDropMode = 0, ;
+ Cl_option1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option1.PictureMargin = 0, ;
+ Cl_option1.PicturePosition = 4, ;
+ Cl_option1.PictureSpacing = 0, ;
+ Cl_option1.RightToLeft = .F., ;
+ Cl_option1.SpecialEffect = 0, ;
+ Cl_option1.StatusBarText = "", ;
+ Cl_option1.Style = 1, ;
+ Cl_option1.TabStop = .T., ;
+ Cl_option1.Tag = "", ;
+ Cl_option1.TerminateRead = .F., ;
+ Cl_option1.Themes = .T., ;
+ Cl_option1.ToolTipText = "", ;
+ Cl_option1.Top = 4, ;
+ Cl_option1.Visible = .T., ;
+ Cl_option1.WhatsThisHelpID = -1, ;
+ Cl_option1.Width = 88, ;
+ Cl_option1.WordWrap = .F., ;
+ Cl_option2.Alignment = 0, ;
+ Cl_option2.Anchor = 0, ;
+ Cl_option2.BackColor = 240,240,240, ;
+ Cl_option2.BackStyle = 1, ;
+ Cl_option2.Caption = "La opción 2 es más larga", ;
+ Cl_option2.ColorScheme = 1, ;
+ Cl_option2.ColorSource = 4, ;
+ Cl_option2.Comment = "", ;
+ Cl_option2.ControlSource = "", ;
+ Cl_option2.DefHeight = , ;
+ Cl_option2.DisabledBackColor = 0,128,192, ;
+ Cl_option2.DisabledForeColor = 128,0,255, ;
+ Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option2.DownPicture = ..\..\, ;
+ Cl_option2.DragIcon = ..\..\, ;
+ Cl_option2.DragMode = 0, ;
+ Cl_option2.Enabled = .T., ;
+ Cl_option2.FontBold = .F., ;
+ Cl_option2.FontCharSet = 0, ;
+ Cl_option2.FontCondense = .F., ;
+ Cl_option2.FontExtend = .F., ;
+ Cl_option2.FontItalic = .F., ;
+ Cl_option2.FontName = "Arial", ;
+ Cl_option2.FontOutline = .F., ;
+ Cl_option2.FontShadow = .F., ;
+ Cl_option2.FontSize = 8, ;
+ Cl_option2.FontStrikethru = .F., ;
+ Cl_option2.FontUnderline = .F., ;
+ Cl_option2.ForeColor = 0,0,0, ;
+ Cl_option2.Height = (21), ;
+ Cl_option2.HelpContextID = 0, ;
+ Cl_option2.Left = 16, ;
+ Cl_option2.MouseIcon = ..\..\, ;
+ Cl_option2.MousePointer = 0, ;
+ Cl_option2.Name = "Cl_option2", ;
+ Cl_option2.OLEDragMode = 0, ;
+ Cl_option2.OLEDragPicture = ..\..\, ;
+ Cl_option2.OLEDropEffects = 3, ;
+ Cl_option2.OLEDropMode = 0, ;
+ Cl_option2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option2.PictureMargin = 0, ;
+ Cl_option2.PicturePosition = 4, ;
+ Cl_option2.PictureSpacing = 0, ;
+ Cl_option2.RightToLeft = .F., ;
+ Cl_option2.SpecialEffect = 0, ;
+ Cl_option2.StatusBarText = "", ;
+ Cl_option2.Style = 1, ;
+ Cl_option2.TabStop = .T., ;
+ Cl_option2.Tag = "", ;
+ Cl_option2.TerminateRead = .F., ;
+ Cl_option2.Themes = .T., ;
+ Cl_option2.ToolTipText = "", ;
+ Cl_option2.Top = 28, ;
+ Cl_option2.Value = 1, ;
+ Cl_option2.Visible = .T., ;
+ Cl_option2.WhatsThisHelpID = -1, ;
+ Cl_option2.WordWrap = .F., ;
+ Cl_option3.Alignment = 0, ;
+ Cl_option3.Anchor = 0, ;
+ Cl_option3.AutoSize = .F., ;
+ Cl_option3.BackColor = 240,240,240, ;
+ Cl_option3.BackStyle = 1, ;
+ Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
+ Cl_option3.ColorScheme = 1, ;
+ Cl_option3.ColorSource = 4, ;
+ Cl_option3.Comment = "", ;
+ Cl_option3.ControlSource = "", ;
+ Cl_option3.DefHeight = , ;
+ Cl_option3.DisabledBackColor = 0,128,192, ;
+ Cl_option3.DisabledForeColor = 128,0,255, ;
+ Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option3.DownPicture = ..\..\, ;
+ Cl_option3.DragIcon = ..\..\, ;
+ Cl_option3.DragMode = 0, ;
+ Cl_option3.Enabled = .F., ;
+ Cl_option3.FontBold = .F., ;
+ Cl_option3.FontCharSet = 0, ;
+ Cl_option3.FontCondense = .F., ;
+ Cl_option3.FontExtend = .F., ;
+ Cl_option3.FontItalic = .F., ;
+ Cl_option3.FontName = "Arial", ;
+ Cl_option3.FontOutline = .F., ;
+ Cl_option3.FontShadow = .F., ;
+ Cl_option3.FontSize = 8, ;
+ Cl_option3.FontStrikethru = .F., ;
+ Cl_option3.FontUnderline = .F., ;
+ Cl_option3.ForeColor = 0,0,0, ;
+ Cl_option3.Height = (21), ;
+ Cl_option3.HelpContextID = 0, ;
+ Cl_option3.Left = 16, ;
+ Cl_option3.MouseIcon = ..\..\, ;
+ Cl_option3.MousePointer = 0, ;
+ Cl_option3.Name = "Cl_option3", ;
+ Cl_option3.OLEDragMode = 0, ;
+ Cl_option3.OLEDragPicture = ..\..\, ;
+ Cl_option3.OLEDropEffects = 3, ;
+ Cl_option3.OLEDropMode = 0, ;
+ Cl_option3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option3.PictureMargin = 0, ;
+ Cl_option3.PicturePosition = 4, ;
+ Cl_option3.PictureSpacing = 0, ;
+ Cl_option3.RightToLeft = .F., ;
+ Cl_option3.SpecialEffect = 0, ;
+ Cl_option3.StatusBarText = "", ;
+ Cl_option3.Style = 1, ;
+ Cl_option3.TabStop = .T., ;
+ Cl_option3.Tag = "", ;
+ Cl_option3.TerminateRead = .F., ;
+ Cl_option3.Themes = .T., ;
+ Cl_option3.ToolTipText = "", ;
+ Cl_option3.Top = 52, ;
+ Cl_option3.Visible = .T., ;
+ Cl_option3.WhatsThisHelpID = -1, ;
+ Cl_option3.Width = 209, ;
+ Cl_option3.WordWrap = .F.
+ *< END OBJECT: BaseClass="optiongroup" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 224, ;
+ Left = 8, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ Top = 196, ;
+ Width = 553, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackStyle = 0, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ControlSource = "", ;
+ Height = 76, ;
+ Left = 287, ;
+ Name = "Cl_optiongroup1", ;
+ Top = 12, ;
+ Value = 2, ;
+ Width = 248, ;
+ Option1.Alignment = 0, ;
+ Option1.Anchor = 0, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 240,240,240, ;
+ Option1.Caption = "La Opción 1", ;
+ Option1.ColorScheme = 1, ;
+ Option1.ColorSource = 4, ;
+ Option1.Comment = "", ;
+ Option1.ControlSource = "", ;
+ Option1.DisabledBackColor = 240,240,240, ;
+ Option1.DisabledForeColor = 109,109,109, ;
+ Option1.DisabledPicture = ..\..\, ;
+ Option1.DownPicture = ..\..\, ;
+ Option1.DragIcon = ..\..\, ;
+ Option1.DragMode = 0, ;
+ Option1.Enabled = .T., ;
+ Option1.FontBold = .F., ;
+ Option1.FontCharSet = 0, ;
+ Option1.FontCondense = .F., ;
+ Option1.FontExtend = .F., ;
+ Option1.FontItalic = .F., ;
+ Option1.FontName = "Arial", ;
+ Option1.FontOutline = .F., ;
+ Option1.FontShadow = .F., ;
+ Option1.FontStrikethru = .F., ;
+ Option1.FontUnderline = .F., ;
+ Option1.ForeColor = 0,0,0, ;
+ Option1.Height = 17, ;
+ Option1.HelpContextID = 0, ;
+ Option1.Left = 8, ;
+ Option1.MouseIcon = ..\..\, ;
+ Option1.MousePointer = 0, ;
+ Option1.Name = "Option1", ;
+ Option1.OLEDragMode = 0, ;
+ Option1.OLEDragPicture = ..\..\, ;
+ Option1.OLEDropEffects = 3, ;
+ Option1.OLEDropMode = 0, ;
+ Option1.Picture = ..\..\, ;
+ Option1.PictureMargin = 0, ;
+ Option1.PicturePosition = 13, ;
+ Option1.PictureSpacing = 0, ;
+ Option1.RightToLeft = .F., ;
+ Option1.SpecialEffect = 0, ;
+ Option1.StatusBarText = "", ;
+ Option1.Style = 0, ;
+ Option1.TabStop = .T., ;
+ Option1.Tag = "", ;
+ Option1.TerminateRead = .F., ;
+ Option1.Themes = .T., ;
+ Option1.ToolTipText = "", ;
+ Option1.Top = 4, ;
+ Option1.Value = 0, ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 84, ;
+ Option1.WordWrap = .F., ;
+ Option2.Alignment = 0, ;
+ Option2.Anchor = 0, ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 240,240,240, ;
+ Option2.Caption = "La opción 2 es más larga", ;
+ Option2.ColorScheme = 1, ;
+ Option2.ColorSource = 4, ;
+ Option2.Comment = "", ;
+ Option2.ControlSource = "", ;
+ Option2.DisabledBackColor = 240,240,240, ;
+ Option2.DisabledForeColor = 109,109,109, ;
+ Option2.DisabledPicture = ..\..\, ;
+ Option2.DownPicture = ..\..\, ;
+ Option2.DragIcon = ..\..\, ;
+ Option2.DragMode = 0, ;
+ Option2.Enabled = .T., ;
+ Option2.FontBold = .F., ;
+ Option2.FontCharSet = 0, ;
+ Option2.FontCondense = .F., ;
+ Option2.FontExtend = .F., ;
+ Option2.FontItalic = .F., ;
+ Option2.FontName = "Arial", ;
+ Option2.FontOutline = .F., ;
+ Option2.FontShadow = .F., ;
+ Option2.FontStrikethru = .F., ;
+ Option2.FontUnderline = .F., ;
+ Option2.ForeColor = 0,0,0, ;
+ Option2.Height = 17, ;
+ Option2.HelpContextID = 0, ;
+ Option2.Left = 8, ;
+ Option2.MouseIcon = ..\..\, ;
+ Option2.MousePointer = 0, ;
+ Option2.Name = "Option2", ;
+ Option2.OLEDragMode = 0, ;
+ Option2.OLEDragPicture = ..\..\, ;
+ Option2.OLEDropEffects = 3, ;
+ Option2.OLEDropMode = 0, ;
+ Option2.Picture = ..\..\, ;
+ Option2.PictureMargin = 0, ;
+ Option2.PicturePosition = 13, ;
+ Option2.PictureSpacing = 0, ;
+ Option2.RightToLeft = .F., ;
+ Option2.SpecialEffect = 0, ;
+ Option2.StatusBarText = "", ;
+ Option2.Style = 0, ;
+ Option2.TabStop = .T., ;
+ Option2.Tag = "", ;
+ Option2.TerminateRead = .F., ;
+ Option2.Themes = .T., ;
+ Option2.ToolTipText = "", ;
+ Option2.Top = 28, ;
+ Option2.Value = 1, ;
+ Option2.WhatsThisHelpID = -1, ;
+ Option2.Width = 158, ;
+ Option2.WordWrap = .F., ;
+ Option3.Alignment = 0, ;
+ Option3.Anchor = 0, ;
+ Option3.BackColor = 128,255,128, ;
+ Option3.Caption = "La opción 3 es la más larga de todas", ;
+ Option3.ColorScheme = 1, ;
+ Option3.ColorSource = 4, ;
+ Option3.Comment = "", ;
+ Option3.ControlSource = "", ;
+ Option3.DisabledBackColor = 240,240,240, ;
+ Option3.DisabledForeColor = 109,109,109, ;
+ Option3.DisabledPicture = ..\..\, ;
+ Option3.DownPicture = ..\..\, ;
+ Option3.DragIcon = ..\..\, ;
+ Option3.DragMode = 0, ;
+ Option3.Enabled = .T., ;
+ Option3.FontBold = .F., ;
+ Option3.FontCharSet = 0, ;
+ Option3.FontCondense = .F., ;
+ Option3.FontExtend = .F., ;
+ Option3.FontItalic = .F., ;
+ Option3.FontName = "Arial", ;
+ Option3.FontOutline = .F., ;
+ Option3.FontShadow = .F., ;
+ Option3.FontStrikethru = .F., ;
+ Option3.FontUnderline = .F., ;
+ Option3.ForeColor = 0,0,0, ;
+ Option3.Height = 17, ;
+ Option3.HelpContextID = 0, ;
+ Option3.Left = 8, ;
+ Option3.MouseIcon = ..\..\, ;
+ Option3.MousePointer = 0, ;
+ Option3.Name = "Option3", ;
+ Option3.OLEDragMode = 0, ;
+ Option3.OLEDragPicture = ..\..\, ;
+ Option3.OLEDropEffects = 3, ;
+ Option3.OLEDropMode = 0, ;
+ Option3.Picture = ..\..\, ;
+ Option3.PictureMargin = 0, ;
+ Option3.PicturePosition = 13, ;
+ Option3.PictureSpacing = 0, ;
+ Option3.RightToLeft = .F., ;
+ Option3.SpecialEffect = 0, ;
+ Option3.StatusBarText = "", ;
+ Option3.Style = 0, ;
+ Option3.TabStop = .T., ;
+ Option3.Tag = "", ;
+ Option3.TerminateRead = .F., ;
+ Option3.Themes = .T., ;
+ Option3.ToolTipText = "", ;
+ Option3.Top = 52, ;
+ Option3.Value = 0, ;
+ Option3.WhatsThisHelpID = -1, ;
+ Option3.Width = 222, ;
+ Option3.WordWrap = .F.
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup2' AS cl_optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ControlSource = "", ;
+ Height = 76, ;
+ Left = 287, ;
+ Name = "Cl_optiongroup2", ;
+ Top = 96, ;
+ Value = 2, ;
+ Width = 248, ;
+ Option1.AutoSize = .F., ;
+ Option1.BackColor = 240,240,240, ;
+ Option1.Caption = "La Opción 1", ;
+ Option1.FontBold = .F., ;
+ Option1.Height = 27, ;
+ Option1.Left = 8, ;
+ Option1.Name = "Option1", ;
+ Option1.SpecialEffect = 0, ;
+ Option1.Style = 1, ;
+ Option1.Top = 4, ;
+ Option1.Value = 0, ;
+ Option1.WhatsThisHelpID = -1, ;
+ Option1.Width = 84, ;
+ Option2.AutoSize = .F., ;
+ Option2.BackColor = 240,240,240, ;
+ Option2.Caption = "La opción 2 es más larga", ;
+ Option2.FontBold = .F., ;
+ Option2.Height = 27, ;
+ Option2.Left = 8, ;
+ Option2.Name = "Option2", ;
+ Option2.SpecialEffect = 0, ;
+ Option2.Style = 1, ;
+ Option2.Top = 28, ;
+ Option2.Value = 1, ;
+ Option2.WhatsThisHelpID = -1, ;
+ Option2.Width = 158, ;
+ Option3.AutoSize = .F., ;
+ Option3.BackColor = 128,255,128, ;
+ Option3.Caption = "La opción 3 es la más larga de todas", ;
+ Option3.FontBold = .F., ;
+ Option3.Height = 21, ;
+ Option3.Left = 8, ;
+ Option3.Name = "Option3", ;
+ Option3.SpecialEffect = 0, ;
+ Option3.Style = 1, ;
+ Option3.Top = 52, ;
+ Option3.WhatsThisHelpID = -1, ;
+ Option3.Width = 222
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
+
+ ADD OBJECT 'Pageframe1.Page1.Optiongroup1' AS optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 0, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefWidth = , ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = (76), ;
+ HelpContextID = 0, ;
+ Left = 15, ;
+ MemberClass = "cl_option", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Optiongroup1", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 8, ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (248), ;
+ Cl_option1.Alignment = 0, ;
+ Cl_option1.Anchor = 0, ;
+ Cl_option1.AutoSize = .F., ;
+ Cl_option1.BackColor = 240,240,240, ;
+ Cl_option1.BackStyle = 1, ;
+ Cl_option1.Caption = "La opción 1", ;
+ Cl_option1.ColorScheme = 1, ;
+ Cl_option1.ColorSource = 4, ;
+ Cl_option1.Comment = "", ;
+ Cl_option1.ControlSource = "", ;
+ Cl_option1.DisabledBackColor = 0,128,192, ;
+ Cl_option1.DisabledForeColor = 128,0,255, ;
+ Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option1.DownPicture = ..\..\, ;
+ Cl_option1.DragIcon = ..\..\, ;
+ Cl_option1.DragMode = 0, ;
+ Cl_option1.Enabled = .T., ;
+ Cl_option1.FontBold = .F., ;
+ Cl_option1.FontCharSet = 0, ;
+ Cl_option1.FontCondense = .F., ;
+ Cl_option1.FontExtend = .F., ;
+ Cl_option1.FontItalic = .F., ;
+ Cl_option1.FontName = "Arial", ;
+ Cl_option1.FontOutline = .F., ;
+ Cl_option1.FontShadow = .F., ;
+ Cl_option1.FontSize = 8, ;
+ Cl_option1.FontStrikethru = .F., ;
+ Cl_option1.FontUnderline = .F., ;
+ Cl_option1.ForeColor = 0,0,0, ;
+ Cl_option1.Height = 16, ;
+ Cl_option1.HelpContextID = 0, ;
+ Cl_option1.Left = 16, ;
+ Cl_option1.MouseIcon = ..\..\, ;
+ Cl_option1.MousePointer = 0, ;
+ Cl_option1.Name = "Cl_option1", ;
+ Cl_option1.OLEDragMode = 0, ;
+ Cl_option1.OLEDragPicture = ..\..\, ;
+ Cl_option1.OLEDropEffects = 3, ;
+ Cl_option1.OLEDropMode = 0, ;
+ Cl_option1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option1.PictureMargin = 0, ;
+ Cl_option1.PicturePosition = 4, ;
+ Cl_option1.PictureSpacing = 0, ;
+ Cl_option1.RightToLeft = .F., ;
+ Cl_option1.SpecialEffect = 0, ;
+ Cl_option1.StatusBarText = "", ;
+ Cl_option1.Style = 0, ;
+ Cl_option1.TabStop = .T., ;
+ Cl_option1.Tag = "", ;
+ Cl_option1.TerminateRead = .F., ;
+ Cl_option1.Themes = .T., ;
+ Cl_option1.ToolTipText = "", ;
+ Cl_option1.Top = 4, ;
+ Cl_option1.Visible = .T., ;
+ Cl_option1.WhatsThisHelpID = -1, ;
+ Cl_option1.Width = 74, ;
+ Cl_option1.WordWrap = .F., ;
+ Cl_option2.Alignment = 0, ;
+ Cl_option2.Anchor = 0, ;
+ Cl_option2.BackColor = 240,240,240, ;
+ Cl_option2.BackStyle = 1, ;
+ Cl_option2.Caption = "La opción 2 es más larga", ;
+ Cl_option2.ColorScheme = 1, ;
+ Cl_option2.ColorSource = 4, ;
+ Cl_option2.Comment = "", ;
+ Cl_option2.ControlSource = "", ;
+ Cl_option2.DisabledBackColor = 0,128,192, ;
+ Cl_option2.DisabledForeColor = 128,0,255, ;
+ Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option2.DownPicture = ..\..\, ;
+ Cl_option2.DragIcon = ..\..\, ;
+ Cl_option2.DragMode = 0, ;
+ Cl_option2.Enabled = .T., ;
+ Cl_option2.FontBold = .F., ;
+ Cl_option2.FontCharSet = 0, ;
+ Cl_option2.FontCondense = .F., ;
+ Cl_option2.FontExtend = .F., ;
+ Cl_option2.FontItalic = .F., ;
+ Cl_option2.FontName = "Arial", ;
+ Cl_option2.FontOutline = .F., ;
+ Cl_option2.FontShadow = .F., ;
+ Cl_option2.FontSize = 8, ;
+ Cl_option2.FontStrikethru = .F., ;
+ Cl_option2.FontUnderline = .F., ;
+ Cl_option2.ForeColor = 0,0,0, ;
+ Cl_option2.HelpContextID = 0, ;
+ Cl_option2.Left = 16, ;
+ Cl_option2.MouseIcon = ..\..\, ;
+ Cl_option2.MousePointer = 0, ;
+ Cl_option2.Name = "Cl_option2", ;
+ Cl_option2.OLEDragMode = 0, ;
+ Cl_option2.OLEDragPicture = ..\..\, ;
+ Cl_option2.OLEDropEffects = 3, ;
+ Cl_option2.OLEDropMode = 0, ;
+ Cl_option2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option2.PictureMargin = 0, ;
+ Cl_option2.PicturePosition = 4, ;
+ Cl_option2.PictureSpacing = 0, ;
+ Cl_option2.RightToLeft = .F., ;
+ Cl_option2.SpecialEffect = 0, ;
+ Cl_option2.StatusBarText = "", ;
+ Cl_option2.Style = 0, ;
+ Cl_option2.TabStop = .T., ;
+ Cl_option2.Tag = "", ;
+ Cl_option2.TerminateRead = .F., ;
+ Cl_option2.Themes = .T., ;
+ Cl_option2.ToolTipText = "", ;
+ Cl_option2.Top = 28, ;
+ Cl_option2.Value = 1, ;
+ Cl_option2.Visible = .T., ;
+ Cl_option2.WhatsThisHelpID = -1, ;
+ Cl_option2.WordWrap = .F., ;
+ Cl_option3.Alignment = 0, ;
+ Cl_option3.Anchor = 0, ;
+ Cl_option3.AutoSize = .F., ;
+ Cl_option3.BackColor = 240,240,240, ;
+ Cl_option3.BackStyle = 1, ;
+ Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
+ Cl_option3.ColorScheme = 1, ;
+ Cl_option3.ColorSource = 4, ;
+ Cl_option3.Comment = "", ;
+ Cl_option3.ControlSource = "", ;
+ Cl_option3.DefWidth = , ;
+ Cl_option3.DisabledBackColor = 213,233,255, ;
+ Cl_option3.DisabledForeColor = 128,0,255, ;
+ Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option3.DownPicture = ..\..\, ;
+ Cl_option3.DragIcon = ..\..\, ;
+ Cl_option3.DragMode = 0, ;
+ Cl_option3.Enabled = .F., ;
+ Cl_option3.FontBold = .F., ;
+ Cl_option3.FontCharSet = 0, ;
+ Cl_option3.FontCondense = .F., ;
+ Cl_option3.FontExtend = .F., ;
+ Cl_option3.FontItalic = .F., ;
+ Cl_option3.FontName = "Arial", ;
+ Cl_option3.FontOutline = .F., ;
+ Cl_option3.FontShadow = .F., ;
+ Cl_option3.FontSize = 8, ;
+ Cl_option3.FontStrikethru = .F., ;
+ Cl_option3.FontUnderline = .F., ;
+ Cl_option3.ForeColor = 0,0,0, ;
+ Cl_option3.HelpContextID = 0, ;
+ Cl_option3.Left = 16, ;
+ Cl_option3.MouseIcon = ..\..\, ;
+ Cl_option3.MousePointer = 0, ;
+ Cl_option3.Name = "Cl_option3", ;
+ Cl_option3.OLEDragMode = 0, ;
+ Cl_option3.OLEDragPicture = ..\..\, ;
+ Cl_option3.OLEDropEffects = 3, ;
+ Cl_option3.OLEDropMode = 0, ;
+ Cl_option3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option3.PictureMargin = 0, ;
+ Cl_option3.PicturePosition = 4, ;
+ Cl_option3.PictureSpacing = 0, ;
+ Cl_option3.RightToLeft = .F., ;
+ Cl_option3.SpecialEffect = 0, ;
+ Cl_option3.StatusBarText = "", ;
+ Cl_option3.Style = 0, ;
+ Cl_option3.TabStop = .T., ;
+ Cl_option3.Tag = "", ;
+ Cl_option3.TerminateRead = .F., ;
+ Cl_option3.Themes = .T., ;
+ Cl_option3.ToolTipText = "", ;
+ Cl_option3.Top = 52, ;
+ Cl_option3.Visible = .T., ;
+ Cl_option3.WhatsThisHelpID = -1, ;
+ Cl_option3.Width = (195), ;
+ Cl_option3.WordWrap = .F.
+ *< END OBJECT: BaseClass="optiongroup" />
+
+ ADD OBJECT 'Pageframe1.Page1.Optiongroup2' AS optiongroup WITH ;
+ Anchor = 0, ;
+ AutoSize = .F., ;
+ BackColor = 240,240,240, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ButtonCount = 3, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ Height = 76, ;
+ HelpContextID = 0, ;
+ Left = 15, ;
+ MemberClass = "cl_option", ;
+ MemberClassLibrary = lib_controles.vcx, ;
+ MousePointer = 0, ;
+ Name = "Optiongroup2", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 1, ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 96, ;
+ Value = 2, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 248, ;
+ Cl_option1.Alignment = 0, ;
+ Cl_option1.Anchor = 0, ;
+ Cl_option1.AutoSize = .F., ;
+ Cl_option1.BackColor = 240,240,240, ;
+ Cl_option1.BackStyle = 1, ;
+ Cl_option1.Caption = "La opción 1", ;
+ Cl_option1.ColorScheme = 1, ;
+ Cl_option1.ColorSource = 4, ;
+ Cl_option1.Comment = "", ;
+ Cl_option1.ControlSource = "", ;
+ Cl_option1.DisabledBackColor = 0,128,192, ;
+ Cl_option1.DisabledForeColor = 128,0,255, ;
+ Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option1.DownPicture = ..\..\, ;
+ Cl_option1.DragIcon = ..\..\, ;
+ Cl_option1.DragMode = 0, ;
+ Cl_option1.Enabled = .T., ;
+ Cl_option1.FontBold = .F., ;
+ Cl_option1.FontCharSet = 0, ;
+ Cl_option1.FontCondense = .F., ;
+ Cl_option1.FontExtend = .F., ;
+ Cl_option1.FontItalic = .F., ;
+ Cl_option1.FontName = "Arial", ;
+ Cl_option1.FontOutline = .F., ;
+ Cl_option1.FontShadow = .F., ;
+ Cl_option1.FontSize = 8, ;
+ Cl_option1.FontStrikethru = .F., ;
+ Cl_option1.FontUnderline = .F., ;
+ Cl_option1.ForeColor = 0,0,0, ;
+ Cl_option1.Height = 42, ;
+ Cl_option1.HelpContextID = 0, ;
+ Cl_option1.Left = 16, ;
+ Cl_option1.MouseIcon = ..\..\, ;
+ Cl_option1.MousePointer = 0, ;
+ Cl_option1.Name = "Cl_option1", ;
+ Cl_option1.OLEDragMode = 0, ;
+ Cl_option1.OLEDragPicture = ..\..\, ;
+ Cl_option1.OLEDropEffects = 3, ;
+ Cl_option1.OLEDropMode = 0, ;
+ Cl_option1.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option1.PictureMargin = 0, ;
+ Cl_option1.PicturePosition = 4, ;
+ Cl_option1.PictureSpacing = 0, ;
+ Cl_option1.RightToLeft = .F., ;
+ Cl_option1.SpecialEffect = 0, ;
+ Cl_option1.StatusBarText = "", ;
+ Cl_option1.Style = 1, ;
+ Cl_option1.TabStop = .T., ;
+ Cl_option1.Tag = "", ;
+ Cl_option1.TerminateRead = .F., ;
+ Cl_option1.Themes = .T., ;
+ Cl_option1.ToolTipText = "", ;
+ Cl_option1.Top = 4, ;
+ Cl_option1.Visible = .T., ;
+ Cl_option1.WhatsThisHelpID = -1, ;
+ Cl_option1.Width = 88, ;
+ Cl_option1.WordWrap = .F., ;
+ Cl_option2.Alignment = 0, ;
+ Cl_option2.Anchor = 0, ;
+ Cl_option2.BackColor = 240,240,240, ;
+ Cl_option2.BackStyle = 1, ;
+ Cl_option2.Caption = "La opción 2 es más larga", ;
+ Cl_option2.ColorScheme = 1, ;
+ Cl_option2.ColorSource = 4, ;
+ Cl_option2.Comment = "", ;
+ Cl_option2.ControlSource = "", ;
+ Cl_option2.DefHeight = , ;
+ Cl_option2.DisabledBackColor = 0,128,192, ;
+ Cl_option2.DisabledForeColor = 128,0,255, ;
+ Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option2.DownPicture = ..\..\, ;
+ Cl_option2.DragIcon = ..\..\, ;
+ Cl_option2.DragMode = 0, ;
+ Cl_option2.Enabled = .T., ;
+ Cl_option2.FontBold = .F., ;
+ Cl_option2.FontCharSet = 0, ;
+ Cl_option2.FontCondense = .F., ;
+ Cl_option2.FontExtend = .F., ;
+ Cl_option2.FontItalic = .F., ;
+ Cl_option2.FontName = "Arial", ;
+ Cl_option2.FontOutline = .F., ;
+ Cl_option2.FontShadow = .F., ;
+ Cl_option2.FontSize = 8, ;
+ Cl_option2.FontStrikethru = .F., ;
+ Cl_option2.FontUnderline = .F., ;
+ Cl_option2.ForeColor = 0,0,0, ;
+ Cl_option2.Height = (21), ;
+ Cl_option2.HelpContextID = 0, ;
+ Cl_option2.Left = 16, ;
+ Cl_option2.MouseIcon = ..\..\, ;
+ Cl_option2.MousePointer = 0, ;
+ Cl_option2.Name = "Cl_option2", ;
+ Cl_option2.OLEDragMode = 0, ;
+ Cl_option2.OLEDragPicture = ..\..\, ;
+ Cl_option2.OLEDropEffects = 3, ;
+ Cl_option2.OLEDropMode = 0, ;
+ Cl_option2.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option2.PictureMargin = 0, ;
+ Cl_option2.PicturePosition = 4, ;
+ Cl_option2.PictureSpacing = 0, ;
+ Cl_option2.RightToLeft = .F., ;
+ Cl_option2.SpecialEffect = 0, ;
+ Cl_option2.StatusBarText = "", ;
+ Cl_option2.Style = 1, ;
+ Cl_option2.TabStop = .T., ;
+ Cl_option2.Tag = "", ;
+ Cl_option2.TerminateRead = .F., ;
+ Cl_option2.Themes = .T., ;
+ Cl_option2.ToolTipText = "", ;
+ Cl_option2.Top = 28, ;
+ Cl_option2.Value = 1, ;
+ Cl_option2.Visible = .T., ;
+ Cl_option2.WhatsThisHelpID = -1, ;
+ Cl_option2.WordWrap = .F., ;
+ Cl_option3.Alignment = 0, ;
+ Cl_option3.Anchor = 0, ;
+ Cl_option3.AutoSize = .F., ;
+ Cl_option3.BackColor = 240,240,240, ;
+ Cl_option3.BackStyle = 1, ;
+ Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
+ Cl_option3.ColorScheme = 1, ;
+ Cl_option3.ColorSource = 4, ;
+ Cl_option3.Comment = "", ;
+ Cl_option3.ControlSource = "", ;
+ Cl_option3.DefHeight = , ;
+ Cl_option3.DisabledBackColor = 0,128,192, ;
+ Cl_option3.DisabledForeColor = 128,0,255, ;
+ Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
+ Cl_option3.DownPicture = ..\..\, ;
+ Cl_option3.DragIcon = ..\..\, ;
+ Cl_option3.DragMode = 0, ;
+ Cl_option3.Enabled = .F., ;
+ Cl_option3.FontBold = .F., ;
+ Cl_option3.FontCharSet = 0, ;
+ Cl_option3.FontCondense = .F., ;
+ Cl_option3.FontExtend = .F., ;
+ Cl_option3.FontItalic = .F., ;
+ Cl_option3.FontName = "Arial", ;
+ Cl_option3.FontOutline = .F., ;
+ Cl_option3.FontShadow = .F., ;
+ Cl_option3.FontSize = 8, ;
+ Cl_option3.FontStrikethru = .F., ;
+ Cl_option3.FontUnderline = .F., ;
+ Cl_option3.ForeColor = 0,0,0, ;
+ Cl_option3.Height = (21), ;
+ Cl_option3.HelpContextID = 0, ;
+ Cl_option3.Left = 16, ;
+ Cl_option3.MouseIcon = ..\..\, ;
+ Cl_option3.MousePointer = 0, ;
+ Cl_option3.Name = "Cl_option3", ;
+ Cl_option3.OLEDragMode = 0, ;
+ Cl_option3.OLEDragPicture = ..\..\, ;
+ Cl_option3.OLEDropEffects = 3, ;
+ Cl_option3.OLEDropMode = 0, ;
+ Cl_option3.Picture = bmps\sobrepostal.bmp, ;
+ Cl_option3.PictureMargin = 0, ;
+ Cl_option3.PicturePosition = 4, ;
+ Cl_option3.PictureSpacing = 0, ;
+ Cl_option3.RightToLeft = .F., ;
+ Cl_option3.SpecialEffect = 0, ;
+ Cl_option3.StatusBarText = "", ;
+ Cl_option3.Style = 1, ;
+ Cl_option3.TabStop = .T., ;
+ Cl_option3.Tag = "", ;
+ Cl_option3.TerminateRead = .F., ;
+ Cl_option3.Themes = .T., ;
+ Cl_option3.ToolTipText = "", ;
+ Cl_option3.Top = 52, ;
+ Cl_option3.Visible = .T., ;
+ Cl_option3.WhatsThisHelpID = -1, ;
+ Cl_option3.Width = 209, ;
+ Cl_option3.WordWrap = .F.
+ *< END OBJECT: BaseClass="optiongroup" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_optiongroup.sc2 b/TESTS/DATOS_READONLY/f_optiongroup.sc2
index fd558c1..7f657a5 100644
--- a/TESTS/DATOS_READONLY/f_optiongroup.sc2
+++ b/TESTS/DATOS_READONLY/f_optiongroup.sc2
@@ -4,1435 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_optiongroup_test" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_optiongroup_test AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_optiongroup2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Optiongroup2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_option1" UniqueID="" Timestamp="" />
-
- BackColor = 192,192,192
- Caption = "OptionGroup_Test"
- c_testname = OptionGroup_Test
- DoCreate = .T.
- Height = 448
- Left = 0
- Name = "F_OptionGroup_Test"
- Top = 0
- Width = 819
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "OPTIONGROUP NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "OPTIONGROUP SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_option1' AS cl_option WITH ;
- Alignment = 0, ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 128,255,255, ;
- BackStyle = 1, ;
- Caption = "La opción separada es larga también", ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 240,240,240, ;
- DisabledForeColor = 109,109,109, ;
- DisabledPicture = ..\..\, ;
- DownPicture = ..\..\, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Height = 16, ;
- HelpContextID = 0, ;
- Left = 304, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_option1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- Picture = bmps\sobrepostal.bmp, ;
- PictureMargin = 0, ;
- PicturePosition = 4, ;
- PictureSpacing = 0, ;
- RightToLeft = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- Style = 0, ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (424), ;
- Value = 1, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (220), ;
- WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" />
-
- ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackStyle = 0, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ControlSource = "", ;
- Height = 76, ;
- Left = 296, ;
- Name = "Cl_optiongroup1", ;
- Top = 28, ;
- Value = 2, ;
- Width = 248, ;
- Option1.Alignment = 0, ;
- Option1.Anchor = 0, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 240,240,240, ;
- Option1.Caption = "La Opción 1", ;
- Option1.ColorScheme = 1, ;
- Option1.ColorSource = 4, ;
- Option1.Comment = "", ;
- Option1.ControlSource = "", ;
- Option1.DisabledBackColor = 240,240,240, ;
- Option1.DisabledForeColor = 109,109,109, ;
- Option1.DisabledPicture = ..\..\, ;
- Option1.DownPicture = ..\..\, ;
- Option1.DragIcon = ..\..\, ;
- Option1.DragMode = 0, ;
- Option1.Enabled = .T., ;
- Option1.FontBold = .F., ;
- Option1.FontCharSet = 0, ;
- Option1.FontCondense = .F., ;
- Option1.FontExtend = .F., ;
- Option1.FontItalic = .F., ;
- Option1.FontName = "Arial", ;
- Option1.FontOutline = .F., ;
- Option1.FontShadow = .F., ;
- Option1.FontStrikethru = .F., ;
- Option1.FontUnderline = .F., ;
- Option1.ForeColor = 0,0,0, ;
- Option1.Height = 17, ;
- Option1.HelpContextID = 0, ;
- Option1.Left = 8, ;
- Option1.MouseIcon = ..\..\, ;
- Option1.MousePointer = 0, ;
- Option1.Name = "Option1", ;
- Option1.OLEDragMode = 0, ;
- Option1.OLEDragPicture = ..\..\, ;
- Option1.OLEDropEffects = 3, ;
- Option1.OLEDropMode = 0, ;
- Option1.Picture = ..\..\, ;
- Option1.PictureMargin = 0, ;
- Option1.PicturePosition = 13, ;
- Option1.PictureSpacing = 0, ;
- Option1.RightToLeft = .F., ;
- Option1.SpecialEffect = 0, ;
- Option1.StatusBarText = "", ;
- Option1.Style = 0, ;
- Option1.TabStop = .T., ;
- Option1.Tag = "", ;
- Option1.TerminateRead = .F., ;
- Option1.Themes = .T., ;
- Option1.ToolTipText = "", ;
- Option1.Top = 4, ;
- Option1.Value = 0, ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 84, ;
- Option1.WordWrap = .F., ;
- Option2.Alignment = 0, ;
- Option2.Anchor = 0, ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 240,240,240, ;
- Option2.Caption = "La opción 2 es más larga", ;
- Option2.ColorScheme = 1, ;
- Option2.ColorSource = 4, ;
- Option2.Comment = "", ;
- Option2.ControlSource = "", ;
- Option2.DisabledBackColor = 240,240,240, ;
- Option2.DisabledForeColor = 109,109,109, ;
- Option2.DisabledPicture = ..\..\, ;
- Option2.DownPicture = ..\..\, ;
- Option2.DragIcon = ..\..\, ;
- Option2.DragMode = 0, ;
- Option2.Enabled = .T., ;
- Option2.FontBold = .F., ;
- Option2.FontCharSet = 0, ;
- Option2.FontCondense = .F., ;
- Option2.FontExtend = .F., ;
- Option2.FontItalic = .F., ;
- Option2.FontName = "Arial", ;
- Option2.FontOutline = .F., ;
- Option2.FontShadow = .F., ;
- Option2.FontStrikethru = .F., ;
- Option2.FontUnderline = .F., ;
- Option2.ForeColor = 0,0,0, ;
- Option2.Height = 17, ;
- Option2.HelpContextID = 0, ;
- Option2.Left = 8, ;
- Option2.MouseIcon = ..\..\, ;
- Option2.MousePointer = 0, ;
- Option2.Name = "Option2", ;
- Option2.OLEDragMode = 0, ;
- Option2.OLEDragPicture = ..\..\, ;
- Option2.OLEDropEffects = 3, ;
- Option2.OLEDropMode = 0, ;
- Option2.Picture = ..\..\, ;
- Option2.PictureMargin = 0, ;
- Option2.PicturePosition = 13, ;
- Option2.PictureSpacing = 0, ;
- Option2.RightToLeft = .F., ;
- Option2.SpecialEffect = 0, ;
- Option2.StatusBarText = "", ;
- Option2.Style = 0, ;
- Option2.TabStop = .T., ;
- Option2.Tag = "", ;
- Option2.TerminateRead = .F., ;
- Option2.Themes = .T., ;
- Option2.ToolTipText = "", ;
- Option2.Top = 28, ;
- Option2.Value = 1, ;
- Option2.WhatsThisHelpID = -1, ;
- Option2.Width = 158, ;
- Option2.WordWrap = .F., ;
- Option3.Alignment = 0, ;
- Option3.Anchor = 0, ;
- Option3.BackColor = 128,255,128, ;
- Option3.Caption = "La opción 3 es la más larga de todas", ;
- Option3.ColorScheme = 1, ;
- Option3.ColorSource = 4, ;
- Option3.Comment = "", ;
- Option3.ControlSource = "", ;
- Option3.DisabledBackColor = 240,240,240, ;
- Option3.DisabledForeColor = 109,109,109, ;
- Option3.DisabledPicture = ..\..\, ;
- Option3.DownPicture = ..\..\, ;
- Option3.DragIcon = ..\..\, ;
- Option3.DragMode = 0, ;
- Option3.Enabled = .T., ;
- Option3.FontBold = .F., ;
- Option3.FontCharSet = 0, ;
- Option3.FontCondense = .F., ;
- Option3.FontExtend = .F., ;
- Option3.FontItalic = .F., ;
- Option3.FontName = "Arial", ;
- Option3.FontOutline = .F., ;
- Option3.FontShadow = .F., ;
- Option3.FontStrikethru = .F., ;
- Option3.FontUnderline = .F., ;
- Option3.ForeColor = 0,0,0, ;
- Option3.Height = 17, ;
- Option3.HelpContextID = 0, ;
- Option3.Left = 8, ;
- Option3.MouseIcon = ..\..\, ;
- Option3.MousePointer = 0, ;
- Option3.Name = "Option3", ;
- Option3.OLEDragMode = 0, ;
- Option3.OLEDragPicture = ..\..\, ;
- Option3.OLEDropEffects = 3, ;
- Option3.OLEDropMode = 0, ;
- Option3.Picture = ..\..\, ;
- Option3.PictureMargin = 0, ;
- Option3.PicturePosition = 13, ;
- Option3.PictureSpacing = 0, ;
- Option3.RightToLeft = .F., ;
- Option3.SpecialEffect = 0, ;
- Option3.StatusBarText = "", ;
- Option3.Style = 0, ;
- Option3.TabStop = .T., ;
- Option3.Tag = "", ;
- Option3.TerminateRead = .F., ;
- Option3.Themes = .T., ;
- Option3.ToolTipText = "", ;
- Option3.Top = 52, ;
- Option3.Value = 0, ;
- Option3.WhatsThisHelpID = -1, ;
- Option3.Width = 222, ;
- Option3.WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'Cl_optiongroup2' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ControlSource = "", ;
- Height = 76, ;
- Left = 296, ;
- Name = "Cl_optiongroup2", ;
- Top = 112, ;
- Value = 2, ;
- Width = 248, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 240,240,240, ;
- Option1.Caption = "La Opción 1", ;
- Option1.FontBold = .F., ;
- Option1.Height = 27, ;
- Option1.Left = 8, ;
- Option1.Name = "Option1", ;
- Option1.SpecialEffect = 0, ;
- Option1.Style = 1, ;
- Option1.Top = 4, ;
- Option1.Value = 0, ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 84, ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 240,240,240, ;
- Option2.Caption = "La opción 2 es más larga", ;
- Option2.FontBold = .F., ;
- Option2.Height = 27, ;
- Option2.Left = 8, ;
- Option2.Name = "Option2", ;
- Option2.SpecialEffect = 0, ;
- Option2.Style = 1, ;
- Option2.Top = 28, ;
- Option2.Value = 1, ;
- Option2.WhatsThisHelpID = -1, ;
- Option2.Width = 158, ;
- Option3.AutoSize = .F., ;
- Option3.BackColor = 128,255,128, ;
- Option3.Caption = "La opción 3 es la más larga de todas", ;
- Option3.FontBold = .F., ;
- Option3.Height = 21, ;
- Option3.Left = 8, ;
- Option3.Name = "Option3", ;
- Option3.SpecialEffect = 0, ;
- Option3.Style = 1, ;
- Option3.Top = 52, ;
- Option3.WhatsThisHelpID = -1, ;
- Option3.Width = 222
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (76), ;
- HelpContextID = 0, ;
- Left = (24), ;
- MemberClass = "cl_option", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Optiongroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (24), ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (248), ;
- Cl_option1.Alignment = 0, ;
- Cl_option1.Anchor = 0, ;
- Cl_option1.AutoSize = .F., ;
- Cl_option1.BackColor = 240,240,240, ;
- Cl_option1.BackStyle = 1, ;
- Cl_option1.Caption = "La opción 1", ;
- Cl_option1.ColorScheme = 1, ;
- Cl_option1.ColorSource = 4, ;
- Cl_option1.Comment = "", ;
- Cl_option1.ControlSource = "", ;
- Cl_option1.DisabledBackColor = 0,128,192, ;
- Cl_option1.DisabledForeColor = 128,0,255, ;
- Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option1.DownPicture = ..\..\, ;
- Cl_option1.DragIcon = ..\..\, ;
- Cl_option1.DragMode = 0, ;
- Cl_option1.Enabled = .T., ;
- Cl_option1.FontBold = .F., ;
- Cl_option1.FontCharSet = 0, ;
- Cl_option1.FontCondense = .F., ;
- Cl_option1.FontExtend = .F., ;
- Cl_option1.FontItalic = .F., ;
- Cl_option1.FontName = "Arial", ;
- Cl_option1.FontOutline = .F., ;
- Cl_option1.FontShadow = .F., ;
- Cl_option1.FontSize = 8, ;
- Cl_option1.FontStrikethru = .F., ;
- Cl_option1.FontUnderline = .F., ;
- Cl_option1.ForeColor = 0,0,0, ;
- Cl_option1.Height = 16, ;
- Cl_option1.HelpContextID = 0, ;
- Cl_option1.Left = 16, ;
- Cl_option1.MouseIcon = ..\..\, ;
- Cl_option1.MousePointer = 0, ;
- Cl_option1.Name = "Cl_option1", ;
- Cl_option1.OLEDragMode = 0, ;
- Cl_option1.OLEDragPicture = ..\..\, ;
- Cl_option1.OLEDropEffects = 3, ;
- Cl_option1.OLEDropMode = 0, ;
- Cl_option1.Picture = bmps\sobrepostal.bmp, ;
- Cl_option1.PictureMargin = 0, ;
- Cl_option1.PicturePosition = 4, ;
- Cl_option1.PictureSpacing = 0, ;
- Cl_option1.RightToLeft = .F., ;
- Cl_option1.SpecialEffect = 0, ;
- Cl_option1.StatusBarText = "", ;
- Cl_option1.Style = 0, ;
- Cl_option1.TabStop = .T., ;
- Cl_option1.Tag = "", ;
- Cl_option1.TerminateRead = .F., ;
- Cl_option1.Themes = .T., ;
- Cl_option1.ToolTipText = "", ;
- Cl_option1.Top = 4, ;
- Cl_option1.Visible = .T., ;
- Cl_option1.WhatsThisHelpID = -1, ;
- Cl_option1.Width = 74, ;
- Cl_option1.WordWrap = .F., ;
- Cl_option2.Alignment = 0, ;
- Cl_option2.Anchor = 0, ;
- Cl_option2.BackColor = 240,240,240, ;
- Cl_option2.BackStyle = 1, ;
- Cl_option2.Caption = "La opción 2 es más larga", ;
- Cl_option2.ColorScheme = 1, ;
- Cl_option2.ColorSource = 4, ;
- Cl_option2.Comment = "", ;
- Cl_option2.ControlSource = "", ;
- Cl_option2.DisabledBackColor = 0,128,192, ;
- Cl_option2.DisabledForeColor = 128,0,255, ;
- Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option2.DownPicture = ..\..\, ;
- Cl_option2.DragIcon = ..\..\, ;
- Cl_option2.DragMode = 0, ;
- Cl_option2.Enabled = .T., ;
- Cl_option2.FontBold = .F., ;
- Cl_option2.FontCharSet = 0, ;
- Cl_option2.FontCondense = .F., ;
- Cl_option2.FontExtend = .F., ;
- Cl_option2.FontItalic = .F., ;
- Cl_option2.FontName = "Arial", ;
- Cl_option2.FontOutline = .F., ;
- Cl_option2.FontShadow = .F., ;
- Cl_option2.FontSize = 8, ;
- Cl_option2.FontStrikethru = .F., ;
- Cl_option2.FontUnderline = .F., ;
- Cl_option2.ForeColor = 0,0,0, ;
- Cl_option2.HelpContextID = 0, ;
- Cl_option2.Left = 16, ;
- Cl_option2.MouseIcon = ..\..\, ;
- Cl_option2.MousePointer = 0, ;
- Cl_option2.Name = "Cl_option2", ;
- Cl_option2.OLEDragMode = 0, ;
- Cl_option2.OLEDragPicture = ..\..\, ;
- Cl_option2.OLEDropEffects = 3, ;
- Cl_option2.OLEDropMode = 0, ;
- Cl_option2.Picture = bmps\sobrepostal.bmp, ;
- Cl_option2.PictureMargin = 0, ;
- Cl_option2.PicturePosition = 4, ;
- Cl_option2.PictureSpacing = 0, ;
- Cl_option2.RightToLeft = .F., ;
- Cl_option2.SpecialEffect = 0, ;
- Cl_option2.StatusBarText = "", ;
- Cl_option2.Style = 0, ;
- Cl_option2.TabStop = .T., ;
- Cl_option2.Tag = "", ;
- Cl_option2.TerminateRead = .F., ;
- Cl_option2.Themes = .T., ;
- Cl_option2.ToolTipText = "", ;
- Cl_option2.Top = 28, ;
- Cl_option2.Value = 1, ;
- Cl_option2.Visible = .T., ;
- Cl_option2.WhatsThisHelpID = -1, ;
- Cl_option2.WordWrap = .F., ;
- Cl_option3.Alignment = 0, ;
- Cl_option3.Anchor = 0, ;
- Cl_option3.AutoSize = .F., ;
- Cl_option3.BackColor = 240,240,240, ;
- Cl_option3.BackStyle = 1, ;
- Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
- Cl_option3.ColorScheme = 1, ;
- Cl_option3.ColorSource = 4, ;
- Cl_option3.Comment = "", ;
- Cl_option3.ControlSource = "", ;
- Cl_option3.DefWidth = , ;
- Cl_option3.DisabledBackColor = 213,233,255, ;
- Cl_option3.DisabledForeColor = 128,0,255, ;
- Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option3.DownPicture = ..\..\, ;
- Cl_option3.DragIcon = ..\..\, ;
- Cl_option3.DragMode = 0, ;
- Cl_option3.Enabled = .F., ;
- Cl_option3.FontBold = .F., ;
- Cl_option3.FontCharSet = 0, ;
- Cl_option3.FontCondense = .F., ;
- Cl_option3.FontExtend = .F., ;
- Cl_option3.FontItalic = .F., ;
- Cl_option3.FontName = "Arial", ;
- Cl_option3.FontOutline = .F., ;
- Cl_option3.FontShadow = .F., ;
- Cl_option3.FontSize = 8, ;
- Cl_option3.FontStrikethru = .F., ;
- Cl_option3.FontUnderline = .F., ;
- Cl_option3.ForeColor = 0,0,0, ;
- Cl_option3.HelpContextID = 0, ;
- Cl_option3.Left = 16, ;
- Cl_option3.MouseIcon = ..\..\, ;
- Cl_option3.MousePointer = 0, ;
- Cl_option3.Name = "Cl_option3", ;
- Cl_option3.OLEDragMode = 0, ;
- Cl_option3.OLEDragPicture = ..\..\, ;
- Cl_option3.OLEDropEffects = 3, ;
- Cl_option3.OLEDropMode = 0, ;
- Cl_option3.Picture = bmps\sobrepostal.bmp, ;
- Cl_option3.PictureMargin = 0, ;
- Cl_option3.PicturePosition = 4, ;
- Cl_option3.PictureSpacing = 0, ;
- Cl_option3.RightToLeft = .F., ;
- Cl_option3.SpecialEffect = 0, ;
- Cl_option3.StatusBarText = "", ;
- Cl_option3.Style = 0, ;
- Cl_option3.TabStop = .T., ;
- Cl_option3.Tag = "", ;
- Cl_option3.TerminateRead = .F., ;
- Cl_option3.Themes = .T., ;
- Cl_option3.ToolTipText = "", ;
- Cl_option3.Top = 52, ;
- Cl_option3.Visible = .T., ;
- Cl_option3.WhatsThisHelpID = -1, ;
- Cl_option3.Width = (195), ;
- Cl_option3.WordWrap = .F.
- *< END OBJECT: BaseClass="optiongroup" />
-
- ADD OBJECT 'Optiongroup2' AS optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 24, ;
- MemberClass = "cl_option", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MousePointer = 0, ;
- Name = "Optiongroup2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 112, ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 248, ;
- Cl_option1.Alignment = 0, ;
- Cl_option1.Anchor = 0, ;
- Cl_option1.AutoSize = .F., ;
- Cl_option1.BackColor = 240,240,240, ;
- Cl_option1.BackStyle = 1, ;
- Cl_option1.Caption = "La opción 1", ;
- Cl_option1.ColorScheme = 1, ;
- Cl_option1.ColorSource = 4, ;
- Cl_option1.Comment = "", ;
- Cl_option1.ControlSource = "", ;
- Cl_option1.DisabledBackColor = 0,128,192, ;
- Cl_option1.DisabledForeColor = 128,0,255, ;
- Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option1.DownPicture = ..\..\, ;
- Cl_option1.DragIcon = ..\..\, ;
- Cl_option1.DragMode = 0, ;
- Cl_option1.Enabled = .T., ;
- Cl_option1.FontBold = .F., ;
- Cl_option1.FontCharSet = 0, ;
- Cl_option1.FontCondense = .F., ;
- Cl_option1.FontExtend = .F., ;
- Cl_option1.FontItalic = .F., ;
- Cl_option1.FontName = "Arial", ;
- Cl_option1.FontOutline = .F., ;
- Cl_option1.FontShadow = .F., ;
- Cl_option1.FontSize = 8, ;
- Cl_option1.FontStrikethru = .F., ;
- Cl_option1.FontUnderline = .F., ;
- Cl_option1.ForeColor = 0,0,0, ;
- Cl_option1.Height = 42, ;
- Cl_option1.HelpContextID = 0, ;
- Cl_option1.Left = 16, ;
- Cl_option1.MouseIcon = ..\..\, ;
- Cl_option1.MousePointer = 0, ;
- Cl_option1.Name = "Cl_option1", ;
- Cl_option1.OLEDragMode = 0, ;
- Cl_option1.OLEDragPicture = ..\..\, ;
- Cl_option1.OLEDropEffects = 3, ;
- Cl_option1.OLEDropMode = 0, ;
- Cl_option1.Picture = bmps\sobrepostal.bmp, ;
- Cl_option1.PictureMargin = 0, ;
- Cl_option1.PicturePosition = 4, ;
- Cl_option1.PictureSpacing = 0, ;
- Cl_option1.RightToLeft = .F., ;
- Cl_option1.SpecialEffect = 0, ;
- Cl_option1.StatusBarText = "", ;
- Cl_option1.Style = 1, ;
- Cl_option1.TabStop = .T., ;
- Cl_option1.Tag = "", ;
- Cl_option1.TerminateRead = .F., ;
- Cl_option1.Themes = .T., ;
- Cl_option1.ToolTipText = "", ;
- Cl_option1.Top = 4, ;
- Cl_option1.Visible = .T., ;
- Cl_option1.WhatsThisHelpID = -1, ;
- Cl_option1.Width = 88, ;
- Cl_option1.WordWrap = .F., ;
- Cl_option2.Alignment = 0, ;
- Cl_option2.Anchor = 0, ;
- Cl_option2.BackColor = 240,240,240, ;
- Cl_option2.BackStyle = 1, ;
- Cl_option2.Caption = "La opción 2 es más larga", ;
- Cl_option2.ColorScheme = 1, ;
- Cl_option2.ColorSource = 4, ;
- Cl_option2.Comment = "", ;
- Cl_option2.ControlSource = "", ;
- Cl_option2.DefHeight = , ;
- Cl_option2.DisabledBackColor = 0,128,192, ;
- Cl_option2.DisabledForeColor = 128,0,255, ;
- Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option2.DownPicture = ..\..\, ;
- Cl_option2.DragIcon = ..\..\, ;
- Cl_option2.DragMode = 0, ;
- Cl_option2.Enabled = .T., ;
- Cl_option2.FontBold = .F., ;
- Cl_option2.FontCharSet = 0, ;
- Cl_option2.FontCondense = .F., ;
- Cl_option2.FontExtend = .F., ;
- Cl_option2.FontItalic = .F., ;
- Cl_option2.FontName = "Arial", ;
- Cl_option2.FontOutline = .F., ;
- Cl_option2.FontShadow = .F., ;
- Cl_option2.FontSize = 8, ;
- Cl_option2.FontStrikethru = .F., ;
- Cl_option2.FontUnderline = .F., ;
- Cl_option2.ForeColor = 0,0,0, ;
- Cl_option2.Height = (21), ;
- Cl_option2.HelpContextID = 0, ;
- Cl_option2.Left = 16, ;
- Cl_option2.MouseIcon = ..\..\, ;
- Cl_option2.MousePointer = 0, ;
- Cl_option2.Name = "Cl_option2", ;
- Cl_option2.OLEDragMode = 0, ;
- Cl_option2.OLEDragPicture = ..\..\, ;
- Cl_option2.OLEDropEffects = 3, ;
- Cl_option2.OLEDropMode = 0, ;
- Cl_option2.Picture = bmps\sobrepostal.bmp, ;
- Cl_option2.PictureMargin = 0, ;
- Cl_option2.PicturePosition = 4, ;
- Cl_option2.PictureSpacing = 0, ;
- Cl_option2.RightToLeft = .F., ;
- Cl_option2.SpecialEffect = 0, ;
- Cl_option2.StatusBarText = "", ;
- Cl_option2.Style = 1, ;
- Cl_option2.TabStop = .T., ;
- Cl_option2.Tag = "", ;
- Cl_option2.TerminateRead = .F., ;
- Cl_option2.Themes = .T., ;
- Cl_option2.ToolTipText = "", ;
- Cl_option2.Top = 28, ;
- Cl_option2.Value = 1, ;
- Cl_option2.Visible = .T., ;
- Cl_option2.WhatsThisHelpID = -1, ;
- Cl_option2.WordWrap = .F., ;
- Cl_option3.Alignment = 0, ;
- Cl_option3.Anchor = 0, ;
- Cl_option3.AutoSize = .F., ;
- Cl_option3.BackColor = 240,240,240, ;
- Cl_option3.BackStyle = 1, ;
- Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
- Cl_option3.ColorScheme = 1, ;
- Cl_option3.ColorSource = 4, ;
- Cl_option3.Comment = "", ;
- Cl_option3.ControlSource = "", ;
- Cl_option3.DefHeight = , ;
- Cl_option3.DisabledBackColor = 0,128,192, ;
- Cl_option3.DisabledForeColor = 128,0,255, ;
- Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option3.DownPicture = ..\..\, ;
- Cl_option3.DragIcon = ..\..\, ;
- Cl_option3.DragMode = 0, ;
- Cl_option3.Enabled = .F., ;
- Cl_option3.FontBold = .F., ;
- Cl_option3.FontCharSet = 0, ;
- Cl_option3.FontCondense = .F., ;
- Cl_option3.FontExtend = .F., ;
- Cl_option3.FontItalic = .F., ;
- Cl_option3.FontName = "Arial", ;
- Cl_option3.FontOutline = .F., ;
- Cl_option3.FontShadow = .F., ;
- Cl_option3.FontSize = 8, ;
- Cl_option3.FontStrikethru = .F., ;
- Cl_option3.FontUnderline = .F., ;
- Cl_option3.ForeColor = 0,0,0, ;
- Cl_option3.Height = (21), ;
- Cl_option3.HelpContextID = 0, ;
- Cl_option3.Left = 16, ;
- Cl_option3.MouseIcon = ..\..\, ;
- Cl_option3.MousePointer = 0, ;
- Cl_option3.Name = "Cl_option3", ;
- Cl_option3.OLEDragMode = 0, ;
- Cl_option3.OLEDragPicture = ..\..\, ;
- Cl_option3.OLEDropEffects = 3, ;
- Cl_option3.OLEDropMode = 0, ;
- Cl_option3.Picture = bmps\sobrepostal.bmp, ;
- Cl_option3.PictureMargin = 0, ;
- Cl_option3.PicturePosition = 4, ;
- Cl_option3.PictureSpacing = 0, ;
- Cl_option3.RightToLeft = .F., ;
- Cl_option3.SpecialEffect = 0, ;
- Cl_option3.StatusBarText = "", ;
- Cl_option3.Style = 1, ;
- Cl_option3.TabStop = .T., ;
- Cl_option3.Tag = "", ;
- Cl_option3.TerminateRead = .F., ;
- Cl_option3.Themes = .T., ;
- Cl_option3.ToolTipText = "", ;
- Cl_option3.Top = 52, ;
- Cl_option3.Visible = .T., ;
- Cl_option3.WhatsThisHelpID = -1, ;
- Cl_option3.Width = 209, ;
- Cl_option3.WordWrap = .F.
- *< END OBJECT: BaseClass="optiongroup" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 224, ;
- Left = 8, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- Top = 196, ;
- Width = 553, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackStyle = 0, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ControlSource = "", ;
- Height = 76, ;
- Left = 287, ;
- Name = "Cl_optiongroup1", ;
- Top = 12, ;
- Value = 2, ;
- Width = 248, ;
- Option1.Alignment = 0, ;
- Option1.Anchor = 0, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 240,240,240, ;
- Option1.Caption = "La Opción 1", ;
- Option1.ColorScheme = 1, ;
- Option1.ColorSource = 4, ;
- Option1.Comment = "", ;
- Option1.ControlSource = "", ;
- Option1.DisabledBackColor = 240,240,240, ;
- Option1.DisabledForeColor = 109,109,109, ;
- Option1.DisabledPicture = ..\..\, ;
- Option1.DownPicture = ..\..\, ;
- Option1.DragIcon = ..\..\, ;
- Option1.DragMode = 0, ;
- Option1.Enabled = .T., ;
- Option1.FontBold = .F., ;
- Option1.FontCharSet = 0, ;
- Option1.FontCondense = .F., ;
- Option1.FontExtend = .F., ;
- Option1.FontItalic = .F., ;
- Option1.FontName = "Arial", ;
- Option1.FontOutline = .F., ;
- Option1.FontShadow = .F., ;
- Option1.FontStrikethru = .F., ;
- Option1.FontUnderline = .F., ;
- Option1.ForeColor = 0,0,0, ;
- Option1.Height = 17, ;
- Option1.HelpContextID = 0, ;
- Option1.Left = 8, ;
- Option1.MouseIcon = ..\..\, ;
- Option1.MousePointer = 0, ;
- Option1.Name = "Option1", ;
- Option1.OLEDragMode = 0, ;
- Option1.OLEDragPicture = ..\..\, ;
- Option1.OLEDropEffects = 3, ;
- Option1.OLEDropMode = 0, ;
- Option1.Picture = ..\..\, ;
- Option1.PictureMargin = 0, ;
- Option1.PicturePosition = 13, ;
- Option1.PictureSpacing = 0, ;
- Option1.RightToLeft = .F., ;
- Option1.SpecialEffect = 0, ;
- Option1.StatusBarText = "", ;
- Option1.Style = 0, ;
- Option1.TabStop = .T., ;
- Option1.Tag = "", ;
- Option1.TerminateRead = .F., ;
- Option1.Themes = .T., ;
- Option1.ToolTipText = "", ;
- Option1.Top = 4, ;
- Option1.Value = 0, ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 84, ;
- Option1.WordWrap = .F., ;
- Option2.Alignment = 0, ;
- Option2.Anchor = 0, ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 240,240,240, ;
- Option2.Caption = "La opción 2 es más larga", ;
- Option2.ColorScheme = 1, ;
- Option2.ColorSource = 4, ;
- Option2.Comment = "", ;
- Option2.ControlSource = "", ;
- Option2.DisabledBackColor = 240,240,240, ;
- Option2.DisabledForeColor = 109,109,109, ;
- Option2.DisabledPicture = ..\..\, ;
- Option2.DownPicture = ..\..\, ;
- Option2.DragIcon = ..\..\, ;
- Option2.DragMode = 0, ;
- Option2.Enabled = .T., ;
- Option2.FontBold = .F., ;
- Option2.FontCharSet = 0, ;
- Option2.FontCondense = .F., ;
- Option2.FontExtend = .F., ;
- Option2.FontItalic = .F., ;
- Option2.FontName = "Arial", ;
- Option2.FontOutline = .F., ;
- Option2.FontShadow = .F., ;
- Option2.FontStrikethru = .F., ;
- Option2.FontUnderline = .F., ;
- Option2.ForeColor = 0,0,0, ;
- Option2.Height = 17, ;
- Option2.HelpContextID = 0, ;
- Option2.Left = 8, ;
- Option2.MouseIcon = ..\..\, ;
- Option2.MousePointer = 0, ;
- Option2.Name = "Option2", ;
- Option2.OLEDragMode = 0, ;
- Option2.OLEDragPicture = ..\..\, ;
- Option2.OLEDropEffects = 3, ;
- Option2.OLEDropMode = 0, ;
- Option2.Picture = ..\..\, ;
- Option2.PictureMargin = 0, ;
- Option2.PicturePosition = 13, ;
- Option2.PictureSpacing = 0, ;
- Option2.RightToLeft = .F., ;
- Option2.SpecialEffect = 0, ;
- Option2.StatusBarText = "", ;
- Option2.Style = 0, ;
- Option2.TabStop = .T., ;
- Option2.Tag = "", ;
- Option2.TerminateRead = .F., ;
- Option2.Themes = .T., ;
- Option2.ToolTipText = "", ;
- Option2.Top = 28, ;
- Option2.Value = 1, ;
- Option2.WhatsThisHelpID = -1, ;
- Option2.Width = 158, ;
- Option2.WordWrap = .F., ;
- Option3.Alignment = 0, ;
- Option3.Anchor = 0, ;
- Option3.BackColor = 128,255,128, ;
- Option3.Caption = "La opción 3 es la más larga de todas", ;
- Option3.ColorScheme = 1, ;
- Option3.ColorSource = 4, ;
- Option3.Comment = "", ;
- Option3.ControlSource = "", ;
- Option3.DisabledBackColor = 240,240,240, ;
- Option3.DisabledForeColor = 109,109,109, ;
- Option3.DisabledPicture = ..\..\, ;
- Option3.DownPicture = ..\..\, ;
- Option3.DragIcon = ..\..\, ;
- Option3.DragMode = 0, ;
- Option3.Enabled = .T., ;
- Option3.FontBold = .F., ;
- Option3.FontCharSet = 0, ;
- Option3.FontCondense = .F., ;
- Option3.FontExtend = .F., ;
- Option3.FontItalic = .F., ;
- Option3.FontName = "Arial", ;
- Option3.FontOutline = .F., ;
- Option3.FontShadow = .F., ;
- Option3.FontStrikethru = .F., ;
- Option3.FontUnderline = .F., ;
- Option3.ForeColor = 0,0,0, ;
- Option3.Height = 17, ;
- Option3.HelpContextID = 0, ;
- Option3.Left = 8, ;
- Option3.MouseIcon = ..\..\, ;
- Option3.MousePointer = 0, ;
- Option3.Name = "Option3", ;
- Option3.OLEDragMode = 0, ;
- Option3.OLEDragPicture = ..\..\, ;
- Option3.OLEDropEffects = 3, ;
- Option3.OLEDropMode = 0, ;
- Option3.Picture = ..\..\, ;
- Option3.PictureMargin = 0, ;
- Option3.PicturePosition = 13, ;
- Option3.PictureSpacing = 0, ;
- Option3.RightToLeft = .F., ;
- Option3.SpecialEffect = 0, ;
- Option3.StatusBarText = "", ;
- Option3.Style = 0, ;
- Option3.TabStop = .T., ;
- Option3.Tag = "", ;
- Option3.TerminateRead = .F., ;
- Option3.Themes = .T., ;
- Option3.ToolTipText = "", ;
- Option3.Top = 52, ;
- Option3.Value = 0, ;
- Option3.WhatsThisHelpID = -1, ;
- Option3.Width = 222, ;
- Option3.WordWrap = .F.
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup2' AS cl_optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ControlSource = "", ;
- Height = 76, ;
- Left = 287, ;
- Name = "Cl_optiongroup2", ;
- Top = 96, ;
- Value = 2, ;
- Width = 248, ;
- Option1.AutoSize = .F., ;
- Option1.BackColor = 240,240,240, ;
- Option1.Caption = "La Opción 1", ;
- Option1.FontBold = .F., ;
- Option1.Height = 27, ;
- Option1.Left = 8, ;
- Option1.Name = "Option1", ;
- Option1.SpecialEffect = 0, ;
- Option1.Style = 1, ;
- Option1.Top = 4, ;
- Option1.Value = 0, ;
- Option1.WhatsThisHelpID = -1, ;
- Option1.Width = 84, ;
- Option2.AutoSize = .F., ;
- Option2.BackColor = 240,240,240, ;
- Option2.Caption = "La opción 2 es más larga", ;
- Option2.FontBold = .F., ;
- Option2.Height = 27, ;
- Option2.Left = 8, ;
- Option2.Name = "Option2", ;
- Option2.SpecialEffect = 0, ;
- Option2.Style = 1, ;
- Option2.Top = 28, ;
- Option2.Value = 1, ;
- Option2.WhatsThisHelpID = -1, ;
- Option2.Width = 158, ;
- Option3.AutoSize = .F., ;
- Option3.BackColor = 128,255,128, ;
- Option3.Caption = "La opción 3 es la más larga de todas", ;
- Option3.FontBold = .F., ;
- Option3.Height = 21, ;
- Option3.Left = 8, ;
- Option3.Name = "Option3", ;
- Option3.SpecialEffect = 0, ;
- Option3.Style = 1, ;
- Option3.Top = 52, ;
- Option3.WhatsThisHelpID = -1, ;
- Option3.Width = 222
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" />
-
- ADD OBJECT 'Pageframe1.Page1.Optiongroup1' AS optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 0, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefWidth = , ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = (76), ;
- HelpContextID = 0, ;
- Left = 15, ;
- MemberClass = "cl_option", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Optiongroup1", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 8, ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (248), ;
- Cl_option1.Alignment = 0, ;
- Cl_option1.Anchor = 0, ;
- Cl_option1.AutoSize = .F., ;
- Cl_option1.BackColor = 240,240,240, ;
- Cl_option1.BackStyle = 1, ;
- Cl_option1.Caption = "La opción 1", ;
- Cl_option1.ColorScheme = 1, ;
- Cl_option1.ColorSource = 4, ;
- Cl_option1.Comment = "", ;
- Cl_option1.ControlSource = "", ;
- Cl_option1.DisabledBackColor = 0,128,192, ;
- Cl_option1.DisabledForeColor = 128,0,255, ;
- Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option1.DownPicture = ..\..\, ;
- Cl_option1.DragIcon = ..\..\, ;
- Cl_option1.DragMode = 0, ;
- Cl_option1.Enabled = .T., ;
- Cl_option1.FontBold = .F., ;
- Cl_option1.FontCharSet = 0, ;
- Cl_option1.FontCondense = .F., ;
- Cl_option1.FontExtend = .F., ;
- Cl_option1.FontItalic = .F., ;
- Cl_option1.FontName = "Arial", ;
- Cl_option1.FontOutline = .F., ;
- Cl_option1.FontShadow = .F., ;
- Cl_option1.FontSize = 8, ;
- Cl_option1.FontStrikethru = .F., ;
- Cl_option1.FontUnderline = .F., ;
- Cl_option1.ForeColor = 0,0,0, ;
- Cl_option1.Height = 16, ;
- Cl_option1.HelpContextID = 0, ;
- Cl_option1.Left = 16, ;
- Cl_option1.MouseIcon = ..\..\, ;
- Cl_option1.MousePointer = 0, ;
- Cl_option1.Name = "Cl_option1", ;
- Cl_option1.OLEDragMode = 0, ;
- Cl_option1.OLEDragPicture = ..\..\, ;
- Cl_option1.OLEDropEffects = 3, ;
- Cl_option1.OLEDropMode = 0, ;
- Cl_option1.Picture = bmps\sobrepostal.bmp, ;
- Cl_option1.PictureMargin = 0, ;
- Cl_option1.PicturePosition = 4, ;
- Cl_option1.PictureSpacing = 0, ;
- Cl_option1.RightToLeft = .F., ;
- Cl_option1.SpecialEffect = 0, ;
- Cl_option1.StatusBarText = "", ;
- Cl_option1.Style = 0, ;
- Cl_option1.TabStop = .T., ;
- Cl_option1.Tag = "", ;
- Cl_option1.TerminateRead = .F., ;
- Cl_option1.Themes = .T., ;
- Cl_option1.ToolTipText = "", ;
- Cl_option1.Top = 4, ;
- Cl_option1.Visible = .T., ;
- Cl_option1.WhatsThisHelpID = -1, ;
- Cl_option1.Width = 74, ;
- Cl_option1.WordWrap = .F., ;
- Cl_option2.Alignment = 0, ;
- Cl_option2.Anchor = 0, ;
- Cl_option2.BackColor = 240,240,240, ;
- Cl_option2.BackStyle = 1, ;
- Cl_option2.Caption = "La opción 2 es más larga", ;
- Cl_option2.ColorScheme = 1, ;
- Cl_option2.ColorSource = 4, ;
- Cl_option2.Comment = "", ;
- Cl_option2.ControlSource = "", ;
- Cl_option2.DisabledBackColor = 0,128,192, ;
- Cl_option2.DisabledForeColor = 128,0,255, ;
- Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option2.DownPicture = ..\..\, ;
- Cl_option2.DragIcon = ..\..\, ;
- Cl_option2.DragMode = 0, ;
- Cl_option2.Enabled = .T., ;
- Cl_option2.FontBold = .F., ;
- Cl_option2.FontCharSet = 0, ;
- Cl_option2.FontCondense = .F., ;
- Cl_option2.FontExtend = .F., ;
- Cl_option2.FontItalic = .F., ;
- Cl_option2.FontName = "Arial", ;
- Cl_option2.FontOutline = .F., ;
- Cl_option2.FontShadow = .F., ;
- Cl_option2.FontSize = 8, ;
- Cl_option2.FontStrikethru = .F., ;
- Cl_option2.FontUnderline = .F., ;
- Cl_option2.ForeColor = 0,0,0, ;
- Cl_option2.HelpContextID = 0, ;
- Cl_option2.Left = 16, ;
- Cl_option2.MouseIcon = ..\..\, ;
- Cl_option2.MousePointer = 0, ;
- Cl_option2.Name = "Cl_option2", ;
- Cl_option2.OLEDragMode = 0, ;
- Cl_option2.OLEDragPicture = ..\..\, ;
- Cl_option2.OLEDropEffects = 3, ;
- Cl_option2.OLEDropMode = 0, ;
- Cl_option2.Picture = bmps\sobrepostal.bmp, ;
- Cl_option2.PictureMargin = 0, ;
- Cl_option2.PicturePosition = 4, ;
- Cl_option2.PictureSpacing = 0, ;
- Cl_option2.RightToLeft = .F., ;
- Cl_option2.SpecialEffect = 0, ;
- Cl_option2.StatusBarText = "", ;
- Cl_option2.Style = 0, ;
- Cl_option2.TabStop = .T., ;
- Cl_option2.Tag = "", ;
- Cl_option2.TerminateRead = .F., ;
- Cl_option2.Themes = .T., ;
- Cl_option2.ToolTipText = "", ;
- Cl_option2.Top = 28, ;
- Cl_option2.Value = 1, ;
- Cl_option2.Visible = .T., ;
- Cl_option2.WhatsThisHelpID = -1, ;
- Cl_option2.WordWrap = .F., ;
- Cl_option3.Alignment = 0, ;
- Cl_option3.Anchor = 0, ;
- Cl_option3.AutoSize = .F., ;
- Cl_option3.BackColor = 240,240,240, ;
- Cl_option3.BackStyle = 1, ;
- Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
- Cl_option3.ColorScheme = 1, ;
- Cl_option3.ColorSource = 4, ;
- Cl_option3.Comment = "", ;
- Cl_option3.ControlSource = "", ;
- Cl_option3.DefWidth = , ;
- Cl_option3.DisabledBackColor = 213,233,255, ;
- Cl_option3.DisabledForeColor = 128,0,255, ;
- Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option3.DownPicture = ..\..\, ;
- Cl_option3.DragIcon = ..\..\, ;
- Cl_option3.DragMode = 0, ;
- Cl_option3.Enabled = .F., ;
- Cl_option3.FontBold = .F., ;
- Cl_option3.FontCharSet = 0, ;
- Cl_option3.FontCondense = .F., ;
- Cl_option3.FontExtend = .F., ;
- Cl_option3.FontItalic = .F., ;
- Cl_option3.FontName = "Arial", ;
- Cl_option3.FontOutline = .F., ;
- Cl_option3.FontShadow = .F., ;
- Cl_option3.FontSize = 8, ;
- Cl_option3.FontStrikethru = .F., ;
- Cl_option3.FontUnderline = .F., ;
- Cl_option3.ForeColor = 0,0,0, ;
- Cl_option3.HelpContextID = 0, ;
- Cl_option3.Left = 16, ;
- Cl_option3.MouseIcon = ..\..\, ;
- Cl_option3.MousePointer = 0, ;
- Cl_option3.Name = "Cl_option3", ;
- Cl_option3.OLEDragMode = 0, ;
- Cl_option3.OLEDragPicture = ..\..\, ;
- Cl_option3.OLEDropEffects = 3, ;
- Cl_option3.OLEDropMode = 0, ;
- Cl_option3.Picture = bmps\sobrepostal.bmp, ;
- Cl_option3.PictureMargin = 0, ;
- Cl_option3.PicturePosition = 4, ;
- Cl_option3.PictureSpacing = 0, ;
- Cl_option3.RightToLeft = .F., ;
- Cl_option3.SpecialEffect = 0, ;
- Cl_option3.StatusBarText = "", ;
- Cl_option3.Style = 0, ;
- Cl_option3.TabStop = .T., ;
- Cl_option3.Tag = "", ;
- Cl_option3.TerminateRead = .F., ;
- Cl_option3.Themes = .T., ;
- Cl_option3.ToolTipText = "", ;
- Cl_option3.Top = 52, ;
- Cl_option3.Visible = .T., ;
- Cl_option3.WhatsThisHelpID = -1, ;
- Cl_option3.Width = (195), ;
- Cl_option3.WordWrap = .F.
- *< END OBJECT: BaseClass="optiongroup" />
-
- ADD OBJECT 'Pageframe1.Page1.Optiongroup2' AS optiongroup WITH ;
- Anchor = 0, ;
- AutoSize = .F., ;
- BackColor = 240,240,240, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ButtonCount = 3, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DragMode = 0, ;
- Enabled = .T., ;
- Height = 76, ;
- HelpContextID = 0, ;
- Left = 15, ;
- MemberClass = "cl_option", ;
- MemberClassLibrary = lib_controles.vcx, ;
- MousePointer = 0, ;
- Name = "Optiongroup2", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 1, ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 96, ;
- Value = 2, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 248, ;
- Cl_option1.Alignment = 0, ;
- Cl_option1.Anchor = 0, ;
- Cl_option1.AutoSize = .F., ;
- Cl_option1.BackColor = 240,240,240, ;
- Cl_option1.BackStyle = 1, ;
- Cl_option1.Caption = "La opción 1", ;
- Cl_option1.ColorScheme = 1, ;
- Cl_option1.ColorSource = 4, ;
- Cl_option1.Comment = "", ;
- Cl_option1.ControlSource = "", ;
- Cl_option1.DisabledBackColor = 0,128,192, ;
- Cl_option1.DisabledForeColor = 128,0,255, ;
- Cl_option1.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option1.DownPicture = ..\..\, ;
- Cl_option1.DragIcon = ..\..\, ;
- Cl_option1.DragMode = 0, ;
- Cl_option1.Enabled = .T., ;
- Cl_option1.FontBold = .F., ;
- Cl_option1.FontCharSet = 0, ;
- Cl_option1.FontCondense = .F., ;
- Cl_option1.FontExtend = .F., ;
- Cl_option1.FontItalic = .F., ;
- Cl_option1.FontName = "Arial", ;
- Cl_option1.FontOutline = .F., ;
- Cl_option1.FontShadow = .F., ;
- Cl_option1.FontSize = 8, ;
- Cl_option1.FontStrikethru = .F., ;
- Cl_option1.FontUnderline = .F., ;
- Cl_option1.ForeColor = 0,0,0, ;
- Cl_option1.Height = 42, ;
- Cl_option1.HelpContextID = 0, ;
- Cl_option1.Left = 16, ;
- Cl_option1.MouseIcon = ..\..\, ;
- Cl_option1.MousePointer = 0, ;
- Cl_option1.Name = "Cl_option1", ;
- Cl_option1.OLEDragMode = 0, ;
- Cl_option1.OLEDragPicture = ..\..\, ;
- Cl_option1.OLEDropEffects = 3, ;
- Cl_option1.OLEDropMode = 0, ;
- Cl_option1.Picture = bmps\sobrepostal.bmp, ;
- Cl_option1.PictureMargin = 0, ;
- Cl_option1.PicturePosition = 4, ;
- Cl_option1.PictureSpacing = 0, ;
- Cl_option1.RightToLeft = .F., ;
- Cl_option1.SpecialEffect = 0, ;
- Cl_option1.StatusBarText = "", ;
- Cl_option1.Style = 1, ;
- Cl_option1.TabStop = .T., ;
- Cl_option1.Tag = "", ;
- Cl_option1.TerminateRead = .F., ;
- Cl_option1.Themes = .T., ;
- Cl_option1.ToolTipText = "", ;
- Cl_option1.Top = 4, ;
- Cl_option1.Visible = .T., ;
- Cl_option1.WhatsThisHelpID = -1, ;
- Cl_option1.Width = 88, ;
- Cl_option1.WordWrap = .F., ;
- Cl_option2.Alignment = 0, ;
- Cl_option2.Anchor = 0, ;
- Cl_option2.BackColor = 240,240,240, ;
- Cl_option2.BackStyle = 1, ;
- Cl_option2.Caption = "La opción 2 es más larga", ;
- Cl_option2.ColorScheme = 1, ;
- Cl_option2.ColorSource = 4, ;
- Cl_option2.Comment = "", ;
- Cl_option2.ControlSource = "", ;
- Cl_option2.DefHeight = , ;
- Cl_option2.DisabledBackColor = 0,128,192, ;
- Cl_option2.DisabledForeColor = 128,0,255, ;
- Cl_option2.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option2.DownPicture = ..\..\, ;
- Cl_option2.DragIcon = ..\..\, ;
- Cl_option2.DragMode = 0, ;
- Cl_option2.Enabled = .T., ;
- Cl_option2.FontBold = .F., ;
- Cl_option2.FontCharSet = 0, ;
- Cl_option2.FontCondense = .F., ;
- Cl_option2.FontExtend = .F., ;
- Cl_option2.FontItalic = .F., ;
- Cl_option2.FontName = "Arial", ;
- Cl_option2.FontOutline = .F., ;
- Cl_option2.FontShadow = .F., ;
- Cl_option2.FontSize = 8, ;
- Cl_option2.FontStrikethru = .F., ;
- Cl_option2.FontUnderline = .F., ;
- Cl_option2.ForeColor = 0,0,0, ;
- Cl_option2.Height = (21), ;
- Cl_option2.HelpContextID = 0, ;
- Cl_option2.Left = 16, ;
- Cl_option2.MouseIcon = ..\..\, ;
- Cl_option2.MousePointer = 0, ;
- Cl_option2.Name = "Cl_option2", ;
- Cl_option2.OLEDragMode = 0, ;
- Cl_option2.OLEDragPicture = ..\..\, ;
- Cl_option2.OLEDropEffects = 3, ;
- Cl_option2.OLEDropMode = 0, ;
- Cl_option2.Picture = bmps\sobrepostal.bmp, ;
- Cl_option2.PictureMargin = 0, ;
- Cl_option2.PicturePosition = 4, ;
- Cl_option2.PictureSpacing = 0, ;
- Cl_option2.RightToLeft = .F., ;
- Cl_option2.SpecialEffect = 0, ;
- Cl_option2.StatusBarText = "", ;
- Cl_option2.Style = 1, ;
- Cl_option2.TabStop = .T., ;
- Cl_option2.Tag = "", ;
- Cl_option2.TerminateRead = .F., ;
- Cl_option2.Themes = .T., ;
- Cl_option2.ToolTipText = "", ;
- Cl_option2.Top = 28, ;
- Cl_option2.Value = 1, ;
- Cl_option2.Visible = .T., ;
- Cl_option2.WhatsThisHelpID = -1, ;
- Cl_option2.WordWrap = .F., ;
- Cl_option3.Alignment = 0, ;
- Cl_option3.Anchor = 0, ;
- Cl_option3.AutoSize = .F., ;
- Cl_option3.BackColor = 240,240,240, ;
- Cl_option3.BackStyle = 1, ;
- Cl_option3.Caption = "La opción 3 es la más larga de todas", ;
- Cl_option3.ColorScheme = 1, ;
- Cl_option3.ColorSource = 4, ;
- Cl_option3.Comment = "", ;
- Cl_option3.ControlSource = "", ;
- Cl_option3.DefHeight = , ;
- Cl_option3.DisabledBackColor = 0,128,192, ;
- Cl_option3.DisabledForeColor = 128,0,255, ;
- Cl_option3.DisabledPicture = bmps\treeview.bmp, ;
- Cl_option3.DownPicture = ..\..\, ;
- Cl_option3.DragIcon = ..\..\, ;
- Cl_option3.DragMode = 0, ;
- Cl_option3.Enabled = .F., ;
- Cl_option3.FontBold = .F., ;
- Cl_option3.FontCharSet = 0, ;
- Cl_option3.FontCondense = .F., ;
- Cl_option3.FontExtend = .F., ;
- Cl_option3.FontItalic = .F., ;
- Cl_option3.FontName = "Arial", ;
- Cl_option3.FontOutline = .F., ;
- Cl_option3.FontShadow = .F., ;
- Cl_option3.FontSize = 8, ;
- Cl_option3.FontStrikethru = .F., ;
- Cl_option3.FontUnderline = .F., ;
- Cl_option3.ForeColor = 0,0,0, ;
- Cl_option3.Height = (21), ;
- Cl_option3.HelpContextID = 0, ;
- Cl_option3.Left = 16, ;
- Cl_option3.MouseIcon = ..\..\, ;
- Cl_option3.MousePointer = 0, ;
- Cl_option3.Name = "Cl_option3", ;
- Cl_option3.OLEDragMode = 0, ;
- Cl_option3.OLEDragPicture = ..\..\, ;
- Cl_option3.OLEDropEffects = 3, ;
- Cl_option3.OLEDropMode = 0, ;
- Cl_option3.Picture = bmps\sobrepostal.bmp, ;
- Cl_option3.PictureMargin = 0, ;
- Cl_option3.PicturePosition = 4, ;
- Cl_option3.PictureSpacing = 0, ;
- Cl_option3.RightToLeft = .F., ;
- Cl_option3.SpecialEffect = 0, ;
- Cl_option3.StatusBarText = "", ;
- Cl_option3.Style = 1, ;
- Cl_option3.TabStop = .T., ;
- Cl_option3.Tag = "", ;
- Cl_option3.TerminateRead = .F., ;
- Cl_option3.Themes = .T., ;
- Cl_option3.ToolTipText = "", ;
- Cl_option3.Top = 52, ;
- Cl_option3.Visible = .T., ;
- Cl_option3.WhatsThisHelpID = -1, ;
- Cl_option3.Width = 209, ;
- Cl_option3.WordWrap = .F.
- *< END OBJECT: BaseClass="optiongroup" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_optiongroup2.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_optiongroup2.dataenvironment.sc2
new file mode 100644
index 0000000..9450b12
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_optiongroup2.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_optiongroup2.f_optiongroup1.sc2 b/TESTS/DATOS_READONLY/f_optiongroup2.f_optiongroup1.sc2
new file mode 100644
index 0000000..d8002e0
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_optiongroup2.f_optiongroup1.sc2
@@ -0,0 +1,204 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *
+ DoCreate = .T.
+ Name = "F_optiongroup1"
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Name = "Label1"
+ Label2.Name = "Label2"
+ Optiongroup1.Anchor = 0
+ Optiongroup1.AutoSize = .F.
+ Optiongroup1.BackColor = 240,240,240
+ Optiongroup1.BackStyle = 0
+ Optiongroup1.BorderColor = 100,100,100
+ Optiongroup1.BorderStyle = 1
+ Optiongroup1.ButtonCount = 3
+ Optiongroup1.Cl_option1.Alignment = 0
+ Optiongroup1.Cl_option1.Anchor = 0
+ Optiongroup1.Cl_option1.AutoSize = .F.
+ Optiongroup1.Cl_option1.BackColor = 240,240,240
+ Optiongroup1.Cl_option1.BackStyle = 1
+ Optiongroup1.Cl_option1.Caption = "La opción 1"
+ Optiongroup1.Cl_option1.ColorScheme = 1
+ Optiongroup1.Cl_option1.ColorSource = 4
+ Optiongroup1.Cl_option1.Comment = ""
+ Optiongroup1.Cl_option1.ControlSource = ""
+ Optiongroup1.Cl_option1.DefHeight =
+ Optiongroup1.Cl_option1.DefLeft =
+ Optiongroup1.Cl_option1.DefTop =
+ Optiongroup1.Cl_option1.DefWidth =
+ Optiongroup1.Cl_option1.DisabledBackColor = 0,128,192
+ Optiongroup1.Cl_option1.DisabledForeColor = 128,0,255
+ Optiongroup1.Cl_option1.DisabledPicture = bmps\treeview.bmp
+ Optiongroup1.Cl_option1.DownPicture = ..\..\
+ Optiongroup1.Cl_option1.DragIcon = ..\..\
+ Optiongroup1.Cl_option1.DragMode = 0
+ Optiongroup1.Cl_option1.Enabled = .T.
+ Optiongroup1.Cl_option1.FontBold = .F.
+ Optiongroup1.Cl_option1.FontCondense = .F.
+ Optiongroup1.Cl_option1.FontExtend = .F.
+ Optiongroup1.Cl_option1.FontItalic = .F.
+ Optiongroup1.Cl_option1.FontName = "Arial"
+ Optiongroup1.Cl_option1.FontOutline = .F.
+ Optiongroup1.Cl_option1.FontShadow = .F.
+ Optiongroup1.Cl_option1.FontSize = 8
+ Optiongroup1.Cl_option1.FontStrikethru = .F.
+ Optiongroup1.Cl_option1.FontUnderline = .F.
+ Optiongroup1.Cl_option1.ForeColor = 0,0,0
+ Optiongroup1.Cl_option1.Height = (16)
+ Optiongroup1.Cl_option1.HelpContextID = 0
+ Optiongroup1.Cl_option1.Left = (16)
+ Optiongroup1.Cl_option1.MouseIcon = ..\..\
+ Optiongroup1.Cl_option1.MousePointer = 0
+ Optiongroup1.Cl_option1.Name = "Cl_option1"
+ Optiongroup1.Cl_option1.OLEDragMode = 0
+ Optiongroup1.Cl_option1.OLEDragPicture = ..\..\
+ Optiongroup1.Cl_option1.OLEDropEffects = 3
+ Optiongroup1.Cl_option1.OLEDropMode = 0
+ Optiongroup1.Cl_option1.Picture = bmps\sobrepostal.bmp
+ Optiongroup1.Cl_option1.PictureMargin = 0
+ Optiongroup1.Cl_option1.PicturePosition = 4
+ Optiongroup1.Cl_option1.PictureSpacing = 0
+ Optiongroup1.Cl_option1.RightToLeft = .F.
+ Optiongroup1.Cl_option1.SpecialEffect = 0
+ Optiongroup1.Cl_option1.StatusBarText = ""
+ Optiongroup1.Cl_option1.Style = 0
+ Optiongroup1.Cl_option1.TabIndex = 1
+ Optiongroup1.Cl_option1.TabStop = .T.
+ Optiongroup1.Cl_option1.Tag = ""
+ Optiongroup1.Cl_option1.TerminateRead = .F.
+ Optiongroup1.Cl_option1.test_aa = .F.
+ Optiongroup1.Cl_option1.Themes = .T.
+ Optiongroup1.Cl_option1.ToolTipText = ""
+ Optiongroup1.Cl_option1.Top = (4)
+ Optiongroup1.Cl_option1.Value = 0
+ Optiongroup1.Cl_option1.Visible = .T.
+ Optiongroup1.Cl_option1.WhatsThisHelpID = -1
+ Optiongroup1.Cl_option1.Width = (74)
+ Optiongroup1.Cl_option1.WordWrap = .F.
+ Optiongroup1.Cl_option2.Left = 16
+ Optiongroup1.Cl_option2.Name = "Cl_option2"
+ Optiongroup1.Cl_option2.Top = 28
+ Optiongroup1.Cl_option3.Left = 16
+ Optiongroup1.Cl_option3.Name = "Cl_option3"
+ Optiongroup1.Cl_option3.Top = 52
+ Optiongroup1.ColorSource = 4
+ Optiongroup1.Comment = ""
+ Optiongroup1.ControlSource = ""
+ Optiongroup1.DefHeight =
+ Optiongroup1.DefLeft =
+ Optiongroup1.DefTop =
+ Optiongroup1.DefWidth =
+ Optiongroup1.DragIcon = ..\..\
+ Optiongroup1.DragMode = 0
+ Optiongroup1.Enabled = .T.
+ Optiongroup1.Height = (76)
+ Optiongroup1.HelpContextID = 0
+ Optiongroup1.Left = (24)
+ Optiongroup1.MemberClassLibrary = lib_controles.vcx
+ Optiongroup1.MouseIcon = ..\..\
+ Optiongroup1.MousePointer = 0
+ Optiongroup1.Name = "Optiongroup1"
+ Optiongroup1.OLEDragMode = 0
+ Optiongroup1.OLEDragPicture = ..\..\
+ Optiongroup1.OLEDropEffects = 3
+ Optiongroup1.OLEDropMode = 0
+ Optiongroup1.SpecialEffect = 0
+ Optiongroup1.StatusBarText = ""
+ Optiongroup1.TabIndex = 1
+ Optiongroup1.Tag = ""
+ Optiongroup1.TerminateRead = .F.
+ Optiongroup1.Themes = .T.
+ Optiongroup1.ToolTipText = ""
+ Optiongroup1.Top = (24)
+ Optiongroup1.Value = 2
+ Optiongroup1.Visible = .T.
+ Optiongroup1.WhatsThisHelpID = -1
+ Optiongroup1.Width = (248)
+ Cl_optiongroup1.Name = "Cl_optiongroup1"
+ Cl_optiongroup1.Option1.Left = 8
+ Cl_optiongroup1.Option1.Name = "Option1"
+ Cl_optiongroup1.Option1.Top = 4
+ Cl_optiongroup1.Option2.Left = 8
+ Cl_optiongroup1.Option2.Name = "Option2"
+ Cl_optiongroup1.Option2.Top = 28
+ Cl_optiongroup1.Option3.Left = 8
+ Cl_optiongroup1.Option3.Name = "Option3"
+ Cl_optiongroup1.Option3.Top = 52
+ Cl_optiongroup2.Name = "Cl_optiongroup2"
+ Cl_optiongroup2.Option1.Left = 8
+ Cl_optiongroup2.Option1.Name = "Option1"
+ Cl_optiongroup2.Option1.Top = 4
+ Cl_optiongroup2.Option2.Left = 8
+ Cl_optiongroup2.Option2.Name = "Option2"
+ Cl_optiongroup2.Option2.Top = 28
+ Cl_optiongroup2.Option3.Left = 8
+ Cl_optiongroup2.Option3.Name = "Option3"
+ Cl_optiongroup2.Option3.Top = 52
+ Pageframe1.ErasePage = .T.
+ Pageframe1.Name = "Pageframe1"
+ Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
+ Pageframe1.Page1.Cl_optiongroup1.Option1.Left = 8
+ Pageframe1.Page1.Cl_optiongroup1.Option1.Name = "Option1"
+ Pageframe1.Page1.Cl_optiongroup1.Option1.Top = 8
+ Pageframe1.Page1.Cl_optiongroup1.Option2.Left = 8
+ Pageframe1.Page1.Cl_optiongroup1.Option2.Name = "Option2"
+ Pageframe1.Page1.Cl_optiongroup1.Option2.Top = 32
+ Pageframe1.Page1.Cl_optiongroup1.Option3.Left = 8
+ Pageframe1.Page1.Cl_optiongroup1.Option3.Name = "Option3"
+ Pageframe1.Page1.Cl_optiongroup1.Option3.Top = 56
+ Pageframe1.Page1.Cl_optiongroup2.Name = "Cl_optiongroup2"
+ Pageframe1.Page1.Cl_optiongroup2.Option1.Left = 8
+ Pageframe1.Page1.Cl_optiongroup2.Option1.Name = "Option1"
+ Pageframe1.Page1.Cl_optiongroup2.Option1.Top = 4
+ Pageframe1.Page1.Cl_optiongroup2.Option2.Left = 8
+ Pageframe1.Page1.Cl_optiongroup2.Option2.Name = "Option2"
+ Pageframe1.Page1.Cl_optiongroup2.Option2.Top = 28
+ Pageframe1.Page1.Cl_optiongroup2.Option3.Left = 8
+ Pageframe1.Page1.Cl_optiongroup2.Option3.Name = "Option3"
+ Pageframe1.Page1.Cl_optiongroup2.Option3.Top = 52
+ Pageframe1.Page1.Label2.Name = "Label2"
+ Pageframe1.Page1.Name = "Page1"
+ Pageframe1.Page1.Optiongroup1.Cl_option1.Left = 16
+ Pageframe1.Page1.Optiongroup1.Cl_option1.Name = "Cl_option1"
+ Pageframe1.Page1.Optiongroup1.Cl_option1.Top = 4
+ Pageframe1.Page1.Optiongroup1.Cl_option2.Left = 16
+ Pageframe1.Page1.Optiongroup1.Cl_option2.Name = "Cl_option2"
+ Pageframe1.Page1.Optiongroup1.Cl_option2.Top = 28
+ Pageframe1.Page1.Optiongroup1.Cl_option3.Left = 16
+ Pageframe1.Page1.Optiongroup1.Cl_option3.Name = "Cl_option3"
+ Pageframe1.Page1.Optiongroup1.Cl_option3.Top = 52
+ Pageframe1.Page1.Optiongroup1.Name = "Optiongroup1"
+ Pageframe1.Page1.Optiongroup2.Cl_option1.Left = 16
+ Pageframe1.Page1.Optiongroup2.Cl_option1.Name = "Cl_option1"
+ Pageframe1.Page1.Optiongroup2.Cl_option1.Top = 4
+ Pageframe1.Page1.Optiongroup2.Cl_option2.Left = 16
+ Pageframe1.Page1.Optiongroup2.Cl_option2.Name = "Cl_option2"
+ Pageframe1.Page1.Optiongroup2.Cl_option2.Top = 28
+ Pageframe1.Page1.Optiongroup2.Cl_option3.Left = 16
+ Pageframe1.Page1.Optiongroup2.Cl_option3.Name = "Cl_option3"
+ Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52
+ Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2"
+ Pageframe1.Page2.Name = "Page2"
+ Optiongroup2.Cl_option1.Left = 16
+ Optiongroup2.Cl_option1.Name = "Cl_option1"
+ Optiongroup2.Cl_option1.Top = 4
+ Optiongroup2.Cl_option2.Left = 16
+ Optiongroup2.Cl_option2.Name = "Cl_option2"
+ Optiongroup2.Cl_option2.Top = 28
+ Optiongroup2.Cl_option3.Left = 16
+ Optiongroup2.Cl_option3.Name = "Cl_option3"
+ Optiongroup2.Cl_option3.Top = 52
+ Optiongroup2.Name = "Optiongroup2"
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_optiongroup2.sc2 b/TESTS/DATOS_READONLY/f_optiongroup2.sc2
index 40697f7..7c16114 100644
--- a/TESTS/DATOS_READONLY/f_optiongroup2.sc2
+++ b/TESTS/DATOS_READONLY/f_optiongroup2.sc2
@@ -4,212 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_optiongroup1" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- DoCreate = .T.
- Name = "F_optiongroup1"
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Name = "Label1"
- Label2.Name = "Label2"
- Optiongroup1.Anchor = 0
- Optiongroup1.AutoSize = .F.
- Optiongroup1.BackColor = 240,240,240
- Optiongroup1.BackStyle = 0
- Optiongroup1.BorderColor = 100,100,100
- Optiongroup1.BorderStyle = 1
- Optiongroup1.ButtonCount = 3
- Optiongroup1.Cl_option1.Alignment = 0
- Optiongroup1.Cl_option1.Anchor = 0
- Optiongroup1.Cl_option1.AutoSize = .F.
- Optiongroup1.Cl_option1.BackColor = 240,240,240
- Optiongroup1.Cl_option1.BackStyle = 1
- Optiongroup1.Cl_option1.Caption = "La opción 1"
- Optiongroup1.Cl_option1.ColorScheme = 1
- Optiongroup1.Cl_option1.ColorSource = 4
- Optiongroup1.Cl_option1.Comment = ""
- Optiongroup1.Cl_option1.ControlSource = ""
- Optiongroup1.Cl_option1.DefHeight =
- Optiongroup1.Cl_option1.DefLeft =
- Optiongroup1.Cl_option1.DefTop =
- Optiongroup1.Cl_option1.DefWidth =
- Optiongroup1.Cl_option1.DisabledBackColor = 0,128,192
- Optiongroup1.Cl_option1.DisabledForeColor = 128,0,255
- Optiongroup1.Cl_option1.DisabledPicture = bmps\treeview.bmp
- Optiongroup1.Cl_option1.DownPicture = ..\..\
- Optiongroup1.Cl_option1.DragIcon = ..\..\
- Optiongroup1.Cl_option1.DragMode = 0
- Optiongroup1.Cl_option1.Enabled = .T.
- Optiongroup1.Cl_option1.FontBold = .F.
- Optiongroup1.Cl_option1.FontCondense = .F.
- Optiongroup1.Cl_option1.FontExtend = .F.
- Optiongroup1.Cl_option1.FontItalic = .F.
- Optiongroup1.Cl_option1.FontName = "Arial"
- Optiongroup1.Cl_option1.FontOutline = .F.
- Optiongroup1.Cl_option1.FontShadow = .F.
- Optiongroup1.Cl_option1.FontSize = 8
- Optiongroup1.Cl_option1.FontStrikethru = .F.
- Optiongroup1.Cl_option1.FontUnderline = .F.
- Optiongroup1.Cl_option1.ForeColor = 0,0,0
- Optiongroup1.Cl_option1.Height = (16)
- Optiongroup1.Cl_option1.HelpContextID = 0
- Optiongroup1.Cl_option1.Left = (16)
- Optiongroup1.Cl_option1.MouseIcon = ..\..\
- Optiongroup1.Cl_option1.MousePointer = 0
- Optiongroup1.Cl_option1.Name = "Cl_option1"
- Optiongroup1.Cl_option1.OLEDragMode = 0
- Optiongroup1.Cl_option1.OLEDragPicture = ..\..\
- Optiongroup1.Cl_option1.OLEDropEffects = 3
- Optiongroup1.Cl_option1.OLEDropMode = 0
- Optiongroup1.Cl_option1.Picture = bmps\sobrepostal.bmp
- Optiongroup1.Cl_option1.PictureMargin = 0
- Optiongroup1.Cl_option1.PicturePosition = 4
- Optiongroup1.Cl_option1.PictureSpacing = 0
- Optiongroup1.Cl_option1.RightToLeft = .F.
- Optiongroup1.Cl_option1.SpecialEffect = 0
- Optiongroup1.Cl_option1.StatusBarText = ""
- Optiongroup1.Cl_option1.Style = 0
- Optiongroup1.Cl_option1.TabIndex = 1
- Optiongroup1.Cl_option1.TabStop = .T.
- Optiongroup1.Cl_option1.Tag = ""
- Optiongroup1.Cl_option1.TerminateRead = .F.
- Optiongroup1.Cl_option1.test_aa = .F.
- Optiongroup1.Cl_option1.Themes = .T.
- Optiongroup1.Cl_option1.ToolTipText = ""
- Optiongroup1.Cl_option1.Top = (4)
- Optiongroup1.Cl_option1.Value = 0
- Optiongroup1.Cl_option1.Visible = .T.
- Optiongroup1.Cl_option1.WhatsThisHelpID = -1
- Optiongroup1.Cl_option1.Width = (74)
- Optiongroup1.Cl_option1.WordWrap = .F.
- Optiongroup1.Cl_option2.Left = 16
- Optiongroup1.Cl_option2.Name = "Cl_option2"
- Optiongroup1.Cl_option2.Top = 28
- Optiongroup1.Cl_option3.Left = 16
- Optiongroup1.Cl_option3.Name = "Cl_option3"
- Optiongroup1.Cl_option3.Top = 52
- Optiongroup1.ColorSource = 4
- Optiongroup1.Comment = ""
- Optiongroup1.ControlSource = ""
- Optiongroup1.DefHeight =
- Optiongroup1.DefLeft =
- Optiongroup1.DefTop =
- Optiongroup1.DefWidth =
- Optiongroup1.DragIcon = ..\..\
- Optiongroup1.DragMode = 0
- Optiongroup1.Enabled = .T.
- Optiongroup1.Height = (76)
- Optiongroup1.HelpContextID = 0
- Optiongroup1.Left = (24)
- Optiongroup1.MemberClassLibrary = lib_controles.vcx
- Optiongroup1.MouseIcon = ..\..\
- Optiongroup1.MousePointer = 0
- Optiongroup1.Name = "Optiongroup1"
- Optiongroup1.OLEDragMode = 0
- Optiongroup1.OLEDragPicture = ..\..\
- Optiongroup1.OLEDropEffects = 3
- Optiongroup1.OLEDropMode = 0
- Optiongroup1.SpecialEffect = 0
- Optiongroup1.StatusBarText = ""
- Optiongroup1.TabIndex = 1
- Optiongroup1.Tag = ""
- Optiongroup1.TerminateRead = .F.
- Optiongroup1.Themes = .T.
- Optiongroup1.ToolTipText = ""
- Optiongroup1.Top = (24)
- Optiongroup1.Value = 2
- Optiongroup1.Visible = .T.
- Optiongroup1.WhatsThisHelpID = -1
- Optiongroup1.Width = (248)
- Cl_optiongroup1.Name = "Cl_optiongroup1"
- Cl_optiongroup1.Option1.Left = 8
- Cl_optiongroup1.Option1.Name = "Option1"
- Cl_optiongroup1.Option1.Top = 4
- Cl_optiongroup1.Option2.Left = 8
- Cl_optiongroup1.Option2.Name = "Option2"
- Cl_optiongroup1.Option2.Top = 28
- Cl_optiongroup1.Option3.Left = 8
- Cl_optiongroup1.Option3.Name = "Option3"
- Cl_optiongroup1.Option3.Top = 52
- Cl_optiongroup2.Name = "Cl_optiongroup2"
- Cl_optiongroup2.Option1.Left = 8
- Cl_optiongroup2.Option1.Name = "Option1"
- Cl_optiongroup2.Option1.Top = 4
- Cl_optiongroup2.Option2.Left = 8
- Cl_optiongroup2.Option2.Name = "Option2"
- Cl_optiongroup2.Option2.Top = 28
- Cl_optiongroup2.Option3.Left = 8
- Cl_optiongroup2.Option3.Name = "Option3"
- Cl_optiongroup2.Option3.Top = 52
- Pageframe1.ErasePage = .T.
- Pageframe1.Name = "Pageframe1"
- Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1"
- Pageframe1.Page1.Cl_optiongroup1.Option1.Left = 8
- Pageframe1.Page1.Cl_optiongroup1.Option1.Name = "Option1"
- Pageframe1.Page1.Cl_optiongroup1.Option1.Top = 8
- Pageframe1.Page1.Cl_optiongroup1.Option2.Left = 8
- Pageframe1.Page1.Cl_optiongroup1.Option2.Name = "Option2"
- Pageframe1.Page1.Cl_optiongroup1.Option2.Top = 32
- Pageframe1.Page1.Cl_optiongroup1.Option3.Left = 8
- Pageframe1.Page1.Cl_optiongroup1.Option3.Name = "Option3"
- Pageframe1.Page1.Cl_optiongroup1.Option3.Top = 56
- Pageframe1.Page1.Cl_optiongroup2.Name = "Cl_optiongroup2"
- Pageframe1.Page1.Cl_optiongroup2.Option1.Left = 8
- Pageframe1.Page1.Cl_optiongroup2.Option1.Name = "Option1"
- Pageframe1.Page1.Cl_optiongroup2.Option1.Top = 4
- Pageframe1.Page1.Cl_optiongroup2.Option2.Left = 8
- Pageframe1.Page1.Cl_optiongroup2.Option2.Name = "Option2"
- Pageframe1.Page1.Cl_optiongroup2.Option2.Top = 28
- Pageframe1.Page1.Cl_optiongroup2.Option3.Left = 8
- Pageframe1.Page1.Cl_optiongroup2.Option3.Name = "Option3"
- Pageframe1.Page1.Cl_optiongroup2.Option3.Top = 52
- Pageframe1.Page1.Label2.Name = "Label2"
- Pageframe1.Page1.Name = "Page1"
- Pageframe1.Page1.Optiongroup1.Cl_option1.Left = 16
- Pageframe1.Page1.Optiongroup1.Cl_option1.Name = "Cl_option1"
- Pageframe1.Page1.Optiongroup1.Cl_option1.Top = 4
- Pageframe1.Page1.Optiongroup1.Cl_option2.Left = 16
- Pageframe1.Page1.Optiongroup1.Cl_option2.Name = "Cl_option2"
- Pageframe1.Page1.Optiongroup1.Cl_option2.Top = 28
- Pageframe1.Page1.Optiongroup1.Cl_option3.Left = 16
- Pageframe1.Page1.Optiongroup1.Cl_option3.Name = "Cl_option3"
- Pageframe1.Page1.Optiongroup1.Cl_option3.Top = 52
- Pageframe1.Page1.Optiongroup1.Name = "Optiongroup1"
- Pageframe1.Page1.Optiongroup2.Cl_option1.Left = 16
- Pageframe1.Page1.Optiongroup2.Cl_option1.Name = "Cl_option1"
- Pageframe1.Page1.Optiongroup2.Cl_option1.Top = 4
- Pageframe1.Page1.Optiongroup2.Cl_option2.Left = 16
- Pageframe1.Page1.Optiongroup2.Cl_option2.Name = "Cl_option2"
- Pageframe1.Page1.Optiongroup2.Cl_option2.Top = 28
- Pageframe1.Page1.Optiongroup2.Cl_option3.Left = 16
- Pageframe1.Page1.Optiongroup2.Cl_option3.Name = "Cl_option3"
- Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52
- Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2"
- Pageframe1.Page2.Name = "Page2"
- Optiongroup2.Cl_option1.Left = 16
- Optiongroup2.Cl_option1.Name = "Cl_option1"
- Optiongroup2.Cl_option1.Top = 4
- Optiongroup2.Cl_option2.Left = 16
- Optiongroup2.Cl_option2.Name = "Cl_option2"
- Optiongroup2.Cl_option2.Top = 28
- Optiongroup2.Cl_option3.Left = 16
- Optiongroup2.Cl_option3.Name = "Cl_option3"
- Optiongroup2.Cl_option3.Top = 52
- Optiongroup2.Name = "Optiongroup2"
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_test.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_test.dataenvironment.sc2
new file mode 100644
index 0000000..2bbf1b6
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_test.dataenvironment.sc2
@@ -0,0 +1,17 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Name = "Dataenvironment"
+ TabStop = .F.
+ Visible = .F.
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_test.f_form_controles1.sc2 b/TESTS/DATOS_READONLY/f_test.f_form_controles1.sc2
new file mode 100644
index 0000000..411588d
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_test.f_form_controles1.sc2
@@ -0,0 +1,452 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *
+ DoCreate = .T.
+ Name = "F_form_controles1"
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Name = "Label1"
+ Label2.Name = "Label2"
+ Label4.Alignment = 0
+ Label4.Anchor = 0
+ Label4.AutoSize = .F.
+ Label4.BackColor = 240,240,240
+ Label4.BackStyle = 1
+ Label4.BorderStyle = 0
+ Label4.Caption = "Label4"
+ Label4.ColorScheme = 1
+ Label4.ColorSource = 4
+ Label4.Comment = ""
+ Label4.DefHeight =
+ Label4.DefLeft =
+ Label4.DefTop =
+ Label4.DefWidth =
+ Label4.DisabledBackColor = 240,240,240
+ Label4.DisabledForeColor = 109,109,109
+ Label4.DragIcon = ..\..\
+ Label4.DragMode = 0
+ Label4.Enabled = .T.
+ Label4.FontBold = .F.
+ Label4.FontCondense = .F.
+ Label4.FontExtend = .F.
+ Label4.FontItalic = .F.
+ Label4.FontName = "Arial"
+ Label4.FontOutline = .F.
+ Label4.FontShadow = .F.
+ Label4.FontSize = 8
+ Label4.FontStrikethru = .F.
+ Label4.FontUnderline = .F.
+ Label4.ForeColor = 0,0,0
+ Label4.Height = (17)
+ Label4.HelpContextID = 0
+ Label4.Left = (44)
+ Label4.MouseIcon = ..\..\
+ Label4.MousePointer = 0
+ Label4.Name = "Label4"
+ Label4.OLEDragMode = 0
+ Label4.OLEDragPicture = ..\..\
+ Label4.OLEDropEffects = 3
+ Label4.OLEDropMode = 0
+ Label4.RightToLeft = .F.
+ Label4.Rotation = 0
+ Label4.Style = 0
+ Label4.TabIndex = 6
+ Label4.Tag = ""
+ Label4.ToolTipText = ""
+ Label4.Top = (40)
+ Label4.WhatsThisHelpID = -1
+ Label4.Width = (104)
+ Label4.WordWrap = .F.
+ Shape1.Anchor = 0
+ Shape1.BackColor = 240,240,240
+ Shape1.BackStyle = 1
+ Shape1.BorderColor = 100,100,100
+ Shape1.BorderStyle = 1
+ Shape1.BorderWidth = 1
+ Shape1.ColorScheme = 1
+ Shape1.ColorSource = 4
+ Shape1.Comment = ""
+ Shape1.Curvature = 0
+ Shape1.DefHeight =
+ Shape1.DefLeft =
+ Shape1.DefTop =
+ Shape1.DefWidth =
+ Shape1.DragIcon = ..\..\
+ Shape1.DragMode = 0
+ Shape1.DrawMode = 13
+ Shape1.Enabled = .T.
+ Shape1.FillColor = 0,0,0
+ Shape1.FillStyle = 1
+ Shape1.Height = (17)
+ Shape1.HelpContextID = 0
+ Shape1.Left = (44)
+ Shape1.MouseIcon = ..\..\
+ Shape1.MousePointer = 0
+ Shape1.Name = "Shape1"
+ Shape1.OLEDragMode = 0
+ Shape1.OLEDragPicture = ..\..\
+ Shape1.OLEDropEffects = 3
+ Shape1.OLEDropMode = 0
+ Shape1.PolyPoints = ""
+ Shape1.Rotation = 0
+ Shape1.SpecialEffect = 0
+ Shape1.StatusBarText = ""
+ Shape1.Style = 0
+ Shape1.Tag = ""
+ Shape1.ToolTipText = ""
+ Shape1.Top = (60)
+ Shape1.Visible = .T.
+ Shape1.WhatsThisHelpID = -1
+ Shape1.Width = (105)
+ Line1.Anchor = 0
+ Line1.BorderColor = 100,100,100
+ Line1.BorderStyle = 1
+ Line1.BorderWidth = 1
+ Line1.ColorSource = 4
+ Line1.Comment = ""
+ Line1.DefHeight =
+ Line1.DefLeft =
+ Line1.DefTop =
+ Line1.DefWidth =
+ Line1.DragIcon = ..\..\
+ Line1.DragMode = 0
+ Line1.DrawMode = 13
+ Line1.Enabled = .T.
+ Line1.Height = (8)
+ Line1.HelpContextID = 0
+ Line1.Left = (44)
+ Line1.LineSlant = "\"
+ Line1.MouseIcon = ..\..\
+ Line1.MousePointer = 0
+ Line1.Name = "Line1"
+ Line1.OLEDragMode = 0
+ Line1.OLEDragPicture = ..\..\
+ Line1.OLEDropEffects = 3
+ Line1.OLEDropMode = 0
+ Line1.PolyPoints = ""
+ Line1.Rotation = 0
+ Line1.StatusBarText = ""
+ Line1.Tag = ""
+ Line1.ToolTipText = ""
+ Line1.Top = (80)
+ Line1.Visible = .T.
+ Line1.WhatsThisHelpID = -1
+ Line1.Width = (104)
+ Image1.Anchor = 0
+ Image1.BackStyle = 1
+ Image1.BorderColor = 100,100,100
+ Image1.BorderStyle = 0
+ Image1.ColorSource = 4
+ Image1.Comment = ""
+ Image1.DefHeight =
+ Image1.DefLeft =
+ Image1.DefTop =
+ Image1.DefWidth =
+ Image1.DragIcon = ..\..\
+ Image1.DragMode = 0
+ Image1.Enabled = .T.
+ Image1.Height = (16)
+ Image1.HelpContextID = 0
+ Image1.Left = (44)
+ Image1.MouseIcon = ..\..\
+ Image1.MousePointer = 0
+ Image1.Name = "Image1"
+ Image1.OLEDragMode = 0
+ Image1.OLEDragPicture = ..\..\
+ Image1.OLEDropEffects = 3
+ Image1.OLEDropMode = 0
+ Image1.Picture = bmps\sobrepostal.bmp
+ Image1.RotateFlip = 0
+ Image1.StatusBarText = ""
+ Image1.Stretch = 0
+ Image1.Tag = ""
+ Image1.Themes = .T.
+ Image1.ToolTipText = ""
+ Image1.Top = (100)
+ Image1.Visible = .T.
+ Image1.WhatsThisHelpID = -1
+ Image1.Width = (17)
+ Image2.Name = "Image2"
+ Image3.Height = 16
+ Image3.Name = "Image3"
+ Image3.Width = 17
+ Image4.Name = "Image4"
+ Image5.Height = 16
+ Image5.Name = "Image5"
+ Image5.Width = 17
+ Pageframe1.ActivePage = 2
+ Pageframe1.Anchor = 0
+ Pageframe1.cl_page1.BackColor = 240,240,240
+ Pageframe1.cl_page1.Caption = "Page1"
+ Pageframe1.cl_page1.ColorSource = 4
+ Pageframe1.cl_page1.Comment = ""
+ Pageframe1.cl_page1.DragIcon = ..\..\
+ Pageframe1.cl_page1.DragMode = 0
+ Pageframe1.cl_page1.Enabled = .T.
+ Pageframe1.cl_page1.FontBold = .F.
+ Pageframe1.cl_page1.FontCharSet = 0
+ Pageframe1.cl_page1.FontCondense = .F.
+ Pageframe1.cl_page1.FontExtend = .F.
+ Pageframe1.cl_page1.FontItalic = .F.
+ Pageframe1.cl_page1.FontName = "Arial"
+ Pageframe1.cl_page1.FontOutline = .F.
+ Pageframe1.cl_page1.FontShadow = .F.
+ Pageframe1.cl_page1.FontSize = 8
+ Pageframe1.cl_page1.FontStrikethru = .F.
+ Pageframe1.cl_page1.FontUnderline = .F.
+ Pageframe1.cl_page1.ForeColor = 0,0,0
+ Pageframe1.cl_page1.HelpContextID = 0
+ Pageframe1.cl_page1.MouseIcon = ..\..\
+ Pageframe1.cl_page1.MousePointer = 0
+ Pageframe1.cl_page1.Name = "cl_page1"
+ Pageframe1.cl_page1.OLEDragMode = 0
+ Pageframe1.cl_page1.OLEDragPicture = ..\..\
+ Pageframe1.cl_page1.OLEDropEffects = 3
+ Pageframe1.cl_page1.OLEDropMode = 0
+ Pageframe1.cl_page1.PageOrder = 1
+ Pageframe1.cl_page1.StatusBarText = ""
+ Pageframe1.cl_page1.Tag = ""
+ Pageframe1.cl_page1.ToolTipText = ""
+ Pageframe1.cl_page1.WhatsThisHelpID = -1
+ Pageframe1.cl_page2.Image1.Height = 16
+ Pageframe1.cl_page2.Image1.Name = "Image1"
+ Pageframe1.cl_page2.Image1.Width = 17
+ Pageframe1.cl_page2.Image10.Height = 16
+ Pageframe1.cl_page2.Image10.Name = "Image10"
+ Pageframe1.cl_page2.Image10.Width = 17
+ Pageframe1.cl_page2.Image2.Name = "Image2"
+ Pageframe1.cl_page2.Image3.Height = 16
+ Pageframe1.cl_page2.Image3.Name = "Image3"
+ Pageframe1.cl_page2.Image3.Width = 17
+ Pageframe1.cl_page2.Image4.Name = "Image4"
+ Pageframe1.cl_page2.Image5.Height = 16
+ Pageframe1.cl_page2.Image5.Name = "Image5"
+ Pageframe1.cl_page2.Image5.Width = 17
+ Pageframe1.cl_page2.Image6.Height = 16
+ Pageframe1.cl_page2.Image6.Name = "Image6"
+ Pageframe1.cl_page2.Image6.Width = 17
+ Pageframe1.cl_page2.Image7.Name = "Image7"
+ Pageframe1.cl_page2.Image8.Height = 16
+ Pageframe1.cl_page2.Image8.Name = "Image8"
+ Pageframe1.cl_page2.Image8.Width = 17
+ Pageframe1.cl_page2.Image9.Name = "Image9"
+ Pageframe1.cl_page2.Label4.Alignment = 0
+ Pageframe1.cl_page2.Label4.Anchor = 0
+ Pageframe1.cl_page2.Label4.AutoSize = .F.
+ Pageframe1.cl_page2.Label4.BackColor = 240,240,240
+ Pageframe1.cl_page2.Label4.BackStyle = 1
+ Pageframe1.cl_page2.Label4.BorderStyle = 0
+ Pageframe1.cl_page2.Label4.Caption = "Label4"
+ Pageframe1.cl_page2.Label4.ColorScheme = 1
+ Pageframe1.cl_page2.Label4.ColorSource = 4
+ Pageframe1.cl_page2.Label4.Comment = ""
+ Pageframe1.cl_page2.Label4.DisabledBackColor = 240,240,240
+ Pageframe1.cl_page2.Label4.DisabledForeColor = 109,109,109
+ Pageframe1.cl_page2.Label4.DragIcon = ..\..\
+ Pageframe1.cl_page2.Label4.DragMode = 0
+ Pageframe1.cl_page2.Label4.Enabled = .T.
+ Pageframe1.cl_page2.Label4.FontBold = .F.
+ Pageframe1.cl_page2.Label4.Name = "Label4"
+ Pageframe1.cl_page2.Label5.Name = "Label5"
+ Pageframe1.cl_page2.Line1.Name = "Line1"
+ Pageframe1.cl_page2.Line2.Name = "Line2"
+ Pageframe1.cl_page2.Name = "cl_page2"
+ Pageframe1.cl_page2.PageOrder = 2
+ Pageframe1.cl_page2.Shape1.Name = "Shape1"
+ Pageframe1.cl_page2.Shape2.Name = "Shape2"
+ Pageframe1.cl_page2.Spinner1.Name = "Spinner1"
+ Pageframe1.cl_page2.Spinner2.Name = "Spinner2"
+ Pageframe1.cl_page3.Name = "cl_page3"
+ Pageframe1.cl_page3.PageOrder = 3
+ Pageframe1.ColorSource = 4
+ Pageframe1.Comment = ""
+ Pageframe1.DefHeight =
+ Pageframe1.DefLeft =
+ Pageframe1.DefTop =
+ Pageframe1.DefWidth =
+ Pageframe1.DragIcon = ..\..\
+ Pageframe1.DragMode = 0
+ Pageframe1.Enabled = .T.
+ Pageframe1.ErasePage = .T.
+ Pageframe1.Height = (193)
+ Pageframe1.HelpContextID = 0
+ Pageframe1.Left = (20)
+ Pageframe1.MouseIcon = ..\..\
+ Pageframe1.MousePointer = 0
+ Pageframe1.Name = "Pageframe1"
+ Pageframe1.OLEDragMode = 0
+ Pageframe1.OLEDragPicture = ..\..\
+ Pageframe1.OLEDropEffects = 3
+ Pageframe1.OLEDropMode = 0
+ Pageframe1.RightToLeft = .F.
+ Pageframe1.StatusBarText = ""
+ Pageframe1.TabIndex = 7
+ Pageframe1.TabOrientation = 0
+ Pageframe1.Tabs = .T.
+ Pageframe1.TabStop = .T.
+ Pageframe1.TabStretch = 1
+ Pageframe1.TabStyle = 1
+ Pageframe1.Tag = ""
+ Pageframe1.Themes = .T.
+ Pageframe1.ToolTipText = ""
+ Pageframe1.Top = (200)
+ Pageframe1.Visible = .T.
+ Pageframe1.WhatsThisHelpID = -1
+ Pageframe1.Width = (256)
+ Spinner1.Alignment = 1
+ Spinner1.Anchor = 0
+ Spinner1.BackColor = 255,255,255
+ Spinner1.BorderColor = 100,100,100
+ Spinner1.BorderStyle = 1
+ Spinner1.ColorScheme = 1
+ Spinner1.ColorSource = 4
+ Spinner1.Comment = ""
+ Spinner1.ControlSource = ""
+ Spinner1.DefHeight =
+ Spinner1.DefLeft =
+ Spinner1.DefTop =
+ Spinner1.DefWidth =
+ Spinner1.DisabledBackColor = 240,240,240
+ Spinner1.DisabledForeColor = 109,109,109
+ Spinner1.DragIcon = ..\..\
+ Spinner1.DragMode = 0
+ Spinner1.Enabled = .T.
+ Spinner1.FontBold = .F.
+ Spinner1.FontCondense = .F.
+ Spinner1.FontExtend = .F.
+ Spinner1.FontItalic = .F.
+ Spinner1.FontName = "Arial"
+ Spinner1.FontOutline = .F.
+ Spinner1.FontShadow = .F.
+ Spinner1.FontSize = 8
+ Spinner1.FontStrikethru = .F.
+ Spinner1.FontUnderline = .F.
+ Spinner1.ForeColor = 0,0,0
+ Spinner1.Format = ""
+ Spinner1.Height = (24)
+ Spinner1.HelpContextID = 0
+ Spinner1.HideSelection = .T.
+ Spinner1.Increment = 1.00
+ Spinner1.InputMask = ""
+ Spinner1.KeyboardHighValue = 2147483647
+ Spinner1.KeyboardLowValue = -2147483647
+ Spinner1.Left = (44)
+ Spinner1.Margin = 2
+ Spinner1.MouseIcon = ..\..\
+ Spinner1.MousePointer = 0
+ Spinner1.Name = "Spinner1"
+ Spinner1.NullDisplay = ""
+ Spinner1.OLEDragMode = 0
+ Spinner1.OLEDragPicture = ..\..\
+ Spinner1.OLEDropEffects = 3
+ Spinner1.OLEDropMode = 0
+ Spinner1.OLEDropTextInsertion = 0
+ Spinner1.ReadOnly = .F.
+ Spinner1.RightToLeft = .F.
+ Spinner1.SelectedBackColor = 51,153,255
+ Spinner1.SelectedForeColor = 255,255,255
+ Spinner1.SelectOnEntry = .F.
+ Spinner1.SpecialEffect = 0
+ Spinner1.StatusBarText = ""
+ Spinner1.TabIndex = 8
+ Spinner1.TabStop = .T.
+ Spinner1.Tag = ""
+ Spinner1.TerminateRead = .F.
+ Spinner1.Themes = .T.
+ Spinner1.ToolTipText = ""
+ Spinner1.Top = (160)
+ Spinner1.Value = 0
+ Spinner1.Visible = .T.
+ Spinner1.WhatsThisHelpID = -1
+ Spinner1.Width = (104)
+ Label5.Name = "Label5"
+ Shape2.Name = "Shape2"
+ Line2.Name = "Line2"
+ Image6.Height = 16
+ Image6.Name = "Image6"
+ Image6.Width = 17
+ Image7.Name = "Image7"
+ Image8.Height = 16
+ Image8.Name = "Image8"
+ Image8.Width = 17
+ Image9.Name = "Image9"
+ Image10.Height = 16
+ Image10.Name = "Image10"
+ Image10.Width = 17
+ Spinner2.Name = "Spinner2"
+ Cl_pageframe1.ErasePage = .T.
+ Cl_pageframe1.Name = "Cl_pageframe1"
+ Cl_pageframe1.Page1.Name = "Page1"
+ Cl_pageframe1.Page2.Image1.Height = 16
+ Cl_pageframe1.Page2.Image1.Name = "Image1"
+ Cl_pageframe1.Page2.Image1.Width = 17
+ Cl_pageframe1.Page2.Image10.Height = 16
+ Cl_pageframe1.Page2.Image10.Name = "Image10"
+ Cl_pageframe1.Page2.Image10.Width = 17
+ Cl_pageframe1.Page2.Image2.Name = "Image2"
+ Cl_pageframe1.Page2.Image3.Height = 16
+ Cl_pageframe1.Page2.Image3.Name = "Image3"
+ Cl_pageframe1.Page2.Image3.Width = 17
+ Cl_pageframe1.Page2.Image4.Name = "Image4"
+ Cl_pageframe1.Page2.Image5.Height = 16
+ Cl_pageframe1.Page2.Image5.Name = "Image5"
+ Cl_pageframe1.Page2.Image5.Width = 17
+ Cl_pageframe1.Page2.Image6.Height = 16
+ Cl_pageframe1.Page2.Image6.Name = "Image6"
+ Cl_pageframe1.Page2.Image6.Width = 17
+ Cl_pageframe1.Page2.Image7.Name = "Image7"
+ Cl_pageframe1.Page2.Image8.Height = 16
+ Cl_pageframe1.Page2.Image8.Name = "Image8"
+ Cl_pageframe1.Page2.Image8.Width = 17
+ Cl_pageframe1.Page2.Image9.Name = "Image9"
+ Cl_pageframe1.Page2.Label4.Name = "Label4"
+ Cl_pageframe1.Page2.Label5.Name = "Label5"
+ Cl_pageframe1.Page2.Line1.Name = "Line1"
+ Cl_pageframe1.Page2.Line2.Name = "Line2"
+ Cl_pageframe1.Page2.Name = "Page2"
+ Cl_pageframe1.Page2.Shape1.Name = "Shape1"
+ Cl_pageframe1.Page2.Shape2.Name = "Shape2"
+ Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
+ Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
+ Cl_pageframe1.Page3.Name = "Page3"
+ Cl_label1.Name = "Cl_label1"
+ Cl_shape1.Name = "Cl_shape1"
+ Cl_line1.Name = "Cl_line1"
+ Cl_image1.Height = 16
+ Cl_image1.Name = "Cl_image1"
+ Cl_image1.Width = 17
+ Cl_image2.Name = "Cl_image2"
+ Cl_image3.Height = 16
+ Cl_image3.Name = "Cl_image3"
+ Cl_image3.Width = 17
+ Cl_image4.Name = "Cl_image4"
+ Cl_image5.Height = 16
+ Cl_image5.Name = "Cl_image5"
+ Cl_image5.Width = 17
+ Cl_spinner1.Name = "Cl_spinner1"
+ Cl_label2.Name = "Cl_label2"
+ Cl_shape2.Name = "Cl_shape2"
+ Cl_line2.Name = "Cl_line2"
+ Cl_image6.Height = 16
+ Cl_image6.Name = "Cl_image6"
+ Cl_image6.Width = 17
+ Cl_image7.Name = "Cl_image7"
+ Cl_image8.Height = 16
+ Cl_image8.Name = "Cl_image8"
+ Cl_image8.Width = 17
+ Cl_image9.Name = "Cl_image9"
+ Cl_image10.Height = 16
+ Cl_image10.Name = "Cl_image10"
+ Cl_image10.Width = 17
+ Cl_spinner2.Name = "Cl_spinner2"
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_test.sc2 b/TESTS/DATOS_READONLY/f_test.sc2
index e9fac45..9b40a4e 100644
--- a/TESTS/DATOS_READONLY/f_test.sc2
+++ b/TESTS/DATOS_READONLY/f_test.sc2
@@ -4,458 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_form_controles1" Baseclass="form" />
- DataSource = .NULL.
- Name = "Dataenvironment"
- TabStop = .F.
- Visible = .F.
-
-ENDDEFINE
-
-DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- DoCreate = .T.
- Name = "F_form_controles1"
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Name = "Label1"
- Label2.Name = "Label2"
- Label4.Alignment = 0
- Label4.Anchor = 0
- Label4.AutoSize = .F.
- Label4.BackColor = 240,240,240
- Label4.BackStyle = 1
- Label4.BorderStyle = 0
- Label4.Caption = "Label4"
- Label4.ColorScheme = 1
- Label4.ColorSource = 4
- Label4.Comment = ""
- Label4.DefHeight =
- Label4.DefLeft =
- Label4.DefTop =
- Label4.DefWidth =
- Label4.DisabledBackColor = 240,240,240
- Label4.DisabledForeColor = 109,109,109
- Label4.DragIcon = ..\..\
- Label4.DragMode = 0
- Label4.Enabled = .T.
- Label4.FontBold = .F.
- Label4.FontCondense = .F.
- Label4.FontExtend = .F.
- Label4.FontItalic = .F.
- Label4.FontName = "Arial"
- Label4.FontOutline = .F.
- Label4.FontShadow = .F.
- Label4.FontSize = 8
- Label4.FontStrikethru = .F.
- Label4.FontUnderline = .F.
- Label4.ForeColor = 0,0,0
- Label4.Height = (17)
- Label4.HelpContextID = 0
- Label4.Left = (44)
- Label4.MouseIcon = ..\..\
- Label4.MousePointer = 0
- Label4.Name = "Label4"
- Label4.OLEDragMode = 0
- Label4.OLEDragPicture = ..\..\
- Label4.OLEDropEffects = 3
- Label4.OLEDropMode = 0
- Label4.RightToLeft = .F.
- Label4.Rotation = 0
- Label4.Style = 0
- Label4.TabIndex = 6
- Label4.Tag = ""
- Label4.ToolTipText = ""
- Label4.Top = (40)
- Label4.WhatsThisHelpID = -1
- Label4.Width = (104)
- Label4.WordWrap = .F.
- Shape1.Anchor = 0
- Shape1.BackColor = 240,240,240
- Shape1.BackStyle = 1
- Shape1.BorderColor = 100,100,100
- Shape1.BorderStyle = 1
- Shape1.BorderWidth = 1
- Shape1.ColorScheme = 1
- Shape1.ColorSource = 4
- Shape1.Comment = ""
- Shape1.Curvature = 0
- Shape1.DefHeight =
- Shape1.DefLeft =
- Shape1.DefTop =
- Shape1.DefWidth =
- Shape1.DragIcon = ..\..\
- Shape1.DragMode = 0
- Shape1.DrawMode = 13
- Shape1.Enabled = .T.
- Shape1.FillColor = 0,0,0
- Shape1.FillStyle = 1
- Shape1.Height = (17)
- Shape1.HelpContextID = 0
- Shape1.Left = (44)
- Shape1.MouseIcon = ..\..\
- Shape1.MousePointer = 0
- Shape1.Name = "Shape1"
- Shape1.OLEDragMode = 0
- Shape1.OLEDragPicture = ..\..\
- Shape1.OLEDropEffects = 3
- Shape1.OLEDropMode = 0
- Shape1.PolyPoints = ""
- Shape1.Rotation = 0
- Shape1.SpecialEffect = 0
- Shape1.StatusBarText = ""
- Shape1.Style = 0
- Shape1.Tag = ""
- Shape1.ToolTipText = ""
- Shape1.Top = (60)
- Shape1.Visible = .T.
- Shape1.WhatsThisHelpID = -1
- Shape1.Width = (105)
- Line1.Anchor = 0
- Line1.BorderColor = 100,100,100
- Line1.BorderStyle = 1
- Line1.BorderWidth = 1
- Line1.ColorSource = 4
- Line1.Comment = ""
- Line1.DefHeight =
- Line1.DefLeft =
- Line1.DefTop =
- Line1.DefWidth =
- Line1.DragIcon = ..\..\
- Line1.DragMode = 0
- Line1.DrawMode = 13
- Line1.Enabled = .T.
- Line1.Height = (8)
- Line1.HelpContextID = 0
- Line1.Left = (44)
- Line1.LineSlant = "\"
- Line1.MouseIcon = ..\..\
- Line1.MousePointer = 0
- Line1.Name = "Line1"
- Line1.OLEDragMode = 0
- Line1.OLEDragPicture = ..\..\
- Line1.OLEDropEffects = 3
- Line1.OLEDropMode = 0
- Line1.PolyPoints = ""
- Line1.Rotation = 0
- Line1.StatusBarText = ""
- Line1.Tag = ""
- Line1.ToolTipText = ""
- Line1.Top = (80)
- Line1.Visible = .T.
- Line1.WhatsThisHelpID = -1
- Line1.Width = (104)
- Image1.Anchor = 0
- Image1.BackStyle = 1
- Image1.BorderColor = 100,100,100
- Image1.BorderStyle = 0
- Image1.ColorSource = 4
- Image1.Comment = ""
- Image1.DefHeight =
- Image1.DefLeft =
- Image1.DefTop =
- Image1.DefWidth =
- Image1.DragIcon = ..\..\
- Image1.DragMode = 0
- Image1.Enabled = .T.
- Image1.Height = (16)
- Image1.HelpContextID = 0
- Image1.Left = (44)
- Image1.MouseIcon = ..\..\
- Image1.MousePointer = 0
- Image1.Name = "Image1"
- Image1.OLEDragMode = 0
- Image1.OLEDragPicture = ..\..\
- Image1.OLEDropEffects = 3
- Image1.OLEDropMode = 0
- Image1.Picture = bmps\sobrepostal.bmp
- Image1.RotateFlip = 0
- Image1.StatusBarText = ""
- Image1.Stretch = 0
- Image1.Tag = ""
- Image1.Themes = .T.
- Image1.ToolTipText = ""
- Image1.Top = (100)
- Image1.Visible = .T.
- Image1.WhatsThisHelpID = -1
- Image1.Width = (17)
- Image2.Name = "Image2"
- Image3.Height = 16
- Image3.Name = "Image3"
- Image3.Width = 17
- Image4.Name = "Image4"
- Image5.Height = 16
- Image5.Name = "Image5"
- Image5.Width = 17
- Pageframe1.ActivePage = 2
- Pageframe1.Anchor = 0
- Pageframe1.cl_page1.BackColor = 240,240,240
- Pageframe1.cl_page1.Caption = "Page1"
- Pageframe1.cl_page1.ColorSource = 4
- Pageframe1.cl_page1.Comment = ""
- Pageframe1.cl_page1.DragIcon = ..\..\
- Pageframe1.cl_page1.DragMode = 0
- Pageframe1.cl_page1.Enabled = .T.
- Pageframe1.cl_page1.FontBold = .F.
- Pageframe1.cl_page1.FontCharSet = 0
- Pageframe1.cl_page1.FontCondense = .F.
- Pageframe1.cl_page1.FontExtend = .F.
- Pageframe1.cl_page1.FontItalic = .F.
- Pageframe1.cl_page1.FontName = "Arial"
- Pageframe1.cl_page1.FontOutline = .F.
- Pageframe1.cl_page1.FontShadow = .F.
- Pageframe1.cl_page1.FontSize = 8
- Pageframe1.cl_page1.FontStrikethru = .F.
- Pageframe1.cl_page1.FontUnderline = .F.
- Pageframe1.cl_page1.ForeColor = 0,0,0
- Pageframe1.cl_page1.HelpContextID = 0
- Pageframe1.cl_page1.MouseIcon = ..\..\
- Pageframe1.cl_page1.MousePointer = 0
- Pageframe1.cl_page1.Name = "cl_page1"
- Pageframe1.cl_page1.OLEDragMode = 0
- Pageframe1.cl_page1.OLEDragPicture = ..\..\
- Pageframe1.cl_page1.OLEDropEffects = 3
- Pageframe1.cl_page1.OLEDropMode = 0
- Pageframe1.cl_page1.PageOrder = 1
- Pageframe1.cl_page1.StatusBarText = ""
- Pageframe1.cl_page1.Tag = ""
- Pageframe1.cl_page1.ToolTipText = ""
- Pageframe1.cl_page1.WhatsThisHelpID = -1
- Pageframe1.cl_page2.Image1.Height = 16
- Pageframe1.cl_page2.Image1.Name = "Image1"
- Pageframe1.cl_page2.Image1.Width = 17
- Pageframe1.cl_page2.Image10.Height = 16
- Pageframe1.cl_page2.Image10.Name = "Image10"
- Pageframe1.cl_page2.Image10.Width = 17
- Pageframe1.cl_page2.Image2.Name = "Image2"
- Pageframe1.cl_page2.Image3.Height = 16
- Pageframe1.cl_page2.Image3.Name = "Image3"
- Pageframe1.cl_page2.Image3.Width = 17
- Pageframe1.cl_page2.Image4.Name = "Image4"
- Pageframe1.cl_page2.Image5.Height = 16
- Pageframe1.cl_page2.Image5.Name = "Image5"
- Pageframe1.cl_page2.Image5.Width = 17
- Pageframe1.cl_page2.Image6.Height = 16
- Pageframe1.cl_page2.Image6.Name = "Image6"
- Pageframe1.cl_page2.Image6.Width = 17
- Pageframe1.cl_page2.Image7.Name = "Image7"
- Pageframe1.cl_page2.Image8.Height = 16
- Pageframe1.cl_page2.Image8.Name = "Image8"
- Pageframe1.cl_page2.Image8.Width = 17
- Pageframe1.cl_page2.Image9.Name = "Image9"
- Pageframe1.cl_page2.Label4.Alignment = 0
- Pageframe1.cl_page2.Label4.Anchor = 0
- Pageframe1.cl_page2.Label4.AutoSize = .F.
- Pageframe1.cl_page2.Label4.BackColor = 240,240,240
- Pageframe1.cl_page2.Label4.BackStyle = 1
- Pageframe1.cl_page2.Label4.BorderStyle = 0
- Pageframe1.cl_page2.Label4.Caption = "Label4"
- Pageframe1.cl_page2.Label4.ColorScheme = 1
- Pageframe1.cl_page2.Label4.ColorSource = 4
- Pageframe1.cl_page2.Label4.Comment = ""
- Pageframe1.cl_page2.Label4.DisabledBackColor = 240,240,240
- Pageframe1.cl_page2.Label4.DisabledForeColor = 109,109,109
- Pageframe1.cl_page2.Label4.DragIcon = ..\..\
- Pageframe1.cl_page2.Label4.DragMode = 0
- Pageframe1.cl_page2.Label4.Enabled = .T.
- Pageframe1.cl_page2.Label4.FontBold = .F.
- Pageframe1.cl_page2.Label4.Name = "Label4"
- Pageframe1.cl_page2.Label5.Name = "Label5"
- Pageframe1.cl_page2.Line1.Name = "Line1"
- Pageframe1.cl_page2.Line2.Name = "Line2"
- Pageframe1.cl_page2.Name = "cl_page2"
- Pageframe1.cl_page2.PageOrder = 2
- Pageframe1.cl_page2.Shape1.Name = "Shape1"
- Pageframe1.cl_page2.Shape2.Name = "Shape2"
- Pageframe1.cl_page2.Spinner1.Name = "Spinner1"
- Pageframe1.cl_page2.Spinner2.Name = "Spinner2"
- Pageframe1.cl_page3.Name = "cl_page3"
- Pageframe1.cl_page3.PageOrder = 3
- Pageframe1.ColorSource = 4
- Pageframe1.Comment = ""
- Pageframe1.DefHeight =
- Pageframe1.DefLeft =
- Pageframe1.DefTop =
- Pageframe1.DefWidth =
- Pageframe1.DragIcon = ..\..\
- Pageframe1.DragMode = 0
- Pageframe1.Enabled = .T.
- Pageframe1.ErasePage = .T.
- Pageframe1.Height = (193)
- Pageframe1.HelpContextID = 0
- Pageframe1.Left = (20)
- Pageframe1.MouseIcon = ..\..\
- Pageframe1.MousePointer = 0
- Pageframe1.Name = "Pageframe1"
- Pageframe1.OLEDragMode = 0
- Pageframe1.OLEDragPicture = ..\..\
- Pageframe1.OLEDropEffects = 3
- Pageframe1.OLEDropMode = 0
- Pageframe1.RightToLeft = .F.
- Pageframe1.StatusBarText = ""
- Pageframe1.TabIndex = 7
- Pageframe1.TabOrientation = 0
- Pageframe1.Tabs = .T.
- Pageframe1.TabStop = .T.
- Pageframe1.TabStretch = 1
- Pageframe1.TabStyle = 1
- Pageframe1.Tag = ""
- Pageframe1.Themes = .T.
- Pageframe1.ToolTipText = ""
- Pageframe1.Top = (200)
- Pageframe1.Visible = .T.
- Pageframe1.WhatsThisHelpID = -1
- Pageframe1.Width = (256)
- Spinner1.Alignment = 1
- Spinner1.Anchor = 0
- Spinner1.BackColor = 255,255,255
- Spinner1.BorderColor = 100,100,100
- Spinner1.BorderStyle = 1
- Spinner1.ColorScheme = 1
- Spinner1.ColorSource = 4
- Spinner1.Comment = ""
- Spinner1.ControlSource = ""
- Spinner1.DefHeight =
- Spinner1.DefLeft =
- Spinner1.DefTop =
- Spinner1.DefWidth =
- Spinner1.DisabledBackColor = 240,240,240
- Spinner1.DisabledForeColor = 109,109,109
- Spinner1.DragIcon = ..\..\
- Spinner1.DragMode = 0
- Spinner1.Enabled = .T.
- Spinner1.FontBold = .F.
- Spinner1.FontCondense = .F.
- Spinner1.FontExtend = .F.
- Spinner1.FontItalic = .F.
- Spinner1.FontName = "Arial"
- Spinner1.FontOutline = .F.
- Spinner1.FontShadow = .F.
- Spinner1.FontSize = 8
- Spinner1.FontStrikethru = .F.
- Spinner1.FontUnderline = .F.
- Spinner1.ForeColor = 0,0,0
- Spinner1.Format = ""
- Spinner1.Height = (24)
- Spinner1.HelpContextID = 0
- Spinner1.HideSelection = .T.
- Spinner1.Increment = 1.00
- Spinner1.InputMask = ""
- Spinner1.KeyboardHighValue = 2147483647
- Spinner1.KeyboardLowValue = -2147483647
- Spinner1.Left = (44)
- Spinner1.Margin = 2
- Spinner1.MouseIcon = ..\..\
- Spinner1.MousePointer = 0
- Spinner1.Name = "Spinner1"
- Spinner1.NullDisplay = ""
- Spinner1.OLEDragMode = 0
- Spinner1.OLEDragPicture = ..\..\
- Spinner1.OLEDropEffects = 3
- Spinner1.OLEDropMode = 0
- Spinner1.OLEDropTextInsertion = 0
- Spinner1.ReadOnly = .F.
- Spinner1.RightToLeft = .F.
- Spinner1.SelectedBackColor = 51,153,255
- Spinner1.SelectedForeColor = 255,255,255
- Spinner1.SelectOnEntry = .F.
- Spinner1.SpecialEffect = 0
- Spinner1.StatusBarText = ""
- Spinner1.TabIndex = 8
- Spinner1.TabStop = .T.
- Spinner1.Tag = ""
- Spinner1.TerminateRead = .F.
- Spinner1.Themes = .T.
- Spinner1.ToolTipText = ""
- Spinner1.Top = (160)
- Spinner1.Value = 0
- Spinner1.Visible = .T.
- Spinner1.WhatsThisHelpID = -1
- Spinner1.Width = (104)
- Label5.Name = "Label5"
- Shape2.Name = "Shape2"
- Line2.Name = "Line2"
- Image6.Height = 16
- Image6.Name = "Image6"
- Image6.Width = 17
- Image7.Name = "Image7"
- Image8.Height = 16
- Image8.Name = "Image8"
- Image8.Width = 17
- Image9.Name = "Image9"
- Image10.Height = 16
- Image10.Name = "Image10"
- Image10.Width = 17
- Spinner2.Name = "Spinner2"
- Cl_pageframe1.ErasePage = .T.
- Cl_pageframe1.Name = "Cl_pageframe1"
- Cl_pageframe1.Page1.Name = "Page1"
- Cl_pageframe1.Page2.Image1.Height = 16
- Cl_pageframe1.Page2.Image1.Name = "Image1"
- Cl_pageframe1.Page2.Image1.Width = 17
- Cl_pageframe1.Page2.Image10.Height = 16
- Cl_pageframe1.Page2.Image10.Name = "Image10"
- Cl_pageframe1.Page2.Image10.Width = 17
- Cl_pageframe1.Page2.Image2.Name = "Image2"
- Cl_pageframe1.Page2.Image3.Height = 16
- Cl_pageframe1.Page2.Image3.Name = "Image3"
- Cl_pageframe1.Page2.Image3.Width = 17
- Cl_pageframe1.Page2.Image4.Name = "Image4"
- Cl_pageframe1.Page2.Image5.Height = 16
- Cl_pageframe1.Page2.Image5.Name = "Image5"
- Cl_pageframe1.Page2.Image5.Width = 17
- Cl_pageframe1.Page2.Image6.Height = 16
- Cl_pageframe1.Page2.Image6.Name = "Image6"
- Cl_pageframe1.Page2.Image6.Width = 17
- Cl_pageframe1.Page2.Image7.Name = "Image7"
- Cl_pageframe1.Page2.Image8.Height = 16
- Cl_pageframe1.Page2.Image8.Name = "Image8"
- Cl_pageframe1.Page2.Image8.Width = 17
- Cl_pageframe1.Page2.Image9.Name = "Image9"
- Cl_pageframe1.Page2.Label4.Name = "Label4"
- Cl_pageframe1.Page2.Label5.Name = "Label5"
- Cl_pageframe1.Page2.Line1.Name = "Line1"
- Cl_pageframe1.Page2.Line2.Name = "Line2"
- Cl_pageframe1.Page2.Name = "Page2"
- Cl_pageframe1.Page2.Shape1.Name = "Shape1"
- Cl_pageframe1.Page2.Shape2.Name = "Shape2"
- Cl_pageframe1.Page2.Spinner1.Name = "Spinner1"
- Cl_pageframe1.Page2.Spinner2.Name = "Spinner2"
- Cl_pageframe1.Page3.Name = "Page3"
- Cl_label1.Name = "Cl_label1"
- Cl_shape1.Name = "Cl_shape1"
- Cl_line1.Name = "Cl_line1"
- Cl_image1.Height = 16
- Cl_image1.Name = "Cl_image1"
- Cl_image1.Width = 17
- Cl_image2.Name = "Cl_image2"
- Cl_image3.Height = 16
- Cl_image3.Name = "Cl_image3"
- Cl_image3.Width = 17
- Cl_image4.Name = "Cl_image4"
- Cl_image5.Height = 16
- Cl_image5.Name = "Cl_image5"
- Cl_image5.Width = 17
- Cl_spinner1.Name = "Cl_spinner1"
- Cl_label2.Name = "Cl_label2"
- Cl_shape2.Name = "Cl_shape2"
- Cl_line2.Name = "Cl_line2"
- Cl_image6.Height = 16
- Cl_image6.Name = "Cl_image6"
- Cl_image6.Width = 17
- Cl_image7.Name = "Cl_image7"
- Cl_image8.Height = 16
- Cl_image8.Name = "Cl_image8"
- Cl_image8.Width = 17
- Cl_image9.Name = "Cl_image9"
- Cl_image10.Height = 16
- Cl_image10.Name = "Cl_image10"
- Cl_image10.Width = 17
- Cl_spinner2.Name = "Cl_spinner2"
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/f_textbox.dataenvironment.sc2 b/TESTS/DATOS_READONLY/f_textbox.dataenvironment.sc2
new file mode 100644
index 0000000..17d643c
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_textbox.dataenvironment.sc2
@@ -0,0 +1,19 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_textbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS dataenvironment AS dataenvironment
+ *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
+ *
+ DataSource = .NULL.
+ Height = 0
+ Left = 0
+ Name = "Dataenvironment"
+ Top = 0
+ Width = 0
+ *
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_textbox.f_textbox_test.sc2 b/TESTS/DATOS_READONLY/f_textbox.f_textbox_test.sc2
new file mode 100644
index 0000000..ecc733c
--- /dev/null
+++ b/TESTS/DATOS_READONLY/f_textbox.f_textbox_test.sc2
@@ -0,0 +1,1447 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="f_textbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS f_textbox_test AS f_base OF "lib_controles.vcx"
+ *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+ *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
+ *< OBJECTDATA: ObjPath="Cl_textbox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_textbox2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Cl_editbox1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_textbox3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Text3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_textbox4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Text4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Edit3" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Container1.Cl_editbox2" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text5" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text6" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Edit4" UniqueID="" Timestamp="" />
+ *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_editbox3" UniqueID="" Timestamp="" />
+
+ *
+ c_testname = Textbox_Test
+ DoCreate = .T.
+ Left = 0
+ Name = "F_Textbox_Test"
+ Top = 0
+ Edit1.Name = "Edit1"
+ Label3.Name = "Label3"
+ Command2.Name = "Command2"
+ Label1.Caption = "TEXTBOX NORMAL"
+ Label1.Name = "Label1"
+ Label2.Caption = "TEXTBOX SUBCLASADOS"
+ Label2.Name = "Label2"
+ *
+
+ ADD OBJECT 'Cl_editbox1' AS cl_editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (57), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = (426), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_editbox1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabIndex = 9, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (64), ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (93)
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
+
+ ADD OBJECT 'Cl_textbox1' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (23), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = (300), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabIndex = 1, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (64), ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (116)
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Cl_textbox2' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 300, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 96, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Container1' AS container WITH ;
+ Height = 101, ;
+ Left = 20, ;
+ Name = "Container1", ;
+ Top = 148, ;
+ Width = 517
+ *< END OBJECT: BaseClass="container" />
+
+ ADD OBJECT 'Container1.Cl_editbox2' AS cl_editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 57, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = 406, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_editbox2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 93
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
+
+ ADD OBJECT 'Container1.Cl_textbox3' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 280, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox3", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Container1.Cl_textbox4' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 280, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox4", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 52, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Container1.Edit3' AS editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 57, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = 144, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Edit3", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 93
+ *< END OBJECT: BaseClass="editbox" />
+
+ ADD OBJECT 'Container1.Text3' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 16, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text3", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ ToolTipText = "", ;
+ Top = 20, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Container1.Text4' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .F., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 16, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text4", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 52, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Edit2' AS editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (57), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = (164), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Edit2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = (64), ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (93)
+ *< END OBJECT: BaseClass="editbox" />
+
+ ADD OBJECT 'Pageframe1' AS pageframe WITH ;
+ ErasePage = .T., ;
+ Height = 129, ;
+ Left = 20, ;
+ Name = "Pageframe1", ;
+ PageCount = 2, ;
+ Top = 260, ;
+ Width = 517, ;
+ Page1.Caption = "Page1", ;
+ Page1.Name = "Page1", ;
+ Page2.Caption = "Page2", ;
+ Page2.Name = "Page2"
+ *< END OBJECT: BaseClass="pageframe" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_editbox3' AS cl_editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 57, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = 405, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_editbox3", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 93
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_textbox5' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 279, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox5", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Cl_textbox6' AS cl_textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 279, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Cl_textbox6", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Edit4' AS editbox WITH ;
+ AddLineFeeds = .T., ;
+ Alignment = 0, ;
+ AllowTabs = .F., ;
+ Anchor = 0, ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ ColorScheme = 2, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 57, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ IMEMode = 0, ;
+ IntegralHeight = .F., ;
+ Left = 143, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Edit4", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ ScrollBars = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 0, ;
+ StatusBarText = "", ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .T., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = Un valor para el editbox que se vea en más de una línea, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 93
+ *< END OBJECT: BaseClass="editbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Text5' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 15, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text5", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ ToolTipText = "", ;
+ Top = 16, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Pageframe1.Page1.Text6' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 15, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text6", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .T., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 48, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Text1' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 100,100,100, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DefHeight = , ;
+ DefLeft = , ;
+ DefTop = , ;
+ DefWidth = , ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = (23), ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = (36), ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text1", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ ToolTipText = "", ;
+ Top = (64), ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = (116)
+ *< END OBJECT: BaseClass="textbox" />
+
+ ADD OBJECT 'Text2' AS textbox WITH ;
+ Alignment = 3, ;
+ Anchor = 0, ;
+ AutoComplete = 0, ;
+ AutoCompSource = "", ;
+ AutoCompTable = "", ;
+ BackColor = 255,255,255, ;
+ BackStyle = 1, ;
+ BorderColor = 0,128,255, ;
+ BorderStyle = 1, ;
+ Century = 1, ;
+ ColorScheme = 1, ;
+ ColorSource = 4, ;
+ Comment = "", ;
+ ControlSource = "", ;
+ DateFormat = 0, ;
+ DateMark = "", ;
+ DisabledBackColor = 0,128,192, ;
+ DisabledForeColor = 128,0,255, ;
+ DragIcon = ..\..\, ;
+ DragMode = 0, ;
+ Enabled = .T., ;
+ EnableHyperlinks = .F., ;
+ FontBold = .F., ;
+ FontCharSet = 0, ;
+ FontCondense = .F., ;
+ FontExtend = .F., ;
+ FontItalic = .F., ;
+ FontName = "Arial", ;
+ FontOutline = .F., ;
+ FontShadow = .F., ;
+ FontSize = 8, ;
+ FontStrikethru = .F., ;
+ FontUnderline = .F., ;
+ ForeColor = 0,0,0, ;
+ Format = "", ;
+ Height = 23, ;
+ HelpContextID = 0, ;
+ HideSelection = .T., ;
+ Hours = 0, ;
+ IMEMode = 0, ;
+ InputMask = "", ;
+ IntegralHeight = .F., ;
+ Left = 36, ;
+ Margin = 2, ;
+ MaxLength = 0, ;
+ MemoWindow = "", ;
+ MouseIcon = ..\..\, ;
+ MousePointer = 0, ;
+ Name = "Text2", ;
+ NullDisplay = "", ;
+ OLEDragMode = 0, ;
+ OLEDragPicture = ..\..\, ;
+ OLEDropEffects = 3, ;
+ OLEDropMode = 0, ;
+ OLEDropTextInsertion = 0, ;
+ OpenWindow = .F., ;
+ PasswordChar = "", ;
+ ReadOnly = .F., ;
+ RightToLeft = .F., ;
+ Seconds = 2, ;
+ SelectedBackColor = 51,153,255, ;
+ SelectedForeColor = 255,255,255, ;
+ SelectOnEntry = .F., ;
+ SpecialEffect = 1, ;
+ StatusBarText = "", ;
+ StrictDateEntry = 1, ;
+ Style = 0, ;
+ TabStop = .T., ;
+ Tag = "", ;
+ TerminateRead = .F., ;
+ Themes = .F., ;
+ ToolTipText = "", ;
+ Top = 96, ;
+ Value = Un valor cualquiera, ;
+ Visible = .T., ;
+ WhatsThisHelpID = -1, ;
+ Width = 116
+ *< END OBJECT: BaseClass="textbox" />
+
+ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/f_textbox.sc2 b/TESTS/DATOS_READONLY/f_textbox.sc2
index d601e88..53083b6 100644
--- a/TESTS/DATOS_READONLY/f_textbox.sc2
+++ b/TESTS/DATOS_READONLY/f_textbox.sc2
@@ -4,1455 +4,8 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="f_textbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
-*
-DEFINE CLASS dataenvironment AS dataenvironment
- *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
+*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" />
+*< EXTERNAL_CLASS: Name="f_textbox_test" Baseclass="form" />
- DataSource = .NULL.
- Height = 0
- Left = 0
- Name = "Dataenvironment"
- Top = 0
- Width = 0
-
-ENDDEFINE
-
-DEFINE CLASS f_textbox_test AS f_base OF "lib_controles.vcx"
- *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
-
- *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
- *< OBJECTDATA: ObjPath="Cl_textbox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_textbox2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Cl_editbox1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_textbox3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Text3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_textbox4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Text4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Edit3" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Container1.Cl_editbox2" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text5" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text6" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Edit4" UniqueID="" Timestamp="" />
- *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_editbox3" UniqueID="" Timestamp="" />
-
- c_testname = Textbox_Test
- DoCreate = .T.
- Left = 0
- Name = "F_Textbox_Test"
- Top = 0
- Edit1.Name = "Edit1"
- Label3.Name = "Label3"
- Command2.Name = "Command2"
- Label1.Caption = "TEXTBOX NORMAL"
- Label1.Name = "Label1"
- Label2.Caption = "TEXTBOX SUBCLASADOS"
- Label2.Name = "Label2"
-
- ADD OBJECT 'Cl_editbox1' AS cl_editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (57), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = (426), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_editbox1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabIndex = 9, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (64), ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (93)
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
-
- ADD OBJECT 'Cl_textbox1' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (23), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = (300), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabIndex = 1, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (64), ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (116)
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Cl_textbox2' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 300, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 96, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Container1' AS container WITH ;
- Height = 101, ;
- Left = 20, ;
- Name = "Container1", ;
- Top = 148, ;
- Width = 517
- *< END OBJECT: BaseClass="container" />
-
- ADD OBJECT 'Container1.Cl_editbox2' AS cl_editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 57, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = 406, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_editbox2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 93
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
-
- ADD OBJECT 'Container1.Cl_textbox3' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 280, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox3", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Container1.Cl_textbox4' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 280, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox4", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 52, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Container1.Edit3' AS editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 57, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = 144, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Edit3", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 93
- *< END OBJECT: BaseClass="editbox" />
-
- ADD OBJECT 'Container1.Text3' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 16, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text3", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- ToolTipText = "", ;
- Top = 20, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Container1.Text4' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .F., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 16, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text4", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 52, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Edit2' AS editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (57), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = (164), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Edit2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = (64), ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (93)
- *< END OBJECT: BaseClass="editbox" />
-
- ADD OBJECT 'Pageframe1' AS pageframe WITH ;
- ErasePage = .T., ;
- Height = 129, ;
- Left = 20, ;
- Name = "Pageframe1", ;
- PageCount = 2, ;
- Top = 260, ;
- Width = 517, ;
- Page1.Caption = "Page1", ;
- Page1.Name = "Page1", ;
- Page2.Caption = "Page2", ;
- Page2.Name = "Page2"
- *< END OBJECT: BaseClass="pageframe" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_editbox3' AS cl_editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 57, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = 405, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_editbox3", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 93
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_textbox5' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 279, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox5", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Cl_textbox6' AS cl_textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 279, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Cl_textbox6", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 48, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Edit4' AS editbox WITH ;
- AddLineFeeds = .T., ;
- Alignment = 0, ;
- AllowTabs = .F., ;
- Anchor = 0, ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- ColorScheme = 2, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 57, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- IMEMode = 0, ;
- IntegralHeight = .F., ;
- Left = 143, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Edit4", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- ScrollBars = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 0, ;
- StatusBarText = "", ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .T., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = Un valor para el editbox que se vea en más de una línea, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 93
- *< END OBJECT: BaseClass="editbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Text5' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 15, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text5", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- ToolTipText = "", ;
- Top = 16, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Pageframe1.Page1.Text6' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 15, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text6", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .T., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 48, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Text1' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 100,100,100, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DefHeight = , ;
- DefLeft = , ;
- DefTop = , ;
- DefWidth = , ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = (23), ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = (36), ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text1", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- ToolTipText = "", ;
- Top = (64), ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = (116)
- *< END OBJECT: BaseClass="textbox" />
-
- ADD OBJECT 'Text2' AS textbox WITH ;
- Alignment = 3, ;
- Anchor = 0, ;
- AutoComplete = 0, ;
- AutoCompSource = "", ;
- AutoCompTable = "", ;
- BackColor = 255,255,255, ;
- BackStyle = 1, ;
- BorderColor = 0,128,255, ;
- BorderStyle = 1, ;
- Century = 1, ;
- ColorScheme = 1, ;
- ColorSource = 4, ;
- Comment = "", ;
- ControlSource = "", ;
- DateFormat = 0, ;
- DateMark = "", ;
- DisabledBackColor = 0,128,192, ;
- DisabledForeColor = 128,0,255, ;
- DragIcon = ..\..\, ;
- DragMode = 0, ;
- Enabled = .T., ;
- EnableHyperlinks = .F., ;
- FontBold = .F., ;
- FontCharSet = 0, ;
- FontCondense = .F., ;
- FontExtend = .F., ;
- FontItalic = .F., ;
- FontName = "Arial", ;
- FontOutline = .F., ;
- FontShadow = .F., ;
- FontSize = 8, ;
- FontStrikethru = .F., ;
- FontUnderline = .F., ;
- ForeColor = 0,0,0, ;
- Format = "", ;
- Height = 23, ;
- HelpContextID = 0, ;
- HideSelection = .T., ;
- Hours = 0, ;
- IMEMode = 0, ;
- InputMask = "", ;
- IntegralHeight = .F., ;
- Left = 36, ;
- Margin = 2, ;
- MaxLength = 0, ;
- MemoWindow = "", ;
- MouseIcon = ..\..\, ;
- MousePointer = 0, ;
- Name = "Text2", ;
- NullDisplay = "", ;
- OLEDragMode = 0, ;
- OLEDragPicture = ..\..\, ;
- OLEDropEffects = 3, ;
- OLEDropMode = 0, ;
- OLEDropTextInsertion = 0, ;
- OpenWindow = .F., ;
- PasswordChar = "", ;
- ReadOnly = .F., ;
- RightToLeft = .F., ;
- Seconds = 2, ;
- SelectedBackColor = 51,153,255, ;
- SelectedForeColor = 255,255,255, ;
- SelectOnEntry = .F., ;
- SpecialEffect = 1, ;
- StatusBarText = "", ;
- StrictDateEntry = 1, ;
- Style = 0, ;
- TabStop = .T., ;
- Tag = "", ;
- TerminateRead = .F., ;
- Themes = .F., ;
- ToolTipText = "", ;
- Top = 96, ;
- Value = Un valor cualquiera, ;
- Visible = .T., ;
- WhatsThisHelpID = -1, ;
- Width = 116
- *< END OBJECT: BaseClass="textbox" />
-
-ENDDEFINE
+*
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2
index 5e083e2..6d02598 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2
@@ -12,23 +12,25 @@ DEFINE CLASS cl_commandgroup AS commandgroup && Descripci
*p: una_prop_cmgroup && Con comentario, pero sin valor
*
- ButtonCount = 2
- Height = 66
- Name = "cl_commandgroup"
- una_prop_cmgroup = .F. && Con comentario, pero sin valor
- Value = 1
- Width = 94
- Command1.Caption = "Command1"
- Command1.Height = 27
- Command1.Left = 5
- Command1.Name = "Command1"
- Command1.Top = 5
- Command1.Width = 84
- Command2.Caption = "Command2"
- Command2.Height = 27
- Command2.Left = 5
- Command2.Name = "Command2"
- Command2.Top = 34
- Command2.Width = 84
+ *
+ ButtonCount = 2
+ Height = 66
+ Name = "cl_commandgroup"
+ una_prop_cmgroup = .F.
+ Value = 1
+ Width = 94
+ Command1.Caption = "Command1"
+ Command1.Height = 27
+ Command1.Left = 5
+ Command1.Name = "Command1"
+ Command1.Top = 5
+ Command1.Width = 84
+ Command2.Caption = "Command2"
+ Command2.Height = 27
+ Command2.Left = 5
+ Command2.Name = "Command2"
+ Command2.Top = 34
+ Command2.Width = 84
+ *
ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
index 650a9f1..e35ca4b 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
@@ -23,22 +23,24 @@ DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
- Caption = "Form"
- chidden = && Prop.Hidden
- cprotected = && Prop.Protegida
- DoCreate = .T.
- Height = 345
- Left = 0
- Name = "cl_form"
- Picture = bmps\scccheckout.bmp
- Top = 0
- Width = 570
- _memberdata =
-
-
-
-
- && XML Metadata for customizable properties
+ *
+ Caption = "Form"
+ chidden =
+ cprotected =
+ DoCreate = .T.
+ Height = 345
+ Left = 0
+ Name = "cl_form"
+ Picture = bmps\scccheckout.bmp
+ Top = 0
+ Width = 570
+ _memberdata =
+
+
+
+
+
+ *
ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
BackColor = 255,128,192, ;
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2
index 5947af3..a85209c 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2
@@ -11,10 +11,12 @@ DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole
*m: un_metodo_de_clase && Para testear si el código se va a la clase cl_form
*
- Height = 16
- Name = "cl_imagen"
- Picture = bmps\sobrepostal.bmp
- Width = 17
+ *
+ Height = 16
+ Name = "cl_imagen"
+ Picture = bmps\sobrepostal.bmp
+ Width = 17
+ *
PROCEDURE un_metodo_de_clase && Para testear si el código se va a la clase cl_form
* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2
index 3a4bd63..16830cd 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2
@@ -7,8 +7,10 @@
DEFINE CLASS cl_olebound AS oleboundcontrol
*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />
- Height = 100
- Name = "cl_olebound"
- Width = 100
+ *
+ Height = 100
+ Name = "cl_olebound"
+ Width = 100
+ *
ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2
index 57fd5f8..0bbf5f3 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2
@@ -7,8 +7,10 @@
DEFINE CLASS cl_olecontrol AS olecontrol
*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
- Height = 67
- Name = "cl_olecontrol"
- Width = 131
+ *
+ Height = 67
+ Name = "cl_olecontrol"
+ Width = 131
+ *
ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2
index f7b6562..9822cea 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2
@@ -14,26 +14,28 @@ DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
*p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar
*
- ButtonCount = 2
- Height = 46
- Name = "cl_optiongroup"
- propiedad_de_clase_con_valor = UN VALOR DE LA CLASE && Tiene un valor por defecto
- propiedad_de_clase_sin_valor = .F. && Una propiedad sin valor para heredar
- Value = 1
- Width = 71
- Option1.Caption = "Option1"
- Option1.Height = 17
- Option1.Left = 5
- Option1.Name = "Option1"
- Option1.Top = 5
- Option1.Value = 1
- Option1.Width = 61
- Option2.Caption = "Option2"
- Option2.Height = 17
- Option2.Left = 5
- Option2.Name = "Option2"
- Option2.Top = 24
- Option2.Width = 61
+ *
+ ButtonCount = 2
+ Height = 46
+ Name = "cl_optiongroup"
+ propiedad_de_clase_con_valor = UN VALOR DE LA CLASE
+ propiedad_de_clase_sin_valor = .F.
+ Value = 1
+ Width = 71
+ Option1.Caption = "Option1"
+ Option1.Height = 17
+ Option1.Left = 5
+ Option1.Name = "Option1"
+ Option1.Top = 5
+ Option1.Value = 1
+ Option1.Width = 61
+ Option2.Caption = "Option2"
+ Option2.Height = 17
+ Option2.Left = 5
+ Option2.Name = "Option2"
+ Option2.Top = 24
+ Option2.Width = 61
+ *
PROCEDURE propiedad_de_clase_con_valor_access
*To do: Modify this routine for the Access method
diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2
index 84d9a31..22f93fa 100644
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2
@@ -7,8 +7,10 @@
DEFINE CLASS proj_hook AS projecthook
*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />
- Height = 22
- Name = "proj_hook"
- Width = 23
+ *
+ Height = 22
+ Name = "proj_hook"
+ Width = 23
+ *
ENDDEFINE
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_dbf.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_dbf.dc2
new file mode 100644
index 0000000..b537613
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_dbf.dc2
@@ -0,0 +1,26 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+ REMOTE_CONNECTION_DBF
+
+ Visual FoxPro Tables
+ foxuser_fdb
+
+ .F.
+ .T.
+ 15
+ .F.
+ 1
+ .F.
+ 0
+ 4096
+
+ 0
+ 1
+
+ 100
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_oracle.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_oracle.dc2
new file mode 100644
index 0000000..c276831
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.connection.remote_connection_oracle.dc2
@@ -0,0 +1,26 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+ REMOTE_CONNECTION_ORACLE
+
+
+
+ DRIVER={Oracle en OraClient11g_home1};SERVER=BDDServer;UID=BDDUser;PWD=BDDPwd;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA
+ .F.
+ .T.
+ 15
+ .F.
+ 3
+ .F.
+ 10
+ 8192
+
+ 180
+ 1
+
+ 100
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.database.storedproceduressource.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.database.storedproceduressource.dc2
new file mode 100644
index 0000000..1b502a8
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.database.storedproceduressource.dc2
@@ -0,0 +1,461 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+ 1
+ =TABLEUPDATE()
+ ENDIF
+ ENDIF NOT already DELETED
+ ENDIF
+ UNLOCK RECORD (RECNO())
+ llRetVal=pnerror=0
+ RETURN llRetVal
+
+PROCEDURE RIUPDATE
+ LPARAMETERS tcFieldName,tcNewValue,tcCascadeParent
+ LOCAL llRetVal
+ llRetVal=.T.
+ IF ISRLOCKED() OR !RLOCK()
+ llRetVal=.F.
+ ELSE
+ IF EVAL(tcFieldName)<>tcNewValue
+ PRIVATE pcCascadeParent
+ pcCascadeParent=UPPER(IIF(TYPE("tcCascadeParent")<>"C","",tcCascadeParent))
+ REPLACE (tcFieldName) WITH tcNewValue
+ IF CURSORGETPROP('BUFFERING') > 1
+ =TABLEUPDATE()
+ ENDIF
+ ENDIF VALUES don't already match
+ ENDIF it's locked already, or I was able to lock it
+ UNLOCK RECORD (RECNO())
+ llRetVal=pnerror=0
+ RETURN llRetVal
+
+PROCEDURE rierror
+ PARAMETERS tnErrNo,tcMessage,tcCode,tcProgram
+ LOCAL lnErrorRows,lnXX
+ lnErrorRows=ALEN(gaErrors,1)
+ IF TYPE('gaErrors[lnErrorRows,1]')<>"L"
+ DIMENSION gaErrors[lnErrorRows+1,alen(gaErrors,2)]
+ lnErrorRows=lnErrorRows+1
+ ENDIF
+ gaErrors[lnErrorRows,1]=tnErrNo
+ gaErrors[lnErrorRows,2]=tcMessage
+ gaErrors[lnErrorRows,3]=tcCode
+ gaErrors[lnErrorRows,4]=""
+ lnXX=1
+ DO WHILE !EMPTY(PROGRAM(lnXX))
+ gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
+ PROGRAM(lnXX)
+ lnXX=lnXX+1
+ ENDDO
+ gaErrors[lnErrorRows,5]=pcParentDBF
+ gaErrors[lnErrorRows,6]=pnParentRec
+ gaErrors[lnErrorRows,7]=pcParentID
+ gaErrors[lnErrorRows,8]=pcParentExpr
+ gaErrors[lnErrorRows,9]=pcChildDBF
+ gaErrors[lnErrorRows,10]=pnChildRec
+ gaErrors[lnErrorRows,11]=pcChildID
+ gaErrors[lnErrorRows,12]=pcChildExpr
+ RETURN tnErrNo
+
+
+PROCEDURE riopen
+ PARAMETERS tcTable,tcOrder
+
+ LOCAL lcCurWkArea,lcNewWkArea,lnInUseSpot,lnOccurs,lnOccurance
+ lnInUseSpot=0
+ lnOccurs = OCCURS(UPPER(tcTable)+"*",UPPER(pcRIcursors))
+ FOR lnOccurance = 1 TO lnOccurs
+ lnInUseSpot=ATC(tcTable+"*",pcRIcursors,lnOccurance)
+ IF ISDIGIT(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) OR;
+ EMPTY(SUBSTR(pcRIcursors,lnInUseSpot-1,1))
+ EXIT
+ ENDIF
+ lnInUseSpot=0
+ ENDFOR
+
+ IF lnInUseSpot=0
+ lcCurWkArea=SELECT()
+ SELECT 0
+ lcNewWkArea=SELECT()
+ IF NOT EMPTY(tcOrder)
+ USE (tcTable) AGAIN ORDER (tcOrder) ;
+ ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
+ ELSE
+ USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE
+ ENDIF
+ IF pnerror=0
+ pcRIcursors=pcRIcursors+UPPER(tcTable)+"?"+STR(SELECT(),5)
+ ELSE
+ lcNewWkArea=0
+ ENDIF something bad happened WHILE attempting TO OPEN the FILE
+ ELSE
+ lcNewWkArea=VAL(SUBSTR(pcRIcursors,lnInUseSpot+LEN(tcTable)+1,5))
+ pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTable)+"*"+STR(lcNewWkArea,5),;
+ UPPER(tcTable)+"?"+STR(lcNewWkArea,5))
+ IF NOT EMPTY(tcOrder)
+ SET ORDER TO (tcOrder) IN (lcNewWkArea)
+ ENDIF sent an ORDER
+ IF pnerror<>0
+ lcNewWkArea=0
+ ENDIF something bad happened WHILE setting ORDER
+ ENDIF
+ RETURN (lcNewWkArea)
+
+
+PROCEDURE riend
+ PARAMETERS tlSuccess
+ LOCAL lnXX,lnSpot,lcWorkArea
+ IF tlSuccess
+ END TRANSACTION
+ ELSE
+ SET DELETED OFF
+ ROLLBACK
+ SET DELETED ON
+ ENDIF
+ IF EMPTY(pcRIolderror)
+ ON ERROR
+ ELSE
+ ON ERROR &pcRIolderror.
+ ENDIF
+ FOR lnXX=1 TO OCCURS("*",pcRIcursors)
+ lnSpot=ATC("*",pcRIcursors,lnXX)+1
+ USE IN (VAL(SUBSTR(pcRIcursors,lnSpot,5)))
+ ENDFOR
+ IF pcOldCompat = "ON"
+ SET COMPATIBLE ON
+ ENDIF
+ IF pcOldDele="OFF"
+ SET DELETED OFF
+ ENDIF
+ IF pcOldExact="ON"
+ SET EXACT ON
+ ENDIF
+ IF pcOldTalk="ON"
+ SET TALK ON
+ ENDIF
+ DO CASE
+ CASE EMPTY(pcOldDBC)
+ SET DATA TO
+ CASE pcOldDBC<>DBC()
+ SET DATA TO (pcOldDBC)
+ ENDCASE
+ RETURN .T.
+
+
+PROCEDURE rireuse
+ * rireuse.prg
+ PARAMETERS tcTableName,tcWkArea
+ pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTableName)+"?"+STR(tcWkArea,5),;
+ UPPER(tcTableName)+"*"+STR(tcWkArea,5))
+ RETURN .T.
+
+ ********************************************************************************
+ ** "Referential integrity delete trigger for" fb2p_depto
+PROCEDURE __RI_DELETE_fb2p_depto
+ LOCAL llRetVal
+ llRetVal = .T.
+ PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
+ PRIVATE pcParentExpr,pcChildExpr
+ STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
+ STORE 0 TO pnParentRec,pnChildRec
+ IF _TRIGGERLEVEL=1
+ BEGIN TRANSACTION
+ PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
+ pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
+ pcOldTalk=SET("TALK")
+ SET TALK OFF
+ pcOldDele=SET("DELETED")
+ pcOldExact=SET("EXACT")
+ pcOldCompat=SET("COMPATIBLE")
+ SET COMPATIBLE OFF
+ SET DELETED ON
+ SET EXACT OFF
+ pcRIcursors=""
+ pcRIwkareas=""
+ pcRIolderror=ON("error")
+ pnerror=0
+ ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
+ IF TYPE('gaErrors(1)')<>"U"
+ RELEASE gaErrors
+ ENDIF
+ PUBLIC gaErrors(1,12)
+ pcOldDBC=DBC()
+ SET DATA TO ("FB2P_DBC")
+ ENDIF FIRST TRIGGER
+ LOCAL lcParentID && parent's value to be sought in child
+ LOCAL lcChildWkArea && child work area handle returned by riopen
+ LOCAL lcParentWkArea
+ LOCAL llDelHeaderarea
+ LOCAL lcStartArea
+ lcStartArea=SELECT()
+ llRetVal=.T.
+ lcParentWkArea=SELECT()
+ SELECT (lcParentWkArea)
+ pcParentDBF=DBF()
+ pnParentRec=RECNO()
+ STORE DEPTO TO lcParentID,pcParentID
+ pcParentExpr="DEPTO"
+ lcChildWkArea=riopen("nombrelargodeldbf","depto")
+ IF lcChildWkArea<=0
+ IF _TRIGGERLEVEL=1
+ DO riend WITH .F.
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ RETURN .F.
+ ENDIF NOT able TO OPEN the CHILD WORK area
+ pcChildDBF=DBF(lcChildWkArea)
+ SELECT (lcChildWkArea)
+ SEEK lcParentID
+ SCAN WHILE DEPTO=lcParentID AND llRetVal
+ pnChildRec=RECNO()
+ pcChildID=DEPTO
+ pcChildExpr="DEPTO"
+ llRetVal=RIDELETE()
+ ENDSCAN GET ALL OF the nombrelargodeldbf RECORDS
+ =rireuse("nombrelargodeldbf",lcChildWkArea)
+ IF NOT llRetVal
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ENDIF
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ** "End of Referential integrity Delete trigger for" fb2p_depto
+ ********************************************************************************
+
+ ********************************************************************************
+PROCEDURE __RI_UPDATE_nombrelargodeldbf
+ ** "Referential integrity update trigger for" nombrelargodeldbf
+ LOCAL llRetVal
+ llRetVal = .T.
+ PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
+ PRIVATE pcParentExpr,pcChildExpr
+ STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
+ STORE 0 TO pnParentRec,pnChildRec
+ IF _TRIGGERLEVEL=1
+ BEGIN TRANSACTION
+ PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
+ pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
+ pcOldTalk=SET("TALK")
+ SET TALK OFF
+ pcOldDele=SET("DELETED")
+ pcOldExact=SET("EXACT")
+ pcOldCompat=SET("COMPATIBLE")
+ SET COMPATIBLE OFF
+ SET DELETED ON
+ SET EXACT OFF
+ pcRIcursors=""
+ pcRIwkareas=""
+ pcRIolderror=ON("error")
+ pnerror=0
+ ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
+ IF TYPE('gaErrors(1)')<>"U"
+ RELEASE gaErrors
+ ENDIF
+ PUBLIC gaErrors(1,12)
+ pcOldDBC=DBC()
+ SET DATA TO ("FB2P_DBC")
+ ENDIF FIRST TRIGGER
+ LOCAL lcParentID && parent's value to be sought in child
+ LOCAL lcOldParentID && previous parent id value
+ LOCAL lcChildWkArea && child work area handle returned by riopen
+ LOCAL lcChildID && child's value to be sought in parent
+ LOCAL lcOldChildID && old child id value
+ LOCAL lcParentWkArea && parentwork area handle returned by riopen
+ LOCAL lcStartArea
+ lcStartArea=SELECT()
+ llRetVal=.T.
+ lcChildWkArea=SELECT()
+ IF _TRIGGERLEVEL=1 OR TYPE("pccascadeparent")#"C" OR (NOT pcCascadeParent=="FB2P_DEPTO")
+ SELECT (lcChildWkArea)
+ lcChildID=DEPTO
+ lcOldChildID=OLDVAL("DEPTO")
+ pcChildDBF=DBF(lcChildWkArea)
+ pnChildRec=RECNO(lcChildWkArea)
+ pcChildID=lcOldChildID
+ pcChildExpr="DEPTO"
+ IF ISNULL(lcChildID) OR ISNULL(lcOldChildID) OR lcChildID <> lcOldChildID
+ lcParentWkArea=riopen("fb2p_depto","depto")
+ IF lcParentWkArea<=0
+ IF _TRIGGERLEVEL=1
+ DO riend WITH .F.
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN .F.
+ ENDIF NOT able TO OPEN the CHILD WORK area
+ pcParentDBF=DBF(lcParentWkArea)
+ llRetVal=SEEK(lcChildID,lcParentWkArea)
+ pnParentRec=RECNO(lcParentWkArea)
+ IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
+ ISFLOCKED(lcParentWkArea))
+ IF RLOCK(lcParentWkArea)
+ UNLOCK RECORD pnParentRec IN (lcParentWkArea)
+ ELSE
+ =rireuse("tparen",lcParentWkArea)
+ pnerror = rierror(-1,"Insert restrict rule violated.","","")
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ENDIF
+ ENDIF
+ =rireuse("fb2p_depto",lcParentWkArea)
+ IF NOT llRetVal
+ pnerror = rierror(-1,"Insert restrict rule violated.","","")
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ENDIF no PARENT
+ ENDIF THIS VALUE was changed
+ ENDIF NOT PART OF a CASCADE FROM "fb2p_depto"
+ lcParentWkArea=lcChildWkArea
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ** "End of Referential integrity Update trigger for" nombrelargodeldbf
+ ********************************************************************************
+
+ ********************************************************************************
+ ** "Referential integrity insert trigger for" nombrelargodeldbf
+PROCEDURE __RI_INSERT_nombrelargodeldbf
+ LOCAL llRetVal
+ llRetVal = .T.
+ PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
+ PRIVATE pcParentExpr,pcChildExpr
+ STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
+ STORE 0 TO pnParentRec,pnChildRec
+ IF _TRIGGERLEVEL=1
+ BEGIN TRANSACTION
+ PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
+ pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC
+ pcOldTalk=SET("TALK")
+ SET TALK OFF
+ pcOldDele=SET("DELETED")
+ pcOldExact=SET("EXACT")
+ pcOldCompat=SET("COMPATIBLE")
+ SET COMPATIBLE OFF
+ SET DELETED ON
+ SET EXACT OFF
+ pcRIcursors=""
+ pcRIwkareas=""
+ pcRIolderror=ON("error")
+ pnerror=0
+ ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM())
+ IF TYPE('gaErrors(1)')<>"U"
+ RELEASE gaErrors
+ ENDIF
+ PUBLIC gaErrors(1,12)
+ pcOldDBC=DBC()
+ SET DATA TO ("FB2P_DBC")
+ ENDIF FIRST TRIGGER
+ LOCAL lcChildID && child's value to be sought in parent
+ LOCAL lcParentWkArea && parentwork area handle returned by riopen
+ LOCAL lcChildWkArea && child's work area
+ LOCAL lcStartArea
+ lcStartArea=SELECT()
+ llRetVal=.T.
+ lcChildWkArea=SELECT()
+ SELECT (lcChildWkArea)
+ lcChildID=DEPTO
+ pcChildDBF=DBF(lcChildWkArea)
+ pnChildRec=RECNO(lcChildWkArea)
+ pcChildID=lcChildID
+ pcChildExpr="DEPTO"
+ lcParentWkArea=riopen("fb2p_depto","depto")
+ IF lcParentWkArea<=0
+ IF _TRIGGERLEVEL=1
+ DO riend WITH .F.
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN .F.
+ ENDIF NOT able TO OPEN the CHILD WORK area
+ pcParentDBF=DBF(lcParentWkArea)
+ llRetVal=SEEK(lcChildID,lcParentWkArea)
+ pnParentRec=RECNO(lcParentWkArea)
+ IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ;
+ ISFLOCKED(lcParentWkArea))
+ IF RLOCK(lcParentWkArea)
+ UNLOCK RECORD pnParentRec IN (lcParentWkArea)
+ ELSE
+ =rireuse("tparen",lcParentWkArea)
+ pnerror = rierror(-1,"Insert restrict rule violated.","","")
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ENDIF
+ ENDIF
+ =rireuse("fb2p_depto",lcParentWkArea)
+ IF NOT llRetVal
+ pnerror = rierror(-1,"Insert restrict rule violated.","","")
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ENDIF
+ IF _TRIGGERLEVEL=1
+ DO riend WITH llRetVal
+ ENDIF AT the END OF the highest TRIGGER LEVEL
+ SELECT (lcStartArea)
+ RETURN llRetVal
+ ** "End of Referential integrity insert trigger for" nombrelargodeldbf
+ ********************************************************************************
+ **__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**
+
+ ]]>
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dbc b/TESTS/DATOS_READONLY/fb2p_dbc.dbc
index b388716..394e5ca 100644
Binary files a/TESTS/DATOS_READONLY/fb2p_dbc.dbc and b/TESTS/DATOS_READONLY/fb2p_dbc.dbc differ
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dct b/TESTS/DATOS_READONLY/fb2p_dbc.dct
index 4587909..5ff8b9d 100644
Binary files a/TESTS/DATOS_READONLY/fb2p_dbc.dct and b/TESTS/DATOS_READONLY/fb2p_dbc.dct differ
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.table.fb2p_depto.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.table.fb2p_depto.dc2
new file mode 100644
index 0000000..a3812cd
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.table.fb2p_depto.dc2
@@ -0,0 +1,64 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ FB2P_DEPTO
+ Comentario de "fb2p_depto"
+ fb2p_depto.dbf
+ __ri_delete_fb2p_depto()
+
+
+ depto
+ fb2p_depto_record_rule_validation()
+ fb2p_depto_record_rule_validation_message()
+
+
+ depto
+ descrip
+
+
+
+
+ depto
+ "Depto.Caption"
+ depto_field_comment
+ "Depto."
+ cl_optiongroup
+ c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx
+ !
+ XXXXXXXXXX
+ depto_field_validation_rule()
+ depto_field_validation_message()
+
+
+ descrip
+ Descripción
+
+
+
+
+
+
+
+
+
+
+
+
+
+ depto
+
+ .T.
+
+
+ descrip
+
+ .F.
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.table.nombrelargodeldbf.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.table.nombrelargodeldbf.dc2
new file mode 100644
index 0000000..da46885
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.table.nombrelargodeldbf.dc2
@@ -0,0 +1,139 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ NOMBRELARGODELDBF
+ Comentario de la tabla "fb2p_dbf"
+ fb2p_dbf.dbf
+ del_trg()
+ __ri_insert_nombrelargodeldbf().AND.(ins_trg())
+ __ri_update_nombrelargodeldbf().AND.(upd_trg())
+ id
+ edad>10
+ "Mensaje de error de la regla edad > 10"
+
+
+ nombre
+ edad
+ id
+ bigtext
+ depto
+
+
+
+
+ bigtext
+
+
+
+
+
+
+
+
+
+
+
+ depto
+
+
+
+
+
+
+
+
+
+
+
+ edad
+
+
+
+
+
+
+
+
+
+
+
+ id
+
+
+
+
+
+
+
+
+
+
+
+ nombre
+ "Nombre:"
+ Comentario de "Nombre"
+ "."
+
+
+ A
+ !XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+ .NOT.EMPTY(nombre)
+ "El nombre está vacío"
+
+
+
+
+
+ depto
+
+ .F.
+
+
+ edad
+
+ .T.
+
+
+ edad_nd
+
+ .F.
+
+
+ i_nombre
+
+ .F.
+
+
+ id
+
+ .T.
+
+
+ nombre
+
+ .F.
+
+
+ notdeleted
+
+ .F.
+
+
+
+
+
+ Relation 1
+ NOMBRELARGODELDBF
+ FB2P_DEPTO
+ DEPTO
+ DEPTO
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.view.rv_db_debug_setup.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.view.rv_db_debug_setup.dc2
new file mode 100644
index 0000000..cda21a3
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.view.rv_db_debug_setup.dc2
@@ -0,0 +1,193 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ rv_db_debug_setup
+
+ STROSNC.DB_DEBUG_SETUP
+ SELECT Db_debug_setup.PK_NAME, Db_debug_setup.ENABLED, Db_debug_setup.EVALUACION, Db_debug_setup.PK_METODO, Db_debug_setup.NIVELDEBUG, Db_debug_setup.F_DESDE, Db_debug_setup.F_HASTA, Db_debug_setup.DIRECCION_IP, Db_debug_setup.USUARIO FROM STROSNC.DB_DEBUG_SETUP Db_debug_setup ORDER BY Db_debug_setup.PK_NAME, Db_debug_setup.PK_METODO
+ .T.
+ 1
+ .T.
+ remote_connection_Oracle
+ .T.
+ .T.
+ 100
+ -1
+ .F.
+
+ .T.
+
+
+ .F.
+ .T.
+ 2
+ 1
+ 255
+ 3
+
+
+ pk_name
+ enabled
+ evaluacion
+ pk_metodo
+ niveldebug
+ f_desde
+ f_hasta
+ direccion_ip
+ usuario
+
+
+
+
+ direccion_ip
+
+
+ C(30)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.DIRECCION_IP
+
+
+ enabled
+
+
+ N(3)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.ENABLED
+
+
+ evaluacion
+
+
+ M
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.EVALUACION
+
+
+ f_desde
+
+
+ T
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.F_DESDE
+
+
+ f_hasta
+
+
+ T
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.F_HASTA
+
+
+ niveldebug
+
+
+ N(3)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.NIVELDEBUG
+
+
+ pk_metodo
+
+
+ C(30)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.PK_METODO
+
+
+ pk_name
+
+
+ C(30)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.PK_NAME
+
+
+ usuario
+
+
+ C(30)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ STROSNC.DB_DEBUG_SETUP.USUARIO
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.view.vista_local.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.view.vista_local.dc2
new file mode 100644
index 0000000..326e586
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.view.vista_local.dc2
@@ -0,0 +1,127 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ vista_local
+
+ fb2p_dbc!nombrelargodeldbf
+ SELECT Fb2p_depto.descrip, Nombrelargodeldbf.nombre, Nombrelargodeldbf.edad, Nombrelargodeldbf.id, Nombrelargodeldbf.depto FROM fb2p_dbc!fb2p_depto INNER JOIN fb2p_dbc!nombrelargodeldbf ON Fb2p_depto.depto = Nombrelargodeldbf.depto
+ .F.
+ 1
+ .T.
+
+ .F.
+ .T.
+ 100
+ -1
+ .T.
+
+ .F.
+
+
+ .T.
+ .F.
+ 1
+ 1
+ 255
+ 3
+ ..\..\vista_local.dbf
+ 5
+
+
+ descrip
+ nombre
+ edad
+ id
+ depto
+
+
+
+
+ depto
+
+
+ C(10)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ fb2p_dbc!nombrelargodeldbf.depto
+
+
+ descrip
+
+
+ C(50)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ fb2p_dbc!fb2p_depto.descrip
+
+
+ edad
+
+
+ N(3)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ fb2p_dbc!nombrelargodeldbf.edad
+
+
+ id
+
+
+ I
+
+
+
+
+
+ .T.
+
+
+ .F.
+ fb2p_dbc!nombrelargodeldbf.id
+
+
+ nombre
+
+
+ C(30)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ fb2p_dbc!nombrelargodeldbf.nombre
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_local_encuestas.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_local_encuestas.dc2
new file mode 100644
index 0000000..7c4031e
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_local_encuestas.dc2
@@ -0,0 +1,127 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ vw_local_encuestas
+
+
+ SELECT ENCUESTAS.Promotor,ENCUESTAS.Idenc,ENCUESTAS.Calific,ENCUESTAS.Fecha, ENCUESTAS.Resultado FROM C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\ENCUESTAS.DBF ENCUESTAS
+ .F.
+ 1
+ .T.
+
+ .F.
+ .T.
+ 100
+ -1
+ .T.
+
+ .F.
+
+
+ .F.
+ .T.
+ 1
+ 1
+ 255
+ 3
+ vw_local_encuestas.dbf
+ 2
+
+
+ promotor
+ idenc
+ calific
+ fecha
+ resultado
+
+
+
+
+ calific
+
+
+ C(2)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ calific
+
+
+ fecha
+
+
+ D
+
+
+
+
+
+ .F.
+
+
+ .F.
+ fecha
+
+
+ idenc
+
+
+ C(20)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ idenc
+
+
+ promotor
+
+
+ C(20)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ promotor
+
+
+ resultado
+
+
+ C(10)
+
+
+
+
+
+ .F.
+
+
+ .F.
+ resultado
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_convenios.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_convenios.dc2
new file mode 100644
index 0000000..021a277
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_convenios.dc2
@@ -0,0 +1,93 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ vw_ora_convenios
+
+ CONVENIOS
+ SELECT CONVENIOS.ID_CONVENIO,CONVENIOS.NOMBRE_CONVENIO,CONVENIOS.HISTORICO FROM CONVENIOS
+ .F.
+ 1
+ .T.
+ remote_connection_Oracle
+ .F.
+ .T.
+ 100
+ -1
+ .T.
+
+ .F.
+
+
+ .F.
+ .T.
+ 2
+ 1
+ 255
+ 3
+
+ 0
+
+
+ id_convenio
+ nombre_convenio
+ historico
+
+
+
+
+ historico
+
+
+ C(1)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ CONVENIOS.HISTORICO
+
+
+ id_convenio
+
+
+ C(15)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ CONVENIOS.ID_CONVENIO
+
+
+ nombre_convenio
+
+
+ C(250)
+
+
+
+
+
+ .F.
+
+
+ .T.
+ CONVENIOS.NOMBRE_CONVENIO
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_dual.dc2 b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_dual.dc2
new file mode 100644
index 0000000..3942fb6
--- /dev/null
+++ b/TESTS/DATOS_READONLY/fb2p_dbc.view.vw_ora_dual.dc2
@@ -0,0 +1,59 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+
+
+ vw_ora_dual
+
+ DUAL
+ SELECT DUAL.DUMMY FROM DUAL
+ .F.
+ 1
+ .T.
+ REMOTE_CONNECTION_ORACLE
+ .F.
+ .T.
+ 100
+ -1
+ .T.
+
+ .F.
+
+
+ .F.
+ .T.
+ 2
+ 1
+ 255
+ 3
+
+ 0
+
+
+ dummy
+
+
+
+
+ dummy
+ Dummy
+ Dummy_field_comment
+ C(1)
+ Depto.
+ cl_optiongroup
+ fb2p_test.vcx
+ !
+ XXXXXXXXXX
+ .F.
+ dummy_field_validation_rule()
+ dummy_field_validation_message
+ .T.
+ DUAL.DUMMY
+
+
+
+
+
\ No newline at end of file
diff --git a/TESTS/DATOS_READONLY/fb2p_depto.db2 b/TESTS/DATOS_READONLY/fb2p_depto.db2
index be40ecc..ae4ce51 100644
--- a/TESTS/DATOS_READONLY/fb2p_depto.db2
+++ b/TESTS/DATOS_READONLY/fb2p_depto.db2
@@ -5,6 +5,7 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_depto.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
+
1252
@@ -56,34 +57,42 @@
+
- FB2P_DEPTO.CDX
+
-
-
- DEPTO
- PRIMARY
- DEPTO
- depto=>"0"
- ASCENDING
- MACHINE
-
-
- DESCRIP
- REGULAR
- DESCRIP
-
- DESCENDING
- GENERAL
-
-
+
+
+ DEPTO
+ PRIMARY
+ DEPTO
+ depto=>"0"
+ ASCENDING
+ MACHINE
+
+
+ DESCRIP
+ REGULAR
+ DESCRIP
+
+ DESCENDING
+ GENERAL
+
+
+
+
+
-
+
+
D.1.C
la descrip
+
+
+
diff --git a/TESTS/DATOS_READONLY/fb2p_free.db2 b/TESTS/DATOS_READONLY/fb2p_free.db2
index 3a8659c..0444248 100644
--- a/TESTS/DATOS_READONLY/fb2p_free.db2
+++ b/TESTS/DATOS_READONLY/fb2p_free.db2
@@ -5,6 +5,7 @@
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_free.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
+
1252
@@ -376,39 +377,44 @@
+
- FB2P_FREE.CDX
+
-
-
- CARACTER
- CANDIDATE
- CARACTER
- .NOT.EMPTY(caracter)
- ASCENDING
- GENERAL
-
-
- ENTERO
- REGULAR
- ENTERO
-
- DESCENDING
- MACHINE
-
-
- LOGICO
- BINARY
- LOGICO
-
- ASCENDING
- MACHINE
-
-
+
+
+ CARACTER
+ CANDIDATE
+ CARACTER
+ .NOT.EMPTY(caracter)
+ ASCENDING
+ GENERAL
+
+
+ ENTERO
+ REGULAR
+ ENTERO
+
+ DESCENDING
+ MACHINE
+
+
+ LOGICO
+ BINARY
+ LOGICO
+
+ ASCENDING
+ MACHINE
+
+
+
+
+
-
+
+
/ /
/ / : :
@@ -423,11 +429,12 @@
- ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
+
- 45
+ 50
-
+
+
axaxaxaxaXAXA
1969/11/26
1969/11/26 22:10:06
@@ -438,15 +445,18 @@
NgAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA==
12345.6786
1234567896
- 6.notas TXT.
áéíóúÄËĎÖÜŃńäëďöü.
^FinÇç
+
Ni5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w=
var char 6.áéíóúÜŃ
- yQBzAHQAYQAgAGUAcwAgAGwAYQAgAHMAZQDxAGEAbAAhAA==
- Q2hhckJpbi02LsOhw6nDrcOzw7rDnMORICAgICAg
- VkNoYXJCaW4tNi7DocOpw63Ds8O6w5zDkQ==
- 35
+