117 lines
2.7 KiB
Plaintext
117 lines
2.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|