Hi,
I am trying to get the Find/Replace SynEdit example on my form, but I keep getting this error.
One difference between my form and SynEdit example... is I am doing away with the FFRame and put the find Fields directly on my main form
function GetOptions:TSynSearchOptions;
err = Identifier not found
uses
LCLType, LCLIntf, Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
Menus, ExtCtrls, StdCtrls, Buttons, SynEdit, PrintersDlgs, ShellApi, Clipbrd,
ActnList, SourcePrinter, LConvEncoding,StdActns,FileUtil, SynHighlighterPas, ComCtrls
private
FBackwards :Boolean;
FOnCloseFrame :TNotifyEvent;
FOnAfterSearch :TOnAfterSearch;
FSynedit :TSynEdit;
FInCheckBoxChange :Boolean;
function GetOptions :TSynSearchOptions; <<-- ERROR
procedure DoSearch;
function TForm2.GetOptions :TSynSearchOptions;
begin
Result := [ssoFindContinue];
if actWholeScope.Checked then Result := [ssoEntireScope];
if actSelectOnly.Checked then Result := [ssoSelectedOnly];
if actCaseSensitive.Checked then Result := Result+[ssoMatchCase];
if actWholeWords.Checked then Result := Result+[ssoWholeWord];
if FBackwards then Result := Result+[ssoBackwards];
if cbReplace.Checked then begin
Result := Result+[ssoReplace];
if actReplaceAll.Checked then Result := Result+[ssoReplaceAll];
if actPromptOnReplace.Checked then Result := Result+[ssoPrompt];
end;
end;
I have gone over every part of the sample code and cannot see what I am missing.
Why am I gettings this?