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

Fix compiling SynEdit

Browse Source
This commit is contained in:
Martin 2023-06-18 16:47:39 +02:00
parent 4c1485ee59
commit ee5d8465bb
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditmarks.pp
View File

@ -12,7 +12,7 @@ interface
uses
Classes, Controls, SysUtils, Math, SynEditMiscClasses, LazSynEditText,
ImgList;
LazLoggerBase, ImgList;
type

2
components/synedit/synedittextbase.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils,
// LazUtils
LazMethodList,
LazMethodList, LazLoggerBase,
// SynEdit
SynEditMiscProcs, SynEditKeyCmds;

4
components/synedit/synedittexttrimmer.pas
View File

@ -28,7 +28,7 @@ interface
uses
Classes, SysUtils, LazSynEditText, SynEditTextBase, SynEditTypes, SynEditHighlighter,
SynEditPointClasses, SynEditMiscProcs;
SynEditPointClasses, SynEditMiscProcs, LazLoggerBase;
type
@ -364,7 +364,7 @@ constructor TSynEditUndoTrimMoveTo.Create(APosY, ALen: Integer);
begin
FPosY := APosY;
FLen := ALen;
{$IFDEF SynTrimUndoDebug}debugln(['--- Trimmer Undo Insert ',DbgSName(self), ' ', dbgs(Self), ' - ', DebugString]);{$ENDIF}
{$IFDEF SynTrimUndoDebug}DebugLn(['--- Trimmer Undo Insert ',DbgSName(self), ' ', dbgs(Self), ' - ', DebugString]);{$ENDIF}
end;
function TSynEditUndoTrimMoveTo.PerformUndo(Caller: TObject): Boolean;