97 lines
2.5 KiB
Plaintext
97 lines
2.5 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
|
|
*</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 =
|
|
Picture = ..\..\
|
|
Width = 795
|
|
WindowState = 2
|
|
*</PropValue>
|
|
|
|
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 Show
|
|
Lparameters nStyle
|
|
Local c
|
|
*!* IF primadata
|
|
This.AlwaysOnBottom = .T.
|
|
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.
|
|
Do lansare_toolbar In oproceduri_comune.prg
|
|
Do lansare_help In oproceduri_comune.prg
|
|
oprinc=Crea('princ')
|
|
verifica_drepturi('oprinc','pagefr1')
|
|
*!* ENDIF
|
|
oprinc.Show()
|
|
ENDPROC
|
|
|
|
PROCEDURE statusbarclick
|
|
Thisform.oStatusBar.newtooltip()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|