[Lazarus] Problem with syncompletion.pas / update SVN

Martin lazarus at mfriebe.de
Wed Aug 5 02:14:05 CEST 2009


Zaher Dirkey wrote:
> syncompletion.pas in synedit component
>
>
> 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
>   
Search should work better now. Keystrokes where handled twice (utf8 and 
plain). The searchstring therefore contained every char twice, so it 
couldn't be found.


> --------
> 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