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

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

Подскажите по поводу hint [D5, WinXP]

LAndreyV ©   (2004-10-24 19:08:00) 

Возможно как-нть увеличить задержку показа всплывающей подсказки hind? стандартно она показывается кажись около 3-х секунд.

---

LAndreyV   (2004-10-25 16:36:00) [1]

это даст изменить весь текст HINT'a, а мне надо, чтобы одно слово было красным, а другое зеленым!!!

---

pasha_golub   (2004-10-25 16:15:00) [2]

BillyJeans   (25.10.04 16:12) [11]
Грубовато, как по мне. Плюс, в данном случае размер подсказки не удасться изменить (если я не ошибаюсь).

---

BillyJeans   (2004-10-25 16:12:00) [3]


type
   TForm1 = class(TForm)
       procedure FormCreate(Sender: TObject);
   private
       {Private declarations}
   public
       procedure MyShowHint(var HintStr: string;
           var CanShow: Boolean;var HintInfo: THintInfo);
       {Public declarations}
end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

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:= 'Arial';
               Font.Size:= 18;
               Font.Style:= [fsBold];
               HintInfo.HintColor:= clWhite;
           end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnShowHint := MyShowHint;
end;


---

LAndreyV   (2004-10-25 16:08:00) [4]

может завалялся где-нть пример?? кусок исходника?? неужели никто для себя не делал такого??

---

pasha_golub   (2004-10-25 16:04:00) [5]

LAndreyV   (25.10.04 15:59) [8]
Быстро не получиться. Либо вспоминай, что изучал, либо отдай на откуп другому человеку. Задача не сложная, но и не тривиальная.

ЗЫ За бутылку могу и я написать ;-)

---

LAndreyV   (2004-10-25 15:59:00) [6]

знаешь, я изучал Delphi еще в институте...лет 10 назад :)) вот поэтому и непонятно многое...забыл :))
не мог бы чуть подробнее ?? если есть время...

---

jack128   (2004-10-25 15:31:00) [7]

LAndreyV   (25.10.04 15:28) [6]
HintWindowClass := TMySuperHint;
Достаточно??

Те нужно написать наследника от THintWindow, что не понятно то??

---

LAndreyV   (2004-10-25 15:28:00) [8]

А где можно почитать или увидеть примеры применения этого HintWindowClass'a ??

---

jack128   (2004-10-24 20:47:00) [9]

LAndreyV   (24.10.04 19:38) [3]
а если мне надо 1st string написать красным цвето и жирным шрифтом, а 2st string зеленым и наклонным??
Такие извращения только написанием своего HintWindowClass...

---

LAndreyV   (2004-10-24 20:01:00) [10]

ау...кто-нть..

---

LAndreyV   (2004-10-24 19:38:00) [11]

а если мне надо 1st string написать красным цвето и жирным шрифтом, а 2st string зеленым и наклонным??
не мог бы привести набольшой пример??
я просто изучал Delphi еще 10 лет назад в институте, а тут надо небольшую прогу написать...вот сижу вспоминаю. :)

---

jack128   (2004-10-24 19:29:00) [12]

> задержку показа всплывающей подсказки hind

TApplication.HintHidePause
LAndreyV   (24.10.04 19:11) [1]
можно ли изменить цвет посказки, шрифт ,толщину шрифта??
Forms.HintWindowClass
LAndreyV   (24.10.04 19:11) [1]
как делать переносы на новую строку
Control.Hint := '1st string'#13#10'2nd string'

---

LAndreyV   (2004-10-24 19:11:00) [13]

добавление вопроса...можно ли изменить цвет посказки, шрифт ,толщину шрифта?? и как делать переносы на новую строку?

---

Наверх