Thanks, Cetin,
Will play with it. Wow, I've had so many replies to my original posting,
it's great !
Michel.
================ Your original message follows ================
Hi Michel,
Couldn't locate my own class so made another class based on the suggestion of James Edgar
using a container.
**************************************************
*-- Class: mybutton (c:\temp\test.vcx)
*-- ParentClass: container
*-- BaseClass: container
*
DEFINE CLASS mybutton AS container
Width = 108
Height = 34
SpecialEffect = 0
Name = "mybutton"
ADD OBJECT image1 AS image WITH ;
Height = 21, ;
Left = 4, ;
Top = 5, ;
Width = 21, ;
Name = "Image1"
ADD OBJECT label1 AS label WITH ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = "Label1", ;
Height = 53, ;
Left = 27, ;
Top = 3, ;
Width = 69, ;
Name = "Label1"
PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nButton = 1
this.specialeffect = 0
this.visible = .f.
this.visible = .t.
endif
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nButton = 1
this.specialeffect = 1
this.visible = .f.
this.visible = .t.
endif
ENDPROC
PROCEDURE Click
*
* Placeholder - to make click event snippet open when dblclicked in designer
ENDPROC
PROCEDURE image1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.mouseup(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE image1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.mousedown(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE image1.Click
this.parent.click
ENDPROC
PROCEDURE label1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.mouseup(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE label1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.mousedown(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE label1.Click
this.parent.click
ENDPROC
ENDDEFINE
*
*-- EndDefine: mybutton
**************************************************
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement