paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynCompletion: avoid possible crash ./ fix app.Deactivate

Browse Source 
git-svn-id: trunk@26596 -
This commit is contained in:
martin 2010-07-11 13:29:03 +00:00
parent cd02fc8a59
commit 8db9286b37
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/syncompletion.pas
View File

@ -43,8 +43,7 @@ interface
uses
LCLProc, LCLIntf, LCLType, SynEditMiscProcs,
Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls, Menus,
SysUtils, SynEditKeyCmds, SynEditHighlighter,
SynEdit;
SysUtils, SynEditKeyCmds, SynEdit;
type
TSynBaseCompletionPaintItem =
@ -123,6 +122,7 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure Paint; override;
procedure AppDeactivated(Sender: TObject); // Because Form.Deactrivate isn't called
procedure Deactivate; override;
procedure SelectPrec;
procedure SelectNext;
@ -670,6 +670,11 @@ begin
Canvas.LineTo(0, 0);
end;
procedure TSynBaseCompletionForm.AppDeactivated(Sender: TObject);
begin
Deactivate;
end;
procedure TSynBaseCompletionForm.ScrollChange(Sender: TObject);
begin
if Position < Scroll.Position then
@ -835,6 +840,7 @@ end;
procedure TSynBaseCompletionForm.SetVisible(Value: Boolean);
begin
if Visible = Value then exit;;
inherited SetVisible(Value);
if (fCurrentEditor <> nil) then begin
if Visible then
@ -842,6 +848,10 @@ begin
else
TSynEdit(fCurrentEditor).UnRegisterStatusChangedHandler({$IFDEF FPC}@{$ENDIF}EditorStatusChanged);
end;
if Value then
Application.AddOnDeactivateHandler({$IFDEF FPC}@{$ENDIF}AppDeactivated)
else
Application.RemoveOnDeactivateHandler({$IFDEF FPC}@{$ENDIF}AppDeactivated);
end;
procedure TSynBaseCompletionForm.SetItemList(const Value: TStrings);