Cor Caption TabSheet

Delphi

21/03/2004

Alguém sabe me dizer como mudar a cor do caption de um Tabsheet?
Desda já agradeço.


Tsouza

Tsouza

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

21/03/2004

- Coloque um PageControll num form
- Adicione 6 TabSheet (New Page)
- Agora basta implementar o codigo abaixo
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  case TabIndex of
    0: Control.Canvas.Font.Color:=clgreen;
    1: Control.Canvas.Font.Color:=clred;
    2: Control.Canvas.Font.Color:=clblue;
    3: Control.Canvas.Font.Color:=clYellow;
    4: Control.Canvas.Font.Color:=clMaroon;
    5: Control.Canvas.Font.Color:=clWhite;
  end;
  Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
  PageControl1.Pages[TabIndex].Font.Color:=Control.Canvas.Font.Color;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw:=true;
end;


Retirado de ´Dicas e Truques Delphi´


GOSTEI 0
POSTAR