Definir cor TTabControl após XPManifest em Delphi
-
06-07-2019 - |
Pergunta
Eu tenho componente tabcontrol no meu formulário. Depois que eu colocar XPManifest, sua cor se tornou branco, eu quero mudá-lo, mas não conseguiu encontrar propriedade de cor. E eu não quero remover XPManifest também. Existe alguma maneira de resolver este problema?
Solução
Para alterar a cor de um TTabControl deve colocar o OwnerDraw propriedade para true false e escrever seu próprio código para desenhar as guias e fundo no OnDrawTab Event.
Veja este exemplo.
procedure TForm38.TabControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
y : Integer;
x : Integer;
aRect: TRect;
begin
if Active then
begin
//Fill the tab rect
Control.Canvas.Brush.Color := clWebGainsboro;
Control.Canvas.FillRect(Rect);
//Fill the background
aRect.Left:=1;
aRect.Right:=Control.Width-1;
aRect.Bottom:=Control.Height-1;
aRect.Top:=Rect.Bottom+1;
Control.Canvas.FillRect(aRect);
end
else
begin
//Fill the tab rect
Control.Canvas.Brush.Color := clBtnFace;
Control.Canvas.FillRect(Rect);
end;
y := Rect.Top + ((Rect.Bottom - Rect.Top - Control.Canvas.TextHeight(TTabControl(Control).Tabs[TabIndex])) div 2) + 1;
x := Rect.Left + ((Rect.Right - Rect.Left - Control.Canvas.TextWidth (TTabControl(Control).Tabs[TabIndex])) div 2) + 1;
//draw the tab title
Control.Canvas.TextOut(x,y,TTabControl(Control).Tabs[TabIndex]);
end;
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow