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

Mark Morgan Lloyd markMLl.lazarus at telemetry.co.uk
Mon Feb 20 16:56:41 CET 2012


Martin wrote:
> 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

Thanks Martin, I think I was reading that the wrong way round (i.e. the 
special overruled colour).

Any thoughts on what could be messing up the font?

-- 
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]




More information about the Lazarus mailing list