procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with PageControl1.Canvas do
begin
if TabIndex = 0 then
Brush.Color := clYellow
else
Brush.Color := clMoneyGreen;
Brush.Style := bsSolid;
Rectangle(Rect);
Font.Color := clNavy;
TextRect(Rect, Rect.Left + 4, Rect.Top + 4,
PageControl1.Pages[TabIndex].Caption);
end;
end;
Как рисовать на табах?
Я пытался рисовать на табах PageControl(Tabsheet).
Нне получилось. У TabSheet нет св-ва Canvas, пробовал в onDrawTab, все равно не вышло.
Нне получилось. У TabSheet нет св-ва Canvas, пробовал в onDrawTab, все равно не вышло.
Усё работает, смотри картинку в конце сообщения.
Во первых, TabSheet тебе не нужен, обращаешься к канве самого PageControl-a, инфу о табшитах берешь в Pages[] у того же PageControl-a.
Пример OnDrawTab:
Самая главная фишка - установи
PageControl1.OwnerDraw := true;
Иначе твоя отрисовка даже "дергаться" не будет.
Во первых, TabSheet тебе не нужен, обращаешься к канве самого PageControl-a, инфу о табшитах берешь в Pages[] у того же PageControl-a.
Пример OnDrawTab:
Код:
Самая главная фишка - установи
PageControl1.OwnerDraw := true;
Иначе твоя отрисовка даже "дергаться" не будет.