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

SynEdit: fix to system caret / Restore system caret as default, if not using multicaret

Browse Source 
git-svn-id: trunk@49115 -
This commit is contained in:
martin 2015-05-19 23:52:47 +00:00
parent e5ab0fcfc8
commit 0dc9313315
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditpointclasses.pas
View File

@ -2601,6 +2601,7 @@ begin
FWidth := w;
FHeight := h;
FCreated := True;
FShowing := False;
Result := True;
end;
@ -3050,8 +3051,8 @@ end;
constructor TSynEditScreenCaret.Create(AHandleOwner: TWinControl);
begin
// Create(AHandleOwner, TSynEditScreenCaretPainterSystem);
Create(AHandleOwner, TSynEditScreenCaretPainterInternal);
Create(AHandleOwner, TSynEditScreenCaretPainterSystem);
//Create(AHandleOwner, TSynEditScreenCaretPainterInternal);
end;
constructor TSynEditScreenCaret.Create(AHandleOwner: TWinControl;