Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
320
Clase/ferestrebaza.vc2
Normal file
320
Clase/ferestrebaza.vc2
Normal file
@@ -0,0 +1,320 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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="" />
|
||||
|
||||
*<PropValue>
|
||||
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"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "\<OK", ;
|
||||
Height = 24, ;
|
||||
Left = 158, ;
|
||||
Name = "CMDTERMIN1", ;
|
||||
Top = 66, ;
|
||||
Width = 84
|
||||
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
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="" />
|
||||
|
||||
*<PropValue>
|
||||
Caption = "\<RENUNT"
|
||||
FontBold = .T.
|
||||
ForeColor = 255,0,0
|
||||
Height = 27
|
||||
Name = "cmdrenunt"
|
||||
Width = 84
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Click
|
||||
THISFORM.RELEASE
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS cmdtermin AS commandbutton
|
||||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Caption = "\<TERMINAT"
|
||||
FontBold = .T.
|
||||
FontOutline = .F.
|
||||
FontShadow = .F.
|
||||
ForeColor = 0,0,255
|
||||
Height = 27
|
||||
Name = "cmdtermin"
|
||||
Width = 84
|
||||
*</PropValue>
|
||||
|
||||
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="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BorderStyle = 2
|
||||
ControlBox = .F.
|
||||
DoCreate = .T.
|
||||
Height = 108
|
||||
Name = "fatentie"
|
||||
Width = 375
|
||||
*</PropValue>
|
||||
|
||||
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="" />
|
||||
|
||||
*<PropValue>
|
||||
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
|
||||
*</PropValue>
|
||||
|
||||
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="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoSize = .T.
|
||||
BackStyle = 0
|
||||
Caption = "Labelmic"
|
||||
ForeColor = 0,0,128
|
||||
Height = 17
|
||||
Name = "labelmic"
|
||||
Width = 53
|
||||
ZOrderSet = 8
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS seip AS shape
|
||||
*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
BackStyle = 0
|
||||
Height = 68
|
||||
Name = "seip"
|
||||
SpecialEffect = 0
|
||||
Width = 68
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS text AS atentie OF "ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
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
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS titlu AS label
|
||||
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
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
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user