*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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.20" SourceFile="lib_controles.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * DEFINE CLASS cl_option AS optionbutton *< CLASSDATA: Baseclass="optionbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> * *m: test_aa_access *m: test_aa_assign *p: test_aa * * Alignment = 0 Anchor = 0 AutoSize = .T. BackColor = 240,240,240 BackStyle = 1 Caption = "Option1" ColorScheme = 1 ColorSource = 4 Comment = "" ControlSource = "" DisabledBackColor = 240,240,240 DisabledForeColor = 109,109,109 DisabledPicture = ..\..\ DownPicture = ..\..\ DragIcon = ..\..\ DragMode = 0 Enabled = .T. FontBold = .F. FontCondense = .F. FontExtend = .F. FontItalic = .F. FontName = "Arial" FontOutline = .F. FontShadow = .F. FontSize = 9 FontStrikethru = .F. FontUnderline = .F. ForeColor = 0,0,0 Height = 17 HelpContextID = 0 MouseIcon = ..\..\ MousePointer = 0 Name = "cl_option" OLEDragMode = 0 OLEDragPicture = ..\..\ OLEDropEffects = 3 OLEDropMode = 0 Picture = ..\..\ PictureMargin = 0 PicturePosition = 13 PictureSpacing = 0 RightToLeft = .F. SpecialEffect = 0 StatusBarText = "" Style = 0 TabIndex = 1 TabStop = .T. Tag = "" TerminateRead = .F. test_aa = .F. Themes = .T. ToolTipText = "" Value = 0 Visible = .T. WhatsThisHelpID = -1 Width = 61 WordWrap = .F. * PROCEDURE test_aa_access *To do: Modify this routine for the Access method RETURN THIS.test_aa ENDPROC PROCEDURE test_aa_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.test_aa = m.vNewVal ENDPROC ENDDEFINE