"Pintar" as Abas de um TabSheet

[sr.silva 1]

Olá!

 

Estou tentando "pintar" as abas do TabSheet, mais estou sem sucesso.

Será que poderia me ajudar??

 

procedure Tform.tbsSelecaoDrawTab(  Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;  Active: Boolean);begin  tbsSelecao.Canvas.TextOut(Rect.left+5,Rect.top+3,tbsSelecao.Pages[tabindex].Caption);  tbsSelecao.Pages[TabIndex].Font.Color:=Control.Canvas.Font.Color;end;

Grato

[marcio.theis 3]

Você quer pintar a aba inteira ou somente a parte da aba onde tem o título ?

[sr.silva 1]

Onde tem o título!!