реакция на наведение указателя на участок формы. Canvas

[skalt12]

Приветствую всех!
У меня такой вопрос, вот смотрите, у меня на форме есть два слова, написанных при помощи canvas:

...
  canvas.Font.Name := 'Arial';
  canvas.Font.Color := TCOLOR($00000);
  canvas.Font.Size := 8;
 
  canvas.TextOut(20, 20, 'Lorem Ipsum');
  canvas.TextOut(20, 35, 'Lorem Ipsum1');
...

мне нужно, чтобы когда указатель мыши находится над одной из этих строк, текст соответствующей строки становился жирным..
все, что пришло в голову мне, это добавить два TImage, с координатами, равными координатам строк:

...
   with Image1 do
      begin
         Left := 20;
         Top := 20;
      end;

   with Image2 do
      begin
         Left := 20;
         Top := 35;
      end;
...

потом присвоить переменную глобально:

var zone, zone1: TFontStyles;

и затем, в OnMouseEnter и onMouseLeave TImage присваивать переменной zone, определенный стиль шрифта и перерисовывать форму.. а в onPaint формы канвасу присваивать значение этой переменной:

...
   canvas.Font.Style := zone;
...

теперь вопрос: как достичь того же эффекта, только правильно?

[GunSmoker]

Вместо игры с Image в OnMouseEnter и onMouseLeave просто посылайте форме InvalidateWindow на область с текстом, если мышь пересекла границы области текста.

А в своём OnPaint смотрите: если курсор мыши на тексте - то рисуете жирно, нет - рисуете обычно.

[Ins]

Да Label просто кинь на форму, у него есть и OnMouseEnter, и OnMouseLeave, а внем - Label.Font.Style := ...

[skalt12]

Сообщение от GunSmoker

Вместо игры с Image в OnMouseEnter и onMouseLeave просто посылайте форме InvalidateWindow на область с текстом, если мышь пересекла границы области текста.

А в своём OnPaint смотрите: если курсор мыши на тексте - то рисуете жирно, нет - рисуете обычно.

Понято, спасибо за наводку )

[skalt12]

Сообщение от Ins

Да Label просто кинь на форму, у него есть и OnMouseEnter, и OnMouseLeave, а внем - Label.Font.Style := ...

про Label в курсе, но что-то с canvas поработать захотелось