77 lines
2.3 KiB
Plaintext
77 lines
2.3 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_changelog.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS _frmbase1 AS _frmbase OF "..\clase\_frm_base.vcx"
|
|
*< 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="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: cchangelog
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
cchangelog =
|
|
DoCreate = .T.
|
|
FontCharSet = 238
|
|
Height = 250
|
|
Name = "_frmbase1"
|
|
Width = 375
|
|
_shape1.Anchor = 10
|
|
_shape1.Name = "_shape1"
|
|
_shape2.Anchor = 8
|
|
_shape2.Height = 29
|
|
_shape2.Left = 340
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 36
|
|
Lb_titlu_alb_b121.Caption = "Jurnal modificãri"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Left = 344
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
Anchor = 15, ;
|
|
ControlSource = "thisform.cChangeLog", ;
|
|
FontSize = 12, ;
|
|
Height = 204, ;
|
|
Left = 12, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 36, ;
|
|
Width = 348
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
PROCEDURE Init
|
|
this.WindowState = 2
|
|
lcAppName = gcAppName
|
|
lcFile = ADDBS(gcAppPath) + 'changelog_' + lcAppName + '.txt'
|
|
IF FILE(lcFile)
|
|
thisform.cChangeLog = FILETOSTR(lcFile)
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
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
|