Cor do caption do PageControl

Question

Pessoal,Gostaria de mudar a fonte do caption de um PageControl s� da aba que estiver ativa.Algu�m sabe como me ajudar?Obrigada.Fernanda...

Lucas Silva · Answer

[quote:472b65bc22]- 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; [/quote:472b65bc22]Tirado das 800 dicas delphi..A l�gica t� toda ai, � s� voc� fazer algumas modifica��es....

Feberaldo · Answer

Eu j� tinha visto essa dica aqui e j� testei. Ele muda a fonte de cada aba de uma vez. Fica uma de cada cor. Eu n�o queria exatamente isso. Por exemplo: quando o usu�rio clicar em uma aba, esse caption ficaria em negrito e o resto normal.

Valdir.santos · Answer

procedure TfrmPrincipal.pgcDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with Control.Canvas.Font do begin
if Active then
Style:=[fsBold]
else
Style:=[];
end;
Control.Canvas.TextOut(Rect.Left+20,Rect.Top+3,pgc.Pages[TabIndex].Caption);
end;

Feberaldo · Answer

J� testei assim e tb n�o deu certo. N�o faz nada.Vc tem mais alguma solu��o?...

Valdir.santos · Answer

Era pra funcionar.Colocou True na propriedade OwnerDraw da PageControl?Valdir....

Feberaldo · Answer

Deu certo. Era isso que estava faltando.Obrigada....

Feberaldo · Answer

Desculpe te incomodar novamente, mas surgiu outro problema.
� que tenho abas que tem o TabVisible = false e s� aparecem quando clico em um bot�o de outra aba.
Resumindo, as abas est�o corretas (ou seja, os TabSheets est� aparecendo perfeitamente) mas os caption das abas est�o aparecendo na sequ�ncia que foram cadastrados (aparecendo os que deveriam ficar ocultos). N�o sei se voc� entendeu. Mas voc� tem alguma id�ia do que fazer.
Com certeza � na linha

Control.Canvas.TextOut(Rect.Left+5,Rect.Top+2,Pgc_emp.Pages[TabIndex].Caption);

Pois ele pega todos os TabIndex.
Eu queria que ele pulasse alguns no in�cio da aplica��o, e s� aparecessem quando necess�rio.

Obrigada.

Marcelo Saviski · Answer

N�o sei se entendi bem problema, mas tente com isso, talvez funcionaTrocar o:[code:1:7db96a9117]pgc.Pages&#91;TabIndex&93;.Caption); [/code:1:7db96a9117]por:[code:1:7db96a9117]Control.GetText;[/code:1:7db96a9117]� s� um palpite......

F�rum Cor do caption do PageControl #224100