Главная страница
    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.039 c
4-1115404364
Wolfram
2005-05-06 22:32
2005.06.29
Как вызвать диалоговое окно свойств файла?


3-1116401091
_e_u_
2005-05-18 11:24
2005.06.29
обнуление автоинкремента в МССУКЭЛЬ


14-1117442333
Alexone
2005-05-30 12:38
2005.06.29
Тестирование программы


14-1117589651
WondeRu
2005-06-01 05:34
2005.06.29
Долго Вы писали свой диплом? :)


4-1114528628
viper - omsk
2005-04-26 19:17
2005.06.29
Открытие приложения





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский