*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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