Скачать: CL | DM;

Свойства текста в THintWindow?   Найти похожие ветки 

← →
galan   (2004-09-08 12:11) [0]

Я отрабатываю следующий код:


var
h: THintWindow;
tmpRect: TRect;
hint: string;
begin
hint := "test";
h := THintWindow.Create(frmTARConsole);
tmpRect := h.CalcHintRect(100, hint, Form1);
h.Color := clLime;
h.Font.Color := clWhite;
h.ActivateHint(tmpRect, hint);
end;


Так вот, хинт появляется нужного размера нужного фона, все нормально. Но выделенная строка просто игнорируется - текст как был черным, так им и остается. Каким же образом можно поменять его цвет?

---

← →
Семен Сорокин ©   (2004-09-08 12:22) [1]

или задать Screen.HintFont.Color или перекрыть Paint у THintWindow.

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.023 c