Foros Club Delphi - se puede cambiar el color de la pestaña del PageControl

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - se puede cambiar el color de la pestaña del PageControl (https://www.clubdelphi.com/foros/showthread.php?t=30406)

se puede cambiar el color de la pestaña del PageControl

Hola foro, primero me gusta el nuevo diseño, y segundo alguien sabe si se puede cambiar el color de la pestaña del Pagecontrol
saludos

Codigo fuentes de un vtdeleon

Hola aqui te pego un codigo de un moderador es muy bueno

Cita:

procedure TForm1A1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
R: TRect;
Texto: String;
begin
if Active then
begin
Control.Canvas.Font.Color := clRed;
Control.Canvas.Font.Style := [fsBold];
end;
Texto := PageControl1.Pages[TabIndex].Caption;
R := Rect;
Control.Canvas.FillRect(R);
if not Active then
InflateRect(R, 0, -3);
DrawText(
Control.Canvas.Handle, PChar(Texto), -1, R,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

Cambio de propiedad

Muchas gracias por tu respuesta, lo he pegado y no me modifico nada,
luego cambie la propiedad Owner Draw a false y se modifico de maravillas, eso esta bien o tendria que haber funcionado de una.
Saludos y de nuevo gracias