[Lazarus] Synedit: background colours and f(o)nts

Martin lazarus at mfriebe.de
Mon Feb 20 16:09:11 CET 2012


On 20/02/2012 09:24, Mark Morgan Lloyd wrote:
> I've got a Synedit here which uses code as below to rule alternate 
> background lines to a light colour:
>
> procedure TListForm.PaneMainEditSpecialLineColors(Sender: TObject; 
> Line: integer;
>                                         var Special: boolean; var FG, 
> BG: TColor);
>
> begin
>   MusicRuleColour(line, FG, BG)
> end { TListForm.PaneMainEditSpecialLineColors } ;

Add
     Special := true;

The event is called for all lines, color is only taken, if Special is set




More information about the Lazarus mailing list