Delphi dicas

Colorir pagecontrol

Colocar PageControl1.OwnerDraw := True;



procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;

TabIndex: Integer; const Rect: TRect; Active: Boolean);

begin

        //pinta a fonte

        case TabIndex of

        0: Control.Canvas.Font.Color:=clwhite;

        1: Control.Canvas.Font.Color:=clyellow;

        2: Control.Canvas.Font.Color:=claqua;

end;



// pinta a paleta / aba

case TabIndex of

0: Control.Canvas.brush.Color:=clgreen;

1: Control.Canvas.brush.Color:=clred;

2: Control.Canvas.brush.Color:=clblue;

end;

PageControl1.Canvas.Rectangle(Rect);

Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);



// pinta a parte interna (tabsheet)

PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color;

PageControl1.Pages[TabIndex].Repaint;

end;