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

SynEdit: improve screen caret lock

Browse Source 
git-svn-id: trunk@34668 -
This commit is contained in:
martin 2012-01-08 17:51:16 +00:00
parent dfd850c0b7
commit 83ccf70cb2
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/syneditpointclasses.pas
View File

@ -251,6 +251,7 @@ type
end;
TSynCaretType = (ctVerticalLine, ctHorizontalLine, ctHalfBlock, ctBlock);
TSynCaretLockFlags = set of (sclfUpdateDisplay, sclfUpdateDisplayType);
{ TSynEditScreenCaret }
@ -287,7 +288,7 @@ type
FCurrentVisible, FCurrentCreated: Boolean;
FCurrentClippedWidth: Integer;
FLockCount: Integer;
FLockedUpdateNeeded: Boolean;
FLockFlags: TSynCaretLockFlags;
procedure SetClipBottom(const AValue: Integer);
procedure SetClipExtraPixel(AValue: Integer);
procedure SetClipLeft(const AValue: Integer);
@ -1683,8 +1684,10 @@ end;
procedure TSynEditScreenCaret.UnLock;
begin
dec(FLockCount);
if (FLockCount=0) and FLockedUpdateNeeded then
UpdateDisplay;
if (FLockCount=0) then begin
if (sclfUpdateDisplayType in FLockFlags) then UpdateDisplayType;
if (sclfUpdateDisplay in FLockFlags) then UpdateDisplay;
end;
end;
procedure TSynEditScreenCaret.SetClipRight(const AValue: Integer);
@ -1744,6 +1747,12 @@ end;
procedure TSynEditScreenCaret.UpdateDisplayType;
begin
if FLockCount > 0 then begin
Include(FLockFlags, sclfUpdateDisplayType);
exit;
end;
Exclude(FLockFlags, sclfUpdateDisplayType);
case FDisplayType of
ctVerticalLine:
begin
@ -1845,10 +1854,11 @@ end;
procedure TSynEditScreenCaret.UpdateDisplay;
begin
if FLockCount > 0 then begin
FLockedUpdateNeeded := True;
Include(FLockFlags, sclfUpdateDisplay);
exit;
end;
FLockedUpdateNeeded := False;
Exclude(FLockFlags, sclfUpdateDisplay);
if FVisible then
ShowCaret
else