95 lines
2.6 KiB
Plaintext
95 lines
2.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_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>
|
|
DataSource = .NULL.
|
|
Height = 0
|
|
Left = 0
|
|
Name = "Dataenvironment"
|
|
Top = 0
|
|
Width = 0
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS form1 AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .T.
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
Caption = ""
|
|
Closable = .T.
|
|
ControlBox = .T.
|
|
DoCreate = .T.
|
|
Height = 288
|
|
Icon = ..\..\
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .T.
|
|
Name = "FORM1"
|
|
Width = 366
|
|
WindowType = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
BackColor = 205,205,205, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
Enabled = .T., ;
|
|
Height = 209, ;
|
|
Left = 24, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 70, ;
|
|
Width = 324
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
BackStyle = 1, ;
|
|
Height = 24, ;
|
|
Left = 24, ;
|
|
Name = "Image1", ;
|
|
Top = 9, ;
|
|
Width = 29
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Label1", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
Top = 42, ;
|
|
Width = 324
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
lcFileName = UPPER(JUSTSTEM(SYS(16,0)))
|
|
this.Caption = 'Despre ' + lcFileName
|
|
this.label1.Caption = lcFileName
|
|
this.edit1.Value = get_version(.F.,.T.)
|
|
IF !EMPTY(_screen.Icon)
|
|
this.image1.Picture = _screen.Icon
|
|
this.Icon = _screen.Icon
|
|
ELSE
|
|
this.image1.Visible = .F.
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|