Colocar cor no tabsheet de um page control

Delphi

27/08/2012

Olá, vi em alguns post falando desse tópico como resolver a situação acima citada, mas eu tenho um problema, uso Delphi 7, utilizo os mesmo comando e configurações, e não consigo fazer a aplicação entrar no PageControl1DrawTab, coloquei um ponto de depuração e certifiquei que não entra, coloquei como OwnerDram := true e tal, habilitando logo nas propriedades, as descrições ficam invisiveis, não sei se é o correto, alguém saberia me dizer o que poderia ser?
Segue abaixo o teste realizado:
case TabIndex of
0: Control.Canvas.Font.Color := clGreen;
1: Control.Canvas.Font.Color := clRed;
2: Control.Canvas.Font.Color := clBlue;
end;
Control.Canvas.Font.Style := [fsBold];
Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
PageControl1.Pages[TabIndex].Font.Color := Control.Canvas.Font.Color;
Cristiano

Cristiano

Curtidas 0

Respostas

Wilton Júnior

Wilton Júnior

27/08/2012

Ola, eu fiz um teste no delphi XE2 que eu uso e deu certo.
Nos fontes, a fonte de cada tabsheet fica normar quando executa as cores aparecem de acordo com a tabsheet que abre.
A propriedade OwnerDraw tem que ser igual a true.
Teste fazer outro teste um projeto separado para observar melhor o que tah acontecendo.
GOSTEI 0
Cristiano

Cristiano

27/08/2012

Opa, criei um projetinho com apenas o pagecontrol, e realmente não vai, só seu meu Delphi está com "BUG".
GOSTEI 0
Marco Salles

Marco Salles

27/08/2012


logo nas propriedades, as descrições ficam invisiveis, não sei se é o correto,


sim é correto , porem quando vc executa (F9) as descrições sçao redesnhadas e suas cores definidas
GOSTEI 0
POSTAR