как отрисовать tab-ы в pagecontrol?

[blackstersl]

Привет всем. Как можно отрисовать табы в pagecontrol в событии ondrawtab? если можно небольшой пример или статейку. Спсибо.

[Neeter]

Просто, рисуйте например так:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
 PageControl1.Canvas.Brush.Color := clRed;
 PageControl1.Canvas.Rectangle(Rect);
end;

Только одно, установите свойство OwnerDraw у PageControl'а в true

[blackstersl]

А как сделать что б вместо табов были картинки?

[Neeter]

Вот, не самый лучший, пример:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
 b: TBitmap;
begin
 b := TBitmap.Create;
 try
  b.LoadFromFile('D:\1.bmp');
  b.Width := Rect.Right - Rect.Left;
  b.Height := Rect.Bottom - Rect.Top;
  PageControl1.Canvas.Draw(Rect.Left, Rect.Top, b);
 finally
  b.Free;
 end;
end;

[blackstersl]

хорошо за превыдущий ответ +1, а как убрать рамку в табах или(3d? незнаю как его назвать), чтоб была пустота -).

[Kotofff]

В идеале можно использовать, например, Raize Components. Там у RzPageControl с помощью установки цветов закладок и их теней можно полностью убрать их границы, оставив только текст.