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

SynEdit: Fixed Caret paint error (extra caret left on screen) Issue #0021924

Browse Source 
git-svn-id: trunk@37141 -
This commit is contained in:
martin 2012-05-02 23:24:36 +00:00
parent edfb38007b
commit c40f7cfc8e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -2062,6 +2062,7 @@ begin
UpdateOptions;
UpdateOptions2;
UpdateMouseOptions;
UpdateCaret;
fScrollTimer := TTimer.Create(Self);
fScrollTimer.Enabled := False;
fScrollTimer.Interval := 100;
@ -2745,6 +2746,7 @@ end;
procedure TCustomSynEdit.Loaded;
begin
inherited Loaded;
UpdateCaret;
end;
procedure TCustomSynEdit.UTF8KeyPress(var Key: TUTF8Char);
@ -3490,7 +3492,7 @@ begin
{$IFDEF EnableDoubleBuf}
EndPaintBuffer(rcClip);
{$ENDIF}
UpdateCaret;
UpdateCaret; // Todo: only ShowCaret() / do not create caret here / Issue 0021924
Exclude(fStateFlags,sfPainting);
end;
end;
@ -7334,6 +7336,7 @@ begin
// ClientWidth - TextRightPixelOffset - ScrollBarWidth + 1,
// ClientHeight - ScrollBarWidth);
FScreenCaret.ClipExtraPixel := FTextArea.Bounds.Right - FTextArea.Bounds.Left - CharsInWindow * CharWidth;
UpdateCaret;
FScreenCaret.UnLock;
if CheckCaret then begin