*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ferestrebaza.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS atentie AS fatentie OF "ferestrebaza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> * BorderStyle = 3 DoCreate = .T. Height = 100 Name = "atentie" Width = 401 WindowType = 0 Shape1.Height = 92 Shape1.Left = 4 Shape1.Name = "Shape1" Shape1.Top = 4 Shape1.Width = 392 IMAGE1.Height = 32 IMAGE1.Left = 31 IMAGE1.Name = "IMAGE1" IMAGE1.Picture = ..\grafice\exclam1.ico IMAGE1.Top = 11 IMAGE1.Width = 32 Label1.Alignment = 0 Label1.AutoSize = .T. Label1.Left = 73 Label1.Name = "Label1" Label1.Top = 18 Line1.Name = "Line1" * ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; AutoSize = .F., ; Caption = "\ ADD OBJECT 'Label2' AS label WITH ; Alignment = 0, ; AutoSize = .T., ; Caption = "label2", ; FontSize = 11, ; Height = 19, ; Left = 137, ; Name = "Label2", ; Top = 18, ; Width = 40 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Label3' AS label WITH ; Alignment = 2, ; AutoSize = .F., ; BackStyle = 0, ; Caption = "label3", ; FontSize = 11, ; Height = 19, ; Left = 27, ; Name = "Label3", ; Top = 45, ; Width = 348, ; WordWrap = .T. *< END OBJECT: BaseClass="label" /> PROCEDURE Deactivate thisform.release ENDPROC PROCEDURE LostFocus thisform.release ENDPROC ENDDEFINE DEFINE CLASS cmdrenunt AS commandbutton *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> * Caption = "\ PROCEDURE Click THISFORM.RELEASE ENDPROC ENDDEFINE DEFINE CLASS cmdtermin AS commandbutton *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> * Caption = "\ PROCEDURE Click IF TYPE("THISFORM.Parent") = "O" THISFORMSET.Release ELSE THISFORM.Release ENDIF ENDPROC ENDDEFINE DEFINE CLASS fatentie AS ffergen OF "ferestrebaza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> * AutoCenter = .T. BorderStyle = 2 ControlBox = .F. DoCreate = .T. Height = 108 Name = "fatentie" Width = 375 * ADD OBJECT 'Image1' AS image WITH ; Height = 32, ; Left = 24, ; Name = "Image1", ; Picture = ..\grafice\exclam1.ico, ; Top = 12, ; Width = 32, ; ZOrderSet = 1 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Label1' AS label WITH ; Caption = "Atentie!", ; FontBold = .T., ; FontSize = 12, ; Height = 24, ; Left = 64, ; Name = "Label1", ; Top = 21, ; Width = 60, ; ZOrderSet = 2 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Shape1' AS shape WITH ; Height = 90, ; Left = 3, ; Name = "Shape1", ; SpecialEffect = 0, ; Top = 9, ; Width = 367, ; ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> ENDDEFINE DEFINE CLASS ffergen 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="Line1" UniqueID="" Timestamp="" /> * AlwaysOnTop = .T. AutoCenter = .T. BorderStyle = 3 Caption = "" Closable = .F. ControlBox = .F. DoCreate = .T. Height = 500 Icon = ..\..\..\vfp\ MaxButton = .F. MinButton = .F. Movable = .F. Name = "ffergen" ShowTips = .T. Width = 800 WindowType = 1 * ADD OBJECT 'Line1' AS line WITH ; Height = 0, ; Left = 0, ; Name = "Line1", ; Top = 475, ; Visible = .F., ; Width = 516 *< END OBJECT: BaseClass="line" /> ENDDEFINE DEFINE CLASS labelmic AS label *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> * AutoSize = .T. BackStyle = 0 Caption = "Labelmic" ForeColor = 0,0,128 Height = 17 Name = "labelmic" Width = 53 ZOrderSet = 8 * ENDDEFINE DEFINE CLASS seip AS shape *< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" /> * BackStyle = 0 Height = 68 Name = "seip" SpecialEffect = 0 Width = 68 * ENDDEFINE DEFINE CLASS text AS atentie OF "ferestrebaza.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> * DoCreate = .T. Height = 102 Name = "text" Width = 401 Shape1.Height = 92 Shape1.Left = 4 Shape1.Name = "Shape1" Shape1.Top = 4 Shape1.Width = 392 Shape1.ZOrderSet = 1 IMAGE1.Height = 32 IMAGE1.Left = 24 IMAGE1.Name = "IMAGE1" IMAGE1.Picture = ..\grafice\net13.ico IMAGE1.Top = 29 IMAGE1.Width = 32 IMAGE1.ZOrderSet = 2 Label1.Left = 12 Label1.Name = "Label1" Label1.Top = 60 Label1.Visible = .F. Label1.ZOrderSet = 0 Line1.Name = "Line1" Label2.Alignment = 2 Label2.AutoSize = .F. Label2.FontSize = 10 Label2.Height = 18 Label2.Left = 60 Label2.Name = "Label2" Label2.Top = 18 Label2.Width = 324 Label2.ZOrderSet = 3 Cmdtermin1.Left = 158 Cmdtermin1.Name = "Cmdtermin1" Cmdtermin1.Top = 61 Cmdtermin1.ZOrderSet = 4 Label3.FontSize = 10 Label3.Height = 19 Label3.Left = 62 Label3.Name = "Label3" Label3.Top = 36 Label3.Visible = .T. Label3.Width = 321 Label3.ZOrderSet = 5 * ENDDEFINE DEFINE CLASS titlu AS label *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> * Alignment = 0 AutoSize = .T. Caption = "TITLU" FontBold = .T. FontName = "BankGothic Md BT" FontShadow = .F. FontSize = 12 ForeColor = 255,255,255 Height = 22 Name = "titlu" TabIndex = 21 Width = 52 ZOrderSet = 6 * ENDDEFINE