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

SynEdit: Fix PaintLock issue. (Block would become persistent; or caret move unexpectedly)

Browse Source 
git-svn-id: trunk@24540 -
This commit is contained in:
martin 2010-04-09 17:53:53 +00:00
parent e0e629e874
commit fd53c6ae63
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedit.pp
View File

@ -1709,10 +1709,10 @@ procedure TCustomSynEdit.IncPaintLock;
var
i: Integer;
begin
if (TSynEditStringList(FLines).PaintLockOwner = nil) then begin
if (TSynEditStringList(FLines).PaintLockOwner = nil) then
TSynEditStringList(FLines).PaintLockOwner := Self;
if (TSynEditStringList(FLines).PaintLockOwner = Self) then
inc(FPaintLockOwner);
end;
for i := 0 to TSynEditStringList(FLines).AttachedSynEditCount - 1 do
TCustomSynEdit(TSynEditStringList(FLines).AttachedSynEdits[i]).DoIncPaintLock
(FPaintLockOwner = 0);
@ -1725,10 +1725,9 @@ begin
for i := 0 to TSynEditStringList(FLines).AttachedSynEditCount - 1 do
TCustomSynEdit(TSynEditStringList(FLines).AttachedSynEdits[i]).DoDecPaintLock
(FPaintLockOwner = 0);
if FPaintLockOwner > 0 then begin
if (TSynEditStringList(FLines).PaintLockOwner = Self) then begin
dec(FPaintLockOwner);
if (FPaintLockOwner <> 0) or (TSynEditStringList(FLines).PaintLockOwner <> Self) then
RaiseGDBException('TSynEdit.Paintlock error');
if FPaintLockOwner = 0 then
TSynEditStringList(FLines).PaintLockOwner := nil;
end;
end;