*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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