| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как поменять шрифт Hint-ов?

k-sergey ©   (2004-08-14 22:21:00) 

нужно подсказки сделать покрупнее.....

---

k-sergey   (2004-08-14 22:36:00) [1]

Нет все же вопросик один есть: в этом примере Font.Color:=clWhite не на что не влияет.....а хочеться вместо черного другой цвет.

procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean;
                               var HintInfo: THintInfo);
var i : integer;
begin
   for i := 0 to Application.ComponentCount - 1 do
   if Application.Components[i] is THintWindow then
       with THintWindow(Application.Components[i]).Canvas do
           begin
               Font.Name:= 'Impact';
               Font.Size:= 16;
               Font.Color:=clWhite;
               Font.Style:= [fsBold];
               HintInfo.HintColor:= clRed;
           end;
end;

---

k-sergey   (2004-08-14 22:27:00) [2]

Извиняюсь, сначало не внимательно искал
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988623788&n=16

---

Наверх