RE: Add button won't enable

[address@hidden]

On 28 Jul 2003 at 23:25, Glenn Crouch wrote:

> > Let's start with common ground - take the Addict 3 / WPTools

> > 4 Demo from our website - the one that uses components.

>

> You are also more than welcome to take the above demo, make changes that

> then demonstrates the problem, zip it up and email it to us direct (not to

> the list) - this would help us identify the problem :)

>

Glenn,

It strikes me that this sounds a lot like this bug (an LiveOptionMenu bug) that I uncovered when trying to solve Terminal Server problems (May or May Not Be, but thought I'd throw it out there in case it helps):

> Hello George,

>

> > The way I read the help and documentation is that if I set

> > LiveMenuOptions, spDialog = false, then that menu item should not

> > appear.  However, in all of the above projects I changed it's value

> > from true to false, and when I run it is still putting

> > 'Spelling...' in the

> > drop-down menu.

>

> You've found a bug...  (or at least an omission on our part).  The property

> is there on the control and is there on the subclass component (what

> actually does the live-spelling), but the "hook up" assignment is missing.

>

>        Subclass.LiveMenuOptions        :=  FLiveMenuOptions;

>

> This should be added to the following function (pasted with the line already

> added) in ad3LiveAutoSpell.pas.

>

> procedure TAddictAutoLiveSpell.UpdateControlState;

> var

>     Index       :Integer;

>     HasFocus    :Boolean;

>     Subclass    :TAddictRichEditSubclass;

> begin

>     for Index := 0 to FSubclassList.Count - 1 do

>     begin

>         Subclass    := TAddictRichEditSubclass(FSubclassList[Index]);

>         HasFocus    := (Subclass.WinControl = FLastFocusControl);

>

>         Subclass.LiveSpelling           :=  FLiveEnabled and

>                                             ((not FFocusedOnly) or

> HasFocus);

>         Subclass.LiveCorrect            :=  FCorrectEnabled and

>                                             ((not FFocusedOnly) or

> HasFocus);

>         Subclass.DoubleBuffered         :=  FDoubleBuffered;

>         Subclass.LiveSpellingColor      :=  FLiveColor;

>         Subclass.LiveSpellingReadOnly   :=  FLiveReadOnly;

>         Subclass.ExpansionChars         :=  FExpansionChars;

>         Subclass.IrregularLineHeights   :=  FIrregularLineHeights;

>         Subclass.IrregularLeftMargin    :=  FIrregularLeftMargin;

>         Subclass.AggressiveContextMenu  :=  FAggressiveContextMenu;

>         Subclass.LiveMenuOptions        :=  FLiveMenuOptions;

>

>         Subclass.OnBeginEditing         :=  FOnBeginEditing;

>         Subclass.OnWordCheck            :=  FOnWordCheck;

>     end;

> end;

>

> You will then, of course, have to re-build your package in the same manner

> you've done already.

>

>

> Thanks,

>

> Michael Novak

> Addictive Software

> http://www.addictivesoftware.com

> mailto:address@hidden

--

George Boutwell,

Programmer II - Valley Hope Association

address@hidden