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

SynEdit: Clean up

Browse Source 
git-svn-id: trunk@27038 -
This commit is contained in:
martin 2010-08-08 15:58:07 +00:00
parent 8dae7aa8b1
commit ac930ac5a0
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditpointclasses.pas
View File

@ -1760,17 +1760,11 @@ begin
end; end;
procedure TSynEditScreenCaret.HideCaret; procedure TSynEditScreenCaret.HideCaret;
var
x, y: Integer;
begin begin
if FHandle = 0 then exit; if FHandle = 0 then exit;
if not FCurrentCreated then exit; if not FCurrentCreated then exit;
x := FDisplayPos.x + FOffsetX;
y := FDisplayPos.y + FOffsetY;
if FCurrentVisible and LCLIntf.HideCaret(Handle) then if FCurrentVisible and LCLIntf.HideCaret(Handle) then
FCurrentVisible := False; FCurrentVisible := False;
//if (x <> FCurrentPosX) or (y <> FCurrentPosY) then
// SetCaretPosEx(FHandle, x, y);
end; end;
end. end.