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 [![Virtual Fox Fest!](https://virtualfoxfest.com/images/ZoomFoxSmall.png)](https://virtualfoxfest.com/) or [![Southwest Fox!](http://www.swfox.net/images/KokoWhite.jpg)](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/ - [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=fdbozzo%40gmail%2ecom&lc=ES&item_name=FoxBin2Prg&item_number=FoxBin2Prg&currency_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_field_comment - "Depto." - cl_optiongroup - c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx - ! - XXXXXXXXXX - depto_field_validation_rule() - depto_field_validation_message() - - - descrip - - - - - - - - - - - - - - - depto - - .T. - - - descrip - - .F. - - - - - - -
"Depto.Caption"Descripción
- - - 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 - - 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 - - - - -
"Nombre:"
-
- - - - - - 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.dbc0x00000031Visual 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_field_comment + "Depto." + cl_optiongroup + c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx + ! + XXXXXXXXXX + depto_field_validation_rule() + depto_field_validation_message() + + + descrip + + + + + + + + + + + + + + + depto + + .T. + + + descrip + + .F. + + + +
"Depto.Caption"Descripción
\ 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 + + 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 + + + + +
"Nombre:"
\ 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 + + CharBin-6.áéíóúÜÑ + VCharBin-6.áéíóúÜÑ + 55 - + + lalal.áéíóúÜŃ 1969/11/27 1969/11/27 22:10:07 @@ -457,15 +467,18 @@ NwAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA== 12345.6787 1234567897 - 7.notas TXT. áéíóúÄËĎÖÜŃńäëďöü. ^FinÇç + Ny5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w= var char 7.áéíóúÜŃ - yQB4AGkAdABvAHMAIADaAG4AaQBjAG8AcwAhACAAOgApAA== - Q2hhckJpbi03LsOhw6nDrcOzw7rDnMORICAgICAg - VkNoYXJCaW4tNy7DocOpw63Ds8O6w5zDkQ== - 30 + + CharBin-7.áéíóúÜÑ + VCharBin-7.áéíóúÜÑ + 60 - + + pepepepepEPE 1969/11/25 1969/11/25 22:10:05 @@ -476,14 +489,19 @@ NQAuAEUAcwB0AGEAIABlAHMAIAB1AG4AYQAgAGYAcgBhAHMAZQAgAGMAbwBkAGkAZgBpAGMAYQBkAGEAIABlAG4AIABoAGUAeABhACAAeQAgAGMAbwBuACAAYwBhAHIAYQBjAHQAZQByAGUAcwAgAGUAcwBwAGUAYwBpAGEAbABlAHMALgAgAOEA6QDtAPMA+gDBAMkAzQDTANoAxADLAM8A1gDcAOQA6wDvAPYA/ADgAOgA7ADyAPkA8QDRAMcA5wBeAA== 12345.6785 1234567895 - 5.notas TXT. áéíóúÄËĎÖÜŃńäëďöü. ^FinÇç + NS5GcmFzZSBVVEYtOC4gw6HDqcOtw7PDusOEw4vDj8OWw5w= var char 5.áéíóúÜŃ - yQBzAHQAYQAgAGUAcwAgAGwAYQAgAHMAZQDxAGEAbAAhAA== - Q2hhckJpbi01LsOhw6nDrcOzw7rDnMORICAgICAg - VkNoYXJCaW4tNS7DocOpw63Ds8O6w5zDkQ== - 40 + + CharBin-5.áéíóúÜÑ + VCharBin-5.áéíóúÜÑ + 65 + +
+ diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.cl_form1.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_1.cl_form1.sc2 new file mode 100644 index 0000000..4f57715 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_frm_1.cl_form1.sc2 @@ -0,0 +1,511 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" /> + + * + AllowOutput = .T. + AlwaysOnBottom = .F. + AlwaysOnTop = .T. + AutoCenter = .T. + BackColor = 240,240,240 + BindControls = .T. + BorderStyle = 3 + BufferMode = 0 + Caption = "Form" + ClipControls = .T. + Closable = .T. + ColorSource = 4 + Comment = "" + ContinuousScroll = .T. + ControlBox = .T. + DataSession = 1 + DefOleLCID = 0 + 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 = 346 + HelpContextID = 0 + HScrollSmallChange = 10 + Icon = ..\..\ + KeyPreview = .F. + 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 = "cl_form1" + 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 + Visible = .T. + VScrollSmallChange = 10 + WhatsThisButton = .F. + WhatsThisHelp = .F. + WhatsThisHelpID = -1 + Width = 648 + WindowState = 0 + WindowType = 0 + ZoomBox = .F. + Cl_optiongroup1.Name = "Cl_optiongroup1" + Cl_optiongroup1.Option1.Left = 8 + Cl_optiongroup1.Option1.Name = "Option1" + Cl_optiongroup1.Option1.RightToLeft = .F. + Cl_optiongroup1.Option1.Top = 8 + Cl_optiongroup1.Option1.Value = 0 + Cl_optiongroup1.Option2.Left = 124 + Cl_optiongroup1.Option2.Name = "Option2" + Cl_optiongroup1.Option2.RightToLeft = .F. + Cl_optiongroup1.Option2.Top = 8 + Cl_optiongroup1.Option2.Value = 1 + Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form! + Cl_optiongroup1.Value = 2 + Cl_optiongroup1.ZOrderSet = 1 + Cl_commandgroup1.Command1.Left = 8 + Cl_commandgroup1.Command1.Name = "Command1" + Cl_commandgroup1.Command1.RightToLeft = .F. + Cl_commandgroup1.Command1.Top = 4 + Cl_commandgroup1.Command2.Left = 124 + Cl_commandgroup1.Command2.Name = "Command2" + Cl_commandgroup1.Command2.RightToLeft = .F. + Cl_commandgroup1.Command2.Top = 4 + Cl_commandgroup1.Name = "Cl_commandgroup1" + Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor + Cl_commandgroup1.ZOrderSet = 2 + Cl_imagen1.Left = 268 + Cl_imagen1.Name = "Cl_imagen1" + Cl_imagen1.Top = 292 + Cl_imagen1.ZOrderSet = 3 + Cl_imagen2.Left = 316 + Cl_imagen2.Name = "Cl_imagen2" + Cl_imagen2.Top = 292 + Cl_imagen2.ZOrderSet = 4 + * + + ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ; + Height = 67, ; + Left = 484, ; + Name = "Cl_olecontrol1", ; + Top = 256, ; + Width = 131 + *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" /> + + ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; + BackColor = 255,128,255, ; + ButtonCount = 2, ; + Height = 76, ; + Left = 8, ; + Name = "Commandgroup1", ; + Top = 172, ; + Value = 1, ; + Width = 244, ; + ZOrderSet = 16, ; + Command1.Caption = "\ + + ADD OBJECT 'grdEncuestas' AS grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 140, ; + Left = 268, ; + Name = "grdEncuestas", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "encuestas", ; + RecordSourceType = 1, ; + RightToLeft = .F., ; + Top = 12, ; + Width = 320, ; + ZOrderSet = 15, ; + Column1.ControlSource = "encuestas.promotor", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 58, ; + Column2.ControlSource = "encuestas.idenc", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 46, ; + Column3.ControlSource = "encuestas.calific", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 41, ; + Column4.ControlSource = "encuestas.fecha", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 69, ; + Column5.ControlSource = "encuestas.resultado", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 58 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ; + Caption = "promotor", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + RightToLeft = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ; + Caption = "idenc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + RightToLeft = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ; + Caption = "calific", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + RightToLeft = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ; + Caption = "fecha", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + RightToLeft = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ; + Caption = "resultado", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + RightToLeft = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lblCalific' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Calific", ; + Left = 491, ; + Name = "lblCalific", ; + RightToLeft = .F., ; + TabIndex = 7, ; + Top = 164, ; + Width = 34, ; + WordWrap = .T., ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblFecha' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Fecha", ; + Left = 491, ; + Name = "lblFecha", ; + RightToLeft = .F., ; + TabIndex = 9, ; + Top = 192, ; + Width = 34, ; + WordWrap = .T., ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblIdenc' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Idenc", ; + Left = 292, ; + Name = "lblIdenc", ; + RightToLeft = .F., ; + TabIndex = 5, ; + Top = 192, ; + Width = 30, ; + WordWrap = .T., ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblPromotor' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Promotor", ; + Left = 271, ; + Name = "lblPromotor", ; + RightToLeft = .F., ; + TabIndex = 3, ; + Top = 164, ; + Width = 51, ; + WordWrap = .T., ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lblResultado' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Resultado", ; + Left = 472, ; + Name = "lblResultado", ; + RightToLeft = .F., ; + TabIndex = 11, ; + Top = 220, ; + Width = 57, ; + WordWrap = .T., ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + BackColor = 0,128,255, ; + ButtonCount = 2, ; + Height = 72, ; + Left = 8, ; + Name = "Optiongroup1", ; + Top = 256, ; + Value = 2, ; + Width = 244, ; + ZOrderSet = 17, ; + Option1.Caption = "Option1", ; + Option1.Height = 48, ; + Option1.Left = 16, ; + Option1.Name = "Option1", ; + Option1.Picture = bmps\scccheckout.bmp, ; + Option1.RightToLeft = .F., ; + Option1.Style = 1, ; + Option1.Top = 12, ; + Option1.Value = 0, ; + Option1.Width = 92, ; + Option2.Caption = "Option2", ; + Option2.Height = 48, ; + Option2.Left = 132, ; + Option2.Name = "Option2", ; + Option2.Picture = bmps\scccheckout.bmp, ; + Option2.RightToLeft = .F., ; + Option2.Style = 1, ; + Option2.Top = 12, ; + Option2.Value = 1, ; + Option2.Width = 88 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BorderStyle = 2, ; + BorderWidth = 1, ; + Curvature = 16, ; + Height = 49, ; + Left = 264, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 284, ; + Width = 101, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtCalific' AS textbox WITH ; + Comment = "", ; + ControlSource = "encuestas.calific", ; + DisabledForeColor = 0,0,160, ; + ForeColor = 0,0,255, ; + Height = 23, ; + Left = 532, ; + MaxLength = 2, ; + Name = "txtCalific", ; + ReadOnly = .T., ; + RightToLeft = .F., ; + TabIndex = 8, ; + Top = 164, ; + Width = 38, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFecha' AS textbox WITH ; + Comment = "", ; + ControlSource = "encuestas.fecha", ; + DisabledForeColor = 0,0,160, ; + ForeColor = 0,0,255, ; + Height = 23, ; + Left = 532, ; + Name = "txtFecha", ; + ReadOnly = .T., ; + RightToLeft = .F., ; + TabIndex = 10, ; + Top = 192, ; + Width = 73, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtIdenc' AS textbox WITH ; + Comment = "", ; + ControlSource = "encuestas.idenc", ; + DisabledForeColor = 0,0,160, ; + ForeColor = 0,0,255, ; + Height = 23, ; + Left = 328, ; + MaxLength = 20, ; + Name = "txtIdenc", ; + ReadOnly = .T., ; + RightToLeft = .F., ; + TabIndex = 6, ; + Top = 192, ; + Width = 149, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtPromotor' AS textbox WITH ; + Comment = "", ; + ControlSource = "encuestas.promotor", ; + DisabledForeColor = 0,0,160, ; + ForeColor = 0,0,255, ; + Height = 23, ; + Left = 328, ; + MaxLength = 20, ; + Name = "txtPromotor", ; + ReadOnly = .T., ; + RightToLeft = .F., ; + TabIndex = 4, ; + Top = 164, ; + Width = 149, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtResultado' AS textbox WITH ; + Comment = "", ; + ControlSource = "encuestas.resultado", ; + DisabledForeColor = 0,0,160, ; + ForeColor = 0,0,255, ; + Height = 23, ; + Left = 532, ; + MaxLength = 10, ; + Name = "txtResultado", ; + ReadOnly = .T., ; + RightToLeft = .F., ; + TabIndex = 12, ; + Top = 220, ; + Width = 81, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE grdEncuestas.AfterRowColChange + LPARAMETERS nColIndex + + thisform.Refresh() + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.dataenvironment.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_1.dataenvironment.sc2 new file mode 100644 index 0000000..710669a --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_frm_1.dataenvironment.sc2 @@ -0,0 +1,58 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + *-- 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 = 11 + Name = "Dataenvironment" + OpenViews = 0 + Tag = "" + Top = 404 + Width = 520 + * + + ADD OBJECT 'Cursor1' AS cursor WITH ; + Alias = "encuestas", ; + BufferModeOverride = 1, ; + Comment = "", ; + CursorSource = encuestas.dbf, ; + Exclusive = .F., ; + Filter = "", ; + Height = 98, ; + Left = 10, ; + Name = "Cursor1", ; + NoDataOnLoad = .F., ; + Order = "", ; + OrderDirection = 0, ; + ReadOnly = .F., ; + Tag = "", ; + Top = 20, ; + Width = 102 + *< END OBJECT: BaseClass="cursor" /> + + PROCEDURE BeforeOpenTables + *-- Comentario en método [Dataenvironment.BeforeOpenTables] + + ENDPROC + + PROCEDURE Cursor1.Init + *-- Comentario en método [Dataenvironment.Cursor1.Init] + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_frm_1.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_1.sc2 index 9a66881..805d69e 100644 --- a/TESTS/DATOS_READONLY/fb2p_frm_1.sc2 +++ b/TESTS/DATOS_READONLY/fb2p_frm_1.sc2 @@ -4,561 +4,9 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cl_form1" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" /> * #INCLUDE "..\..\include\principal.h" - -DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" /> - - AllowOutput = .T. - AlwaysOnBottom = .F. - AlwaysOnTop = .T. - AutoCenter = .T. - BackColor = 240,240,240 - BindControls = .T. - BorderStyle = 3 - BufferMode = 0 - Caption = "Form" - ClipControls = .T. - Closable = .T. - ColorSource = 4 - Comment = "" - ContinuousScroll = .T. - ControlBox = .T. - DataSession = 1 - DefOleLCID = 0 - 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 = 346 - HelpContextID = 0 - HScrollSmallChange = 10 - Icon = ..\..\ - KeyPreview = .F. - 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 = "cl_form1" - 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 - Visible = .T. - VScrollSmallChange = 10 - WhatsThisButton = .F. - WhatsThisHelp = .F. - WhatsThisHelpID = -1 - Width = 648 - WindowState = 0 - WindowType = 0 - ZoomBox = .F. - Cl_commandgroup1.Command1.Left = 8 - Cl_commandgroup1.Command1.Name = "Command1" - Cl_commandgroup1.Command1.RightToLeft = .F. - Cl_commandgroup1.Command1.Top = 4 - Cl_commandgroup1.Command2.Left = 124 - Cl_commandgroup1.Command2.Name = "Command2" - Cl_commandgroup1.Command2.RightToLeft = .F. - Cl_commandgroup1.Command2.Top = 4 - Cl_commandgroup1.Name = "Cl_commandgroup1" - Cl_commandgroup1.una_prop_cmgroup = Ahora tiene valor - Cl_commandgroup1.ZOrderSet = 2 - Cl_imagen1.Left = 268 - Cl_imagen1.Name = "Cl_imagen1" - Cl_imagen1.Top = 292 - Cl_imagen1.ZOrderSet = 3 - Cl_imagen2.Left = 316 - Cl_imagen2.Name = "Cl_imagen2" - Cl_imagen2.Top = 292 - Cl_imagen2.ZOrderSet = 4 - Cl_optiongroup1.Name = "Cl_optiongroup1" - Cl_optiongroup1.Option1.Left = 8 - Cl_optiongroup1.Option1.Name = "Option1" - Cl_optiongroup1.Option1.RightToLeft = .F. - Cl_optiongroup1.Option1.Top = 8 - Cl_optiongroup1.Option1.Value = 0 - Cl_optiongroup1.Option2.Left = 124 - Cl_optiongroup1.Option2.Name = "Option2" - Cl_optiongroup1.Option2.RightToLeft = .F. - Cl_optiongroup1.Option2.Top = 8 - Cl_optiongroup1.Option2.Value = 1 - Cl_optiongroup1.propiedad_de_clase_sin_valor = Valor reescrito en el form! - Cl_optiongroup1.Value = 2 - Cl_optiongroup1.ZOrderSet = 1 - - ADD OBJECT 'Cl_olecontrol1' AS cl_olecontrol WITH ; - Height = 67, ; - Left = 484, ; - Name = "Cl_olecontrol1", ; - Top = 256, ; - Width = 131 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBdOTWhkM8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" /> - - ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; - BackColor = 255,128,255, ; - ButtonCount = 2, ; - Height = 76, ; - Left = 8, ; - Name = "Commandgroup1", ; - Top = 172, ; - Value = 1, ; - Width = 244, ; - ZOrderSet = 16, ; - Command1.Caption = "\ - - ADD OBJECT 'grdEncuestas' AS grid WITH ; - ColumnCount = 5, ; - DeleteMark = .F., ; - Height = 140, ; - Left = 268, ; - Name = "grdEncuestas", ; - Panel = 1, ; - ReadOnly = .T., ; - RecordSource = "encuestas", ; - RecordSourceType = 1, ; - RightToLeft = .F., ; - Top = 12, ; - Width = 320, ; - ZOrderSet = 15, ; - Column1.ControlSource = "encuestas.promotor", ; - Column1.Name = "Column1", ; - Column1.ReadOnly = .T., ; - Column1.Width = 58, ; - Column2.ControlSource = "encuestas.idenc", ; - Column2.Name = "Column2", ; - Column2.ReadOnly = .T., ; - Column2.Width = 46, ; - Column3.ControlSource = "encuestas.calific", ; - Column3.Name = "Column3", ; - Column3.ReadOnly = .T., ; - Column3.Width = 41, ; - Column4.ControlSource = "encuestas.fecha", ; - Column4.Name = "Column4", ; - Column4.ReadOnly = .T., ; - Column4.Width = 69, ; - Column5.ControlSource = "encuestas.resultado", ; - Column5.Name = "Column5", ; - Column5.ReadOnly = .T., ; - Column5.Width = 58 - *< END OBJECT: BaseClass="grid" /> - - ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ; - Caption = "promotor", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - ReadOnly = .T., ; - RightToLeft = .F. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ; - Caption = "idenc", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - ReadOnly = .T., ; - RightToLeft = .F. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ; - Caption = "calific", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - ReadOnly = .T., ; - RightToLeft = .F. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ; - Caption = "fecha", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - ReadOnly = .T., ; - RightToLeft = .F. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ; - Caption = "resultado", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - ReadOnly = .T., ; - RightToLeft = .F. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'lblCalific' AS label WITH ; - AutoSize = .T., ; - BackStyle = 0, ; - Caption = "Calific", ; - Left = 491, ; - Name = "lblCalific", ; - RightToLeft = .F., ; - TabIndex = 7, ; - Top = 164, ; - Width = 34, ; - WordWrap = .T., ; - ZOrderSet = 10 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'lblFecha' AS label WITH ; - AutoSize = .T., ; - BackStyle = 0, ; - Caption = "Fecha", ; - Left = 491, ; - Name = "lblFecha", ; - RightToLeft = .F., ; - TabIndex = 9, ; - Top = 192, ; - Width = 34, ; - WordWrap = .T., ; - ZOrderSet = 12 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'lblIdenc' AS label WITH ; - AutoSize = .T., ; - BackStyle = 0, ; - Caption = "Idenc", ; - Left = 292, ; - Name = "lblIdenc", ; - RightToLeft = .F., ; - TabIndex = 5, ; - Top = 192, ; - Width = 30, ; - WordWrap = .T., ; - ZOrderSet = 8 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'lblPromotor' AS label WITH ; - AutoSize = .T., ; - BackStyle = 0, ; - Caption = "Promotor", ; - Left = 271, ; - Name = "lblPromotor", ; - RightToLeft = .F., ; - TabIndex = 3, ; - Top = 164, ; - Width = 51, ; - WordWrap = .T., ; - ZOrderSet = 6 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'lblResultado' AS label WITH ; - AutoSize = .T., ; - BackStyle = 0, ; - Caption = "Resultado", ; - Left = 472, ; - Name = "lblResultado", ; - RightToLeft = .F., ; - TabIndex = 11, ; - Top = 220, ; - Width = 57, ; - WordWrap = .T., ; - ZOrderSet = 14 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; - BackColor = 0,128,255, ; - ButtonCount = 2, ; - Height = 72, ; - Left = 8, ; - Name = "Optiongroup1", ; - Top = 256, ; - Value = 2, ; - Width = 244, ; - ZOrderSet = 17, ; - Option1.Caption = "Option1", ; - Option1.Height = 48, ; - Option1.Left = 16, ; - Option1.Name = "Option1", ; - Option1.Picture = bmps\scccheckout.bmp, ; - Option1.RightToLeft = .F., ; - Option1.Style = 1, ; - Option1.Top = 12, ; - Option1.Value = 0, ; - Option1.Width = 92, ; - Option2.Caption = "Option2", ; - Option2.Height = 48, ; - Option2.Left = 132, ; - Option2.Name = "Option2", ; - Option2.Picture = bmps\scccheckout.bmp, ; - Option2.RightToLeft = .F., ; - Option2.Style = 1, ; - Option2.Top = 12, ; - Option2.Value = 1, ; - Option2.Width = 88 - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Shape1' AS shape WITH ; - BorderStyle = 2, ; - BorderWidth = 1, ; - Curvature = 16, ; - Height = 49, ; - Left = 264, ; - Name = "Shape1", ; - SpecialEffect = 0, ; - Top = 284, ; - Width = 101, ; - ZOrderSet = 0 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'txtCalific' AS textbox WITH ; - Comment = "", ; - ControlSource = "encuestas.calific", ; - DisabledForeColor = 0,0,160, ; - ForeColor = 0,0,255, ; - Height = 23, ; - Left = 532, ; - MaxLength = 2, ; - Name = "txtCalific", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - TabIndex = 8, ; - Top = 164, ; - Width = 38, ; - ZOrderSet = 9 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'txtFecha' AS textbox WITH ; - Comment = "", ; - ControlSource = "encuestas.fecha", ; - DisabledForeColor = 0,0,160, ; - ForeColor = 0,0,255, ; - Height = 23, ; - Left = 532, ; - Name = "txtFecha", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - TabIndex = 10, ; - Top = 192, ; - Width = 73, ; - ZOrderSet = 11 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'txtIdenc' AS textbox WITH ; - Comment = "", ; - ControlSource = "encuestas.idenc", ; - DisabledForeColor = 0,0,160, ; - ForeColor = 0,0,255, ; - Height = 23, ; - Left = 328, ; - MaxLength = 20, ; - Name = "txtIdenc", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - TabIndex = 6, ; - Top = 192, ; - Width = 149, ; - ZOrderSet = 7 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'txtPromotor' AS textbox WITH ; - Comment = "", ; - ControlSource = "encuestas.promotor", ; - DisabledForeColor = 0,0,160, ; - ForeColor = 0,0,255, ; - Height = 23, ; - Left = 328, ; - MaxLength = 20, ; - Name = "txtPromotor", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - TabIndex = 4, ; - Top = 164, ; - Width = 149, ; - ZOrderSet = 5 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'txtResultado' AS textbox WITH ; - Comment = "", ; - ControlSource = "encuestas.resultado", ; - DisabledForeColor = 0,0,160, ; - ForeColor = 0,0,255, ; - Height = 23, ; - Left = 532, ; - MaxLength = 10, ; - Name = "txtResultado", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - TabIndex = 12, ; - Top = 220, ; - Width = 81, ; - ZOrderSet = 13 - *< END OBJECT: BaseClass="textbox" /> - - PROCEDURE grdEncuestas.AfterRowColChange - LPARAMETERS nColIndex - - thisform.Refresh() - - ENDPROC - -ENDDEFINE - -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - *-- 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 = 11 - Name = "Dataenvironment" - OpenViews = 0 - Tag = "" - Top = 404 - Width = 520 - - ADD OBJECT 'Cursor1' AS cursor WITH ; - Alias = "encuestas", ; - BufferModeOverride = 1, ; - Comment = "", ; - CursorSource = encuestas.dbf, ; - Exclusive = .F., ; - Filter = "", ; - Height = 98, ; - Left = 10, ; - Name = "Cursor1", ; - NoDataOnLoad = .F., ; - Order = "", ; - OrderDirection = 0, ; - ReadOnly = .F., ; - Tag = "", ; - Top = 20, ; - Width = 102 - *< END OBJECT: BaseClass="cursor" /> - - PROCEDURE BeforeOpenTables - *-- Comentario en método [Dataenvironment.BeforeOpenTables] - - ENDPROC - - PROCEDURE Cursor1.Init - *-- Comentario en método [Dataenvironment.Cursor1.Init] - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_frm_2.dataenvironment.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_2.dataenvironment.sc2 new file mode 100644 index 0000000..02aa671 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_frm_2.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_frm_2.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/fb2p_frm_2.form1.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_2.form1.sc2 new file mode 100644 index 0000000..086e31e --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_frm_2.form1.sc2 @@ -0,0 +1,226 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS form1 AS form + *< 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="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + + * + *p: a_otra + *a: a_prop[1,0] && array + *p: _prop + * + + * + AllowOutput = .T. + AlwaysOnBottom = .F. + AlwaysOnTop = .T. + AutoCenter = .F. + a_otra = .F. + BackColor = 240,240,240 + BindControls = .T. + BorderStyle = 3 + BufferMode = 0 + Caption = "Form1" + ClipControls = .T. + Closable = .T. + ColorSource = 4 + ContinuousScroll = .T. + ControlBox = .T. + DataSession = 1 + DefOleLCID = 0 + Dockable = 0 + DoCreate = .T. + DrawMode = 13 + DrawStyle = 0 + DrawWidth = 1 + Enabled = .T. + FillColor = 0,0,0 + FillStyle = 1 + FontBold = .F. + 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 = 250 + 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 + MousePointer = 0 + Movable = .T. + Name = "Form1" + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + RightToLeft = .F. + ScaleMode = 3 + ScrollBars = 0 + ShowInTaskBar = .T. + ShowTips = .F. + ShowWindow = 0 + SizeBox = .F. + TabIndex = 1 + TabStop = .T. + Tag = "" + Themes = .T. + TitleBar = 1 + Top = 1 + Visible = .T. + VScrollSmallChange = 10 + WhatsThisButton = .F. + WhatsThisHelp = .F. + WhatsThisHelpID = -1 + Width = 375 + WindowState = 0 + WindowType = 0 + ZoomBox = .F. + _prop = .F. + * + + ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; + ButtonCount = 3, ; + Height = 100, ; + Left = 12, ; + Name = "Commandgroup1", ; + Top = 8, ; + Value = 2, ; + Width = 94, ; + Command1.Caption = "Command1", ; + Command1.Height = 27, ; + Command1.Left = 5, ; + Command1.Name = "Command1", ; + Command1.Top = 5, ; + Command1.Width = 84, ; + Command2.Alignment = 2, ; + Command2.Anchor = 0, ; + Command2.AutoSize = .F., ; + Command2.BackColor = 240,240,240, ; + Command2.Cancel = .F., ; + Command2.Caption = "Command2", ; + Command2.ColorScheme = 1, ; + Command2.ColorSource = 4, ; + Command2.Default = .F., ; + Command2.DisabledBackColor = 240,240,240, ; + Command2.DisabledForeColor = 109,109,109, ; + Command2.DragMode = 0, ; + Command2.Enabled = .T., ; + Command2.FontBold = .F., ; + Command2.FontCondense = .F., ; + Command2.FontExtend = .F., ; + Command2.FontItalic = .F., ; + Command2.FontName = "Arial", ; + Command2.FontOutline = .F., ; + Command2.FontShadow = .F., ; + Command2.FontSize = 9, ; + Command2.FontStrikethru = .F., ; + Command2.FontUnderline = .F., ; + Command2.ForeColor = 0,0,0, ; + Command2.Height = 27, ; + Command2.HelpContextID = 0, ; + Command2.Left = 5, ; + Command2.MousePointer = 0, ; + Command2.Name = "Command2", ; + Command2.OLEDragMode = 0, ; + Command2.OLEDragPicture = ..\..\, ; + Command2.OLEDropEffects = 3, ; + Command2.OLEDropMode = 0, ; + Command2.Picture = ..\..\, ; + Command2.RightToLeft = .F., ; + Command2.SpecialEffect = 0, ; + Command2.StatusBarText = "", ; + Command2.Style = 0, ; + Command2.TabIndex = 2, ; + Command2.TabStop = .T., ; + Command2.Tag = "", ; + Command2.TerminateRead = .F., ; + Command2.Themes = .T., ; + Command2.ToolTipText = "", ; + Command2.Top = 34, ; + Command2.Visible = .T., ; + Command2.WhatsThisHelpID = -1, ; + Command2.Width = 84, ; + Command2.WordWrap = .F., ; + Command3.Caption = "Command3", ; + Command3.Height = 27, ; + Command3.Left = 5, ; + Command3.Name = "Command3", ; + Command3.Top = 63, ; + Command3.Width = 84 + *< END OBJECT: BaseClass="commandgroup" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + ButtonCount = 3, ; + Height = 68, ; + Left = 20, ; + Name = "Optiongroup1", ; + Top = 144, ; + Value = 2, ; + Width = 71, ; + Option1.Caption = "Option1", ; + Option1.Height = 17, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option1.Width = 61, ; + Option2.Caption = "Option2", ; + Option2.Height = 17, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24, ; + Option2.Value = 1, ; + Option2.Width = 61, ; + Option3.Caption = "Option3", ; + Option3.Height = 17, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Width = 61 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + ActivePage = 2, ; + ErasePage = .T., ; + Height = 132, ; + Left = 120, ; + Name = "Pageframe1", ; + PageCount = 3, ; + Top = 12, ; + Width = 245, ; + Page1.Caption = "Page1", ; + Page1.Name = "Page1", ; + Page2.Caption = "Page2", ; + Page2.Name = "Page2", ; + Page3.Caption = "Page3", ; + Page3.Name = "Page3" + *< END OBJECT: BaseClass="pageframe" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_frm_2.sc2 b/TESTS/DATOS_READONLY/fb2p_frm_2.sc2 index 83f80ed..760c2c5 100644 --- a/TESTS/DATOS_READONLY/fb2p_frm_2.sc2 +++ b/TESTS/DATOS_READONLY/fb2p_frm_2.sc2 @@ -4,234 +4,8 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_2.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="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> - - * - *p: a_otra - *a: a_prop[1,0] && array - *p: _prop - * - - AllowOutput = .T. - AlwaysOnBottom = .F. - AlwaysOnTop = .T. - AutoCenter = .F. - a_otra = .F. - BackColor = 240,240,240 - BindControls = .T. - BorderStyle = 3 - BufferMode = 0 - Caption = "Form1" - ClipControls = .T. - Closable = .T. - ColorSource = 4 - ContinuousScroll = .T. - ControlBox = .T. - DataSession = 1 - DefOleLCID = 0 - Dockable = 0 - DoCreate = .T. - DrawMode = 13 - DrawStyle = 0 - DrawWidth = 1 - Enabled = .T. - FillColor = 0,0,0 - FillStyle = 1 - FontBold = .F. - 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 = 250 - 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 - MousePointer = 0 - Movable = .T. - Name = "Form1" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - RightToLeft = .F. - ScaleMode = 3 - ScrollBars = 0 - ShowInTaskBar = .T. - ShowTips = .F. - ShowWindow = 0 - SizeBox = .F. - TabIndex = 1 - TabStop = .T. - Tag = "" - Themes = .T. - TitleBar = 1 - Top = 1 - Visible = .T. - VScrollSmallChange = 10 - WhatsThisButton = .F. - WhatsThisHelp = .F. - WhatsThisHelpID = -1 - Width = 375 - WindowState = 0 - WindowType = 0 - ZoomBox = .F. - _prop = .F. - - ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; - ButtonCount = 3, ; - Height = 100, ; - Left = 12, ; - Name = "Commandgroup1", ; - Top = 8, ; - Value = 2, ; - Width = 94, ; - Command1.Caption = "Command1", ; - Command1.Height = 27, ; - Command1.Left = 5, ; - Command1.Name = "Command1", ; - Command1.Top = 5, ; - Command1.Width = 84, ; - Command2.Alignment = 2, ; - Command2.Anchor = 0, ; - Command2.AutoSize = .F., ; - Command2.BackColor = 240,240,240, ; - Command2.Cancel = .F., ; - Command2.Caption = "Command2", ; - Command2.ColorScheme = 1, ; - Command2.ColorSource = 4, ; - Command2.Default = .F., ; - Command2.DisabledBackColor = 240,240,240, ; - Command2.DisabledForeColor = 109,109,109, ; - Command2.DragMode = 0, ; - Command2.Enabled = .T., ; - Command2.FontBold = .F., ; - Command2.FontCondense = .F., ; - Command2.FontExtend = .F., ; - Command2.FontItalic = .F., ; - Command2.FontName = "Arial", ; - Command2.FontOutline = .F., ; - Command2.FontShadow = .F., ; - Command2.FontSize = 9, ; - Command2.FontStrikethru = .F., ; - Command2.FontUnderline = .F., ; - Command2.ForeColor = 0,0,0, ; - Command2.Height = 27, ; - Command2.HelpContextID = 0, ; - Command2.Left = 5, ; - Command2.MousePointer = 0, ; - Command2.Name = "Command2", ; - Command2.OLEDragMode = 0, ; - Command2.OLEDragPicture = ..\..\, ; - Command2.OLEDropEffects = 3, ; - Command2.OLEDropMode = 0, ; - Command2.Picture = ..\..\, ; - Command2.RightToLeft = .F., ; - Command2.SpecialEffect = 0, ; - Command2.StatusBarText = "", ; - Command2.Style = 0, ; - Command2.TabIndex = 2, ; - Command2.TabStop = .T., ; - Command2.Tag = "", ; - Command2.TerminateRead = .F., ; - Command2.Themes = .T., ; - Command2.ToolTipText = "", ; - Command2.Top = 34, ; - Command2.Visible = .T., ; - Command2.WhatsThisHelpID = -1, ; - Command2.Width = 84, ; - Command2.WordWrap = .F., ; - Command3.Caption = "Command3", ; - Command3.Height = 27, ; - Command3.Left = 5, ; - Command3.Name = "Command3", ; - Command3.Top = 63, ; - Command3.Width = 84 - *< END OBJECT: BaseClass="commandgroup" /> - - ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; - ButtonCount = 3, ; - Height = 68, ; - Left = 20, ; - Name = "Optiongroup1", ; - Top = 144, ; - Value = 2, ; - Width = 71, ; - Option1.Caption = "Option1", ; - Option1.Height = 17, ; - Option1.Left = 5, ; - Option1.Name = "Option1", ; - Option1.Top = 5, ; - Option1.Value = 0, ; - Option1.Width = 61, ; - Option2.Caption = "Option2", ; - Option2.Height = 17, ; - Option2.Left = 5, ; - Option2.Name = "Option2", ; - Option2.Top = 24, ; - Option2.Value = 1, ; - Option2.Width = 61, ; - Option3.Caption = "Option3", ; - Option3.Height = 17, ; - Option3.Left = 5, ; - Option3.Name = "Option3", ; - Option3.Top = 43, ; - Option3.Width = 61 - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ActivePage = 2, ; - ErasePage = .T., ; - Height = 132, ; - Left = 120, ; - Name = "Pageframe1", ; - PageCount = 3, ; - Top = 12, ; - Width = 245, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2", ; - Page3.Caption = "Page3", ; - Page3.Name = "Page3" - *< END OBJECT: BaseClass="pageframe" /> - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_commandgroup.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_commandgroup.vc2 new file mode 100644 index 0000000..bf0eccb --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_commandgroup.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_commandgroup AS commandgroup && Descripción de cl_CommandGroup + *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\include\principal.h" + * + *p: una_prop_cmgroup && Con comentario, pero sin valor + * + + * + 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_test.cl_cust_rsv_kwd.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_cust_rsv_kwd.vc2 new file mode 100644 index 0000000..aee69b9 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_cust_rsv_kwd.vc2 @@ -0,0 +1,23 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_cust_rsv_kwd AS custom + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: nota + *p: note && Reserved keyword + * + + * + Height = 53 + Name = "cl_cust_rsv_kwd" + nota = + note = + Width = 135 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_form.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_form.vc2 new file mode 100644 index 0000000..6ac4b72 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_form.vc2 @@ -0,0 +1,123 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" /> + + * + *p: chidden && Prop.Hidden + *p: cprotected && Prop.Protegida + *a: ahidden[1,0] && Array Oculto + *a: aprotected[1,0] && Array Protegido + *p: _memberdata && XML Metadata for customizable properties + * + + HIDDEN ahidden,chidden + PROTECTED aprotected,cprotected + * + 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, ; + Height = 66, ; + Left = 8, ; + Name = "Cl_commandgroup1", ; + Top = 88, ; + Width = 244, ; + Command1.Caption = "Abrir", ; + Command1.Height = 52, ; + Command1.Left = 8, ; + Command1.Name = "Command1", ; + Command1.Picture = bmps\carpetaabierta.bmp, ; + Command1.Top = 4, ; + Command1.Width = 104, ; + Command2.Caption = "Cerrar", ; + Command2.Height = 52, ; + Command2.Left = 124, ; + Command2.Name = "Command2", ; + Command2.Picture = bmps\carpetacerrada.bmp, ; + Command2.Top = 4, ; + Command2.Width = 104 + *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" /> + + ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ; + Height = 34, ; + Left = 452, ; + Name = "Cl_imagen1", ; + Picture = bmps\sobrepostal.bmp, ; + Stretch = 1, ; + Top = 276, ; + Width = 38 + *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> + + ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ; + Height = 34, ; + Left = 500, ; + Name = "Cl_imagen2", ; + Picture = bmps\treeview.bmp, ; + Stretch = 1, ; + Top = 276, ; + Width = 38 + *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> + + ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ; + BackColor = 0,128,255, ; + Height = 68, ; + Left = 8, ; + Name = "Cl_optiongroup1", ; + Top = 12, ; + Width = 244, ; + Option1.Height = 52, ; + Option1.Left = 8, ; + Option1.Name = "Option1", ; + Option1.Picture = bmps\scccheckout.bmp, ; + Option1.Style = 1, ; + Option1.Top = 8, ; + Option1.Width = 104, ; + Option2.Height = 52, ; + Option2.Left = 124, ; + Option2.Name = "Option2", ; + Option2.Picture = bmps\scccheckout.bmp, ; + Option2.Style = 1, ; + Option2.Top = 8, ; + Option2.Width = 104 + *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" /> + + PROCEDURE Cl_optiongroup1.Init + *-- Prueba para comprobar que respeta espacios y TABS del código + TEXT TO xx + * TAB a la izquierda del asterisco + * 2 TAB a la izquierda del asterisco + * 1 ESPACIO a la izquierda del asterisco + * 2 ESPACIOS a la izquierda del asterisco + 1 TAB a la derecha del asterisco * + 1 ESPACIO a la derecha del asterisco * + ENDTEXT && Esto termina sin ENTER + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_imagen.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_imagen.vc2 new file mode 100644 index 0000000..427da0c --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_imagen.vc2 @@ -0,0 +1,25 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole + *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *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 + * + + 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" + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_olebound.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_olebound.vc2 new file mode 100644 index 0000000..8e1e01d --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_olebound.vc2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_olebound AS oleboundcontrol + *< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 100 + Name = "cl_olebound" + Width = 100 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_olecontrol.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_olecontrol.vc2 new file mode 100644 index 0000000..6501c28 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_olecontrol.vc2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +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 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.cl_optiongroup.vc2 b/TESTS/DATOS_READONLY/fb2p_test.cl_optiongroup.vc2 new file mode 100644 index 0000000..3e817f1 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.cl_optiongroup.vc2 @@ -0,0 +1,53 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_optiongroup AS optiongroup && descripcion + *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: propiedad_de_clase_con_valor_access + *m: propiedad_de_clase_con_valor_assign + *p: propiedad_de_clase_con_valor && Tiene un valor por defecto + *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 + 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 + RETURN THIS.propiedad_de_clase_con_valor + + ENDPROC + + PROCEDURE propiedad_de_clase_con_valor_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.propiedad_de_clase_con_valor = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.pj2 b/TESTS/DATOS_READONLY/fb2p_test.pj2 index 1343724..0da34ba 100644 --- a/TESTS/DATOS_READONLY/fb2p_test.pj2 +++ b/TESTS/DATOS_READONLY/fb2p_test.pj2 @@ -81,72 +81,74 @@ MODIFY PROJECT 'fb2p_test.pjx' NOWAIT NOSHOW NOPROJECTHOOK loProject = _VFP.Projects('fb2p_test.pjx') WITH loProject.FILES - .ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbc.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbf.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ft__foxbin2prg__c_conversor_prg_a_mnx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\fxu_lib_objetos_y_funciones_de_soporte.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__dobackup.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__gettimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__get_propsandvaluesfrom_properties.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__indentarmemo.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__analizarasignacion_tag_indicado.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__insert_allobjects.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('..\ut__foxbin2prg__c_foxbin2prg__evaluarconfiguracion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('bmps\carpetaabierta.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('bmps\carpetacerrada.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('bmps\scccheckout.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('bmps\sobrepostal.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('bmps\treeview.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_checkbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_combobox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_commandgroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_containers.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_form_aa.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_form_aa2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_form_controles.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_formset.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_listbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_optiongroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('f_textbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('fb2p_frm_1.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('fb2p_frm_2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('fb2p_test.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('lib_controles.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> - .ADD('lib_controles2.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" /> + .ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbc.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ft__foxbin2prg__c_conversor_prg_a_dbf.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ft__foxbin2prg__c_conversor_prg_a_mnx.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\fxu_lib_objetos_y_funciones_de_soporte.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__dobackup.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__gettimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__get_propsandvaluesfrom_properties.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_bin_a_prg__indentarmemo.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__analizarasignacion_tag_indicado.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_conversor_prg_a_bin__insert_allobjects.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('..\ut__foxbin2prg__c_foxbin2prg__evaluarconfiguracion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('bmps\carpetaabierta.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('bmps\carpetacerrada.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('bmps\scccheckout.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('bmps\sobrepostal.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('bmps\treeview.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_checkbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_combobox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_commandgroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_containers.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_form_aa.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_form_aa2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_form_controles.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_formset.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_listbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_optiongroup.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('f_textbox.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('fb2p_frm_1.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('fb2p_frm_2.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('fb2p_test.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('lib_controles.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('lib_controles2.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> * .ITEM('__newproject.f2b').Remove() * - .ITEM(lcCurdir + 'f_form_aa.scx').Description = 'Form con todos los controles' - .ITEM(lcCurdir + 'f_form_aa2.scx').Description = 'Instancia del form con todos los controles' - .ITEM(lcCurdir + 'fb2p_test.vcx').Description = 'clase descrip' + .ITEM("f_form_aa.scx").Description = 'Form con todos los controles' + .ITEM("f_form_aa2.scx").Description = 'Instancia del form con todos los controles' + .ITEM("fb2p_test.vcx").Description = 'clase descrip' * * - .ITEM(lcCurdir + 'config\config.fpw').Exclude = .T. + .ITEM("config\config.fpw").Exclude = .T. * * - .ITEM(lcCurdir + 'config\config.fpw').Type = 'T' + .ITEM("config\config.fpw").Type = 'T' * ENDWITH WITH loProject * - .SetMain(lcCurdir + '..\fxu_lib_objetos_y_funciones_de_soporte.prg') - .Icon = lcCurdir + 'bmps\container.ico' + .SetMain("..\fxu_lib_objetos_y_funciones_de_soporte.prg") + + .Icon = "bmps\container.ico" .Debug = .T. .Encrypted = .T. *<.CmntStyle = 1 /> *<.NoLogo = .F. /> *<.SaveCode = .T. /> + *<.User = '' /> .ProjectHookLibrary = 'fb2p_test.vcx' .ProjectHookClass = 'proj_hook' * diff --git a/TESTS/DATOS_READONLY/fb2p_test.proj_hook.vc2 b/TESTS/DATOS_READONLY/fb2p_test.proj_hook.vc2 new file mode 100644 index 0000000..32dd377 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test.proj_hook.vc2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS proj_hook AS projecthook + *< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 22 + Name = "proj_hook" + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test.vc2 b/TESTS/DATOS_READONLY/fb2p_test.vc2 index 92929ca..8298075 100644 --- a/TESTS/DATOS_READONLY/fb2p_test.vc2 +++ b/TESTS/DATOS_READONLY/fb2p_test.vc2 @@ -4,257 +4,16 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" /> +*< EXTERNAL_CLASS: Name="cl_cust_rsv_kwd" Baseclass="custom" /> +*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="cl_imagen" Baseclass="image" /> +*< EXTERNAL_CLASS: Name="cl_olebound" Baseclass="oleboundcontrol" /> +*< EXTERNAL_CLASS: Name="cl_olecontrol" Baseclass="olecontrol" /> +*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" /> +*< EXTERNAL_CLASS: Name="proj_hook" Baseclass="projecthook" /> + * *< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" /> -* -DEFINE CLASS cl_commandgroup AS commandgroup && Descripción de cl_CommandGroup - *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - #INCLUDE "..\..\include\principal.h" - * - *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 - -ENDDEFINE - -DEFINE CLASS cl_cust_rsv_kwd AS custom - *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *p: nota - *p: note && Reserved keyword - * - - Height = 53 - Name = "cl_cust_rsv_kwd" - nota = - note = && Reserved keyword - Width = 135 - -ENDDEFINE - -DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" /> - - * - *p: chidden && Prop.Hidden - *p: cprotected && Prop.Protegida - *a: ahidden[1,0] && Array Oculto - *a: aprotected[1,0] && Array Protegido - *p: _memberdata && XML Metadata for customizable properties - * - - 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 - - ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ; - BackColor = 255,128,192, ; - Height = 66, ; - Left = 8, ; - Name = "Cl_commandgroup1", ; - Top = 88, ; - Width = 244, ; - Command1.Caption = "Abrir", ; - Command1.Height = 52, ; - Command1.Left = 8, ; - Command1.Name = "Command1", ; - Command1.Picture = bmps\carpetaabierta.bmp, ; - Command1.Top = 4, ; - Command1.Width = 104, ; - Command2.Caption = "Cerrar", ; - Command2.Height = 52, ; - Command2.Left = 124, ; - Command2.Name = "Command2", ; - Command2.Picture = bmps\carpetacerrada.bmp, ; - Command2.Top = 4, ; - Command2.Width = 104 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ; - Height = 34, ; - Left = 452, ; - Name = "Cl_imagen1", ; - Picture = bmps\sobrepostal.bmp, ; - Stretch = 1, ; - Top = 276, ; - Width = 38 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ; - Height = 34, ; - Left = 500, ; - Name = "Cl_imagen2", ; - Picture = bmps\treeview.bmp, ; - Stretch = 1, ; - Top = 276, ; - Width = 38 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ; - BackColor = 0,128,255, ; - Height = 68, ; - Left = 8, ; - Name = "Cl_optiongroup1", ; - Top = 12, ; - Width = 244, ; - Option1.Height = 52, ; - Option1.Left = 8, ; - Option1.Name = "Option1", ; - Option1.Picture = bmps\scccheckout.bmp, ; - Option1.Style = 1, ; - Option1.Top = 8, ; - Option1.Width = 104, ; - Option2.Height = 52, ; - Option2.Left = 124, ; - Option2.Name = "Option2", ; - Option2.Picture = bmps\scccheckout.bmp, ; - Option2.Style = 1, ; - Option2.Top = 8, ; - Option2.Width = 104 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" /> - - PROCEDURE Cl_optiongroup1.Init - *-- Prueba para comprobar que respeta espacios y TABS del código - TEXT TO xx - * TAB a la izquierda del asterisco - * 2 TAB a la izquierda del asterisco - * 1 ESPACIO a la izquierda del asterisco - * 2 ESPACIOS a la izquierda del asterisco - 1 TAB a la derecha del asterisco * - 1 ESPACIO a la derecha del asterisco * - ENDTEXT && Esto termina sin ENTER - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole - *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *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 - - 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" - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_olebound AS oleboundcontrol - *< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Height = 100 - Name = "cl_olebound" - Width = 100 - -ENDDEFINE - -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 - -ENDDEFINE - -DEFINE CLASS cl_optiongroup AS optiongroup && descripcion - *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: propiedad_de_clase_con_valor_access - *m: propiedad_de_clase_con_valor_assign - *p: propiedad_de_clase_con_valor && Tiene un valor por defecto - *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 - - PROCEDURE propiedad_de_clase_con_valor_access - *To do: Modify this routine for the Access method - RETURN THIS.propiedad_de_clase_con_valor - - ENDPROC - - PROCEDURE propiedad_de_clase_con_valor_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.propiedad_de_clase_con_valor = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS proj_hook AS projecthook - *< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Height = 22 - Name = "proj_hook" - Width = 23 - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.cl_form.vc2 b/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.cl_form.vc2 new file mode 100644 index 0000000..35fe122 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.cl_form.vc2 @@ -0,0 +1,46 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_form AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + + * + Caption = "Form" + DoCreate = .T. + Name = "cl_form" + * + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Caption = "Command1", ; + Height = 27, ; + Left = 36, ; + Name = "Command1", ; + Top = 32, ; + Width = 84 + *< END OBJECT: BaseClass="commandbutton" /> + + PROCEDURE Load + TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC" + + *-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC + *-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo. + + ENDTEXT && Esto termina sin ENTER. + ENDPROC + + PROCEDURE Command1.Click + TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC" + + *-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC + *-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo. + + ENDTEXT && Esto termina sin ENTER. + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2 b/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2 index 76c4a40..d4c199b 100644 --- a/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2 +++ b/TESTS/DATOS_READONLY/fb2p_test_bug_estructural.vc2 @@ -4,42 +4,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_estructural.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS cl_form AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" /> - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> - - Caption = "Form" - DoCreate = .T. - Name = "cl_form" - - ADD OBJECT 'Command1' AS commandbutton WITH ; - Caption = "Command1", ; - Height = 27, ; - Left = 36, ; - Name = "Command1", ; - Top = 32, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - PROCEDURE Load - TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC" - - *-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC - *-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo. - - ENDTEXT && Esto termina sin ENTER. - ENDPROC - - PROCEDURE Command1.Click - TEXT && COMPROBACIÓN DE CIERRE DE ESTRUCTURA "ENDPROC" - - *-- Dejando la últim línea sin ENTER se comprueba si el ENDPROC - *-- se queda pegado a la misma o no por faltar un CR+LF antes del mismo. - - ENDTEXT && Esto termina sin ENTER. - ENDPROC - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_commandgroup.vc2 b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_commandgroup.vc2 new file mode 100644 index 0000000..7eaa42f --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_commandgroup.vc2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_commandgroup AS commandgroup + *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + ButtonCount = 2 + Height = 66 + Name = "cl_commandgroup" + 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 + * + + PROCEDURE Command1.Click + TEXT && CL_COMMANDGROUP::Command1.Click() + * ESTE ES EL ÚNICO CÓDIGO QUE DEBERÍA TENER ESTE MÉTODO. + * SI HAY MÁS CÓDIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE ESTÁ MEZCLANDO. + ENDTEXT + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_optiongroup.vc2 b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_optiongroup.vc2 new file mode 100644 index 0000000..ed4da71 --- /dev/null +++ b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.cl_optiongroup.vc2 @@ -0,0 +1,41 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_optiongroup AS optiongroup + *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + ButtonCount = 2 + Height = 46 + Name = "cl_optiongroup" + 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 Option1.Click + TEXT && CL_OPTIONGROUP::Option1.Click() + * BUG DEL MÉTODO MOVIDO: + * Este método es para reproducir un bug, por el cuál el último PROCEDURE de un OBJETO + * de la clase anterior se queda referenciado en un obejeto que no se limpia, + * y por el cuál el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega + * al mismo, quedando esa clase con un método vacío. (O sea, esta) + ENDTEXT + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2 b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2 index 5ebc67b..34eea54 100644 --- a/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2 +++ b/TESTS/DATOS_READONLY/fb2p_test_bug_metodo_movido.vc2 @@ -4,67 +4,8 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test_bug_metodo_movido.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS cl_commandgroup AS commandgroup - *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" /> +*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" /> - ButtonCount = 2 - Height = 66 - Name = "cl_commandgroup" - 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 - - PROCEDURE Command1.Click - TEXT && CL_COMMANDGROUP::Command1.Click() - * ESTE ES EL ÚNICO CÓDIGO QUE DEBERÍA TENER ESTE MÉTODO. - * SI HAY MÁS CÓDIGO FUERA DEL TEXT/ENDTEXT, ES PORQUE SE ESTÁ MEZCLANDO. - ENDTEXT - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_optiongroup AS optiongroup - *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - ButtonCount = 2 - Height = 46 - Name = "cl_optiongroup" - 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 Option1.Click - TEXT && CL_OPTIONGROUP::Option1.Click() - * BUG DEL MÉTODO MOVIDO: - * Este método es para reproducir un bug, por el cuál el último PROCEDURE de un OBJETO - * de la clase anterior se queda referenciado en un obejeto que no se limpia, - * y por el cuál el siguiente PROCEDURE de OBJETO de la siguiente CLASE se agrega - * al mismo, quedando esa clase con un método vacío. (O sea, esta) - ENDTEXT - ENDPROC - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/form1.dataenvironment.sc2 b/TESTS/DATOS_READONLY/form1.dataenvironment.sc2 new file mode 100644 index 0000000..3cf1381 --- /dev/null +++ b/TESTS/DATOS_READONLY/form1.dataenvironment.sc2 @@ -0,0 +1,42 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + + ADD OBJECT 'Cursor1' AS cursor WITH ; + Alias = "foxuser_fdbozzo", ; + CursorSource = foxuser_fdbozzo.dbf, ; + Height = 90, ; + Left = 10, ; + Name = "Cursor1", ; + Top = 20, ; + Width = 90 + *< END OBJECT: BaseClass="cursor" /> + + PROCEDURE BeforeOpenTables + *-- Dataenvironment.BeforeOpenTables() + + ENDPROC + + PROCEDURE Cursor1.Init + *-- Dataenvironment.Cursor1.Init() + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/form1.frm_form1.sc2 b/TESTS/DATOS_READONLY/form1.frm_form1.sc2 new file mode 100644 index 0000000..4cc70ee --- /dev/null +++ b/TESTS/DATOS_READONLY/form1.frm_form1.sc2 @@ -0,0 +1,167 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS frm_form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" /> + + * + *m: metodo_comun && Método común + * + + * + Caption = "Form1" + DoCreate = .T. + Height = 250 + Icon = container.ico + Left = 0 + Name = "frm_Form1" + Top = 0 + Width = 470 + WindowType = 1 + * + + ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ; + Left = 28, ; + Name = "Cnt_controles1", ; + TabIndex = 3, ; + Top = 72, ; + Check2.Alignment = 0, ; + Check2.Name = "Check2", ; + Check2.TabIndex = 2, ; + Check2.ZOrderSet = 1, ; + Check4.Alignment = 0, ; + Check4.Name = "Check4", ; + Check4.TabIndex = 5, ; + Check4.ZOrderSet = 5, ; + Label_h.Name = "Label_h", ; + Label_h.TabIndex = 6, ; + Label_h.ZOrderSet = 2, ; + Textbox_h.Name = "Textbox_h", ; + Textbox_h.TabIndex = 3, ; + Textbox_h.ZOrderSet = 3, ; + Check1.Alignment = 0, ; + Check1.Name = "Check1", ; + Check1.TabIndex = 1, ; + Check1.ZOrderSet = 0, ; + Check3.Alignment = 0, ; + Check3.Name = "Check3", ; + Check3.TabIndex = 4, ; + Check3.ZOrderSet = 4 + *< END OBJECT: ClassLib="bca.vcx" BaseClass="container" /> + + ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ; + Caption = "Label1", ; + Height = 17, ; + Left = 24, ; + Name = "Label1", ; + TabIndex = 7, ; + Top = 84, ; + Width = 64 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Caption = "Command1", ; + Height = 27, ; + Left = 28, ; + Name = "Command1", ; + TabIndex = 1, ; + Top = 20, ; + Width = 84 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + Caption = "Command1", ; + Height = 27, ; + Left = 132, ; + Name = "Command2", ; + TabIndex = 2, ; + Top = 20, ; + Width = 84 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Olecontrol1' AS olecontrol WITH ; + Height = 157, ; + Left = 328, ; + Name = "Olecontrol1", ; + Top = 72, ; + Width = 133 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" /> + + PROCEDURE Load + *-- Form 1 LOAD() + + ENDPROC + + PROCEDURE metodo_comun && Método común + *-- frm_Form1.metodo_comun() + + ENDPROC + + PROCEDURE Unload + *-- Form1.Unload() + + ENDPROC + + PROCEDURE Cnt_controles1.Check1.Click + *-- Form1.Cnt_controles1.Check1.Click() + + ENDPROC + + PROCEDURE Cnt_controles1.Check2.Click + *-- Form1.Cnt_controles1.Check2.Click() + + ENDPROC + + PROCEDURE Cnt_controles1.Check3.Click + *-- Form1.Cnt_controles1.Check3.Click() + + ENDPROC + + PROCEDURE Cnt_controles1.Check4.Click + *-- Form1.Cnt_controles1.Check4.Click() + + ENDPROC + + PROCEDURE Cnt_controles1.Init + *-- Form1.Command1.Cnt_controles1.Init() + + ENDPROC + + PROCEDURE Cnt_controles1.Label1.Click + *-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo! + + ENDPROC + + PROCEDURE Command1.Click + *-- Form1.Command1.Click() + PUBLIC ; + glEnabled_Opc_A_2_Sub_2 ; + , glEnabled_Opc_A_2_Sub_3 ; + , glEnabled_Opc_B + + STORE .T. TO ; + glEnabled_Opc_A_2_Sub_2 ; + , glEnabled_Opc_A_2_Sub_3 ; + , glEnabled_Opc_B + + DO MENU1.MPR + + ENDPROC + + PROCEDURE Command2.Click + *-- Form1.Command2.Click() + QUIT + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/form1.sc2 b/TESTS/DATOS_READONLY/form1.sc2 index 6ff153c..beae2a8 100644 --- a/TESTS/DATOS_READONLY/form1.sc2 +++ b/TESTS/DATOS_READONLY/form1.sc2 @@ -4,200 +4,9 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * +*-- 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="frm_form1" Baseclass="form" /> + * #INCLUDE "include\keycodes.h" - -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" /> - - DataSource = .NULL. - Height = 200 - Left = 1 - Name = "Dataenvironment" - Top = 220 - Width = 520 - - ADD OBJECT 'Cursor1' AS cursor WITH ; - Alias = "foxuser_fdbozzo", ; - CursorSource = foxuser_fdbozzo.dbf, ; - Height = 90, ; - Left = 10, ; - Name = "Cursor1", ; - Top = 20, ; - Width = 90 - *< END OBJECT: BaseClass="cursor" /> - - PROCEDURE BeforeOpenTables - *-- Dataenvironment.BeforeOpenTables() - - ENDPROC - - PROCEDURE Cursor1.Init - *-- Dataenvironment.Cursor1.Init() - - ENDPROC - -ENDDEFINE - -DEFINE CLASS frm_form1 AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cnt_controles1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cnt_controles1.Label1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Olecontrol1" UniqueID="" Timestamp="" /> - - * - *m: metodo_comun && Método común - * - - Caption = "Form1" - DoCreate = .T. - Height = 250 - Icon = container.ico - Left = 0 - Name = "frm_Form1" - Top = 0 - Width = 470 - WindowType = 1 - - ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ; - Left = 28, ; - Name = "Cnt_controles1", ; - TabIndex = 3, ; - Top = 72, ; - Check2.Alignment = 0, ; - Check2.Name = "Check2", ; - Check2.TabIndex = 2, ; - Check2.ZOrderSet = 1, ; - Check4.Alignment = 0, ; - Check4.Name = "Check4", ; - Check4.TabIndex = 5, ; - Check4.ZOrderSet = 5, ; - Label_h.Name = "Label_h", ; - Label_h.TabIndex = 6, ; - Label_h.ZOrderSet = 2, ; - Textbox_h.Name = "Textbox_h", ; - Textbox_h.TabIndex = 3, ; - Textbox_h.ZOrderSet = 3, ; - Check1.Alignment = 0, ; - Check1.Name = "Check1", ; - Check1.TabIndex = 1, ; - Check1.ZOrderSet = 0, ; - Check3.Alignment = 0, ; - Check3.Name = "Check3", ; - Check3.TabIndex = 4, ; - Check3.ZOrderSet = 4 - *< END OBJECT: ClassLib="bca.vcx" BaseClass="container" /> - - ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ; - Caption = "Label1", ; - Height = 17, ; - Left = 24, ; - Name = "Label1", ; - TabIndex = 7, ; - Top = 84, ; - Width = 64 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Command1' AS commandbutton WITH ; - Caption = "Command1", ; - Height = 27, ; - Left = 28, ; - Name = "Command1", ; - TabIndex = 1, ; - Top = 20, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'Command2' AS commandbutton WITH ; - Caption = "Command1", ; - Height = 27, ; - Left = 132, ; - Name = "Command2", ; - TabIndex = 2, ; - Top = 20, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'Olecontrol1' AS olecontrol WITH ; - Height = 157, ; - Left = 328, ; - Name = "Olecontrol1", ; - Top = 72, ; - Width = 133 - *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" /> - - PROCEDURE Load - *-- Form 1 LOAD() - - ENDPROC - - PROCEDURE metodo_comun && Método común - *-- frm_Form1.metodo_comun() - - ENDPROC - - PROCEDURE Unload - *-- Form1.Unload() - - ENDPROC - - PROCEDURE Cnt_controles1.Check1.Click - *-- Form1.Cnt_controles1.Check1.Click() - - ENDPROC - - PROCEDURE Cnt_controles1.Check2.Click - *-- Form1.Cnt_controles1.Check2.Click() - - ENDPROC - - PROCEDURE Cnt_controles1.Check3.Click - *-- Form1.Cnt_controles1.Check3.Click() - - ENDPROC - - PROCEDURE Cnt_controles1.Check4.Click - *-- Form1.Cnt_controles1.Check4.Click() - - ENDPROC - - PROCEDURE Cnt_controles1.Init - *-- Form1.Command1.Cnt_controles1.Init() - - ENDPROC - - PROCEDURE Cnt_controles1.Label1.Click - *-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo! - - ENDPROC - - PROCEDURE Command1.Click - *-- Form1.Command1.Click() - PUBLIC ; - glEnabled_Opc_A_2_Sub_2 ; - , glEnabled_Opc_A_2_Sub_3 ; - , glEnabled_Opc_B - - STORE .T. TO ; - glEnabled_Opc_A_2_Sub_2 ; - , glEnabled_Opc_A_2_Sub_3 ; - , glEnabled_Opc_B - - DO MENU1.MPR - - ENDPROC - - PROCEDURE Command2.Click - *-- Form1.Command2.Click() - QUIT - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/foxuser_fdbozzo.db2 b/TESTS/DATOS_READONLY/foxuser_fdbozzo.db2 new file mode 100644 index 0000000..72e5224 Binary files /dev/null and b/TESTS/DATOS_READONLY/foxuser_fdbozzo.db2 differ diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_checkbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_checkbox.vc2 new file mode 100644 index 0000000..e2ed69a --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_checkbox.vc2 @@ -0,0 +1,39 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_checkbox AS checkbox + *< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Alignment = 0 + AutoSize = .T. + Caption = "Chk1" + Height = 17 + Name = "cl_checkbox" + test_aa = .F. + Width = 47 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_collection.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_collection.vc2 new file mode 100644 index 0000000..5dcd74a --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_collection.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_collection AS collection + *< CLASSDATA: Baseclass="collection" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 23 + Name = "cl_collection" + test_aa = .F. + Width = 23 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_combobox.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_combobox.vc2 new file mode 100644 index 0000000..bed3cd6 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_combobox.vc2 @@ -0,0 +1,116 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_combobox AS combobox + *< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Alignment = 0 + Anchor = 0 + BackColor = 255,255,255 + BorderColor = 255,0,0 + BorderStyle = 1 + BoundColumn = 1 + BoundTo = .F. + ColorScheme = 2 + ColorSource = 4 + ColumnCount = 0 + ColumnLines = .T. + ColumnWidths = "" + Comment = "" + ControlSource = "" + DisabledBackColor = 240,240,240 + DisabledForeColor = 109,109,109 + DisabledItemBackColor = 255,255,255 + DisabledItemForeColor = 109,109,109 + DisplayCount = 0 + DisplayValue = cl_combobox + 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. + Margin = 2 + MaxLength = 0 + MouseIcon = ..\..\ + MousePointer = 0 + Name = "cl_combobox" + NullDisplay = "" + NumberOfElements = 0 + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + OLEDropTextInsertion = 0 + Picture = ..\..\ + 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 = 0 + StatusBarText = "" + Style = 0 + TabIndex = 1 + TabStop = .T. + Tag = "" + TerminateRead = .F. + test_aa = .F. + Themes = .T. + ToolTipText = "" + Value = + Visible = .T. + WhatsThisHelpID = -1 + Width = 60 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_commandbutton.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_commandbutton.vc2 new file mode 100644 index 0000000..987644e --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_commandbutton.vc2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_commandbutton AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + AutoSize = .T. + Caption = "Cmd1" + Height = 27 + Name = "cl_commandbutton" + test_aa = .F. + Width = 52 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_commandgroup.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_commandgroup.vc2 new file mode 100644 index 0000000..2647faf --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_commandgroup.vc2 @@ -0,0 +1,57 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_commandgroup AS commandgroup + *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + AutoSize = .T. + ButtonCount = 2 + Height = 66 + Name = "cl_commandgroup" + test_aa = .F. + Value = 1 + Width = 62 + Command1.AutoSize = .T. + Command1.BackColor = 255,128,128 + Command1.Caption = "Cmd1" + Command1.Height = 27 + Command1.Left = 5 + Command1.Name = "Command1" + Command1.Top = 5 + Command1.Width = 52 + Command2.AutoSize = .T. + Command2.BackColor = 255,128,128 + Command2.Caption = "Cmd2" + Command2.DisabledBackColor = 240,240,240 + Command2.DisabledForeColor = 109,109,109 + Command2.Height = 27 + Command2.Left = 5 + Command2.Name = "Command2" + Command2.Top = 34 + Command2.Width = 52 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_container.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_container.vc2 new file mode 100644 index 0000000..069e136 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_container.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_container AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 33 + Name = "cl_container" + test_aa = .F. + Width = 123 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_control.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_control.vc2 new file mode 100644 index 0000000..1e5bbce --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_control.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_control AS control + *< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 32 + Name = "cl_control" + test_aa = .F. + Width = 77 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_cursor.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_cursor.vc2 new file mode 100644 index 0000000..6c8dff5 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_cursor.vc2 @@ -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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_cursor AS cursor + *< CLASSDATA: Baseclass="cursor" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Alias = "_alias" + BufferModeOverride = 1 + Comment = "" + CursorSource = ..\..\.dbf + Database = ..\..\ + Exclusive = .F. + Filter = "" + Height = 23 + Name = "cl_cursor" + NoDataOnLoad = .F. + Order = "" + OrderDirection = 0 + ReadOnly = .F. + Tag = "" + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_cursoradapter.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_cursoradapter.vc2 new file mode 100644 index 0000000..864ad1f --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_cursoradapter.vc2 @@ -0,0 +1,80 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_cursoradapter AS cursoradapter + *< CLASSDATA: Baseclass="cursoradapter" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + ADOCodePage = 0 + Alias = "h" + AllowDelete = .T. + AllowInsert = .T. + AllowSimultaneousFetch = .F. + AllowUpdate = .T. + BatchUpdateCount = 1 + BreakOnError = .F. + BufferModeOverride = 3 + Comment = "" + CompareMemo = .T. + ConflictCheckCmd = + ConflictCheckType = 0 + ConversionFunc = + CursorSchema = + DataSource = .NULL. + DataSourceType = "" + DeleteCmd = + DeleteCmdDataSource = .NULL. + DeleteCmdDataSourceType = "" + FetchAsNeeded = .F. + FetchMemo = .T. + FetchMemoCmdList = + FetchMemoDataSource = .NULL. + FetchMemoDataSourceType = "" + FetchSize = 100 + Flags = 0 + Height = 22 + InsertCmd = + InsertCmdDataSource = .NULL. + InsertCmdDataSourceType = "" + InsertCmdRefreshCmd = + InsertCmdRefreshFieldList = + InsertCmdRefreshKeyFieldList = + KeyFieldList = + MapBinary = .F. + MapVarchar = .F. + MaxRecords = -1 + Name = "cl_cursoradapter" + NoData = .F. + Prepared = .F. + RefreshCmd = + RefreshCmdDataSource = .NULL. + RefreshCmdDataSourceType = "" + RefreshIgnoreFieldList = + RefreshTimestamp = .F. + SelectCmd = + SendUpdates = .T. + Tables = + Tag = "" + TimestampFieldList = + UpdatableFieldList = + UpdateCmd = + UpdateCmdDataSource = .NULL. + UpdateCmdDataSourceType = "" + UpdateCmdRefreshCmd = + UpdateCmdRefreshFieldList = + UpdateCmdRefreshKeyFieldList = + UpdateGramSchemaLocation = "" + UpdateNameList = + UpdateType = 1 + UseCursorSchema = .F. + UseDeDataSource = .F. + UseMemoSize = 255 + UseTransactions = .T. + WhereType = 3 + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_dataenvironment.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_dataenvironment.vc2 new file mode 100644 index 0000000..4ddbf58 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_dataenvironment.vc2 @@ -0,0 +1,15 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DataSource = .NULL. + Name = "cl_dataenvironment" + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_editbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_editbox.vc2 new file mode 100644 index 0000000..011b067 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_editbox.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_editbox AS editbox + *< CLASSDATA: Baseclass="editbox" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 41 + Name = "cl_editbox" + test_aa = .F. + Width = 75 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_grid.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_grid.vc2 new file mode 100644 index 0000000..11cd6e8 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_grid.vc2 @@ -0,0 +1,108 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_grid 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="" /> + *< OBJECTDATA: ObjPath="Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Column5.Text1" UniqueID="" Timestamp="" /> + + * + ColumnCount = 5 + Height = 160 + Left = 36 + Name = "grdEncuestas" + RecordSource = "encuestas" + RecordSourceType = 1 + Top = 44 + 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" + * + + ADD OBJECT 'Column1.Header1' AS header WITH ; + Caption = "promotor", ; + 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 = "idenc", ; + 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" /> + + ADD OBJECT 'Column3.Header1' AS header WITH ; + Caption = "calific", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '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 'Column4.Header1' AS header WITH ; + Caption = "fecha", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '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 'Column5.Header1' AS header WITH ; + Caption = "resultado", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_hyperlink.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_hyperlink.vc2 new file mode 100644 index 0000000..92d7204 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_hyperlink.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_hyperlink AS hyperlink + *< CLASSDATA: Baseclass="hyperlink" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 23 + Name = "cl_hyperlink" + test_aa = .F. + Width = 23 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_image.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_image.vc2 new file mode 100644 index 0000000..34436d7 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_image.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_image AS image + *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 12 + Name = "cl_image" + test_aa = .F. + Width = 12 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_label.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_label.vc2 new file mode 100644 index 0000000..37b52ac --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_label.vc2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_label AS label + *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Caption = "Label4" + Height = 17 + Name = "cl_label" + test_aa = .F. + Width = 104 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_line.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_line.vc2 new file mode 100644 index 0000000..5e2fc8c --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_line.vc2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_line AS line + *< CLASSDATA: Baseclass="line" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + BorderColor = 255,0,0 + Height = 8 + Name = "cl_line" + test_aa = .F. + Width = 50 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_listbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_listbox.vc2 new file mode 100644 index 0000000..71b61b5 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_listbox.vc2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_listbox AS listbox + *< CLASSDATA: Baseclass="listbox" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + BorderColor = 255,0,0 + Height = 24 + Name = "cl_listbox" + SpecialEffect = 1 + test_aa = .F. + Width = 95 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_olebound.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_olebound.vc2 new file mode 100644 index 0000000..6085b4d --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_olebound.vc2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_olebound AS oleboundcontrol + *< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 25 + Name = "cl_olebound" + Width = 100 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_option.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_option.vc2 new file mode 100644 index 0000000..63dcb51 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_option.vc2 @@ -0,0 +1,89 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_option AS optionbutton + *< CLASSDATA: Baseclass="optionbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Alignment = 0 + Anchor = 0 + AutoSize = .T. + BackColor = 240,240,240 + BackStyle = 1 + Caption = "Option1" + ColorScheme = 1 + ColorSource = 4 + Comment = "" + ControlSource = "" + DisabledBackColor = 240,240,240 + DisabledForeColor = 109,109,109 + DisabledPicture = ..\..\ + DownPicture = ..\..\ + DragIcon = ..\..\ + DragMode = 0 + Enabled = .T. + FontBold = .F. + 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 + MouseIcon = ..\..\ + MousePointer = 0 + Name = "cl_option" + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + Picture = ..\..\ + PictureMargin = 0 + PicturePosition = 13 + PictureSpacing = 0 + RightToLeft = .F. + SpecialEffect = 0 + StatusBarText = "" + Style = 0 + TabIndex = 1 + TabStop = .T. + Tag = "" + TerminateRead = .F. + test_aa = .F. + Themes = .T. + ToolTipText = "" + Value = 0 + Visible = .T. + WhatsThisHelpID = -1 + Width = 61 + WordWrap = .F. + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_optiongroup.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_optiongroup.vc2 new file mode 100644 index 0000000..5712f4b --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_optiongroup.vc2 @@ -0,0 +1,182 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_optiongroup AS optiongroup + *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Anchor = 0 + AutoSize = .F. + BackColor = 240,240,240 + BackStyle = 1 + BorderColor = 100,100,100 + BorderStyle = 1 + ButtonCount = 2 + ColorSource = 4 + Comment = "" + ControlSource = "" + DragIcon = ..\..\ + DragMode = 0 + Enabled = .T. + Height = 46 + HelpContextID = 0 + MemberClassLibrary = ..\..\ + MouseIcon = ..\..\ + MousePointer = 0 + Name = "cl_optiongroup" + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + SpecialEffect = 0 + StatusBarText = "" + TabIndex = 1 + Tag = "" + TerminateRead = .F. + test_aa = .F. + Themes = .T. + ToolTipText = "" + Value = 0 + Visible = .T. + WhatsThisHelpID = -1 + Width = 71 + Option1.Alignment = 0 + Option1.Anchor = 0 + Option1.AutoSize = .T. + Option1.BackColor = 240,240,240 + Option1.BackStyle = 1 + Option1.Caption = "Opt1" + 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.FontSize = 9 + Option1.FontStrikethru = .F. + Option1.FontUnderline = .F. + Option1.ForeColor = 0,0,0 + Option1.Height = 17 + 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 = ..\..\ + 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 = 5 + Option1.Value = 0 + Option1.Visible = .T. + Option1.WhatsThisHelpID = -1 + Option1.Width = 44 + Option1.WordWrap = .F. + Option2.Alignment = 0 + Option2.Anchor = 0 + Option2.BackColor = 255,128,128 + Option2.BackStyle = 1 + Option2.Caption = "Opt2" + 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.FontSize = 9 + Option2.FontStrikethru = .F. + Option2.FontUnderline = .F. + Option2.ForeColor = 0,0,0 + Option2.Height = 17 + Option2.HelpContextID = 0 + Option2.Left = 5 + 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 = 24 + Option2.Value = 0 + Option2.Visible = .T. + Option2.WhatsThisHelpID = -1 + Option2.Width = 44 + Option2.WordWrap = .F. + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_page.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_page.vc2 new file mode 100644 index 0000000..71706b0 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_page.vc2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_page AS page + *< CLASSDATA: Baseclass="page" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Caption = "Page1" + Height = 44 + Name = "cl_page" + test_aa = .F. + Width = 89 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_pageframe.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_pageframe.vc2 new file mode 100644 index 0000000..20165e0 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_pageframe.vc2 @@ -0,0 +1,42 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_pageframe AS pageframe + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + ErasePage = .T. + Height = 111 + Name = "cl_pageframe" + PageCount = 2 + test_aa = .F. + Width = 175 + Page1.Caption = "Page1" + Page1.Name = "Page1" + Page2.Caption = "Page2" + Page2.Name = "Page2" + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_projecthook.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_projecthook.vc2 new file mode 100644 index 0000000..d0d1566 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_projecthook.vc2 @@ -0,0 +1,20 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_projecthook AS projecthook + *< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Comment = "" + Height = 22 + Name = "cl_projecthook" + OLEDropEffects = 3 + OLEDropMode = 1 + Tag = "" + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_relation.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_relation.vc2 new file mode 100644 index 0000000..f13e4a1 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_relation.vc2 @@ -0,0 +1,23 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_relation AS relation + *< CLASSDATA: Baseclass="relation" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + ChildAlias = "" + ChildOrder = "" + Comment = "" + Height = 23 + Name = "cl_relation" + OneToMany = .F. + ParentAlias = "" + RelationalExpr = "" + Tag = "" + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_reportlistener.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_reportlistener.vc2 new file mode 100644 index 0000000..739fbd4 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_reportlistener.vc2 @@ -0,0 +1,31 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_reportlistener AS reportlistener + *< CLASSDATA: Baseclass="reportlistener" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + AllowModalMessages = .F. + CallAdjustObjectSize = 0 + CallEvaluateContents = 0 + CommandClauses = .NULL. + Comment = "" + CurrentDataSession = 1 + CurrentPass = 0 + DynamicLineHeight = .T. + FRXDataSession = -1 + Height = 23 + Name = "cl_reportlistener" + PreviewContainer = .NULL. + PrintJobName = "" + QuietMode = .F. + SendGDIPlusImage = 0 + Tag = "" + TwoPassProcess = .F. + Width = 23 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_separator.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_separator.vc2 new file mode 100644 index 0000000..a868d8f --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_separator.vc2 @@ -0,0 +1,21 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_separator AS separator + *< CLASSDATA: Baseclass="separator" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Comment = "" + Enabled = .T. + Height = 0 + Name = "cl_separator" + Style = 0 + Tag = "" + Visible = .T. + Width = 0 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_shape.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_shape.vc2 new file mode 100644 index 0000000..98448bb --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_shape.vc2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_shape AS shape + *< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 17 + Name = "cl_shape" + SpecialEffect = 0 + Style = 0 + test_aa = .F. + Width = 50 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_spinner.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_spinner.vc2 new file mode 100644 index 0000000..08ceeca --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_spinner.vc2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_spinner AS spinner + *< CLASSDATA: Baseclass="spinner" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + FontSize = 12 + Height = 28 + Name = "cl_spinner" + test_aa = .F. + Width = 50 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_textbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_textbox.vc2 new file mode 100644 index 0000000..aba0e69 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_textbox.vc2 @@ -0,0 +1,109 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_textbox AS textbox + *< CLASSDATA: Baseclass="textbox" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + 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 = "" + 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 = 9 + FontStrikethru = .F. + FontUnderline = .F. + ForeColor = 0,0,0 + Format = "" + Height = 23 + HelpContextID = 0 + HideSelection = .T. + Hours = 0 + IMEMode = 0 + InputMask = "" + IntegralHeight = .F. + Margin = 2 + MaxLength = 0 + MemoWindow = "" + MouseIcon = ..\..\ + MousePointer = 0 + Name = "cl_textbox" + 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. + test_aa = .F. + Themes = .T. + ToolTipText = "" + Value = + Visible = .T. + WhatsThisHelpID = -1 + Width = 50 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_timer.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_timer.vc2 new file mode 100644 index 0000000..5197b56 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_timer.vc2 @@ -0,0 +1,36 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_timer AS timer + *< CLASSDATA: Baseclass="timer" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: test_aa_access + *m: test_aa_assign + *p: test_aa + * + + * + Height = 23 + Name = "cl_timer" + test_aa = .F. + Width = 23 + * + + PROCEDURE test_aa_access + *To do: Modify this routine for the Access method + RETURN THIS.test_aa + + ENDPROC + + PROCEDURE test_aa_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.test_aa = m.vNewVal + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_toolbar.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_toolbar.vc2 new file mode 100644 index 0000000..90d095c --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_toolbar.vc2 @@ -0,0 +1,60 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_toolbar AS toolbar + *< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cl_separator1" UniqueID="" Timestamp="" /> + + * + BackColor = 240,240,240 + Caption = "Toolbar1" + ColorSource = 4 + Comment = "" + ControlBox = .T. + DataSession = 1 + DefLeft = + DefTop = + Enabled = .T. + ForeColor = 0,0,0 + HelpContextID = 0 + KeyPreview = .F. + Left = (0) + LockScreen = .F. + MouseIcon = ..\..\ + MousePointer = 0 + Movable = .T. + Name = "cl_toolbar" + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + ScaleMode = 3 + ShowTips = .T. + ShowWindow = 0 + Sizable = .T. + Tag = "" + Themes = .T. + Top = (0) + Visible = .T. + WhatsThisHelpID = -1 + * + + ADD OBJECT 'Cl_separator1' AS cl_separator WITH ; + Comment = "Separador de Toolbar", ; + Enabled = .T., ; + Height = 0, ; + Left = 5, ; + Name = "Cl_separator1", ; + Style = 0, ; + Tag = "", ; + Top = 3, ; + Visible = .T., ; + Width = 0 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="separator" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_xmladapter.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_xmladapter.vc2 new file mode 100644 index 0000000..f695437 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_xmladapter.vc2 @@ -0,0 +1,56 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_xmladapter AS xmladapter + *< CLASSDATA: Baseclass="xmladapter" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Tables" UniqueID="" Timestamp="" /> + + * + CodePage = 0 + Comment = "" + DeclareXMLPrefix = .F. + DisableEncode = .F. + ForceCloseTag = .F. + FormattedOutput = .T. + Height = 56 + IsDiffgram = .F. + MapBinary = .F. + MapN19_4ToCurrency = .F. + MapVarchar = .F. + Name = "cl_xmladapter" + NoCpTrans = .F. + PreserveWhiteSpace = .F. + RespectCursorCP = .F. + RespectNesting = .F. + SelectionNamespaces = + Tag = "" + Unicode = .F. + UseCodePage = .F. + UTF8Encoded = .F. + Width = 56 + WrapCharInCDATA = .F. + WrapMemoInCDATA = .F. + XMLName = + XMLNameIsXPath = .F. + XMLNamespace = + XMLPrefix = + XMLSchemaLocation = ..\..\ + * + + ADD OBJECT 'Tables' AS collection WITH ; + Comment = "", ; + Height = 23, ; + KeySort = 0, ; + Left = 23, ; + Name = "Tables", ; + Tag = "", ; + Top = 23, ; + Width = 23 + *< END OBJECT: BaseClass="collection" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_xmlfield.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_xmlfield.vc2 new file mode 100644 index 0000000..cab396a --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_xmlfield.vc2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_xmlfield AS xmlfield + *< CLASSDATA: Baseclass="xmlfield" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Alias = "" + CodePage = 0 + Comment = "" + DataType = "" + DisableEncode = .F. + FractionDigits = -1 + Height = 23 + IsAttribute = .F. + IsBase64 = .F. + IsBinary = .F. + IsNull = .F. + Keyfield = .F. + MaxLength = -1 + Name = "cl_xmlfield" + NoCpTrans = .F. + Tag = "" + Unicode = .F. + Width = 23 + WrapInCDATA = .F. + XMLName = + XMLNameIsXPath = .F. + XSDfractionDigits = "" + XSDmaxLength = "" + XSDtotalDigits = "" + XSDtype = "" + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.cl_xmltable.vc2 b/TESTS/DATOS_READONLY/lib_controles.cl_xmltable.vc2 new file mode 100644 index 0000000..0c07c53 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.cl_xmltable.vc2 @@ -0,0 +1,40 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cl_xmltable AS xmltable + *< CLASSDATA: Baseclass="xmltable" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Fields" UniqueID="" Timestamp="" /> + + * + Alias = "" + ChildTable = .NULL. + CodePage = 0 + Comment = "" + DeclareXMLPrefix = .F. + FirstNestedTable = .NULL. + Height = 56 + Name = "cl_xmltable" + NestedInto = .NULL. + NextSiblingTable = .NULL. + Tag = "" + Width = 56 + XMLName = + XMLNameIsXPath = .F. + XMLNamespace = + XMLPrefix = + * + + ADD OBJECT 'Fields' AS collection WITH ; + Height = 23, ; + Left = 23, ; + Name = "Fields", ; + Top = 23, ; + Width = 23 + *< END OBJECT: BaseClass="collection" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.f_base.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_base.vc2 new file mode 100644 index 0000000..7a9b26a --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_base.vc2 @@ -0,0 +1,137 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_base AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdCapturar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + *m: capturarpantallaabitmap + *p: c_testname + * + + * + AlwaysOnTop = .T. + BackColor = 192,192,192 + Caption = "OptionGroup_Test" + c_testname = OptionGroup_Test + DoCreate = .T. + Height = 424 + Left = 0 + Name = "f_base" + Top = 0 + Width = 819 + * + + ADD OBJECT 'cmdCapturar' AS commandbutton WITH ; + Caption = "Capturar Pantalla", ; + Height = 27, ; + Left = 564, ; + Name = "cmdCapturar", ; + TabIndex = 1, ; + Top = 392, ; + Width = 248 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Edit1' AS editbox WITH ; + Height = 356, ; + Left = 564, ; + Name = "Edit1", ; + ReadOnly = .T., ; + TabIndex = 2, ; + Top = 32, ; + Value = , ; + Width = 249 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Alignment = 2, ; + Caption = "OPTIONGROUP NORMAL", ; + FontBold = .T., ; + Height = 17, ; + Left = 28, ; + Name = "Label1", ; + TabIndex = 4, ; + Top = 8, ; + Width = 244 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 2, ; + Caption = "OPTIONGROUP SUBCLASADOS", ; + FontBold = .T., ; + Height = 17, ; + Left = 296, ; + Name = "Label2", ; + TabIndex = 5, ; + Top = 8, ; + Width = 248 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 2, ; + Caption = "OBSERVACIONES", ; + FontBold = .T., ; + Height = 17, ; + Left = 564, ; + Name = "Label3", ; + TabIndex = 3, ; + Top = 8, ; + Width = 248 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE capturarpantallaabitmap + LPARAMETERS tcFilename + + LOCAL retVal + tcFilename = EVL(tcFilename, 'optiongroup') + + IF NOT '\' $ tcFilename + tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp' + ENDIF + + Declare Integer formtobmp IN "PCT_DLL.dll" integer hwnd,String bmpFileName + retVal = formtobmp( THISFORM.HWnd, tcFilename ) + + *Declare Integer formtobmpA IN "TESTS\PCT_DLL.dll" string bmpfilename,integer nX,integer nY,integer nX2,integer nY2 + + *retVal = formtobmpA( "c:\desa\foxbin2prg\screen0.bmp" ; + , THIS.Left ; + , this.Top ; + , this.Left + this.Width ; + , this.Top + this.Height ) && Save screen to file c:\screen.bmp + CLEAR DLLS formtobmp + + RETURN retVal + + ENDPROC + + PROCEDURE Init + SET PATH TO (FULLPATH("..\", THIS.ClassLibrary)) ADDITIVE + THISFORM.cmdCapturar.SetFocus() + + ENDPROC + + PROCEDURE Refresh + DODEFAULT() + INKEY(0.01,"S") + DOEVENTS FORCE + this.capturarpantallaabitmap( THISFORM.c_testname ) + + ENDPROC + + PROCEDURE cmdCapturar.Click + THISFORM.capturarpantallaabitmap() + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.f_checkbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_checkbox.vc2 new file mode 100644 index 0000000..98ac43f --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_checkbox.vc2 @@ -0,0 +1,818 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_checkbox AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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_checkbox" + Top = 1 + 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 = "", ; + 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/lib_controles.f_combobox.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_combobox.vc2 new file mode 100644 index 0000000..cbd6c4b --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_combobox.vc2 @@ -0,0 +1,1237 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_combobox AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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_combobox" + Edit1.Name = "Edit1" + Edit1.TabIndex = 2 + Label3.Name = "Label3" + Label3.TabIndex = 3 + Command2.Name = "Command2" + Command2.TabIndex = 1 + Label1.Caption = "COMBOBOX NORMAL" + Label1.Name = "Label1" + Label1.TabIndex = 4 + Label2.Caption = "COMBOBOX SUBCLASADOS" + Label2.Name = "Label2" + Label2.TabIndex = 5 + * + + 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 = "", ; + 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/lib_controles.f_commandgroup.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_commandgroup.vc2 new file mode 100644 index 0000000..4b81fb9 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_commandgroup.vc2 @@ -0,0 +1,1277 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_commandgroup AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> + + * + DoCreate = .T. + Left = 0 + Name = "f_commandgroup" + Top = 0 + Edit1.Name = "Edit1" + Label3.Name = "Label3" + Command2.Name = "Command2" + Label1.Caption = "COMMANDGROUP NORMAL" + Label1.Name = "Label1" + Label2.Caption = "COMMANDGROUP SUBCLASADOS" + Label2.Name = "Label2" + * + + 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 '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 = 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/lib_controles.f_form_aa.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_form_aa.vc2 new file mode 100644 index 0000000..00e64bc --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_form_aa.vc2 @@ -0,0 +1,2807 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (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="Pixels" 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.Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" 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 = .F. + 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 = + 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 = 420, ; + 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, ; + 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. + *< 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), ; + 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) + *< 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. + *< 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), ; + 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) + *< 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) + *< 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) + *< 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 + *< 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. + *< 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) + *< 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) + *< 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) + *< 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), ; + 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), ; + 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) + *< 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) + *< 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 == '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/lib_controles.f_form_aa_.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_form_aa_.vc2 new file mode 100644 index 0000000..ae8f1c4 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_form_aa_.vc2 @@ -0,0 +1,2666 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (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="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< 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.Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="pgf.Page1.Shape1" 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 = .F. + 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 = (424) + 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 = (980) + WindowState = 0 + WindowType = 0 + ZoomBox = .F. + Edit1.Height = 356 + 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 = 384, ; + 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 '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. + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> + + 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) + *< 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. + *< 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), ; + 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) + *< 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) + *< 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) + *< 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 = "", ; + DefHeight = , ; + DefLeft = , ; + DefTop = , ; + DefWidth = , ; + 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) + *< 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. + *< 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) + *< 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) + *< 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 = , ; + DefLeft = , ; + DefTop = , ; + DefWidth = , ; + FontSize = 8, ; + Height = (16), ; + Left = (123), ; + Name = "option", ; + Top = (232), ; + Width = (110) + *< 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 = 0, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = (112), ; + 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.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), ; + 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.Shape1' AS shape WITH ; + Anchor = 0, ; + BackColor = 255,255,196, ; + BackStyle = 1, ; + BorderColor = 128,255,128, ; + BorderStyle = 1, ; + BorderWidth = 1, ; + ColorScheme = 1, ; + ColorSource = 4, ; + Comment = "", ; + Curvature = 16, ; + DefHeight = , ; + DefLeft = , ; + DefTop = , ; + DefWidth = , ; + DragIcon = ..\..\, ; + DragMode = 0, ; + DrawMode = 13, ; + Enabled = .T., ; + FillColor = 0,0,0, ; + FillStyle = 1, ; + Height = (21), ; + HelpContextID = 0, ; + Left = (115), ; + MouseIcon = ..\..\, ; + MousePointer = 0, ; + Name = "Shape1", ; + OLEDragMode = 0, ; + OLEDragPicture = ..\..\, ; + OLEDropEffects = 3, ; + OLEDropMode = 0, ; + PolyPoints = "", ; + Rotation = 0, ; + SpecialEffect = 0, ; + StatusBarText = "", ; + Style = 0, ; + Tag = "", ; + ToolTipText = "", ; + Top = (99), ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = (57) + *< END OBJECT: BaseClass="shape" /> + + 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 = , ; + DefLeft = , ; + DefTop = , ; + 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 = (292), ; + Value = 0, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = (108) + *< 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 = , ; + 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 = (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 = (320), ; + Value = , ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = (108) + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ; + Comment = "", ; + DefHeight = , ; + DefLeft = , ; + DefTop = , ; + DefWidth = , ; + Enabled = .T., ; + Height = (23), ; + Interval = 0, ; + Left = (207), ; + Name = "timer", ; + Tag = "", ; + test_aa = .F., ; + Top = (252), ; + 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 == '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.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/lib_controles.f_form_controles.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_form_controles.vc2 new file mode 100644 index 0000000..94d3506 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_form_controles.vc2 @@ -0,0 +1,3043 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_form_controles AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> + + * + AllowOutput = .T. + AlwaysOnBottom = .F. + AlwaysOnTop = .F. + 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 + DefOleLCID = 0 + 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 = 0 + 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 = 0 + 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. + Command2.Name = "Command2" + Command2.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_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 '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 = 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 = "", ; + 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 = "", ; + 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 = "", ; + 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, ; + 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 = "", ; + 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" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.f_listbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_listbox.vc2 new file mode 100644 index 0000000..17219bd --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_listbox.vc2 @@ -0,0 +1,560 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_listbox AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> + + * + DoCreate = .T. + Name = "f_listbox" + 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 = "", ; + 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/lib_controles.f_optiongroup.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_optiongroup.vc2 new file mode 100644 index 0000000..6a81b75 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_optiongroup.vc2 @@ -0,0 +1,1232 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_optiongroup AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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.Cl_optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup2" UniqueID="" Timestamp="" /> + + * + Caption = "OptionGroup_Test" + DoCreate = .T. + Height = 424 + Left = 0 + Name = "f_optiongroup" + Top = 0 + Width = 819 + 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 = "OPTIONGROUP NORMAL" + Label1.Name = "Label1" + Label2.Caption = "OPTIONGROUP SUBCLASADOS" + Label2.Name = "Label2" + * + + 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 = 24, ; + 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 = "", ; + DragMode = 0, ; + Enabled = .T., ; + Height = 76, ; + HelpContextID = 0, ; + Left = 24, ; + MemberClass = "cl_option", ; + MemberClassLibrary = lib_controles.vcx, ; + 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.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.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.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 = 41, ; + 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 = 89, ; + 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.Height = 41, ; + 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.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 = 41, ; + 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.WordWrap = .F. + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + ErasePage = .T., ; + Height = 245, ; + Left = 8, ; + Name = "Pageframe1", ; + PageCount = 2, ; + Top = 200, ; + 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 = 24, ; + Value = 2, ; + Width = 248, ; + Option1.AutoSize = .F., ; + Option1.BackColor = 240,240,240, ; + Option1.Caption = "La Opción 1", ; + Option1.FontBold = .F., ; + Option1.Height = 17, ; + Option1.Left = 8, ; + Option1.Name = "Option1", ; + Option1.SpecialEffect = 0, ; + Option1.Style = 0, ; + Option1.Top = 8, ; + 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 = 17, ; + Option2.Left = 8, ; + Option2.Name = "Option2", ; + Option2.SpecialEffect = 0, ; + Option2.Style = 0, ; + Option2.Top = 32, ; + Option2.Value = 1, ; + Option2.WhatsThisHelpID = -1, ; + Option2.Width = 158, ; + Option3.BackColor = 128,255,128, ; + Option3.Caption = "La opción 3 es la más larga de todas", ; + Option3.FontBold = .F., ; + Option3.Height = 17, ; + Option3.Left = 8, ; + Option3.Name = "Option3", ; + Option3.SpecialEffect = 0, ; + Option3.Style = 0, ; + Option3.Top = 56, ; + Option3.Value = 0, ; + Option3.WhatsThisHelpID = -1, ; + Option3.Width = 222 + *< 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 = 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 'Pageframe1.Page1.Label2' AS label WITH ; + Caption = "OPTIONGROUP SUBCLASADOS", ; + FontBold = .T., ; + Height = 17, ; + Left = 287, ; + Name = "Label2", ; + Top = 8, ; + Width = 248 + *< END OBJECT: BaseClass="label" /> + + 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 = "", ; + DragMode = 0, ; + Enabled = .T., ; + Height = 76, ; + HelpContextID = 0, ; + Left = 24, ; + MemberClass = "cl_option", ; + MemberClassLibrary = lib_controles.vcx, ; + 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.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.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.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 = 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 = 41, ; + 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 = 89, ; + 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.Height = 41, ; + 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.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 = 41, ; + 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.WordWrap = .F. + *< END OBJECT: BaseClass="optiongroup" /> + + PROCEDURE Refresh + DOEVENTS FORCE + this.capturarpantallaabitmap( THISFORM.c_testname ) + + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.f_textbox.vc2 b/TESTS/DATOS_READONLY/lib_controles.f_textbox.vc2 new file mode 100644 index 0000000..58c4448 --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles.f_textbox.vc2 @@ -0,0 +1,980 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_textbox AS f_base OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="Cl_textbox3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_textbox4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_textbox5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cl_textbox6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Left = 0 + Name = "f_textbox" + 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_textbox1' 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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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., ; + StatusBarText = "", ; + StrictDateEntry = 1, ; + Style = 0, ; + TabStop = .T., ; + Tag = "", ; + TerminateRead = .F., ; + ToolTipText = "", ; + Top = 64, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< 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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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 = 132 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT '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 = 240,240,240, ; + DisabledForeColor = 109,109,109, ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .F., ; + EnableHyperlinks = .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, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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 = 156, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT '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 = 240,240,240, ; + DisabledForeColor = 109,109,109, ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .F., ; + EnableHyperlinks = .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, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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 = 188, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT '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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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 = 252, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT '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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 348, ; + 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 = 284, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text1' 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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 132 + *< 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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 132 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '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 = 240,240,240, ; + DisabledForeColor = 109,109,109, ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .F., ; + EnableHyperlinks = .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, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 156, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '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 = 240,240,240, ; + DisabledForeColor = 109,109,109, ; + DragIcon = ..\..\, ; + DragMode = 0, ; + Enabled = .F., ; + EnableHyperlinks = .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, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 188, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 252, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '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 = 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 = 9, ; + FontStrikethru = .F., ; + FontUnderline = .F., ; + ForeColor = 0,0,0, ; + Format = "", ; + Height = 23, ; + HelpContextID = 0, ; + HideSelection = .T., ; + Hours = 0, ; + IMEMode = 0, ; + InputMask = "", ; + IntegralHeight = .F., ; + Left = 84, ; + 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 = 284, ; + Value = Un valor cualquiera, ; + Visible = .T., ; + WhatsThisHelpID = -1, ; + Width = 132 + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles.vc2 b/TESTS/DATOS_READONLY/lib_controles.vc2 index 7f6e9fd..f279868 100644 --- a/TESTS/DATOS_READONLY/lib_controles.vc2 +++ b/TESTS/DATOS_READONLY/lib_controles.vc2 @@ -4,16136 +4,50 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="lib_controles.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS cl_checkbox AS checkbox - *< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Alignment = 0 - AutoSize = .T. - Caption = "Chk1" - Height = 17 - Name = "cl_checkbox" - test_aa = .F. - Width = 47 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_collection AS collection - *< CLASSDATA: Baseclass="collection" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 23 - Name = "cl_collection" - test_aa = .F. - Width = 23 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_combobox AS combobox - *< CLASSDATA: Baseclass="combobox" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Alignment = 0 - Anchor = 0 - BackColor = 255,255,255 - BorderColor = 255,0,0 - BorderStyle = 1 - BoundColumn = 1 - BoundTo = .F. - ColorScheme = 2 - ColorSource = 4 - ColumnCount = 0 - ColumnLines = .T. - ColumnWidths = "" - Comment = "" - ControlSource = "" - DisabledBackColor = 240,240,240 - DisabledForeColor = 109,109,109 - DisabledItemBackColor = 255,255,255 - DisabledItemForeColor = 109,109,109 - DisplayCount = 0 - DisplayValue = cl_combobox - 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. - Margin = 2 - MaxLength = 0 - MouseIcon = ..\..\ - MousePointer = 0 - Name = "cl_combobox" - NullDisplay = "" - NumberOfElements = 0 - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - OLEDropTextInsertion = 0 - Picture = ..\..\ - 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 = 0 - StatusBarText = "" - Style = 0 - TabIndex = 1 - TabStop = .T. - Tag = "" - TerminateRead = .F. - test_aa = .F. - Themes = .T. - ToolTipText = "" - Value = - Visible = .T. - WhatsThisHelpID = -1 - Width = 60 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_commandbutton AS commandbutton - *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - AutoSize = .T. - Caption = "Cmd1" - Height = 27 - Name = "cl_commandbutton" - test_aa = .F. - Width = 52 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_commandgroup AS commandgroup - *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - AutoSize = .T. - ButtonCount = 2 - Height = 66 - Name = "cl_commandgroup" - test_aa = .F. - Value = 1 - Width = 62 - Command1.AutoSize = .T. - Command1.BackColor = 255,128,128 - Command1.Caption = "Cmd1" - Command1.Height = 27 - Command1.Left = 5 - Command1.Name = "Command1" - Command1.Top = 5 - Command1.Width = 52 - Command2.AutoSize = .T. - Command2.BackColor = 255,128,128 - Command2.Caption = "Cmd2" - Command2.DisabledBackColor = 240,240,240 - Command2.DisabledForeColor = 109,109,109 - Command2.Height = 27 - Command2.Left = 5 - Command2.Name = "Command2" - Command2.Top = 34 - Command2.Width = 52 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_container AS container - *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 33 - Name = "cl_container" - test_aa = .F. - Width = 123 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_control AS control - *< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 32 - Name = "cl_control" - test_aa = .F. - Width = 77 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_cursor AS cursor - *< CLASSDATA: Baseclass="cursor" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Alias = "_alias" - BufferModeOverride = 1 - Comment = "" - CursorSource = ..\..\.dbf - Database = ..\..\ - Exclusive = .F. - Filter = "" - Height = 23 - Name = "cl_cursor" - NoDataOnLoad = .F. - Order = "" - OrderDirection = 0 - ReadOnly = .F. - Tag = "" - Width = 23 - -ENDDEFINE - -DEFINE CLASS cl_cursoradapter AS cursoradapter - *< CLASSDATA: Baseclass="cursoradapter" Timestamp="" Scale="Pixels" Uniqueid="" /> - - ADOCodePage = 0 - Alias = "h" - AllowDelete = .T. - AllowInsert = .T. - AllowSimultaneousFetch = .F. - AllowUpdate = .T. - BatchUpdateCount = 1 - BreakOnError = .F. - BufferModeOverride = 3 - Comment = "" - CompareMemo = .T. - ConflictCheckCmd = - ConflictCheckType = 0 - ConversionFunc = - CursorSchema = - DataSource = .NULL. - DataSourceType = "" - DeleteCmd = - DeleteCmdDataSource = .NULL. - DeleteCmdDataSourceType = "" - FetchAsNeeded = .F. - FetchMemo = .T. - FetchMemoCmdList = - FetchMemoDataSource = .NULL. - FetchMemoDataSourceType = "" - FetchSize = 100 - Flags = 0 - Height = 22 - InsertCmd = - InsertCmdDataSource = .NULL. - InsertCmdDataSourceType = "" - InsertCmdRefreshCmd = - InsertCmdRefreshFieldList = - InsertCmdRefreshKeyFieldList = - KeyFieldList = - MapBinary = .F. - MapVarchar = .F. - MaxRecords = -1 - Name = "cl_cursoradapter" - NoData = .F. - Prepared = .F. - RefreshCmd = - RefreshCmdDataSource = .NULL. - RefreshCmdDataSourceType = "" - RefreshIgnoreFieldList = - RefreshTimestamp = .F. - SelectCmd = - SendUpdates = .T. - Tables = - Tag = "" - TimestampFieldList = - UpdatableFieldList = - UpdateCmd = - UpdateCmdDataSource = .NULL. - UpdateCmdDataSourceType = "" - UpdateCmdRefreshCmd = - UpdateCmdRefreshFieldList = - UpdateCmdRefreshKeyFieldList = - UpdateGramSchemaLocation = "" - UpdateNameList = - UpdateType = 1 - UseCursorSchema = .F. - UseDeDataSource = .F. - UseMemoSize = 255 - UseTransactions = .T. - WhereType = 3 - Width = 23 - -ENDDEFINE - -DEFINE CLASS cl_dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="Pixels" Uniqueid="" /> - - DataSource = .NULL. - Name = "cl_dataenvironment" - -ENDDEFINE - -DEFINE CLASS cl_editbox AS editbox - *< CLASSDATA: Baseclass="editbox" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 41 - Name = "cl_editbox" - test_aa = .F. - Width = 75 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_grid 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="" /> - *< OBJECTDATA: ObjPath="Column3.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column3.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column4.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column4.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column5.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column5.Text1" UniqueID="" Timestamp="" /> - - ColumnCount = 5 - Height = 160 - Left = 36 - Name = "grdEncuestas" - RecordSource = "encuestas" - RecordSourceType = 1 - Top = 44 - 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" - - ADD OBJECT 'Column1.Header1' AS header WITH ; - Caption = "promotor", ; - 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 = "idenc", ; - 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" /> - - ADD OBJECT 'Column3.Header1' AS header WITH ; - Caption = "calific", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT '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 'Column4.Header1' AS header WITH ; - Caption = "fecha", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT '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 'Column5.Header1' AS header WITH ; - Caption = "resultado", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'Column5.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - -ENDDEFINE - -DEFINE CLASS cl_hyperlink AS hyperlink - *< CLASSDATA: Baseclass="hyperlink" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 23 - Name = "cl_hyperlink" - test_aa = .F. - Width = 23 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_image AS image - *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 12 - Name = "cl_image" - test_aa = .F. - Width = 12 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_label AS label - *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Caption = "Label4" - Height = 17 - Name = "cl_label" - test_aa = .F. - Width = 104 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_line AS line - *< CLASSDATA: Baseclass="line" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - BorderColor = 255,0,0 - Height = 8 - Name = "cl_line" - test_aa = .F. - Width = 50 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_listbox AS listbox - *< CLASSDATA: Baseclass="listbox" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - BorderColor = 255,0,0 - Height = 24 - Name = "cl_listbox" - SpecialEffect = 1 - test_aa = .F. - Width = 95 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_olebound AS oleboundcontrol - *< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Height = 25 - Name = "cl_olebound" - Width = 100 - -ENDDEFINE - -DEFINE CLASS cl_option AS optionbutton - *< CLASSDATA: Baseclass="optionbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Alignment = 0 - Anchor = 0 - AutoSize = .T. - BackColor = 240,240,240 - BackStyle = 1 - Caption = "Option1" - ColorScheme = 1 - ColorSource = 4 - Comment = "" - ControlSource = "" - DisabledBackColor = 240,240,240 - DisabledForeColor = 109,109,109 - DisabledPicture = ..\..\ - DownPicture = ..\..\ - DragIcon = ..\..\ - DragMode = 0 - Enabled = .T. - FontBold = .F. - 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 - MouseIcon = ..\..\ - MousePointer = 0 - Name = "cl_option" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - Picture = ..\..\ - PictureMargin = 0 - PicturePosition = 13 - PictureSpacing = 0 - RightToLeft = .F. - SpecialEffect = 0 - StatusBarText = "" - Style = 0 - TabIndex = 1 - TabStop = .T. - Tag = "" - TerminateRead = .F. - test_aa = .F. - Themes = .T. - ToolTipText = "" - Value = 0 - Visible = .T. - WhatsThisHelpID = -1 - Width = 61 - WordWrap = .F. - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_optiongroup AS optiongroup - *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Anchor = 0 - AutoSize = .F. - BackColor = 240,240,240 - BackStyle = 1 - BorderColor = 100,100,100 - BorderStyle = 1 - ButtonCount = 2 - ColorSource = 4 - Comment = "" - ControlSource = "" - DragIcon = ..\..\ - DragMode = 0 - Enabled = .T. - Height = 46 - HelpContextID = 0 - MemberClassLibrary = ..\..\ - MouseIcon = ..\..\ - MousePointer = 0 - Name = "cl_optiongroup" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - SpecialEffect = 0 - StatusBarText = "" - TabIndex = 1 - Tag = "" - TerminateRead = .F. - test_aa = .F. - Themes = .T. - ToolTipText = "" - Value = 0 - Visible = .T. - WhatsThisHelpID = -1 - Width = 71 - Option1.Alignment = 0 - Option1.Anchor = 0 - Option1.AutoSize = .T. - Option1.BackColor = 240,240,240 - Option1.BackStyle = 1 - Option1.Caption = "Opt1" - 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.FontSize = 9 - Option1.FontStrikethru = .F. - Option1.FontUnderline = .F. - Option1.ForeColor = 0,0,0 - Option1.Height = 17 - 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 = ..\..\ - 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 = 5 - Option1.Value = 0 - Option1.Visible = .T. - Option1.WhatsThisHelpID = -1 - Option1.Width = 44 - Option1.WordWrap = .F. - Option2.Alignment = 0 - Option2.Anchor = 0 - Option2.BackColor = 255,128,128 - Option2.BackStyle = 1 - Option2.Caption = "Opt2" - 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.FontSize = 9 - Option2.FontStrikethru = .F. - Option2.FontUnderline = .F. - Option2.ForeColor = 0,0,0 - Option2.Height = 17 - Option2.HelpContextID = 0 - Option2.Left = 5 - 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 = 24 - Option2.Value = 0 - Option2.Visible = .T. - Option2.WhatsThisHelpID = -1 - Option2.Width = 44 - Option2.WordWrap = .F. - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_page AS page - *< CLASSDATA: Baseclass="page" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Caption = "Page1" - Height = 44 - Name = "cl_page" - test_aa = .F. - Width = 89 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_pageframe AS pageframe - *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - ErasePage = .T. - Height = 111 - Name = "cl_pageframe" - PageCount = 2 - test_aa = .F. - Width = 175 - Page1.Caption = "Page1" - Page1.Name = "Page1" - Page2.Caption = "Page2" - Page2.Name = "Page2" - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_projecthook AS projecthook - *< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Comment = "" - Height = 22 - Name = "cl_projecthook" - OLEDropEffects = 3 - OLEDropMode = 1 - Tag = "" - Width = 23 - -ENDDEFINE - -DEFINE CLASS cl_relation AS relation - *< CLASSDATA: Baseclass="relation" Timestamp="" Scale="Pixels" Uniqueid="" /> - - ChildAlias = "" - ChildOrder = "" - Comment = "" - Height = 23 - Name = "cl_relation" - OneToMany = .F. - ParentAlias = "" - RelationalExpr = "" - Tag = "" - Width = 23 - -ENDDEFINE - -DEFINE CLASS cl_reportlistener AS reportlistener - *< CLASSDATA: Baseclass="reportlistener" Timestamp="" Scale="Pixels" Uniqueid="" /> - - AllowModalMessages = .F. - CallAdjustObjectSize = 0 - CallEvaluateContents = 0 - CommandClauses = .NULL. - Comment = "" - CurrentDataSession = 1 - CurrentPass = 0 - DynamicLineHeight = .T. - FRXDataSession = -1 - Height = 23 - Name = "cl_reportlistener" - PreviewContainer = .NULL. - PrintJobName = "" - QuietMode = .F. - SendGDIPlusImage = 0 - Tag = "" - TwoPassProcess = .F. - Width = 23 - -ENDDEFINE - -DEFINE CLASS cl_separator AS separator - *< CLASSDATA: Baseclass="separator" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Comment = "" - Enabled = .T. - Height = 0 - Name = "cl_separator" - Style = 0 - Tag = "" - Visible = .T. - Width = 0 - -ENDDEFINE - -DEFINE CLASS cl_shape AS shape - *< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 17 - Name = "cl_shape" - SpecialEffect = 0 - Style = 0 - test_aa = .F. - Width = 50 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_spinner AS spinner - *< CLASSDATA: Baseclass="spinner" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - FontSize = 12 - Height = 28 - Name = "cl_spinner" - test_aa = .F. - Width = 50 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_textbox AS textbox - *< CLASSDATA: Baseclass="textbox" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - 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 = "" - 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 = 9 - FontStrikethru = .F. - FontUnderline = .F. - ForeColor = 0,0,0 - Format = "" - Height = 23 - HelpContextID = 0 - HideSelection = .T. - Hours = 0 - IMEMode = 0 - InputMask = "" - IntegralHeight = .F. - Margin = 2 - MaxLength = 0 - MemoWindow = "" - MouseIcon = ..\..\ - MousePointer = 0 - Name = "cl_textbox" - 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. - test_aa = .F. - Themes = .T. - ToolTipText = "" - Value = - Visible = .T. - WhatsThisHelpID = -1 - Width = 50 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_timer AS timer - *< CLASSDATA: Baseclass="timer" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: test_aa_access - *m: test_aa_assign - *p: test_aa - * - - Height = 23 - Name = "cl_timer" - test_aa = .F. - Width = 23 - - PROCEDURE test_aa_access - *To do: Modify this routine for the Access method - RETURN THIS.test_aa - - ENDPROC - - PROCEDURE test_aa_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.test_aa = m.vNewVal - - ENDPROC - -ENDDEFINE - -DEFINE CLASS cl_toolbar AS toolbar - *< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_separator1" UniqueID="" Timestamp="" /> - - BackColor = 240,240,240 - Caption = "Toolbar1" - ColorSource = 4 - Comment = "" - ControlBox = .T. - DataSession = 1 - DefLeft = - DefTop = - Enabled = .T. - ForeColor = 0,0,0 - HelpContextID = 0 - KeyPreview = .F. - Left = (0) - LockScreen = .F. - MouseIcon = ..\..\ - MousePointer = 0 - Movable = .T. - Name = "cl_toolbar" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - ScaleMode = 3 - ShowTips = .T. - ShowWindow = 0 - Sizable = .T. - Tag = "" - Themes = .T. - Top = (0) - Visible = .T. - WhatsThisHelpID = -1 - - ADD OBJECT 'Cl_separator1' AS cl_separator WITH ; - Comment = "Separador de Toolbar", ; - Enabled = .T., ; - Height = 0, ; - Left = 5, ; - Name = "Cl_separator1", ; - Style = 0, ; - Tag = "", ; - Top = 3, ; - Visible = .T., ; - Width = 0 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="separator" /> - -ENDDEFINE - -DEFINE CLASS cl_xmladapter AS xmladapter - *< CLASSDATA: Baseclass="xmladapter" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Tables" UniqueID="" Timestamp="" /> - - CodePage = 0 - Comment = "" - DeclareXMLPrefix = .F. - DisableEncode = .F. - ForceCloseTag = .F. - FormattedOutput = .T. - Height = 56 - IsDiffgram = .F. - MapBinary = .F. - MapN19_4ToCurrency = .F. - MapVarchar = .F. - Name = "cl_xmladapter" - NoCpTrans = .F. - PreserveWhiteSpace = .F. - RespectCursorCP = .F. - RespectNesting = .F. - SelectionNamespaces = - Tag = "" - Unicode = .F. - UseCodePage = .F. - UTF8Encoded = .F. - Width = 56 - WrapCharInCDATA = .F. - WrapMemoInCDATA = .F. - XMLName = - XMLNameIsXPath = .F. - XMLNamespace = - XMLPrefix = - XMLSchemaLocation = ..\..\ - - ADD OBJECT 'Tables' AS collection WITH ; - Comment = "", ; - Height = 23, ; - KeySort = 0, ; - Left = 23, ; - Name = "Tables", ; - Tag = "", ; - Top = 23, ; - Width = 23 - *< END OBJECT: BaseClass="collection" /> - -ENDDEFINE - -DEFINE CLASS cl_xmlfield AS xmlfield - *< CLASSDATA: Baseclass="xmlfield" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Alias = "" - CodePage = 0 - Comment = "" - DataType = "" - DisableEncode = .F. - FractionDigits = -1 - Height = 23 - IsAttribute = .F. - IsBase64 = .F. - IsBinary = .F. - IsNull = .F. - Keyfield = .F. - MaxLength = -1 - Name = "cl_xmlfield" - NoCpTrans = .F. - Tag = "" - Unicode = .F. - Width = 23 - WrapInCDATA = .F. - XMLName = - XMLNameIsXPath = .F. - XSDfractionDigits = "" - XSDmaxLength = "" - XSDtotalDigits = "" - XSDtype = "" - -ENDDEFINE - -DEFINE CLASS cl_xmltable AS xmltable - *< CLASSDATA: Baseclass="xmltable" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Fields" UniqueID="" Timestamp="" /> - - Alias = "" - ChildTable = .NULL. - CodePage = 0 - Comment = "" - DeclareXMLPrefix = .F. - FirstNestedTable = .NULL. - Height = 56 - Name = "cl_xmltable" - NestedInto = .NULL. - NextSiblingTable = .NULL. - Tag = "" - Width = 56 - XMLName = - XMLNameIsXPath = .F. - XMLNamespace = - XMLPrefix = - - ADD OBJECT 'Fields' AS collection WITH ; - Height = 23, ; - Left = 23, ; - Name = "Fields", ; - Top = 23, ; - Width = 23 - *< END OBJECT: BaseClass="collection" /> - -ENDDEFINE - -DEFINE CLASS f_base AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="cmdCapturar" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> - - * - *m: capturarpantallaabitmap - *p: c_testname - * - - AlwaysOnTop = .T. - BackColor = 192,192,192 - Caption = "OptionGroup_Test" - c_testname = OptionGroup_Test - DoCreate = .T. - Height = 424 - Left = 0 - Name = "f_base" - Top = 0 - Width = 819 - - ADD OBJECT 'cmdCapturar' AS commandbutton WITH ; - Caption = "Capturar Pantalla", ; - Height = 27, ; - Left = 564, ; - Name = "cmdCapturar", ; - TabIndex = 1, ; - Top = 392, ; - Width = 248 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'Edit1' AS editbox WITH ; - Height = 356, ; - Left = 564, ; - Name = "Edit1", ; - ReadOnly = .T., ; - TabIndex = 2, ; - Top = 32, ; - Value = , ; - Width = 249 - *< END OBJECT: BaseClass="editbox" /> - - ADD OBJECT 'Label1' AS label WITH ; - Alignment = 2, ; - Caption = "OPTIONGROUP NORMAL", ; - FontBold = .T., ; - Height = 17, ; - Left = 28, ; - Name = "Label1", ; - TabIndex = 4, ; - Top = 8, ; - Width = 244 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Label2' AS label WITH ; - Alignment = 2, ; - Caption = "OPTIONGROUP SUBCLASADOS", ; - FontBold = .T., ; - Height = 17, ; - Left = 296, ; - Name = "Label2", ; - TabIndex = 5, ; - Top = 8, ; - Width = 248 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Label3' AS label WITH ; - Alignment = 2, ; - Caption = "OBSERVACIONES", ; - FontBold = .T., ; - Height = 17, ; - Left = 564, ; - Name = "Label3", ; - TabIndex = 3, ; - Top = 8, ; - Width = 248 - *< END OBJECT: BaseClass="label" /> - - PROCEDURE capturarpantallaabitmap - LPARAMETERS tcFilename - - LOCAL retVal - tcFilename = EVL(tcFilename, 'optiongroup') - - IF NOT '\' $ tcFilename - tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp' - ENDIF - - Declare Integer formtobmp IN "PCT_DLL.dll" integer hwnd,String bmpFileName - retVal = formtobmp( THISFORM.HWnd, tcFilename ) - - *Declare Integer formtobmpA IN "TESTS\PCT_DLL.dll" string bmpfilename,integer nX,integer nY,integer nX2,integer nY2 - - *retVal = formtobmpA( "c:\desa\foxbin2prg\screen0.bmp" ; - , THIS.Left ; - , this.Top ; - , this.Left + this.Width ; - , this.Top + this.Height ) && Save screen to file c:\screen.bmp - CLEAR DLLS formtobmp - - RETURN retVal - - ENDPROC - - PROCEDURE Init - SET PATH TO (FULLPATH("..\", THIS.ClassLibrary)) ADDITIVE - THISFORM.cmdCapturar.SetFocus() - - ENDPROC - - PROCEDURE Refresh - DODEFAULT() - INKEY(0.01,"S") - DOEVENTS FORCE - this.capturarpantallaabitmap( THISFORM.c_testname ) - - ENDPROC - - PROCEDURE cmdCapturar.Click - THISFORM.capturarpantallaabitmap() - - ENDPROC - -ENDDEFINE - -DEFINE CLASS f_checkbox AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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_checkbox" - Top = 1 - 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 = "", ; - 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 - -DEFINE CLASS f_combobox AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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_combobox" - Edit1.Name = "Edit1" - Edit1.TabIndex = 2 - Label3.Name = "Label3" - Label3.TabIndex = 3 - Command2.Name = "Command2" - Command2.TabIndex = 1 - Label1.Caption = "COMBOBOX NORMAL" - Label1.Name = "Label1" - Label1.TabIndex = 4 - Label2.Caption = "COMBOBOX SUBCLASADOS" - Label2.Name = "Label2" - Label2.TabIndex = 5 - - 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 = "", ; - 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 - -DEFINE CLASS f_commandgroup AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> - - DoCreate = .T. - Left = 0 - Name = "f_commandgroup" - Top = 0 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "COMMANDGROUP NORMAL" - Label1.Name = "Label1" - Label2.Caption = "COMMANDGROUP SUBCLASADOS" - Label2.Name = "Label2" - - 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 '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 = 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 - -DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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.Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" 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 = .F. - 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 = - 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 = 420, ; - 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, ; - 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. - *< 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), ; - 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) - *< 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. - *< 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), ; - 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) - *< 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) - *< 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) - *< 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 - *< 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. - *< 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) - *< 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) - *< 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) - *< 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), ; - 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), ; - 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) - *< 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) - *< 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 == '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 - -DEFINE CLASS f_form_aa_ AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< 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.Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.Shape1" 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 = .F. - 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 = (424) - 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 = (980) - WindowState = 0 - WindowType = 0 - ZoomBox = .F. - Edit1.Height = 356 - 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 = 384, ; - 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 '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. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - 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) - *< 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. - *< 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), ; - 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) - *< 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) - *< 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) - *< 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 = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - 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) - *< 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. - *< 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) - *< 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) - *< 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 = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - FontSize = 8, ; - Height = (16), ; - Left = (123), ; - Name = "option", ; - Top = (232), ; - Width = (110) - *< 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 = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (112), ; - 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.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), ; - 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.Shape1' AS shape WITH ; - Anchor = 0, ; - BackColor = 255,255,196, ; - BackStyle = 1, ; - BorderColor = 128,255,128, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 16, ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .T., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = (21), ; - HelpContextID = 0, ; - Left = (115), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = (99), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (57) - *< END OBJECT: BaseClass="shape" /> - - 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 = , ; - DefLeft = , ; - DefTop = , ; - 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 = (292), ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (108) - *< 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 = , ; - 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 = (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 = (320), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (108) - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - Enabled = .T., ; - Height = (23), ; - Interval = 0, ; - Left = (207), ; - Name = "timer", ; - Tag = "", ; - test_aa = .F., ; - Top = (252), ; - 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 == '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.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 - -DEFINE CLASS f_form_controles AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> - - AllowOutput = .T. - AlwaysOnBottom = .F. - AlwaysOnTop = .F. - 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 - DefOleLCID = 0 - 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 = 0 - 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 = 0 - 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. - Command2.Name = "Command2" - Command2.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_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 '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 = 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 = "", ; - 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 = "", ; - 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 = "", ; - 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, ; - 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 = "", ; - 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" /> - -ENDDEFINE - -DEFINE CLASS f_listbox AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="" /> - - DoCreate = .T. - Name = "f_listbox" - 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 = "", ; - 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 - -DEFINE CLASS f_optiongroup AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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.Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Label2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Optiongroup2" UniqueID="" Timestamp="" /> - - Caption = "OptionGroup_Test" - DoCreate = .T. - Height = 424 - Left = 0 - Name = "f_optiongroup" - Top = 0 - Width = 819 - 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 = "OPTIONGROUP NORMAL" - Label1.Name = "Label1" - Label2.Caption = "OPTIONGROUP SUBCLASADOS" - Label2.Name = "Label2" - - 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 = 24, ; - 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 = "", ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 24, ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - 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.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.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.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 = 41, ; - 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 = 89, ; - 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.Height = 41, ; - 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.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 = 41, ; - 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.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 245, ; - Left = 8, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 200, ; - 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 = 24, ; - Value = 2, ; - Width = 248, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 240,240,240, ; - Option1.Caption = "La Opción 1", ; - Option1.FontBold = .F., ; - Option1.Height = 17, ; - Option1.Left = 8, ; - Option1.Name = "Option1", ; - Option1.SpecialEffect = 0, ; - Option1.Style = 0, ; - Option1.Top = 8, ; - 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 = 17, ; - Option2.Left = 8, ; - Option2.Name = "Option2", ; - Option2.SpecialEffect = 0, ; - Option2.Style = 0, ; - Option2.Top = 32, ; - Option2.Value = 1, ; - Option2.WhatsThisHelpID = -1, ; - Option2.Width = 158, ; - Option3.BackColor = 128,255,128, ; - Option3.Caption = "La opción 3 es la más larga de todas", ; - Option3.FontBold = .F., ; - Option3.Height = 17, ; - Option3.Left = 8, ; - Option3.Name = "Option3", ; - Option3.SpecialEffect = 0, ; - Option3.Style = 0, ; - Option3.Top = 56, ; - Option3.Value = 0, ; - Option3.WhatsThisHelpID = -1, ; - Option3.Width = 222 - *< 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 = 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 'Pageframe1.Page1.Label2' AS label WITH ; - Caption = "OPTIONGROUP SUBCLASADOS", ; - FontBold = .T., ; - Height = 17, ; - Left = 287, ; - Name = "Label2", ; - Top = 8, ; - Width = 248 - *< END OBJECT: BaseClass="label" /> - - 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 = "", ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 24, ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - 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.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.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.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 = 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 = 41, ; - 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 = 89, ; - 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.Height = 41, ; - 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.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 = 41, ; - 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.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - - PROCEDURE Refresh - DOEVENTS FORCE - this.capturarpantallaabitmap( THISFORM.c_testname ) - - ENDPROC - -ENDDEFINE - -DEFINE CLASS f_textbox AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" 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="Cl_textbox3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_textbox4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_textbox5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_textbox6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> - - DoCreate = .T. - Left = 0 - Name = "f_textbox" - 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_textbox1' 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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = 64, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< 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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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 = 132 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT '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 = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .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, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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 = 156, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT '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 = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .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, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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 = 188, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT '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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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 = 252, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT '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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 348, ; - 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 = 284, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Text1' 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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 132 - *< 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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 132 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT '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 = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .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, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 156, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT '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 = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .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, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 188, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT '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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 252, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT '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 = 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 = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 84, ; - 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 = 284, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 132 - *< END OBJECT: BaseClass="textbox" /> - -ENDDEFINE +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cl_checkbox" Baseclass="checkbox" /> +*< EXTERNAL_CLASS: Name="cl_collection" Baseclass="collection" /> +*< EXTERNAL_CLASS: Name="cl_combobox" Baseclass="combobox" /> +*< EXTERNAL_CLASS: Name="cl_commandbutton" Baseclass="commandbutton" /> +*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" /> +*< EXTERNAL_CLASS: Name="cl_container" Baseclass="container" /> +*< EXTERNAL_CLASS: Name="cl_control" Baseclass="control" /> +*< EXTERNAL_CLASS: Name="cl_cursor" Baseclass="cursor" /> +*< EXTERNAL_CLASS: Name="cl_cursoradapter" Baseclass="cursoradapter" /> +*< EXTERNAL_CLASS: Name="cl_dataenvironment" Baseclass="dataenvironment" /> +*< EXTERNAL_CLASS: Name="cl_editbox" Baseclass="editbox" /> +*< EXTERNAL_CLASS: Name="cl_grid" Baseclass="grid" /> +*< EXTERNAL_CLASS: Name="cl_hyperlink" Baseclass="hyperlink" /> +*< EXTERNAL_CLASS: Name="cl_image" Baseclass="image" /> +*< EXTERNAL_CLASS: Name="cl_label" Baseclass="label" /> +*< EXTERNAL_CLASS: Name="cl_line" Baseclass="line" /> +*< EXTERNAL_CLASS: Name="cl_listbox" Baseclass="listbox" /> +*< EXTERNAL_CLASS: Name="cl_olebound" Baseclass="oleboundcontrol" /> +*< EXTERNAL_CLASS: Name="cl_option" Baseclass="optionbutton" /> +*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" /> +*< EXTERNAL_CLASS: Name="cl_page" Baseclass="page" /> +*< EXTERNAL_CLASS: Name="cl_pageframe" Baseclass="pageframe" /> +*< EXTERNAL_CLASS: Name="cl_projecthook" Baseclass="projecthook" /> +*< EXTERNAL_CLASS: Name="cl_relation" Baseclass="relation" /> +*< EXTERNAL_CLASS: Name="cl_reportlistener" Baseclass="reportlistener" /> +*< EXTERNAL_CLASS: Name="cl_separator" Baseclass="separator" /> +*< EXTERNAL_CLASS: Name="cl_shape" Baseclass="shape" /> +*< EXTERNAL_CLASS: Name="cl_spinner" Baseclass="spinner" /> +*< EXTERNAL_CLASS: Name="cl_textbox" Baseclass="textbox" /> +*< EXTERNAL_CLASS: Name="cl_timer" Baseclass="timer" /> +*< EXTERNAL_CLASS: Name="cl_toolbar" Baseclass="toolbar" /> +*< EXTERNAL_CLASS: Name="cl_xmladapter" Baseclass="xmladapter" /> +*< EXTERNAL_CLASS: Name="cl_xmlfield" Baseclass="xmlfield" /> +*< EXTERNAL_CLASS: Name="cl_xmltable" Baseclass="xmltable" /> +*< EXTERNAL_CLASS: Name="f_base" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_checkbox" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_combobox" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_commandgroup" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_form_aa" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_form_aa_" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_form_controles" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_listbox" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_optiongroup" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="f_textbox" Baseclass="form" /> + +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/lib_controles2.f_optiongroup2.vc2 b/TESTS/DATOS_READONLY/lib_controles2.f_optiongroup2.vc2 new file mode 100644 index 0000000..590d48a --- /dev/null +++ b/TESTS/DATOS_READONLY/lib_controles2.f_optiongroup2.vc2 @@ -0,0 +1,113 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="lib_controles2.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS f_optiongroup2 AS cl_optiongroup OF "lib_controles.vcx" + *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Anchor = 0 + AutoSize = .F. + BackColor = 240,240,240 + BackStyle = 1 + BorderColor = 100,100,100 + BorderStyle = 1 + ButtonCount = 2 + ColorSource = 4 + Comment = "" + ControlSource = "" + DragIcon = ..\..\ + DragMode = 0 + Enabled = .T. + Height = 46 + HelpContextID = 0 + MemberClassLibrary = ..\..\ + MouseIcon = ..\..\ + MousePointer = 0 + Name = "f_optiongroup2" + OLEDragMode = 0 + OLEDragPicture = ..\..\ + OLEDropEffects = 3 + OLEDropMode = 0 + SpecialEffect = 0 + StatusBarText = "" + TabIndex = 1 + Tag = "" + TerminateRead = .F. + test_aa = .F. + Themes = .T. + ToolTipText = "" + Value = 0 + Visible = .T. + WhatsThisHelpID = -1 + Width = 71 + Option1.Alignment = 0 + Option1.Anchor = 0 + Option1.AutoSize = .T. + Option1.BackColor = 240,240,240 + Option1.BackStyle = 1 + Option1.Caption = "Opt1" + Option1.ColorScheme = 1 + Option1.ColorSource = 4 + Option1.Comment = "" + Option1.ControlSource = "" + Option1.DefHeight = + Option1.DefLeft = + Option1.DefTop = + Option1.DefWidth = + 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 = 9 + 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 = ..\..\ + Option1.PictureMargin = 0 + Option1.PicturePosition = 13 + 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 = (47) + Option1.WordWrap = .F. + Option2.Left = 5 + Option2.Name = "Option2" + Option2.Top = 24 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/lib_controles2.vc2 b/TESTS/DATOS_READONLY/lib_controles2.vc2 index 499814a..471f875 100644 --- a/TESTS/DATOS_READONLY/lib_controles2.vc2 +++ b/TESTS/DATOS_READONLY/lib_controles2.vc2 @@ -4,109 +4,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="lib_controles2.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS f_optiongroup2 AS cl_optiongroup OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="f_optiongroup2" Baseclass="optiongroup" /> - Anchor = 0 - AutoSize = .F. - BackColor = 240,240,240 - BackStyle = 1 - BorderColor = 100,100,100 - BorderStyle = 1 - ButtonCount = 2 - ColorSource = 4 - Comment = "" - ControlSource = "" - DragIcon = ..\..\ - DragMode = 0 - Enabled = .T. - Height = 46 - HelpContextID = 0 - MemberClassLibrary = ..\..\ - MouseIcon = ..\..\ - MousePointer = 0 - Name = "f_optiongroup2" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - SpecialEffect = 0 - StatusBarText = "" - TabIndex = 1 - Tag = "" - TerminateRead = .F. - test_aa = .F. - Themes = .T. - ToolTipText = "" - Value = 0 - Visible = .T. - WhatsThisHelpID = -1 - Width = 71 - Option1.Alignment = 0 - Option1.Anchor = 0 - Option1.AutoSize = .T. - Option1.BackColor = 240,240,240 - Option1.BackStyle = 1 - Option1.Caption = "Opt1" - Option1.ColorScheme = 1 - Option1.ColorSource = 4 - Option1.Comment = "" - Option1.ControlSource = "" - Option1.DefHeight = - Option1.DefLeft = - Option1.DefTop = - Option1.DefWidth = - 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 = 9 - 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 = ..\..\ - Option1.PictureMargin = 0 - Option1.PicturePosition = 13 - 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 = (47) - Option1.WordWrap = .F. - Option2.Left = 5 - Option2.Name = "Option2" - Option2.Top = 24 - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/menu2.mn2 b/TESTS/DATOS_READONLY/menu2.mn2 index 566c4db..e15189b 100644 --- a/TESTS/DATOS_READONLY/menu2.mn2 +++ b/TESTS/DATOS_READONLY/menu2.mn2 @@ -14,7 +14,7 @@ * DEFINE MENU _MSYSMENU BAR -DEFINE PAD _40Q0H1MMN OF _MSYSMENU PROMPT "Opción A con submenú" COLOR SCHEME 3 ; +DEFINE PAD "_40Q0H1MMN" OF _MSYSMENU PROMPT "Opción A con submenú" COLOR SCHEME 3 ; NEGOTIATE NONE, LEFT ; KEY DEL, "Pulsar " ; SKIP FOR SKIP_FOR() ; @@ -84,9 +84,9 @@ DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opci ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opción B" -DEFINE PAD _43302YWHK OF _MSYSMENU PROMPT "\ DEFINE MENU _MSYSMENU BAR -DEFINE PAD _43302YWIM OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3 +DEFINE PAD _000000001 OF _MSYSMENU PROMPT "ejemplo" COLOR SCHEME 3 -ON SELECTION PAD _43302YWIM OF _MSYSMENU do test +ON SELECTION PAD _000000001 OF _MSYSMENU do test -DEFINE PAD _43302YWIN OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3 +DEFINE PAD _000000002 OF _MSYSMENU PROMPT "ejemplo2" COLOR SCHEME 3 -ON SELECTION PAD _43302YWIN OF _MSYSMENU DO TEST +ON SELECTION PAD _000000002 OF _MSYSMENU DO TEST * diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.custest.vc2 b/TESTS/DATOS_READONLY/procedure_in_lparameters.custest.vc2 new file mode 100644 index 0000000..38e6a04 --- /dev/null +++ b/TESTS/DATOS_READONLY/procedure_in_lparameters.custest.vc2 @@ -0,0 +1,40 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="procedure_in_lparameters.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS custest AS custom + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: createcsrhealthcodes + * + + * + Name = "custest" + * + + PROCEDURE createcsrhealthcodes + + + * + * Add values to cursor, row by row. + * + FOR lnIndex = 1 TO lnCount + + * + * Write values to csr + * + REPLACE CBO_Id WITH lnCBO_ID, Diagnosis WITH lcDiagnosis, AdmitDiagnosis WITH lcAdmitDiagnosis, ; && Try to Break FB2P + Procedure WITH lcProcedure IN csrHealthCareCodes + + ENDFOR + + * + * Return success flag. + * + RETURN llSuccess + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2 b/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2 index f250471..1085d20 100644 --- a/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2 +++ b/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2 @@ -4,36 +4,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="procedure_in_lparameters.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS custest AS custom - *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="custest" Baseclass="custom" /> - * - *m: createcsrhealthcodes - * - - Name = "custest" - - PROCEDURE createcsrhealthcodes - - - * - * Add values to cursor, row by row. - * - FOR lnIndex = 1 TO lnCount - - * - * Write values to csr - * - REPLACE CBO_Id WITH lnCBO_ID, Diagnosis WITH lcDiagnosis, AdmitDiagnosis WITH lcAdmitDiagnosis, ; && Try to Break FB2P - Procedure WITH lcProcedure IN csrHealthCareCodes - - ENDFOR - - * - * Return success flag. - * - RETURN llSuccess - ENDPROC - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/test_public_protected.cmdbutton1.vc2 b/TESTS/DATOS_READONLY/test_public_protected.cmdbutton1.vc2 new file mode 100644 index 0000000..609e19c --- /dev/null +++ b/TESTS/DATOS_READONLY/test_public_protected.cmdbutton1.vc2 @@ -0,0 +1,22 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cmdbutton1 AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: invalue + * + + * + Caption = "Command1" + Height = 27 + invalue = Default Value + Name = "cmdbutton1" + Width = 84 + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/test_public_protected.cmdsubbutton.vc2 b/TESTS/DATOS_READONLY/test_public_protected.cmdsubbutton.vc2 new file mode 100644 index 0000000..271e58c --- /dev/null +++ b/TESTS/DATOS_READONLY/test_public_protected.cmdsubbutton.vc2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS cmdsubbutton AS cmdbutton1 OF "test_public_protected.vcx" + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + PROTECTED invalue + * + invalue = New Value + Name = "cmdsubbutton" + * + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/test_public_protected.frmform1.vc2 b/TESTS/DATOS_READONLY/test_public_protected.frmform1.vc2 new file mode 100644 index 0000000..1c06065 --- /dev/null +++ b/TESTS/DATOS_READONLY/test_public_protected.frmform1.vc2 @@ -0,0 +1,99 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS frmform1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="txtAddedThisThird" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdbutton11" UniqueID="" Timestamp="" /> + + * + *m: canprocess + *m: initobjects + *m: processaction + *m: processactionpart1 + *m: processactionpart2 + * + + * + Caption = "Form" + DoCreate = .T. + Name = "frmform1" + * + + ADD OBJECT 'Cmdbutton11' AS cmdsubbutton WITH ; + Height = 36, ; + Left = 60, ; + Name = "Cmdbutton11", ; + Top = 144, ; + Width = 120 + *< END OBJECT: ClassLib="test_public_protected.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Caption = "This button was added second", ; + DefHeight = , ; + DefLeft = , ; + Height = (25), ; + Left = (this.Height), ; + Name = "Command1", ; + Top = 48, ; + Width = 192 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "This label was added first", ; + Height = 18, ; + Left = 24, ; + Name = "Label1", ; + Top = 12, ; + Width = 144 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtAddedThisThird' AS textbox WITH ; + Height = 25, ; + Left = 24, ; + Name = "txtAddedThisThird", ; + Top = 96, ; + Width = 180 + *< END OBJECT: BaseClass="textbox" /> + + PROTECTED PROCEDURE canprocess + ENDPROC + + PROCEDURE Init + * + * Init the form! + * + thisform.Caption = "Hello world!" + ENDPROC + + PROTECTED PROCEDURE initobjects + * + * Initialize some objects here + * + ENDPROC + + PROCEDURE processaction + * + * ProcessActions again, all public + * + * TODO + ENDPROC + + PROTECTED PROCEDURE processactionpart1 + * + * Part 1, do some stuff + * + SELECT 0 + ENDPROC + + PROTECTED PROCEDURE processactionpart2 + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/test_public_protected.frmform2.vc2 b/TESTS/DATOS_READONLY/test_public_protected.frmform2.vc2 new file mode 100644 index 0000000..ab06ee3 --- /dev/null +++ b/TESTS/DATOS_READONLY/test_public_protected.frmform2.vc2 @@ -0,0 +1,46 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +DEFINE CLASS frmform2 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + + * + *m: privatemethod && A private method + *m: protectedmethod && A protected method + *m: publicmethod && Regular public method + * + + * + Caption = "Form" + DoCreate = .T. + Name = "frmform2" + * + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "Added this control first", ; + Height = 25, ; + Left = 36, ; + Name = "Label1", ; + Top = 24, ; + Width = 205 + *< END OBJECT: BaseClass="label" /> + + HIDDEN PROCEDURE privatemethod && A private method + * Private method + ENDPROC + + PROTECTED PROCEDURE protectedmethod && A protected method + * Protected method + ENDPROC + + PROCEDURE publicmethod && Regular public method + * Pub method + ENDPROC + +ENDDEFINE diff --git a/TESTS/DATOS_READONLY/test_public_protected.vc2 b/TESTS/DATOS_READONLY/test_public_protected.vc2 index 3d8cccc..5bbf621 100644 --- a/TESTS/DATOS_READONLY/test_public_protected.vc2 +++ b/TESTS/DATOS_READONLY/test_public_protected.vc2 @@ -4,158 +4,10 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.19" SourceFile="test_public_protected.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -* -DEFINE CLASS cmdbutton1 AS commandbutton - *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> +*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas +*< EXTERNAL_CLASS: Name="cmdbutton1" Baseclass="commandbutton" /> +*< EXTERNAL_CLASS: Name="cmdsubbutton" Baseclass="commandbutton" /> +*< EXTERNAL_CLASS: Name="frmform1" Baseclass="form" /> +*< EXTERNAL_CLASS: Name="frmform2" Baseclass="form" /> - * - *p: invalue - * - - Caption = "Command1" - Height = 27 - invalue = Default Value - Name = "cmdbutton1" - Width = 84 - -ENDDEFINE - -DEFINE CLASS cmdsubbutton AS cmdbutton1 OF "test_public_protected.vcx" - *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> - - PROTECTED invalue - invalue = New Value - Name = "cmdsubbutton" - -ENDDEFINE - -DEFINE CLASS frmform1 AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="txtAddedThisThird" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cmdbutton11" UniqueID="" Timestamp="" /> - - * - *m: canprocess - *m: initobjects - *m: processaction - *m: processactionpart1 - *m: processactionpart2 - * - - Caption = "Form" - DoCreate = .T. - Name = "frmform1" - - ADD OBJECT 'Cmdbutton11' AS cmdsubbutton WITH ; - Height = 36, ; - Left = 60, ; - Name = "Cmdbutton11", ; - Top = 144, ; - Width = 120 - *< END OBJECT: ClassLib="test_public_protected.vcx" BaseClass="commandbutton" /> - - ADD OBJECT 'Command1' AS commandbutton WITH ; - Caption = "This button was added second", ; - DefHeight = , ; - DefLeft = , ; - Height = (25), ; - Left = (this.Height), ; - Name = "Command1", ; - Top = 48, ; - Width = 192 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'Label1' AS label WITH ; - Caption = "This label was added first", ; - Height = 18, ; - Left = 24, ; - Name = "Label1", ; - Top = 12, ; - Width = 144 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'txtAddedThisThird' AS textbox WITH ; - Height = 25, ; - Left = 24, ; - Name = "txtAddedThisThird", ; - Top = 96, ; - Width = 180 - *< END OBJECT: BaseClass="textbox" /> - - PROTECTED PROCEDURE canprocess - ENDPROC - - PROCEDURE Init - * - * Init the form! - * - thisform.Caption = "Hello world!" - ENDPROC - - PROTECTED PROCEDURE initobjects - * - * Initialize some objects here - * - ENDPROC - - PROCEDURE processaction - * - * ProcessActions again, all public - * - * TODO - ENDPROC - - PROTECTED PROCEDURE processactionpart1 - * - * Part 1, do some stuff - * - SELECT 0 - ENDPROC - - PROTECTED PROCEDURE processactionpart2 - ENDPROC - -ENDDEFINE - -DEFINE CLASS frmform2 AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> - - * - *m: privatemethod && A private method - *m: protectedmethod && A protected method - *m: publicmethod && Regular public method - * - - Caption = "Form" - DoCreate = .T. - Name = "frmform2" - - ADD OBJECT 'Label1' AS label WITH ; - Caption = "Added this control first", ; - Height = 25, ; - Left = 36, ; - Name = "Label1", ; - Top = 24, ; - Width = 205 - *< END OBJECT: BaseClass="label" /> - - HIDDEN PROCEDURE privatemethod && A private method - * Private method - ENDPROC - - PROTECTED PROCEDURE protectedmethod && A protected method - * Protected method - ENDPROC - - PROCEDURE publicmethod && Regular public method - * Pub method - ENDPROC - -ENDDEFINE +* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/test_report.fr2 b/TESTS/DATOS_READONLY/test_report.fr2 index 4ac63a7..4744c7c 100644 --- a/TESTS/DATOS_READONLY/test_report.fr2 +++ b/TESTS/DATOS_READONLY/test_report.fr2 @@ -76,7 +76,9 @@ COLOR=2