[Lazarus] Is it posibble change cursor in source editor

FreeMan freeman35 at delphiturkiye.com
Sat Jan 31 20:50:54 CET 2015


thank you Martin, I can look next week.

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);
>
>
> Then find  (same unit),
> procedure TSynEditScreenCaretPainterInternal.Paint;
>
> and change the color
> - black inverts
> - white does nothing
> - red inverts the blue and green, but leaves red untouched.
> if you have some medium grey as background, try $808080





More information about the Lazarus mailing list