[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>

[M.A.D.M.A.N.]

А что с ним делать?

[DOR]

я так понимаю, тут меняется цвет вкладки, но ничего не происходит

[DOR]

Подскажите, пожалуйста, способ изменения цвета вкладки

[M.A.D.M.A.N.]

XPManifest вырублен?

Блин, вот вы когда регаетесь, видите там поле "Версия дельфи", оно же не зря там сделано.

[DOR]

А что это такое? специально ничего не включал, где посмотреть?

[DOR]

Сообщение от M.A.D.M.A.N.

XPManifest вырублен?

Блин, вот вы когда регаетесь, видите там поле "Версия дельфи", оно же не зря там сделано.

Не думал что это важно, отредактировал. Версия 7