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

Debugger, IDE, SourceEdit: When SynEdit is in Paintlock, make sure the debugger is not doing processmessages

Browse Source 
git-svn-id: trunk@42669 -
This commit is contained in:
martin 2013-09-07 17:00:35 +00:00
parent fded846863
commit 59d1dc53d2
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/sourcesyneditor.pas
View File

@ -47,8 +47,8 @@ uses
LazSynIMM,
{$ENDIF}
Classes, SysUtils, Controls, LCLProc, LCLType, Graphics, Menus, math, LazarusIDEStrConsts,
SynEdit, SynEditMiscClasses, SynGutter, SynGutterBase, SynEditMarks, SynEditTypes,
SynGutterLineNumber, SynGutterCodeFolding, SynGutterMarks, SynGutterChanges,
SynEdit, SynEditMiscClasses, SynGutter, SynGutterBase, SynEditMarks,
SynEditTypes, SynGutterLineNumber, SynGutterCodeFolding, SynGutterMarks, SynGutterChanges,
SynGutterLineOverview, SynEditMarkup, SynEditMarkupGutterMark, SynEditMarkupSpecialLine,
SynEditTextBuffer, SynEditFoldedView, SynTextDrawer, SynEditTextBase, LazSynEditText,
SynPluginTemplateEdit, SynPluginSyncroEdit, LazSynTextArea, SynEditHighlighter,
@ -239,6 +239,7 @@ type
function CreateGutter(AOwner : TSynEditBase; ASide: TSynGutterSide;
ATextDrawer: TheTextDrawer): TSynGutter; override;
procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
procedure SetUpdateState(NewUpdating: Boolean; Sender: TObject); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -448,7 +449,7 @@ type
implementation
uses SourceMarks;
uses SourceMarks, BaseDebugManager;
{ TSourceSynSearchTermDict }
@ -1585,6 +1586,16 @@ begin
HighlightUserWords[i].ResetWordBreaks;
end;
procedure TIDESynEditor.SetUpdateState(NewUpdating: Boolean; Sender: TObject);
begin
case NewUpdating of
True: DebugBoss.LockCommandProcessing;
False: DebugBoss.UnLockCommandProcessing;
end;
inherited SetUpdateState(NewUpdating, Sender);
end;
constructor TIDESynEditor.Create(AOwner: TComponent);
begin
inherited Create(AOwner);