Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Вниз
Свойства текста в 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.064 c
