[Lazarus] Is it posibble change cursor in source editor

[FreeMan]

> On 31.01.2015 21:24, Martin Frb wrote:
>
> It might be now, but you need to do a couple of code changes, since no 
> options exist.
>
> unit:
> components\synedit\syneditpointclasses.pas
>
> line 2410
> constructor TSynEditScreenCaret.Create(AHandleOwner: TWinControl);
>
> change (old)
>   FCaretPainter := TSynEditScreenCaretPainterSystem.Create(AHandleOwner);
> into (new)
>   FCaretPainter := 
> TSynEditScreenCaretPainterInternal.Create(AHandleOwner);

Something wrong but what is wrong :)
I got svn version fpc & lazarus I added lines from source. I wrote 
create code is different in your message, I told about that.


/opt/lazarus/components/synedit/syneditpointclasses.pas
.....
2644:{ TSynEditScreenCaret }

constructor TSynEditScreenCaret.Create(AHandleOwner: TWinControl);
begin
   Create(AHandleOwner, TSynEditScreenCaretPainterSystem);
end;

constructor TSynEditScreenCaret.Create(AHandleOwner: TWinControl;
   APainterClass: TSynEditScreenCaretPainterClass);
begin
   inherited Create;
   FCaretPainter := APainterClass.Create(AHandleOwner, Self);
   FLockCount := -1;
   ResetCaretTypeSizes;
   FHandleOwner := AHandleOwner;
   FVisible := False;
   FCurrentVisible := False;
   FCurrentCreated := False;
   FCurrentPosX := -1;
   FCurrentPosY := -1;
   FClipExtraPixel := 0;
   FLockCount := 0;
end;