TTabSheets - May I Change the tab color?

set PageControl.OwnerDraw to true then

in DrawTab this

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with control.Canvas do begin
      if active then begin
      Font.Style := [fsBold];
    brush.Color := clblue;
      end else begin
    font.Style := [];
    brush.Color := clred;
    end;
      TextOut(Rect.Left + Font.Size,
                  Rect.Top + 2,PageControl1.Pages[tabindex].Caption);
      end;

end;

well, my version,
sorry to say, f68, your painting routine paints a bit ugly,
and will left a small blue line on the canvas

//property OwnerDraw must be set to true
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var ARect : TRect;
begin
  ARect := Rect;
  //clear complete
  control.Canvas.brush.Color := clBtnFace;
  control.Canvas.FillRect(ARect);
  InflateRect(ARect,-2,-2);
  //decide the color
  if active then
    control.Canvas.brush.Color := clRed
  else
    control.Canvas.brush.Color := clBtnFace;
  //paint the tab
  control.Canvas.FillRect(ARect);
  Control.Canvas.TextOut(ARect.Left+2,ARect.top+2,
                         TPageControl(Control).Pages[TabIndex].Caption);
end;

meikl ;-)

well, this problem happens to me too,
if i change also the fontstyle as f68 ([fsBold],[])

instead of
  Control.Canvas.TextOut(ARect.Left+2,ARect.top+2,
                         TPageControl(Control).Pages[TabIndex].Caption);
use
  control.Canvas.TextRect(ARect,ARect.Left+2,ARect.top+1,
                         TPageControl(Control).Pages[TabIndex].Caption);

meikl ;-)

--> if i change also the fontstyle as f68 ([fsBold],[])
glad about it :)))) BTW in fact your method should be better...
F68 ;-)

Hi folks.

Thank you for your answers, but where do I find the property OwnerDraw?? And the DrawTab Event ??

Let me remember you all that this question is related with Delphi 3, and I couldn't find them, even in the help :-(

Best regards,

Juank

Ok.

Anyway, don't worry as I convinced the client that the colored tabs were "annoying"
Rgds.

Juank