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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
