Hola a todos,
Me gustaría poder cambiar el color de la pestaña del PageControl, ya he estado mirando los hilos que hay al respecto, y en principio me servirían, sino fuera por que tengo unas imágenes añadidas al TabSheet (con un TImageList).
Con el siguiente código:
Código:
procedure TfrmJob.pagecontrolDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var R: TRect;
Texto: String;
begin
Control.Canvas.Brush.Color := clWhite;
Control.Canvas.Font.Color := clBlack;
Texto := pgjob.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;
Lo que consigo es que se me quede el fondo blanco y las letras en negro, pero claro, la imagen no sale.
Alguien me podría asesorar de como hacer para que ésta salga??? Muchas gracias a todos!!