Buscar

Colocando cor no PageControl

Código

type tmControl = class(TControl);

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
 PageControl1.OwnerDraw := true;
 for i := 0 to PageControl1.PageCount-1 do
   TmControl(PageControl1.Pages[i]).Color := clAqua;
 TmControl(PageControl1).Color := clBlack;
 TmControl(PageControl1).Font.Color := clYellow;
end;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
 TabIndex: Integer; const Rect: TRect; Active: Boolean);
var PC:TPageControl;
begin
 PC := TPageControl(Control);
 PC.Canvas.TextOut(Rect.left+5,Rect.top+3,PC.Pages[tabindex].Caption);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 12/10/09
Por: Felipe
Visualizada: 5413 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009