[DOR]

Добрый день. Нашел вот такой код на изменение цвета вкладок, но могу в нем разобраться.

Код:

implementation
uses Types;
...
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var s: string;
    x,y: integer;
begin
s := PageControl1.Pages[TabIndex].Caption;
with Control.Canvas do begin
    Brush.Color:=clred; //нужный <span class="highlight">цвет</span>
    FillRect(Rect);
    Font.Color := clBlack;
    x := Types.CenterPoint(Rect).X - TextWidth(s)div 2;
    y := Types.CenterPoint(Rect).Y - TextHeight(s) div 2;
    TextOut(x,y,s);
  end;
end;

что делать с

Код:

Brush.Color:=clred; //нужный <span class="highlight">цвет</span>