*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.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 = 200
		Left = 1
		Name = "Dataenvironment"
		Top = 220
		Width = 520
	*</PropValue>

ENDDEFINE

DEFINE CLASS form1 AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: jurnal
		*m: statusbarclick
		*p: ostatusbar
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 2
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Enabled = .T.
		FillColor = 0,0,0
		HalfHeightCaption = .F.
		Height = 595
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "Form1"
		ostatusbar = .F.
		Picture = ..\..\
		Width = 795
		WindowState = 2
	*</PropValue>
	
	PROCEDURE jurnal
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		if nkeycode==-1  &&F2
			DO IESIRE
		endif
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		DoDefault(nStyle)
		
		*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
		*!* Trebuie adaugata o proprietate  OstatusBar la forma
		*!* si o metoda statusbarclik care sa contina comanda 
		*!* Thisform.oStatusBar.newtooltip()
		*!*
		If Not Pemstatus(_Screen,"StatusBar", 5) Then
		*!* 31.01.2008 TEST FARA STATUSBAR
		*!*	_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
			_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)	
		*!* 31.01.2008 TEST FARA STATUSBAR ^
		ENDIF
		Thisform.oStatusBar = _Screen.StatusBar
		Thisform.oStatusBar.ctlIcon="roastartmic.ico"
		Thisform.oStatusBar.ctlMessage = _Screen.Caption
		BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
		*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
		*!*
		
		
		Do start_firma In ostartfirma.prg
		primadata = .F.
		This.AlwaysOnBottom = .T.
		Do lansare_toolbar In oproceduri_comune.prg
		DO lansare_help IN oproceduri_comune.prg
		oprinc=Createobject('princ')
		oprinc.Show()
		*!*	oprinc.pagefr1.p1.click()
		
		
	ENDPROC

	PROCEDURE statusbarclick
		*MESSAGEBOX(_Screen.ActiveForm.name)
		Thisform.oStatusBar.newtooltip()
		
	ENDPROC

ENDDEFINE
