ABC: Creating EditSpinClass for Edit in place 1999-01-09 -- Bob Gaucher Newsgroups: topspeed.products.c5ee
ADDING A NEW CLASS EDITSPINCLASS
Edit in Place has some very usefull features, EditDropClass,
EditCheckClass, etc. One that is not there is an Edit Spin
Class.
Here is how to add one.
Add to abeip.inc
EditSpinClass CLASS(EditClass),TYPE,MODULE('ABEIP.CLW'), |
LINK('ABEIP.CLW',_ABCLinkMode_) ,DLL(_ABCDllMode_)
CreateControl PROCEDURE,VIRTUAL,PROTECTED
SetAlerts PROCEDURE,VIRTUAL
END
Add to abeip.clw
EditSpinClass.CreateControl PROCEDURE
CODE
SELF.Feq = CREATE(0,CREATE:Spin) !This creates the control
EditSpinClass.SetAlerts PROCEDURE
CODE
SELF.Feq{PROP:Alrt,5} = '' ! The Edit Class Alerts the up and down arrows.
! Spin Class need them to spin.
SELF.Feq{PROP:Alrt,6} = ''
Embedd in EditSpinClass.Init Procedure after Parent Call
SELF.FEQ{PROP:RangeLow} = 1 ! This sets the low and high range of the spin box.
! Put in your own values.
SELF.FEQ{Prop:RangeHigh} = 999
That's it. Now you have an EditSpinClass that will show up
on the list of ABC classes.
Bob Gaucher
Ft Collins, CO
Printed May 2, 2024, 9:37 am This article has been viewed/printed 35118 times. Google search has resulted in 7 hits on this article since January 25, 2004. |