WPSpell and WPTools5

I have just started using WPSpell and have a couple of questions

1. If I click to start Spell Checking at the end of a document, I get a blank message. What does this mean and how can i go to the start of the document so it starts checking from the start?
2. Merge Fields are being checking - how can I stop this?

I tried looking up the spell help file (WPSPELL.HLP) but didn't explain what each property is meant to do. I also looked on the website but found nothing. Are there any other help files that I can download?

Hi,

1. If I click to start Spell Checking at the end of a document, I get a blank message. What does this mean and how can i go to the start of the document so it starts checking from the start?

Please open the file WPSpell_StdForm.pas and update this method:

[code]function TWPSpellForm.SpellCheck(AControl: TControl): Boolean;
var s : string;
begin
Result := NextWord;
if not Result then
begin
s := WPSpellLoadStr(tlblCompleteMesg);
if (MessageBox(Handle, PChar(s), '', MB_RETRYCANCEL)=ID_RETRY)
and (SpellInterface<nil>> 2. Merge Fields are being checking - how can I stop this?

This feature wiil be added to next release.

Julian Ziersch

Thanks Julian,

Is there anyway to skip Merge Fields from being included in the spell check?

Luke.

Hi,

Sorry,. forgot the quit. I meant "This feature wiil be added to next release. " according to the skip of fields..

Juliuan

Thanks Juliuan,

I think a bit of the changes to the code were missing? How should the current function look?

function TWPSpellForm.SpellCheck(AControl: TControl): Boolean;
var s : string;
begin
if NextWord then begin
Show;
edtReplace.SetFocus;
Result := TRUE;
end else begin
WPSpellLoadStr(tlblCompleteMesg);
MessageBox(Handle, PChar(s), '', 0);
Result := FALSE;
end;
end;

Cheers, Luke.

Any ideas Julian? Thanks.

Hi Julian, any chance of clearing up that code snippet?

Thanks, Luke.

Sorry, I forgot to check "Disable HTML"

function TWPSpellForm.SpellCheck(AControl: TControl): Boolean;
var s : string;
begin
   Result := NextWord;
   if not Result then
   begin
      s := WPSpellLoadStr(tlblCompleteMesg);
      if (MessageBox(Handle, PChar(s), '', MB_RETRYCANCEL)=ID_RETRY)
         and (SpellInterface<>nil) then
         begin
            SpellInterface.ToStart;
            Result := NextWord;
         end;
   end;
   if Result then
   begin
     Show;
     edtReplace.SetFocus;
   end;
end;