[delphi-br] Dica: colorir PageControl (melhorado)

Thu, 06 Sep 2007 04:47:47 -0700 

colocar PageControl1.OwnerDraw := True;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
//pinta a fonte
case TabIndex of
0: Control.Canvas.Font.Color:=clwhite;
1: Control.Canvas.Font.Color:=clyellow;
2: Control.Canvas.Font.Color:=claqua;
end;

// pinta a paleta / aba
case TabIndex of
0: Control.Canvas.brush.Color:=clgreen;
1: Control.Canvas.brush.Color:=clred;
2: Control.Canvas.brush.Color:=clblue;
end;
PageControl1.Canvas.Rectangle(Rect);
Control.Canvas.font.Color:=clwhite;
Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages
[tabindex].Caption);

// pinta a parte interna (tabsheet)
  PageControl1.Pages[TabIndex].brush.Color :=
Control.Canvas.brush.Color;
end;

// se quiser pintar a parte interna, colocar tambem
procedure TForm1.FormShow(Sender: TObject);
begin
  PageControl1.Pages[0].brush.Color := clgreen;
end;

Se puder melhorar, coloquem aqui na lista. Gostaria de pedir-lhes 
para colocar nos sites de consultas de dicas. No linhadecodigo já 
enviei e no delphi.eti.br(planetadelphi) está lotado. 
Agradeço antecipadamente.

Responder a