Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
14-1117471924
Cerberus
2005-05-30 20:52
2005.06.29
Новый значёк


14-1117970147
Juice
2005-06-05 15:15
2005.06.29
Глючит проводник. Что делать ?


1-1117947403
Chak
2005-06-05 08:56
2005.06.29
по нажатию клавиши ENTER из одной labelededit1 в другую labeleded


3-1116842790
Cat
2005-05-23 14:06
2005.06.29
Поле Date 01.01.2005


1-1117668334
iskatel
2005-06-02 03:25
2005.06.29
resume.xlw млин...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский