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;
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
