[Lazarus] Is it posibble change cursor in source editor

FreeMan freeman35 at delphiturkiye.com
Fri Feb 6 14:50:23 CET 2015


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 at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>





More information about the Lazarus mailing list