178 lines
5.4 KiB
Plaintext
178 lines
5.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="_cmd_base.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS _cmdbase AS _commandbutton OF "_baza.vcx"
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Name = "_butoanebase"
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS buton AS _cmdbase OF "_cmd_base.vcx"
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: caction
|
|
*p: clistaparametri && Nu se pun ghilimele la inceputul si la sfarsitul listei pentru ca sunt tratate cazurile in care clistaparametri are tipurile N, C sau L.
|
|
*p: cpicturedown
|
|
*p: cpictureup
|
|
*p: lvizibil && .F. daca butonul nu este vizibil , .T. daca butonul este vizibil (in functie de drepturi). Proprietatea ptr. butoanele care au visible=.F. default.
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
caction =
|
|
Caption = ""
|
|
clistaparametri =
|
|
cpicturedown =
|
|
cpictureup =
|
|
Height = 27
|
|
lvizibil = .T.
|
|
Name = "buton"
|
|
SpecialEffect = 1
|
|
Width = 30
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
Local lcAction, lcCommand, lcListaParametri
|
|
lcAction = This.cAction
|
|
If !Empty(This.clistaparametri)
|
|
Do Case
|
|
Case Type('This.clistaparametri')='N'
|
|
lcListaParametri = Alltrim(Str(This.clistaparametri))
|
|
Case Type('This.clistaparametri')='L'
|
|
lcListaParametri = Iif(This.clistaparametri,[.T.],[.F.])
|
|
*!* case Type('This.clistaparametri')='D'
|
|
*!* lcListaParametri = DTOC(This.clistaparametri)
|
|
*!* case Type('This.clistaparametri')='T'
|
|
*!* lcListaParametri = TTOC(This.clistaparametri)
|
|
Case Type('This.clistaparametri')='C'
|
|
lcListaParametri = Alltrim(This.clistaparametri)
|
|
Otherwise
|
|
lcListaParametri = []
|
|
Endcase
|
|
lcListaParametri = [(] + lcListaParametri + [)]
|
|
Else
|
|
lcListaParametri = [()]
|
|
Endif
|
|
If Empty(lcAction)
|
|
Return
|
|
Endif
|
|
If Type('this.parent') = 'O' And Pemstatus(This.Parent,lcAction,5)
|
|
lcCommand = [this.Parent.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Else
|
|
If Type('this.parent.PARENT') = 'O' And Pemstatus(This.Parent.Parent,lcAction,5)
|
|
lcCommand = [this.Parent.Parent.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Else
|
|
If Pemstatus(Thisform,lcAction,5)
|
|
lcCommand = [thisform.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Endif
|
|
Endif
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
this.Picture = this.cPictureup
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseEnter
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture = this.cPictureDown
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture = this.cPictureUp
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cmd_buton AS _cmdbase OF "_cmd_base.vcx"
|
|
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: caction
|
|
*p: clistaparametri && Nu se pun ghilimele la inceputul si la sfarsitul listei pentru ca sunt tratate cazurile in care clistaparametri are tipurile N, C sau L.
|
|
*p: cpicturedown
|
|
*p: cpictureup
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
caction =
|
|
Caption = ""
|
|
clistaparametri =
|
|
cpicturedown =
|
|
cpictureup =
|
|
Name = "cmd_buton"
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
Local lcAction, lcCommand, lcListaParametri
|
|
lcAction = This.cAction
|
|
If !Empty(This.clistaparametri)
|
|
Do Case
|
|
Case Type('This.clistaparametri')='N'
|
|
lcListaParametri = Alltrim(Str(This.clistaparametri))
|
|
Case Type('This.clistaparametri')='L'
|
|
lcListaParametri = Iif(This.clistaparametri,[.T.],[.F.])
|
|
*!* case Type('This.clistaparametri')='D'
|
|
*!* lcListaParametri = DTOC(This.clistaparametri)
|
|
*!* case Type('This.clistaparametri')='T'
|
|
*!* lcListaParametri = TTOC(This.clistaparametri)
|
|
Case Type('This.clistaparametri')='C'
|
|
lcListaParametri = Alltrim(This.clistaparametri)
|
|
Otherwise
|
|
lcListaParametri = []
|
|
Endcase
|
|
lcListaParametri = [(] + lcListaParametri + [)]
|
|
Else
|
|
lcListaParametri = [()]
|
|
Endif
|
|
If Empty(lcAction)
|
|
Return
|
|
Endif
|
|
If Type('this.parent') = 'O' And Pemstatus(This.Parent,lcAction,5)
|
|
lcCommand = [this.Parent.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Else
|
|
If Type('this.parent.PARENT') = 'O' And Pemstatus(This.Parent.Parent,lcAction,5)
|
|
lcCommand = [this.Parent.Parent.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Else
|
|
If Pemstatus(Thisform,lcAction,5)
|
|
lcCommand = [thisform.] + lcAction + lcListaParametri
|
|
&lcCommand
|
|
Endif
|
|
Endif
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
this.Picture = this.cPictureup
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseEnter
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture = this.cPictureDown
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
this.Picture = this.cPictureUp
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|