Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
8-29963
Novichek
2002-11-20 19:07
2003.03.10
Flash


6-29975
crash123
2003-01-18 16:48
2003.03.10
Ошибка сценария в TWebBrowser.


1-29873
User_OKA
2003-02-26 06:33
2003.03.10
Форматирование ячеек Excel


1-29956
Пубертанец
2003-02-27 15:29
2003.03.10
Список каталогов диска


3-29764
Zn
2003-02-18 12:57
2003.03.10
Файлы FoxPro - подключение индексов.