*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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 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 "TESTS\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 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 Command2.Name = "Command2" Edit1.Name = "Edit1" Label1.Caption = "CHECKBOX NORMAL" Label1.Name = "Label1" Label2.Caption = "CHECKBOX SUBCLASADOS" Label2.Name = "Label2" Label3.Name = "Label3" 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" Command2.Name = "Command2" Command2.TabIndex = 1 Edit1.Name = "Edit1" Edit1.TabIndex = 2 Label1.Caption = "COMBOBOX NORMAL" Label1.Name = "Label1" Label1.TabIndex = 4 Label2.Caption = "COMBOBOX SUBCLASADOS" Label2.Name = "Label2" Label2.TabIndex = 5 Label3.Name = "Label3" Label3.TabIndex = 3 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 Command2.Name = "Command2" Edit1.Name = "Edit1" Label1.Caption = "COMMANDGROUP NORMAL" Label1.Name = "Label1" Label2.Caption = "COMMANDGROUP SUBCLASADOS" Label2.Name = "Label2" Label3.Name = "Label3" 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 = 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 = (980) WindowState = 0 WindowType = 0 ZoomBox = .F. cmdCapturar.Height = 27 cmdCapturar.Left = 764 cmdCapturar.Name = "cmdCapturar" cmdCapturar.RightToLeft = .F. cmdCapturar.Top = 392 cmdCapturar.Width = 212 Edit1.Height = 144 Edit1.Left = 764 Edit1.Name = "Edit1" Edit1.RightToLeft = .F. Edit1.Top = 32 Edit1.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 Label3.BackColor = 128,255,128 Label3.Height = 17 Label3.Left = 764 Label3.Name = "Label3" Label3.RightToLeft = .F. Label3.Top = 8 Label3.Width = 212 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 = 100,100,100, ; BorderStyle = 0, ; 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 ; Height = 100, ; Left = 764, ; Name = "Image1", ; Picture = bmps\vfpxlogo.bmp, ; Top = 184, ; 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. cmdCapturar.Height = 27 cmdCapturar.Left = 764 cmdCapturar.Name = "cmdCapturar" cmdCapturar.RightToLeft = .F. cmdCapturar.Top = 392 cmdCapturar.Width = 212 Edit1.Height = 356 Edit1.Left = 764 Edit1.Name = "Edit1" Edit1.RightToLeft = .F. Edit1.Top = 32 Edit1.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 Label3.BackColor = 128,255,128 Label3.Height = 17 Label3.Left = 764 Label3.Name = "Label3" Label3.RightToLeft = .F. Label3.Top = 8 Label3.Width = 212 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. Command2.Name = "Command2" Command2.RightToLeft = .F. Edit1.Name = "Edit1" Edit1.RightToLeft = .F. Label1.Caption = "CONTROL NORMAL" Label1.Name = "Label1" Label1.RightToLeft = .F. Label2.Caption = "CONTROL SUBCLASADOS" Label2.Name = "Label2" Label2.RightToLeft = .F. Label3.Name = "Label3" Label3.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" Command2.Name = "Command2" Edit1.Name = "Edit1" Label1.Caption = "LISTBOX NORMAL" Label1.Name = "Label1" Label2.Caption = "LISTBOX SUBCLASADOS" Label2.Name = "Label2" Label3.Name = "Label3" 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 Command2.Name = "Command2" 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 Label1.Caption = "OPTIONGROUP NORMAL" Label1.Name = "Label1" Label2.Caption = "OPTIONGROUP SUBCLASADOS" Label2.Name = "Label2" Label3.Name = "Label3" 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 Command2.Name = "Command2" Edit1.Name = "Edit1" Label1.Caption = "TEXTBOX NORMAL" Label1.Name = "Label1" Label2.Caption = "TEXTBOX SUBCLASADOS" Label2.Name = "Label2" Label3.Name = "Label3" 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