Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

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

 
k-sergey ©   (2004-08-14 22:21) [0]

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


 
k-sergey ©   (2004-08-14 22:27) [1]

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


 
k-sergey ©   (2004-08-14 22:36) [2]

Нет все же вопросик один есть: в этом примере 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;



Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
8-1092582298
Клавдия
2004-08-15 19:04
2004.11.21
Как последосательно склеить несколько wav-файлов в один?


3-1098259269
NewDelpher
2004-10-20 12:01
2004.11.21
Автоматическое создание пустой базы данных


8-1093100300
dzmitry[li]
2004-08-21 18:58
2004.11.21
нарисовать на bitmap линию на основе шаблона


4-1097326582
CAMCOH
2004-10-09 16:56
2004.11.21
Програмное изменение "Do not show hidden files"


6-1094665025
Klopan
2004-09-08 21:37
2004.11.21
IRC by TelNet