Скачать: CL | DM;

HotTrack - PageControl - OwnerDraw?   Найти похожие ветки 

← →
NAlexey ©   (2003-02-07 13:58) [0]

Подскажите пожалуйста как можно реализовать?
Возникла необходимость рисовать PageControl самостоятельно. Картинки и текст рисуются, а вот HotTrack сделать не могу.

---

← →
Игорь Шевченко ©   (2003-02-07 15:17) [1]

if TTabSheet.Highlighted then
Рисовать как HotTrack
else
Все остальное

---

← →
NAlexey ©   (2003-02-07 16:54) [2]

Спасибо за ответ, но таким образом оно не заработает. С HotTrack я разобрался немного по другому, ну раз уж если был ответ на этот вопрос, то может и на следующий ответите:
Когда Caption TabSheet вылазит за размеры TabSheeta, он растягивается. Но это если не рисуешь самостоятельно. Так вот собственно вопрос:
как увеличивать размер конкретного(одного) TabSheet вручную. Или его придется также самостоятельно рисовать?
Когда самостоятельно рисуешь на

---

← →
Игорь Шевченко ©   (2003-02-07 17:12) [3]

The TCM_SETITEMSIZE message sets the width and height of tabs in a fixed-width or owner-drawn tab control. You can send this message explicitly or by using the TabCtrl_SetItemSize macro.

TCM_SETITEMSIZE
wParam = 0; // not used; must be zero
lParam = MAKELPARAM(cx, cy); // new width and height, in pixels


Parameters

cx and cy

New width and height, in pixels.



Return Values

Returns the old width and height. The width is in the low-order word of the return value, and the height is in the high-order word.

See Also

TabCtrl_SetItemSize

Оно ?

---

← →
NAlexey ©   (2003-02-07 17:29) [4]

Оно то это оно.
Только вот для конкретного Tab оно не работает.:(
Может я в чем то не прав, но я далаю так:
в Uses + CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
TabCtrl_SetItemSize(PageControl1.ActivePage.Handle, 100, 100);
end;
-- Не работает

procedure TForm1.Button1Click(Sender: TObject);
begin
TabCtrl_SetItemSize(PageControl1.Handle, 100, 100);
end;
--Работает, но не изменяет ширину, только высоту:((
В чем здесь не так?

---

← →
Игорь Шевченко ©   (2003-02-07 17:46) [5]

procedure TCustomTabControl.UpdateTabSize;
begin
SendMessage(Handle, TCM_SETITEMSIZE, 0, Integer(FTabSize));
TabsChanged;
end;

---

← →
NAlexey ©   (2003-02-07 18:14) [6]

Ну уже и не знаю совсем.
Не меняет он ширину, и все тут. Высоту по прежнему менят, ширину нет.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c