Здравствуйте, Гость
Вторник, 21.11.2017, 04:44
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Синтаксис » Редактирование Hint!!!! (Подскажите пожалуйста!!!)
Редактирование Hint!!!!
Ferz-2009Дата: Воскресенье, 27.12.2009, 02:56 | Сообщение # 1
Ранг 1
Группа: Проверенные
Сообщений: 16
Награды: 0
Репутация: 0
Статус: Offline
Доброго времени суток всем!!!! У меня такой вопрос: Как мне сделать Hint овальным???
Я использую процедуру:
/////////////////////////////////////////////////////////////////
procedure MyShowHint(var HintStr: string; var CanShow: Boolean;var HintInfo: THintInfo);
///////////////////////////////////////////////////////////////////////
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:= 'Comic Sans MS';
Font.Size:= 10;
Font.Style:= [fsBold];
HintInfo.HintColor:= clGreen;

end;

end;
///////////////////////////////
Ну и соответственно
/////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
Begin
application.OnShowHint:=myshowhint;

Сообщение отредактировал Ferz-2009 - Воскресенье, 27.12.2009, 02:58
 
AdminДата: Воскресенье, 27.12.2009, 17:30 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Ferz-2009, попробуй там где ты изменяеш стиль, размер шрифта, еще и нарисовать на этой канве тот самый овальный фон.
Ну или посмотри сторонние компоненты, например http://delphidevelop.ru/load/19-1-0-68 или более новая версия http://delphidevelop.ru/load/19-1-0-99 Незнаю пойдет нет, не пользовался, возможно можно тот хинт который в трее показать в другом месте. Вобщем посмотри.


Не оказываю помощь через личные сообщения и ICQ
 
Ferz-2009Дата: Понедельник, 28.12.2009, 20:53 | Сообщение # 3
Ранг 1
Группа: Проверенные
Сообщений: 16
Награды: 0
Репутация: 0
Статус: Offline
Уважаемый Admin Спасибо за советы! от сторонних компонентов, я пожалуй откажусь!! насчёт того что рисовать на Канве эт понятно! Только вот я не умею!
ну ничего буду пытаться!!!
 
Форум » Все о Delphi » Синтаксис » Редактирование Hint!!!! (Подскажите пожалуйста!!!)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz