SOLVED: I can not find editor cursor color
lazarus / 9-Editor

----------------------------------------------------------------------
xaver13 · 2017-10-29 15:19

Hello, I tried to use UserSuppliedSchemeSettings, I have a small
trouble.
On dark schemes I like, I often have black cursor, and it is difficult
to see.
Please where can I change only cursor color to some lighter color? I
can not find this option. Thank you very much for help.

----------------------------------------------------------------------
xaver13 · 2017-10-29 16:47

I found this 6years old post, and there is no solution..  
http://forum.lazarus.freepascal.org/index.php?topic=14105.0

----------------------------------------------------------------------
Martin_fr · 2017-10-29 16:53

The caret color is not configurable.

The caret uses xor to invert the current color. That should be fine on
black.
However it is a problem on medium grey, as #7f7f7f changes to #808080.

On some OS the OS is providing the caret, and that may not offer any
color config.

At the moment SynEdit is bypassing this system caret, and therefore
the color can be changed (in code only).
But this may change in future. There are issues bypassing the system
caret. So the default may change. But likely an option will then be
added.

To change the color in the source code
components\synedit\synpluginmulticaret.pp
line 1721
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i constructor
TSynPluginMultiCaretBase.Create(AOwner: TComponent);begin  inherited
Create(AOwner);  FColor := clBlack; 
Note that this does not make the caret black.

It will invert all bit on the canvas, that are zero in FColor.

FColor := clWhite;  // the caret will not change any pixel at all
FColor := clRed; // the caret will invert the green and blue channel
of each pixel, and leave red as it is.


-------------
For reference: The caret is painted by
TSynEditScreenCaretPainterInternal in
components\synedit\syneditpointclasses.pas

----------------------------------------------------------------------
xaver13 · 2017-10-29 17:10

Thank you very much for tip! I tried it (edit and compile IDE) on  my
Mac, I am using High Sierra, but nothing happened. But I must say,
that I am very unexperienced user   . 

Edited:
Now I checked what happened, and Lazarus.app remains the same. I have
some linux executable there, but, no new Lazarus.app.  Please how to
force to make application package when I use "Build Lazarus IDE"?

----------------------------------------------------------------------
Martin_fr · 2017-10-29 17:31

Odd, anyway just tested.

Go to
components\synedit\syneditpointclasses.pas
line 2891
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TSynEditScreenCaretPainterInternal.Init;...  FColor := clBlack; 
I thought it will be overwritten by the other setting, but it seems
not.

If in future the multicaret setting take effect, FColor is used in
line 2776
  ACanvas.Pen.Color := FColor;

So you should also be able to force it there.

----------------------------------------------------------------------
xaver13 · 2017-10-29 19:15

I used latest fpcupdeluxe-i386-darwin with trunk/trunk option. And
cursor is o.k.! No changes was needed.

----------------------------------------------------------------------
Martin_fr · 2017-10-29 20:08

Which version did have the problem?

----------------------------------------------------------------------
skalogryz · 2017-10-29 23:53

I believe the "fix" is related to this thread

been bugging me for a long time as well. but it's here in 2017, it's
finally fixed