Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

Как Сделать красным надпись на ярлыке 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.035 c
1-29830
@@lex
2003-02-28 10:10
2003.03.10
Поиск


14-30064
SergeN
2003-02-21 10:27
2003.03.10
Эти капли никотина меня убивают!


7-30150
GROL
2003-01-11 13:22
2003.03.10
Картинка монитора


1-29803
anbezr
2003-02-27 19:28
2003.03.10
Координаты мыши


1-29928
vova
2003-02-27 10:44
2003.03.10
серийный номер к infopower 4000





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский