[Lazarus] Problem with syncompletion.pas / update SVN

Martin lazarus at mfriebe.de
Wed Aug 5 01:48:38 CEST 2009


Zaher Dirkey wrote:
> syncompletion.pas in synedit component
>
> 1 -
> in TSynBaseCompletionForm class
>
> What for
>
> FAnsi: boolean;
> property ffAnsi: boolean read fansi write fansi;
>
> 2 -same for TSynBaseCompletion
>
>     RFAnsi: boolean;
>     SFAnsi: boolean;
>
>     property AnsiStrings: boolean read SFAnsi write RFAnsi;
>   
Replaced with CaseSensitive



> 3 - The Auto Complete in TSynCompletion not worked fine with me, it is
> just 2 char and then stop search for the keyword, after that pressing
> Enter not close the AutoComplete
>   
I fixed the issue with Enter (SVN revision 21100)

You can assign your own search in OnSearchPosition

example see ide/sourceeditor.pp  line 3492

> --------
> procedure TMainForm.LoadCompletion;
>   procedure FillNow(Name: string; SchemaItems: TmncSchemaItems);
>   var
>     i: Integer;
>   begin
>     for i := 0 to SchemaItems.Count - 1 do
>       Completion.ItemList.Add(SchemaItems[i].Name);
>   end;
> begin
>   //Completion.AddEditor(SQLEdit);
>   Completion.Editor := SQLEdit;
>   Completion.EndOfTokenChr := Completion.EndOfTokenChr + #13;
>   Completion.TheForm.Font.Assign(SQLEdit.Font);
>   //Completion.CaseSensitive := True;
>   EnumerateKeywords(Ord(tkDatatype), SqliteTypes, SQLEdit.IdentChars,
> @DoAddKeyword);
>   FillNow('Table', sqlvEngine.Session.Tables);
> --------------
>
> Thanks
>
>   





More information about the Lazarus mailing list