156 lines
4.2 KiB
Plaintext
156 lines
4.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="about.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*<PropValue>
|
|
Name = "Dataenvironment"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS wzaboutdialog AS wzaboutdialog OF "..\clase\appwiz.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_version" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: dat
|
|
*p: timp
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
Closable = .T.
|
|
ControlBox = .T.
|
|
DoCreate = .T.
|
|
HalfHeightCaption = .T.
|
|
Height = 156
|
|
Icon = ..\grafice\mfix.ico
|
|
Name = "wzaboutdialog"
|
|
Width = 370
|
|
Shape1.BackStyle = 0
|
|
Shape1.Height = 135
|
|
Shape1.Left = 8
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 9
|
|
Shape1.Width = 352
|
|
Shape2.Name = "Shape2"
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 27
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 30
|
|
CMDTERMIN1.Left = 300
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 195
|
|
Image1.Name = "Image1"
|
|
Image1.Picture = ..\..\comun\grafice\iconite\imob2003.ico
|
|
Label2.BackStyle = 0
|
|
Label2.Name = "Label2"
|
|
Label1.BackStyle = 0
|
|
Label1.Caption = "Imob2003"
|
|
Label1.FontBold = .T.
|
|
Label1.FontItalic = .T.
|
|
Label1.FontSize = 12
|
|
Label1.Left = 168
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 27
|
|
Label3.BackStyle = 0
|
|
Label3.Name = "Label3"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image2' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 20, ;
|
|
Left = 25, ;
|
|
Name = "Image2", ;
|
|
Picture = ..\..\contab\grafice\siglaromfast.bmp, ;
|
|
Stretch = 2, ;
|
|
Top = 108, ;
|
|
Width = 108
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Image3' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 22, ;
|
|
Left = 265, ;
|
|
Name = "Image3", ;
|
|
Picture = ..\grafice\c.ico, ;
|
|
Stretch = 1, ;
|
|
Top = 25, ;
|
|
Width = 13
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Programul ", ;
|
|
Height = 17, ;
|
|
Left = 101, ;
|
|
Name = "Label5", ;
|
|
Top = 33, ;
|
|
Width = 67
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lb_version' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Ver.", ;
|
|
Height = 17, ;
|
|
Left = 149, ;
|
|
Name = "lb_version", ;
|
|
Top = 115, ;
|
|
Width = 23
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.dat", ;
|
|
Height = 20, ;
|
|
Left = 209, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 112, ;
|
|
Width = 68
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "thisform.timp", ;
|
|
Height = 20, ;
|
|
Left = 280, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 112, ;
|
|
Width = 104
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
thisform.dat=fdate('&dirgen\IMOB2003\IMOB2003.exe')
|
|
thisform.timp=ftime('&dirgen\IMOB2003\IMOB2003.exe')
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lb_version.Init
|
|
this.Caption = "ver. " + get_version()
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|