Форум: "Media";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
ВнизКак поменять шрифт 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 вся ветка
Форум: "Media";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c