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

IDE, SourceEditor: fix locking debugger, introduced in rev 28280 #4a7e55343e

Browse Source 
git-svn-id: trunk@28283 -
This commit is contained in:
martin 2010-11-17 01:51:27 +00:00
parent 353f8f3bab
commit bcfc277639
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/sourceeditor.pp
View File

@ -228,6 +228,7 @@ type
FErrorLine: integer;
FErrorColumn: integer;
FLineInfoNotification: TIDELineInfoNotification;
FInEditorChangedUpdating: Boolean;
FOnEditorChange: TNotifyEvent;
FVisible: Boolean;
@ -2337,6 +2338,8 @@ end;
constructor TSourceEditor.Create(AOwner: TComponent; AParent: TWinControl;
ASharedEditor: TSourceEditor = nil);
Begin
FInEditorChangedUpdating := False;
if ASharedEditor = nil then
FSharedValues := TSourceEditorSharedValues.Create
else
@ -2374,6 +2377,12 @@ end;
destructor TSourceEditor.Destroy;
begin
if FInEditorChangedUpdating then begin
debugln(['***** TSourceEditor.Destroy: FInEditorChangedUpdating was true']);
DebugBoss.UnLockCommandProcessing;
FInEditorChangedUpdating := False;
end;
if (FAOwner<>nil) and (FEditor<>nil) then begin
UnbindEditor;
FEditor.Visible:=false;
@ -4334,10 +4343,20 @@ end;
procedure TSourceEditor.EditorChangeUpdating(ASender: TObject; AnUpdating: Boolean);
begin
If AnUpdating then
DebugBoss.LockCommandProcessing
else
DebugBoss.UnLockCommandProcessing;
If AnUpdating then begin
//if FInEditorChangedUpdating then
// debugln(['***** TSourceEditor.EditorChangeUpdating: Updating=True, but FInEditorChangedUpdating was true already']);
if not FInEditorChangedUpdating then
DebugBoss.LockCommandProcessing;
FInEditorChangedUpdating := True;
end else
begin
//if not FInEditorChangedUpdating then
// debugln(['***** TSourceEditor.EditorChangeUpdating: Updating=False, but FInEditorChangedUpdating was false already']);
if FInEditorChangedUpdating then
DebugBoss.UnLockCommandProcessing;
FInEditorChangedUpdating := False;
end;
end;
Procedure TSourceEditor.EditorMouseMoved(Sender: TObject;