romfast/roastart
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roastart/Clase/ofundal_start.vc2
Marius Mutu b241a639b1 Import initial: surse ROASTART + text FoxBin2Prg in arbore 
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
2026-08-03 09:34:12 +03:00

1127 lines
26 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_start.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cmd_optiuni AS cmd_buton OF "..\..\comun\clase\_cmd_base.vcx"
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Caption = "Comanda"
FontBold = .T.
FontSize = 10
Height = 31
MousePointer = 15
Name = "cmd_optiuni"
SpecialEffect = 2
Width = 114
*</PropValue>
ENDDEFINE
DEFINE CLASS cw_grupfav AS _container OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Lb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_linie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine_grup" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_deselecteaza
*m: do_redimensioneaza
*m: do_selecteaza
*p: cclasa
*p: cprocedura
*p: cprogram
*p: lselectat
*p: lvcomun && .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
*p: nid_grup_prog && Id-ul grupului din care face parte programul.
*</DefinedPropArrayMethod>
*<PropValue>
BorderWidth = 0
cclasa =
cprocedura =
cprogram =
Height = 26
lselectat = .F.
lvcomun = .T.
MousePointer = 15
Name = "cw_grupfav"
nid_grup_prog = 0
Width = 305
*</PropValue>
ADD OBJECT '_linie' AS _linie WITH ;
BorderColor = 128,128,128, ;
Height = 26, ;
Left = 0, ;
Name = "_linie", ;
Top = 0, ;
Width = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />
ADD OBJECT 'Imagine_grup' AS imagine_grup WITH ;
Left = 4, ;
Name = "Imagine_grup", ;
Picture = ..\grafice\favorite.png, ;
picturedown = d:\contafin_oracle\roastart\grafice\favorite.png, ;
pictureup = d:\contafin_oracle\roastart\grafice\favorite2.png, ;
Top = 5
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="image" />
ADD OBJECT 'Lb_grup' AS lb_grup WITH ;
Caption = "Favorite", ;
cculoareactiv = RGB(163,146,17), ;
cculoareinactiv = RGB(128,128,17), ;
FontUnderline = .T., ;
Height = 17, ;
Left = 21, ;
Name = "Lb_grup", ;
Top = 4, ;
Width = 267, ;
WordWrap = .F.
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
PROCEDURE Click
This.Parent.Parent.Parent.afiseaza_programe(This.nid_grup_prog)
This.do_selecteaza()
ENDPROC
PROCEDURE do_deselecteaza
This.lselectat=.F.
This.MouseLeave
ENDPROC
PROCEDURE do_redimensioneaza
With This.lb_grup
lnLungimeMax=Txtwidth(.Caption,.FontName,.FontSize,[B])*Fontmetric(6,.FontName,.FontSize,[B])
.Height=Fontmetric(1,.FontName,.FontSize,[B])*Ceiling(lnLungimeMax/.Width)
.WordWrap=.T.
This.Height=.Height+.Top
Endwith
ENDPROC
PROCEDURE do_selecteaza
With This.Parent
For i=1 To .Objects.Count
If LIKE([CW_GRUP*],Upper(Alltrim(.Objects(i).Class)))
*!* If Upper(Alltrim(.Objects(i).Class))=[CW_GRUPPROG]
If .Objects(i).lselectat
.Objects(i).do_deselecteaza()
Exit
Endif
Endif
Endfor
Endwith
This.MouseEnter
This.lselectat=.T.
ENDPROC
PROCEDURE Init
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.lselectat
This.imAGINE_GRUP.MouseEnter
This.lb_grup.MouseEnter
Endif
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.lselectat
This.imAGINE_GRUP.MouseLeave
This.lb_grup.MouseLeave
Endif
ENDPROC
PROCEDURE Imagine_grup.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE Imagine_grup.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE Lb_grup.Click
This.Parent.Click
ENDPROC
PROCEDURE Lb_grup.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE Lb_grup.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE _linie.Click
this.Parent.click
ENDPROC
ENDDEFINE
DEFINE CLASS cw_grupprog AS _container OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Lb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_linie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_deselecteaza
*m: do_redimensioneaza
*m: do_selecteaza
*p: cclasa
*p: cprocedura
*p: cprogram
*p: lselectat
*p: lvcomun && .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
*p: nid_grup_prog && Id-ul grupului din care face parte programul.
*</DefinedPropArrayMethod>
*<PropValue>
BorderWidth = 0
cclasa =
cprocedura =
cprogram =
Height = 26
lselectat = .F.
lvcomun = .T.
MousePointer = 15
Name = "cw_grupprog"
nid_grup_prog = 0
Width = 305
*</PropValue>
ADD OBJECT '_linie' AS _linie WITH ;
BorderColor = 128,128,128, ;
Height = 26, ;
Left = 0, ;
Name = "_linie", ;
Top = 0, ;
Width = 0, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />
ADD OBJECT '_shape1' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 128,128,128, ;
Curvature = 25, ;
FillStyle = 1, ;
Height = 10, ;
Left = 5, ;
MousePointer = 15, ;
Name = "_shape1", ;
Top = 7, ;
Width = 10, ;
ZOrderSet = 2
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'Lb_grup' AS lb_grup WITH ;
cculoareactiv = RGB(0,0,128), ;
cculoareinactiv = RGB(128,128,128), ;
FontUnderline = .T., ;
Height = 17, ;
Left = 21, ;
Name = "Lb_grup", ;
Top = 4, ;
Width = 271, ;
WordWrap = .F., ;
ZOrderSet = 0
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
PROCEDURE Click
If !Empty(This.nid_grup_prog)
This.Parent.Parent.Parent.afiseaza_programe(This.nid_grup_prog)
This.do_selecteaza()
Endif
ENDPROC
PROCEDURE do_deselecteaza
This.lselectat=.F.
This._shape1.FillStyle= 1
This.MouseLeave
ENDPROC
PROCEDURE do_redimensioneaza
With This.lb_grup
lnLungimeMax=Txtwidth(.Caption,.FontName,.FontSize,[B])*Fontmetric(6,.FontName,.FontSize,[B])
.Height=Fontmetric(1,.FontName,.FontSize,[B])*Ceiling(lnLungimeMax/.Width)
.WordWrap=.T.
This.Height=.Height+.Top
Endwith
ENDPROC
PROCEDURE do_selecteaza
With This.Parent
For i=1 To .Objects.Count
If Like([CW_GRUP*],Upper(Alltrim(.Objects(i).Class)))
*!* If Upper(Alltrim(.Objects(i).Class))=[CW_GRUPPROG]
If .Objects(i).lselectat
.Objects(i).do_deselecteaza()
Exit
Endif
Endif
Endfor
Endwith
This.MouseEnter
This.lselectat=.T.
This._shape1.FillStyle= 0
ENDPROC
PROCEDURE Init
DoDefault()
lcCuloareFill=This.lb_grup.cculoareactiv
This._shape1.FillColor=&lcCuloareFill
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.lselectat
lcCuloareActiv=This.lb_grup.cculoareactiv
This._shape1.BorderColor=&lcCuloareActiv
This.lb_grup.MouseEnter
Endif
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.lselectat
lcCuloareInactiv=This.lb_grup.cculoareinactiv
This._shape1.BorderColor=&lcCuloareInactiv
This.lb_grup.MouseLeave
Endif
ENDPROC
PROCEDURE RightClick
If Type('this.parent.meniu')<>'U'
Local laMenu[2]
laMenu=""
laMenu[1]=[\<Adauga grup in Favorite]
laMenu[2]=[\<Sterge grup din Favorite]
This.Parent.meniu.showmenu(@laMenu)
Do Case
Case Bar()=1
adauga_grup_in_favorite(This.nid_grup_prog)
Case Bar()=2
sterge_grup_din_favorite(This.nid_grup_prog)
Endcase
Else
Return
Endif
ENDPROC
PROCEDURE Lb_grup.Click
This.Parent.Click
ENDPROC
PROCEDURE Lb_grup.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE Lb_grup.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
DoDefault()
Endif
ENDPROC
PROCEDURE Lb_grup.RightClick
This.Parent.RightClick
ENDPROC
PROCEDURE _linie.Click
this.Parent.click
ENDPROC
PROCEDURE _shape1.Click
this.Parent.click
ENDPROC
PROCEDURE _shape1.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
This.BorderWidth=2
Endif
ENDPROC
PROCEDURE _shape1.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lselectat
This.BorderWidth=1
Endif
ENDPROC
PROCEDURE _shape1.RightClick
This.Parent.RightClick
ENDPROC
ENDDEFINE
DEFINE CLASS cw_meniu AS _container OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_linie1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_linie2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_actelemente
*m: do_apasa
*p: cfontapasat
*p: lapasat
*p: lvcomun && .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 0,0,255
BackStyle = 0
BorderWidth = 0
cfontapasat = RGB(0,0,90)
Height = 26
lapasat = .F.
lvcomun = .F.
MousePointer = 15
Name = "cw_meniu"
Width = 160
*</PropValue>
ADD OBJECT '_linie1' AS _linie WITH ;
BorderColor = 255,255,255, ;
Height = 0, ;
Left = 0, ;
Name = "_linie1", ;
Top = 24, ;
Width = 160
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />
ADD OBJECT '_linie2' AS _linie WITH ;
BorderColor = 255,255,255, ;
Height = 22, ;
Left = 0, ;
Name = "_linie2", ;
Top = 2, ;
Width = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="line" />
ADD OBJECT '_shape1' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 255,255,255, ;
Curvature = 25, ;
FillColor = 255,255,255, ;
FillStyle = 1, ;
Height = 10, ;
Left = 8, ;
MousePointer = 15, ;
Name = "_shape1", ;
Top = 7, ;
Width = 10, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'Lb_meniu1' AS lb_meniu WITH ;
ForeColor = 255,255,255, ;
Height = 25, ;
Left = 30, ;
Name = "Lb_meniu1", ;
Top = 4, ;
Width = 91, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
PROCEDURE Click
This.lapasat=!This.lapasat
ENDPROC
PROCEDURE do_actelemente
This.lb_meniu1.FontBold=This.lapasat
This._shape1.BorderWidth=1
If This.lapasat
This.BackStyle=1
lcCuloareFont=This.cfontapasat
This.lb_meniu1.ForeColor=&lcCuloareFont
This._shape1.BorderColor=&lcCuloareFont
This._shape1.FillColor=&lcCuloareFont
This._shape1.FillStyle=0
Else
This.BackStyle=0
This.lb_meniu1.ForeColor=Rgb(255,255,255)
This._shape1.BorderColor=Rgb(255,255,255)
This._shape1.FillColor=Rgb(255,255,255)
This._shape1.FillStyle=1
Endif
ENDPROC
PROCEDURE do_apasa
This.lapasat=!This.lapasat
This.do_actelemente
ENDPROC
PROCEDURE Init
This.BackColor=Rgb(255,255,255)
If This.lapasat
This.do_actelemente
Endif
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
This._shape1.MouseEnter
This.lb_meniu1.MouseEnter
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
This._shape1.MouseLeave
This.lb_meniu1.MouseLeave
ENDPROC
PROCEDURE Lb_meniu1.Click
This.Parent.Click
ENDPROC
PROCEDURE Lb_meniu1.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lapasat
This.FontBold=.T.
Endif
ENDPROC
PROCEDURE Lb_meniu1.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lapasat
This.FontBold=.F.
Endif
ENDPROC
PROCEDURE _linie1.Click
this.Parent.click
ENDPROC
PROCEDURE _linie2.Click
this.Parent.click
ENDPROC
PROCEDURE _shape1.Click
this.Parent.click
ENDPROC
PROCEDURE _shape1.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lapasat
This.BorderWidth=2
Endif
ENDPROC
PROCEDURE _shape1.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
If !This.Parent.lapasat
This.BorderWidth=1
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS cw_optiuni AS _container OF "..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="lb_imagine" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_program" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_explicatie" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cclasa
*p: cprocedura
*p: cprogram
*p: lvcomun && .T. - daca optiunea este vizibila pentru toti utilizatori. .F. - doar pentru grupul de administratori.
*</DefinedPropArrayMethod>
*<PropValue>
BorderWidth = 0
cclasa =
cprocedura =
cprogram =
Height = 58
lvcomun = .F.
MousePointer = 15
Name = "cw_optiuni"
Width = 336
*</PropValue>
ADD OBJECT 'Lb_explicatie' AS lb_explicatie WITH ;
cculoareactiv = RGB(150,128,128), ;
cculoareinactiv = RGB(128,128,128), ;
Height = 17, ;
Left = 61, ;
Name = "Lb_explicatie", ;
Top = 31, ;
Width = 268
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
ADD OBJECT 'lb_imagine' AS _image WITH ;
Height = 48, ;
Left = 5, ;
MousePointer = 15, ;
Name = "lb_imagine", ;
Stretch = 2, ;
Top = 5, ;
Width = 48
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'Lb_program' AS lb_program WITH ;
cculoareactiv = RGB(150,0,128), ;
cculoareinactiv = RGB(0,0,128), ;
Height = 25, ;
Left = 61, ;
Name = "Lb_program", ;
Top = 9, ;
Width = 268
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
PROCEDURE Click
Do Case
Case !Empty(This.cprogram)
Try
lcComanda=This.cprogram
&lcComanda
Catch
aMessagebox("Programul "+This.lb_program.Caption+" nu este instalat pe server!",0+48,"Atentie")
Endtry
Case !Empty(This.cclasa)
Private loClasa
lcClasa=This.cclasa
loClasa=Createobject(lcClasa)
loClasa.Show(1)
Release loClasa
Case !Empty(This.cprocedura)
lcProcedura=This.cprocedura
*!* modificare v 2.0.29
*!* Do &lcProcedura
If At([.],lcProcedura) > 0
&lcProcedura
Else
Do &lcProcedura
Endif
*!* modificare v 2.0.29 ^
Endcase
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
This.lb_explicatie.MouseEnter
This.lb_program.MouseEnter
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
This.lb_explicatie.MouseLeave
This.lb_program.MouseLeave
ENDPROC
PROCEDURE Lb_explicatie.Click
this.Parent.click
ENDPROC
PROCEDURE lb_imagine.Click
this.Parent.click
ENDPROC
PROCEDURE Lb_program.Click
This.Parent.Click
ENDPROC
ENDDEFINE
DEFINE CLASS cw_programe AS _container OF "..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Lb_program" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_imagine" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_initializeaza && Initializeaza proprietatile containerului.
*p: cclasa
*p: cdirector
*p: cprocedura
*p: cprogram
*p: lvcomun && .T. - daca meniul este vizibil pentru toti utilizatori. .F. - doar pentru grupul de administratori.
*p: nid_grup_prog && Id-ul grupului din care face parte programul.
*p: nid_grup_prog_tata && Id-ul grupului din care face programul ( in caz ca e in Favorite ).
*p: nid_prog && Id-ul programului.
*</DefinedPropArrayMethod>
*<PropValue>
BorderWidth = 0
cclasa =
cdirector =
cprocedura =
cprogram =
Height = 58
lvcomun = .T.
MousePointer = 15
Name = "cw_programe"
nid_grup_prog = 0
nid_grup_prog_tata = 0
nid_prog = 0
Width = 307
*</PropValue>
ADD OBJECT 'lb_imagine' AS _image WITH ;
Height = 48, ;
Left = 5, ;
MousePointer = 15, ;
Name = "lb_imagine", ;
Stretch = 2, ;
Top = 5, ;
Width = 48, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'Lb_program' AS lb_program WITH ;
cculoareactiv = RGB(0,0,0), ;
cculoareinactiv = RGB(0,0,0), ;
FontBold = .F., ;
FontSize = 10, ;
FontUnderline = .F., ;
Height = 43, ;
Left = 61, ;
Name = "Lb_program", ;
Top = 8, ;
Width = 227, ;
WordWrap = .T., ;
ZOrderSet = 0
*< END OBJECT: ClassLib="ofundal_start.vcx" BaseClass="label" />
PROCEDURE Click
Do Case
Case !Empty(This.cprogram)
*!* Vasile Cristian 05.09.2007
Local loUpdate
loUpdate = Createobject("oUpdate",IIF(Reccount('crsserverinfo') = 0,[],Alltrim(crsserverinfo.Value)),This.Parent.Parent.txt_Mesaj,This.cdirector)
If Type('loUpdate') = 'O'
*!* lostart=This.Parent.Parent.txt_Mesaj
lbrun=.T.
*!* lbrun=loUpdate.updatecheck(This.cdirector,@lostart,.T.)
lbrun=loUpdate.updatecheck(This.cdirector,.T.,0)
Release loUpdate
Else
lbrun=.T.
Endif
If lbrun
If Like([*.htm],Lower(This.cprogram)) Or Like([*.html],Lower(This.cprogram))
open_default_app(This.cprogram)
Else
Try
lcComanda=This.cprogram
&lcComanda
Catch
aMessagebox("Programul "+This.lb_program.Caption+" nu este instalat pe server!",0+48,"Atentie")
Endtry
Endif
Endif
*!*old
Case !Empty(This.cclasa)
Private loClasa
lcClasa=This.cclasa
loClasa=Createobject(lcClasa)
loClasa.Show(1)
Release loClasa
Case !Empty(This.cprocedura)
lcProcedura=This.cprocedura
Do &lcProcedura
Endcase
ENDPROC
PROCEDURE do_initializeaza && Initializeaza proprietatile containerului.
Lparameters tcNumeProgram, tcDirector, tcImagine, tcComanda, tnIdProg, tnIdGrupProg, tnIdGrupProgTata
This.lb_program.Caption = tcNumeProgram
This.cdirector = tcDirector
This.lb_imagine.Picture = tcImagine
This.Visible = .T.
This.cprogram = tcComanda
This.nid_prog = tnIdProg
This.nid_grup_prog = tnIdGrupProg
This.nid_grup_prog_tata = Iif(Type('tnIdGrupProgTata')='N',tnIdGrupProgTata,tnIdGrupProg)
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
This.lb_program.MouseEnter
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
This.lb_program.MouseLeave
ENDPROC
PROCEDURE MouseWheel
Lparameters nDirection, nShift, nXCoord, nYCoord
If Upper(This.Parent.Class)=[_SCROLLCONTAINER]
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
Endif
ENDPROC
PROCEDURE RightClick
If This.nid_grup_prog=0
Local laMenu[1]
laMenu=""
laMenu[1]="\<Sterge din Favorite"
Do Case
Case Type('this.parent.meniu')<>'U'
This.Parent.meniu.showmenu(@laMenu)
Case Type('this.parent.parent.meniu')<>'U'
This.Parent.Parent.meniu.showmenu(@laMenu)
Otherwise
Return
Endcase
Do Case
Case Bar()=1
sterge_din_favorite(This.nid_grup_prog_tata,This.Name,This.nid_prog)
Endcase
Else
lcNumeContainerFav=[Application.Forms.Item(1).pgf_optiuni1.page1.scrollcont0.]+Alltrim(This.Name)
Local laMenu[2]
laMenu=""
laMenu[1]=Iif(Type(lcNumeContainerFav)='U',[\<Adauga in Favorite],[\Adauga in Favorite])
laMenu[2]=Iif(Type(lcNumeContainerFav)='U',[\Sterge din Favorite],[\<Sterge din Favorite])
Do Case
Case Type('this.parent.meniu')<>'U'
This.Parent.meniu.showmenu(@laMenu)
Case Type('this.parent.parent.meniu')<>'U'
This.Parent.Parent.meniu.showmenu(@laMenu)
Otherwise
Return
Endcase
llArataMesaj=.T. && arata mesaj daca programul exista deja in Favorite
Do Case
Case Bar()=1
adauga_in_favorite(This.Parent.Name,This.Name,This.nid_prog,llArataMesaj)
Case Bar()=2
sterge_din_favorite(This.nid_grup_prog_tata,This.Name,This.nid_prog)
Endcase
Endif
ENDPROC
PROCEDURE lb_imagine.Click
This.Parent.Click
ENDPROC
PROCEDURE lb_imagine.MouseWheel
Lparameters nDirection, nShift, nXCoord, nYCoord
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE lb_imagine.RightClick
This.Parent.RightClick
ENDPROC
PROCEDURE Lb_program.Click
This.Parent.Click
ENDPROC
PROCEDURE Lb_program.MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
DODEFAULT()
this.FontBold=.T.
this.FontUnderline=.T.
ENDPROC
PROCEDURE Lb_program.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
DODEFAULT()
this.FontBold=.F.
this.FontUnderline=.F.
ENDPROC
PROCEDURE Lb_program.MouseWheel
Lparameters nDirection, nShift, nXCoord, nYCoord
This.Parent.MouseWheel(nDirection, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE Lb_program.RightClick
This.Parent.RightClick
ENDPROC
ENDDEFINE
DEFINE CLASS imagine_grup AS _image OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: picturedown
*p: pictureup
*</DefinedPropArrayMethod>
*<PropValue>
Height = 15
Name = "imagine_grup"
Picture = ..\..\
Stretch = 2
Width = 15
*</PropValue>
PROCEDURE Click
this.Parent.click
ENDPROC
PROCEDURE Init
This.Picture=This.pictureup
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
This.MousePointer= 15
This.Picture=This.pictureDown
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
This.MousePointer= 1
This.Picture=This.pictureUp
ENDPROC
ENDDEFINE
DEFINE CLASS img_stanga AS _image OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 328
Name = "img_stanga"
Picture = ..\grafice\f2.jpg
Stretch = 2
Width = 187
*</PropValue>
ENDDEFINE
DEFINE CLASS lb_explicatie AS _lbbase OF "..\..\comun\clase\_lb_base.vcx"
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: cculoareactiv
*p: cculoareinactiv
*</DefinedPropArrayMethod>
*<PropValue>
AutoSize = .F.
Caption = "Explicatie"
cculoareactiv = RGB(0,0,0)
cculoareinactiv = RGB(0,0,0)
MousePointer = 15
Name = "lb_explicatie"
Width = 250
*</PropValue>
PROCEDURE Init
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareactiv
This.ForeColor=&lcProp
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
ENDPROC
ENDDEFINE
DEFINE CLASS lb_grup AS _lbbase OF "..\..\comun\clase\_lb_base.vcx"
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: cculoareactiv
*p: cculoareinactiv
*</DefinedPropArrayMethod>
*<PropValue>
AutoSize = .F.
Caption = "Grup"
cculoareactiv = RGB(0,0,0)
cculoareinactiv = RGB(0,0,0)
FontSize = 10
MousePointer = 15
Name = "lb_grup"
Width = 250
WordWrap = .T.
*</PropValue>
PROCEDURE Init
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareactiv
This.ForeColor=&lcProp
This.FontBold=.T.
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
This.FontBold=.F.
ENDPROC
ENDDEFINE
DEFINE CLASS lb_meniu AS _lbbase OF "..\..\comun\clase\_lb_base.vcx"
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
AutoSize = .F.
Caption = "Meniu"
FontSize = 10
Height = 19
MousePointer = 15
Name = "lb_meniu"
Width = 44
*</PropValue>
ENDDEFINE
DEFINE CLASS lb_program AS _lbbase OF "..\..\comun\clase\_lb_base.vcx"
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*p: cculoareactiv
*p: cculoareinactiv
*</DefinedPropArrayMethod>
*<PropValue>
AutoSize = .F.
Caption = "Program"
cculoareactiv = RGB(0,0,0)
cculoareinactiv = RGB(0,0,0)
FontBold = .T.
FontSize = 12
FontUnderline = .T.
Height = 25
MousePointer = 15
Name = "lb_program"
Width = 250
*</PropValue>
PROCEDURE Init
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
ENDPROC
PROCEDURE MouseEnter
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareactiv
This.ForeColor=&lcProp
ENDPROC
PROCEDURE MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
lcProp=This.cculoareinactiv
This.ForeColor=&lcProp
ENDPROC
ENDDEFINE
DEFINE CLASS pgf_optiuni AS _pfbase OF "..\comun\clase\_pf_base.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
ColorSource = 0
ErasePage = .T.
Height = 399
Name = "pgf_optiuni"
PageCount = 3
Tabs = .F.
Width = 602
Page1.BackColor = 255,255,255
Page1.Caption = "Page1"
Page1.Name = "Page1"
Page2.BackColor = 255,255,255
Page2.Caption = "Page2"
Page2.Name = "Page2"
Page3.BackColor = 255,255,255
Page3.Caption = "Page3"
Page3.Name = "Page3"
*</PropValue>
ENDDEFINE
DEFINE CLASS txt_mesaj AS _editbox OF "..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="editbox" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
BackStyle = 0
BorderStyle = 0
DisabledForeColor = 0,0,0
Enabled = .F.
FontName = "Verdana"
FontSize = 7
Height = 65
Name = "txt_mesaj"
ScrollBars = 0
TabStop = .F.
Themes = .F.
Width = 252
*</PropValue>
PROCEDURE ProgrammaticChange
Local lnLungime
lnLungime = Len(This.Value)
This.SelStart = Iif(Rat(Chr(13)+Chr(10),This.Value,1) = lnLungime - 1,lnLungime - 1,lnLungime)
This.Refresh()
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink