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

Debugger, IDE: After new fix in rev 42734: REVERT 42669 #59d1dc53d2 [[SynEdit in Paintlock => debugger not processmessages]]

Browse Source 
git-svn-id: trunk@42735 -
This commit is contained in:
martin 2013-09-11 17:52:06 +00:00
parent f45491edd7
commit 73cadf2ccc
1 changed files with 3 additions and 14 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, LazSynIMM,
{$ENDIF} {$ENDIF}
Classes, SysUtils, Controls, LCLProc, LCLType, Graphics, Menus, math, LazarusIDEStrConsts, Classes, SysUtils, Controls, LCLProc, LCLType, Graphics, Menus, math, LazarusIDEStrConsts,
SynEdit, SynEditMiscClasses, SynGutter, SynGutterBase, SynEditMarks, SynEdit, SynEditMiscClasses, SynGutter, SynGutterBase, SynEditMarks, SynEditTypes,
SynEditTypes, SynGutterLineNumber, SynGutterCodeFolding, SynGutterMarks, SynGutterChanges, SynGutterLineNumber, SynGutterCodeFolding, SynGutterMarks, SynGutterChanges,
SynGutterLineOverview, SynEditMarkup, SynEditMarkupGutterMark, SynEditMarkupSpecialLine, SynGutterLineOverview, SynEditMarkup, SynEditMarkupGutterMark, SynEditMarkupSpecialLine,
SynEditTextBuffer, SynEditFoldedView, SynTextDrawer, SynEditTextBase, LazSynEditText, SynEditTextBuffer, SynEditFoldedView, SynTextDrawer, SynEditTextBase, LazSynEditText,
SynPluginTemplateEdit, SynPluginSyncroEdit, LazSynTextArea, SynEditHighlighter, SynPluginTemplateEdit, SynPluginSyncroEdit, LazSynTextArea, SynEditHighlighter,
@ -239,7 +239,6 @@ type
function CreateGutter(AOwner : TSynEditBase; ASide: TSynGutterSide; function CreateGutter(AOwner : TSynEditBase; ASide: TSynGutterSide;
ATextDrawer: TheTextDrawer): TSynGutter; override; ATextDrawer: TheTextDrawer): TSynGutter; override;
procedure SetHighlighter(const Value: TSynCustomHighlighter); override; procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
procedure SetUpdateState(NewUpdating: Boolean; Sender: TObject); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -449,7 +448,7 @@ type
implementation implementation
uses SourceMarks, BaseDebugManager; uses SourceMarks;
{ TSourceSynSearchTermDict } { TSourceSynSearchTermDict }
@ -1586,16 +1585,6 @@ begin
HighlightUserWords[i].ResetWordBreaks; HighlightUserWords[i].ResetWordBreaks;
end; 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); constructor TIDESynEditor.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);