Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.006 c