Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Как Сделать красным надпись на ярлыке TabSheet   Найти похожие ветки 

← →
SeNtiMeL ©   (2003-02-22 02:42) [0]

Попытался сделать красным TabSheet.Caption (т.е. саму надпись ярлычка), да никак не могу найти, как это сделать. Ведь свойства OwnerDraw там нет и тому подобных тоже...
Может кто знает ?

---

← →
Song ©   (2003-02-22 03:50) [1]

TPageControl.onDrawTab

>>Ведь свойства OwnerDraw там нет и тому подобных тоже...
TPageConrol.OwnerDraw

---

← →
SeNtiMeL ©   (2003-02-23 00:04) [2]

что то я нигде не найду HELP по этой функциии...
Как правильно вызвать и задать эту функцию ?

---

← →
mukha ©   (2003-02-23 08:01) [3]

А может это тебя спасёт?

procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.OwnerDraw:=true;
end;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active then
begin
Control.Canvas.Font.Style:=[fsBold];
Control.Canvas.Font.Color:=clRed;
Control.Canvas.TextRect(Rect,Rect.Left+3,Rect.Top+2,(Control as TPageControl).Pages[TabIndex].Caption);
end
else
begin
Control.Canvas.Font.Style:=[];
Control.Canvas.Font.Color:=clBlack;
Control.Canvas.TextRect(Rect,Rect.Left+3,Rect.Top+2,(Control as TPageControl).Pages[TabIndex].Caption);
end;
end;
Впрочем, можно выводить ещё и рисунки, а не только текст.

---

← →
SeNtiMeL ©   (2003-02-27 22:10) [4]

Спасибо за помощь !!!

---

← →
SeNtiMeL ©   (2003-02-27 22:15) [5]

Хм... Попоробовал применить код, но на закладках ничего не выводится... Просто пустые без надписей отображаются....

---

← →
smok_er   (2003-02-28 09:36) [6]

:) Потому что при ownerdraw нужно еще и текст "вручную" выводить таким образом:

Control.Canvas.TextOut(X, Y, "Some text");


---

Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c