Cor na Aba do TabSheet ??????

Question

Pessoal,

Boa Tarde!
� poss�vel mudar a cor do componente TabSheet? quando mudo a cor dele tudo bem mais a aba(orelhinha) continua com a cor default, vo��s sabem de alguma propriedade onde possa mudar a cor?
J� conversei com v�rias pessoas e nada. Ser� que � um bug do Delhi?
Agrade�o desde j�!

Motta · Answer

Segue o padr�o windows, n�o muda que eu saiba, talvez indo no canvas....

Fabio.hc · Answer

Tente assim:Coloque este evento em todas as TabSheet�s. Destaca a TabSheet selecionada.[code:1:ae88db1474]procedure TForm1.TabSheet1Hide(Sender: TObject);begin   (sender as TTabSheet).Highlighted:=false;end;procedure TForm1.TabSheet1Show(Sender: TObject);begin   (sender as TTabSheet).Highlighted:=true;end;[/code:1:ae88db1474]...

Emerson Nascimento · Answer

pra mudar a cor da �orelha�, altere a propriedade OwnerDraw do PageControl para True e atribua as altera��es no evento OnDrawTab....

Mmbarros · Answer

OK Emerso.en a aba recebe a cor por�m n�o exibe o caption do TabSheet... De qualquer forma muito obrigado pela dica!...

Emerson Nascimento · Answer

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active then
begin
Control.Canvas.Font.Color := clWhite;
Control.Canvas.Brush.Color := clBlue;
end
else
begin
Control.Canvas.Brush.Color := clWindowText;
Control.Canvas.Brush.Color := clBtnFace;
end;

Control.Canvas.FillRect( Rect );
Control.Canvas.TextOut( Rect.Left+5,Rect.Top+4,TTabSheet(PageControl1.Pages[TabIndex]).Caption );
end;

S�rgio Siqueira · Answer

FCorTabSelecionada,FCorTabNaoSelecionada: TColor;FCorTabSelecionada := $00E6DEF7;FCorTabNaoSelecionada := clWhite;procedure TfrmPrincipal.pcPrincipalDrawTab(Control: TCustomTabControl;  TabIndex: Integer; const Rect: TRect; Active: Boolean);  function ObterCor(Tab: Integer): TColor;  begin    if (pcPrincipal.TabIndex = TabIndex) then      Result := CorTabSelecionada    else      Result := FCorTabNaoSelecionada;  end;begin  inherited;  Control.Canvas.Brush.Color := ObterCor(TabIndex);  Control.Canvas.FillRect(Rect);  pcPrincipal.canvas.font.color:=clBlack;  Control.Canvas.TextOut(Rect.left+2,Rect.top+2,TTabSheet(pcPrincipal.Pages[tabindex]).Caption);  pcPrincipal.Pages[TabIndex].Font.Color:=clblack;end;Marque a propriedade OwnerDraw no objecto inspector como true....