Page Control

Delphi

28/04/2003

Galera alguém sabe modificar cor da letra de uma pagecontrol ?
ja tentei alterar a cor da Font mas ele continua na cor preta.


Ronaldomr

Ronaldomr

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

28/04/2003

A propriedade OwnerDraw simplesmente informa ao componente se o controle do desenho fica por conta do Windows ou por conta do desenvolvedor. Coloque essa propriedade como True.

No evento OnDrawTab do page control, faça algo como: 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; 
TabIndex: Integer; const Rect: TRect; Active: Boolean); 
begin 
  Control.Canvas.Brush.Color := Self.Color;   
  Control.Canvas.Font.Color := clWhite; 
  Control.Canvas.FillRect( Rect ); 
  Control.Canvas.TextOut( Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption ); 
end;


Esta dica foi enviada originalmente por Emerson.EN


GOSTEI 0
POSTAR