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

Вниз

Подскажите по поводу hint   Найти похожие ветки 

← →
LAndreyV   (2004-10-24 19:08) [0]

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

---

← →
LAndreyV   (2004-10-24 19:11) [1]

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

---

← →
jack128 ©   (2004-10-24 19:29) [2]

> задержку показа всплывающей подсказки 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:38) [3]

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

---

← →
LAndreyV   (2004-10-24 20:01) [4]

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

---

← →
jack128 ©   (2004-10-24 20:47) [5]

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

---

← →
LAndreyV   (2004-10-25 15:28) [6]

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

---

← →
jack128 ©   (2004-10-25 15:31) [7]

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

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

---

← →
LAndreyV   (2004-10-25 15:59) [8]

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

---

← →
pasha_golub ©   (2004-10-25 16:04) [9]

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

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

---

← →
LAndreyV   (2004-10-25 16:08) [10]

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

---

← →
BillyJeans   (2004-10-25 16:12) [11]


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;


---

← →
pasha_golub ©   (2004-10-25 16:15) [12]

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

---

← →
LAndreyV   (2004-10-25 16:36) [13]

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

---

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

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

Наверх

Память: 0.49 MB
Время: 1.32 c