Still the same, just line numbers are changed. Search for
TSynEditScreenCaret.Create(
Or go to ide/SourceSynEditor and
in line 1610
constructor TIDESynEditor.Create(AOwner: TComponent);
add
ScreenCaret.ChangePainter(TSynEditScreenCaretPainterInternal);
TSynEditScreenCaretPainterInternal(ScreenCaret.Painter).Color :=
On 06/02/2015 13:50, FreeMan wrote:
Hello Martin,
After this message, syneditpointclasses.pas file is changed, create
codes etc. If its possible sent new suggestion please?
On 31.01.2015 21:50, FreeMan wrote:
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
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus