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