sync SVN r18058
This commit is contained in:
251
Ferestre/Copy of fundal.sc2
Normal file
251
Ferestre/Copy of fundal.sc2
Normal file
@@ -0,0 +1,251 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="copy of 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="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: jurnal
|
||||
*</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 = 450
|
||||
MaxButton = .F.
|
||||
MinButton = .F.
|
||||
Movable = .F.
|
||||
Name = "Form1"
|
||||
Picture = ..\..\
|
||||
ShowTips = .T.
|
||||
Width = 797
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
||||
ErasePage = .T., ;
|
||||
Height = 396, ;
|
||||
Left = -2, ;
|
||||
Name = "_pgfrmbase1", ;
|
||||
Top = 60, ;
|
||||
Width = 489, ;
|
||||
Page1.Cw1.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw1.Name = "Cw1", ;
|
||||
Page1.Cw6.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw6.Name = "Cw6", ;
|
||||
Page1.Cw7.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw7.Name = "Cw7", ;
|
||||
Page1.Cw9.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw9.Name = "Cw9", ;
|
||||
Page1.Name = "Page1", ;
|
||||
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||||
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
|
||||
Page1.Pict_meniu1.Picture = ..\grafice\f2.jpg, ;
|
||||
Page2.Name = "Page2", ;
|
||||
Page2.Pict_meniu1.Name = "Pict_meniu1"
|
||||
*< END OBJECT: ClassLib="..\clase\ofundal_preturi.vcx" BaseClass="pageframe" />
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
Height = 220, ;
|
||||
Left = 228, ;
|
||||
Name = "Image1", ;
|
||||
Picture = ..\grafice\roapreturi.bmp, ;
|
||||
Stretch = 0, ;
|
||||
Top = 205, ;
|
||||
Width = 556
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Image2' AS image WITH ;
|
||||
Height = 63, ;
|
||||
Left = -11, ;
|
||||
Name = "Image2", ;
|
||||
Picture = ..\grafice\f1.jpg, ;
|
||||
Stretch = 2, ;
|
||||
Top = -1, ;
|
||||
Width = 851
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label1", ;
|
||||
Top = 381, ;
|
||||
Width = 53
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Nivel de acces:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label2", ;
|
||||
Top = 401, ;
|
||||
Width = 85
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||||
Anchor = 4, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Left = 149, ;
|
||||
Name = "lb_utilizator", ;
|
||||
Top = 379
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||||
Anchor = 4, ;
|
||||
Caption = "nume_utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Left = 203, ;
|
||||
Name = "lb_utilizator1", ;
|
||||
Top = 379, ;
|
||||
Visible = .F.
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 62, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 380, ;
|
||||
Width = 147
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "m.nivel", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 93, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 400, ;
|
||||
Width = 28
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Activate
|
||||
Local lnScrH,lnScrW
|
||||
lnScrW = _Screen.Width
|
||||
lnScrH = _Screen.Height
|
||||
|
||||
Thisform.image1.Top = lnScrH - Thisform.image1.Height - 50
|
||||
Thisform.image1.Left = lnScrW - Thisform.image1.Width - 30
|
||||
Thisform.image2.Width = lnScrW + 30
|
||||
Thisform._pgfrmbase1.Width = lnScrW
|
||||
Thisform._pgfrmbase1.Height = Thisform.Height-Thisform.image2.Height
|
||||
Thisform._pgfrmbase1.page1.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
||||
Thisform._pgfrmbase1.page2.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
|
||||
|
||||
If primadata
|
||||
primadata = .F.
|
||||
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi2('gofundal','_pgfrmbase1')
|
||||
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
||||
Thisform.lb_utilizator1.Visible=.T.
|
||||
|
||||
Endif
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE jurnal
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE KeyPress
|
||||
Lparameters nKeyCode, nShiftAltCtrl
|
||||
If nKeyCode==-1 &&F2
|
||||
Quit
|
||||
Endif
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE RightClick
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi2('gofundal','_pgfrmbase1')
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Image1.RightClick
|
||||
thisform.rightclick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator.RightClick
|
||||
thisform.rightclick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator1.RightClick
|
||||
thisform.rightclick
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page1.RightClick
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi2('gofundal','_pgfrmbase1')
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page2.RightClick
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi2('gofundal','_pgfrmbase1')
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user