*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ctl32_statusbar_fals.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS ctl32_statusbar AS custom *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> * *m: ctlclick *m: newtooltip *p: ctlicon *p: ctlmessage *a: ctlpanels[10,0] * * ctlicon = ctlmessage = Name = "ctl32_statusbar" * PROCEDURE ctlclick ENDPROC PROCEDURE Init Lparameters tnPanelCount For I = 1 To tnPanelCount This.ctlpanels(I) = Newobject("ctl32_statusbar_panel","ctl32_statusbar_fals") Endfor ENDPROC PROCEDURE newtooltip ENDPROC ENDDEFINE DEFINE CLASS ctl32_statusbar_panel AS custom *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> * *p: ctlcaption * * ctlcaption = Name = "ctl32_statusbar_panel" * ENDDEFINE