Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
177
clase/_cmd_base.vc2
Normal file
177
clase/_cmd_base.vc2
Normal file
@@ -0,0 +1,177 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
|
||||
Reference in New Issue
Block a user