*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
		*p: _memberdata
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnBottom = .T.
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 0
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Enabled = .T.
		FillColor = 0,0,0
		HalfHeightCaption = .F.
		Height = 500
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "Form1"
		ostatusbar = .NULL.
		Picture = ..\..\
		ShowTips = .T.
		Width = 750
		WindowState = 0
		_memberdata = <VFPData>
			<memberdata name="ostatusbar" type="property" display="oStatusBar"/>
		</VFPData>
	*</PropValue>
	
	PROCEDURE Activate
		Local c
		If primadata
			If Not Pemstatus(_Screen,"StatusBar", 5) Then
				_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2)
			Endif
			Thisform.oStatusBar = _Screen.StatusBar
			Thisform.oStatusBar.ctlIcon="roastartmic.ico"
			Thisform.oStatusBar.ctlMessage = _Screen.Caption
			Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
		
			Do start_firma In ostartfirma.prg
			primadata = .F.
			oprinc=Crea('princ')
			verifica_drepturi('oprinc','pagefr1')
			oprinc.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
			oprinc.lb_utilizator1.Visible=.T.
		Endif
		
		
		primadata=.F.
		oprinc.Show()
		
		DO lansare_toolbar IN oproceduri_comune.prg
		DO lansare_help IN oproceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Init
		
		
	ENDPROC

	PROCEDURE jurnal
	ENDPROC

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

	PROCEDURE RightClick
		DO start_firma IN ostartfirma.prg 
		verifica_drepturi('oprinc','pagefr1')
			
		
	ENDPROC

	PROCEDURE statusbarclick
		Thisform.oStatusBar.newtooltip()
	ENDPROC

ENDDEFINE