| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как PageControl заставить измерить ширину tab'a? [D7, WinXP]

Aleksandr. ©   (2004-09-20 19:18:00) 

PageControl у меня имеет OwnerDraw=true и обработчик на OnDrawItem. Когда Tab'ов у него больше одного, обработка срабатывает нормально. А вот когда только у одного Tab'a TabVisible=true, в обработчике наблюдается проблема - передаваемый в него Rect имеет какие-то размеры по умолчанию, которые конкретно у меня не вмещают по длине заголовок Tab'a. Никакого OnMeasureItem я у него не наблюдаю. Как заставить PageControl правильно отсчитать размеры этого Tab'a?

ЗЫ: Для любителей кричать: "А где код, зараза!":

procedure TPropertyForm.PageControlDrawTab(Control: TCustomTabControl;
 TabIndex: Integer; const Rect: TRect; TabActive: Boolean);
var
 x, y : integer;
 Col  : TColor;
begin
 PageControl.Canvas.FillRect(Rect);
 if TabActive then begin
   PageControl.Canvas.Brush.Color:=clWhite;
   PageControl.Canvas.Font.Color:=clBlue
 end;
 x:=Rect.Left+((Rect.Right-Rect.Left-PageControl.Canvas.TextWidth(PageControl.Pages[TabIndex].Caption)) div 2);
 y:=Rect.Top+((Rect.Bottom-Rect.Top-PageControl.Canvas.TextHeight('A')) div 2);
 Col:=PageControl.Canvas.Pen.Color;
 PageControl.Canvas.Pen.Color:=Canvas.Brush.Color;
 PageControl.Canvas.RoundRect(Rect.Left+1,Rect.Top+1,Rect.Right-1,Rect.Bottom-1,3,3);
 PageControl.Canvas.Pen.Color:=Col;
 PageControl.Canvas.TextOut(x,y,PageControl.Pages[TabIndex].Caption)
end;



---

Aleksandr.   (2004-09-20 19:49:00) [1]

clickmaker ©  :

Спасибо, попробую!

---

clickmaker   (2004-09-20 19:47:00) [2]

Как вариант можно еще подменить WindowProc у пэйджконтрола, ловить WM_MEASUREITEM

---

clickmaker   (2004-09-20 19:42:00) [3]

> [3] Aleksandr.   (20.09.04 19:36)

TCM_SETMINTABWIDTH не помогает?

---

Aleksandr.   (2004-09-20 19:36:00) [4]

Defunct ©  :

А мне нужен мой обработчик. Не нравится, когда на форме цвета новых стандартов закладки старого серого цвета. А без своего обработчика это никак.

---

clickmaker   (2004-09-20 19:27:00) [5]

> ЗЫ: Для любителей кричать: "А где код, зараза!":

Блин, весь кайф обломал... Так хотелось крикнуть

---

Defunct   (2004-09-20 19:25:00) [6]

OwnerDraw := False

---

Наверх