paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 09:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix SynCompletion from un-setting eoPersistenCaret. Issue #17288

Browse Source 
git-svn-id: trunk@27215 -
This commit is contained in:
martin 2010-08-27 22:31:27 +00:00
parent 3e3bcedcc2
commit 647bcccde4
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/syncompletion.pas
View File

@ -193,7 +193,7 @@ type
TSynBaseCompletion = class(TComponent)
private
Form: TSynBaseCompletionForm;
OldPersistentCaret: boolean;
FAddedPersistentCaret: boolean;
FOnExecute: TNotifyEvent;
FWidth: Integer;
function GetCaseSensitive: boolean;
@ -978,8 +978,11 @@ procedure TSynBaseCompletion.Execute(s: string; x, y: integer);
var
CurSynEdit: TSynEdit;
begin
//writeln('');
//writeln('TSynBaseCompletion.Execute ',Form.CurrentEditor.Name);
//Todo: This is dangerous, if other plugins also change/changed the flag.
FAddedPersistentCaret := False;
CurrentString := s;
if Assigned(OnExecute) then
OnExecute(Self);
@ -994,8 +997,9 @@ begin
if (Form.CurrentEditor is TSynEdit) then begin
CurSynEdit:=TSynEdit(Form.CurrentEditor);
OldPersistentCaret:=eoPersistentCaret in CurSynEdit.Options;
CurSynEdit.Options:=CurSynEdit.Options+[eoPersistentCaret];
FAddedPersistentCaret := not(eoPersistentCaret in CurSynEdit.Options);
if FAddedPersistentCaret then
CurSynEdit.Options:=CurSynEdit.Options+[eoPersistentCaret];
end;
Form.SetBounds(x,y,Form.Width,Form.Height);
Form.Show;
@ -1165,8 +1169,9 @@ procedure TSynBaseCompletion.Deactivate;
var
CurSynEdit: TSynEdit;
begin
if (not OldPersistentCaret)
and (Form<>nil) and (Form.CurrentEditor is TSynEdit) then begin
if FAddedPersistentCaret and
(Form<>nil) and (Form.CurrentEditor is TSynEdit)
then begin
CurSynEdit:=TSynEdit(Form.CurrentEditor);
CurSynEdit.Options:=CurSynEdit.Options-[eoPersistentCaret];
end;