Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

PageControl - подсветка заголовка страницы   Найти похожие ветки 

← →
TAN_K   (2005-06-07 09:13) [0]

Господа , здравствуйте !
Использую компонент - многостраничный блокнот PageControl.
Свойство Ownerdraw = true , заголовки страниц прорисовываю шрифтом и цветом . Хотелось бы сделать еще одно : указатель мыши находится над заголовком страницы - подсветка заголовка .

procedure TForm21.PageControl1MouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);
begin
 PageControl1.Canvas.Font.Name  := "Courier";
 PageControl1.Canvas.Font.Style := [fsBold,fsUnderline];
 PageControl1.Canvas.Font.Color := clBlue;
 PageControl1.Canvas.Font.Size  := 9;

 PageControl1.Canvas.TextOut(PageControl1.Left,PageControl1.Top,
  PageControl1.Pages[PageControl1.tabindex].Caption);

end;

Подсветка не получается . Господа , если кто-то знает , буду очень признательна .
Всем спасибо .

---

← →
-=XP=- ©   (2005-06-07 09:59) [1]

Рисовать надо только в OnDrawTab. Как сделать так, чтобы этот OnDrawTab был вызван - это уже другое дело.

Hint 1:

procedure TrPageControl.MouseMove(Shift: TShiftState; X, Y: Integer);
var
 i: integer;
 R: TRect;
begin
 i := IndexOfTabAt(X, Y);
 if i > -1 then
 begin
   R := TabRect(i);
   DrawTab(i, R, true);
   if (m_iExIndex <> i) and (m_iExIndex > -1) and
     (m_iExIndex <> ActivePageIndex) then
     DrawTab(m_iExIndex, TabRect(m_iExIndex), false);
 end;
 m_iExIndex := i;
 inherited MouseMove(Shift, X, Y);
end;

Hint 2: Дополнительно надо обрабатывать MouseExit.

---

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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.051 c