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

synedit: less hints

Browse Source 
git-svn-id: trunk@47727 -
This commit is contained in:
mattias 2015-02-13 07:49:22 +00:00
parent bdf67e7160
commit ae47574294
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditpointclasses.pas
View File

@ -2874,8 +2874,6 @@ begin
end;
procedure TSynEditScreenCaretPainterInternal.BeginPaint(rcClip: TRect);
var
r: TRect;
begin
assert(not (FInPaint or FInScroll), 'TSynEditScreenCaretPainterInternal.BeginPaint: not (FInPaint or FInScroll)');

10
components/synedit/synpluginmulticaret.pp
View File

@ -215,8 +215,10 @@ type
implementation
{$IfDef SynMultiCaretDebug}
var
SynMCaretDebug: PLazLoggerLogGroup;
{$EndIf}
const
EMPTY_LIST_LEN = 8;
@ -278,9 +280,11 @@ begin
exit;
end;
{$IfDef SynMultiCaretDebug}
if FCount = Length(FList) then debugln(SynMCaretDebug, ['TSynPluginMultiCaretVisualList.Add ', FCount + max(16, FCount div 16)]);
if FCount = Length(FList) then
SetLength(FList, FCount + max(16, FCount div 16));
{$EndIf}
FList[FCount] := AScreenCaret;
AScreenCaret.FListIndex := FCount;
@ -498,7 +502,9 @@ begin
exit;
end;
v := FCarets[RawIndex];
{$IfDef SynMultiCaretDebug}
debugln(SynMCaretDebug, ['TSynPluginMultiCaretList.AdjustAfterChange ', NewIdx, ' ',RawIndex]);
{$EndIf}
Move(FCarets[NewIdx], FCarets[NewIdx+1], (RawIndex-NewIdx) * SizeOf(FCarets[0]));
FCarets[NewIdx] := v;
end
@ -518,7 +524,9 @@ debugln(SynMCaretDebug, ['TSynPluginMultiCaretList.AdjustAfterChange ', NewIdx,
exit;
end;
v := FCarets[RawIndex];
{$IfDef SynMultiCaretDebug}
debugln(SynMCaretDebug, ['TSynPluginMultiCaretList.AdjustAfterChange ', NewIdx, ' ',RawIndex]);
{$EndIf}
Move(FCarets[RawIndex+1], FCarets[RawIndex], (NewIdx-RawIndex) * SizeOf(FCarets[0]));
FCarets[NewIdx] := v;
end;
@ -735,7 +743,9 @@ begin
((FCarets[i].y = FCarets[i-1].y) and (FCarets[i].x < FCarets[i-1].x))
then begin
// should not happen
{$IfDef SynMultiCaretDebug}
debugln(SynMCaretDebug, ['TSynPluginMultiCaretList.FindAndRemoveMergedCarets BUBBLE SORTING']);
{$EndIf}
i2 := i;
c := FCarets[i2];
repeat