TFontDialog.Execute

← →
_iceman_ (2004-07-31 16:33) [0]

Здравствуйте!
При вызове диалога для изменения шрифта

if dlgFont.Execute then AxisYFont.Assign(dlgFont.Font);

получаю
System Error. Code: 1722
Сервер RPC недоступен

Данная ошибка появилась на домашнем компьютере. На рабочем ее не было.

Заранее благодарен!

← →
Sun bittern © (2004-07-31 19:29) [1]

Естественно вопрос. Кто такой AxisYFont и из какой библии. Может он из семейки COM?

← →
_iceman_ (2004-07-31 22:20) [2]

AxisYFont: TFont;

← →
Sun bittern © (2004-08-01 09:54) [3]

_iceman_ (31.07.04 22:20) [2]

Ну, а AxisYFont принадлежит какому компоненту?

Например такой код работает:

var
A: TFont;
begin
A := TFont.Create;
try
if FontDialog1.Execute then
A.Assign(FontDialog1.Font);
TPanel(Sender).Font.Assign(A);
finally
A.Free;
end;
end;

← →
_iceman_ (2004-08-02 12:17) [4]

У меня он тоже работает. На работе. Я говорю, что на домашнем не работает.

← →
Ega23 © (2004-08-02 12:27) [5]

AxisYFont.Name=FontDialog.Font.Name; Size Color CharSet Style
В принципе, этого достаточно.

← →
_iceman_ (2004-08-02 12:41) [6]

> Ega23 © (02.08.04 12:27) [5]

Да. Достаточно.
Но вылетаю с ошибкой не при присвоении, а при вызове диалога.

Т.е. у тебя сам FontDialog не создаётся?

← →
_iceman_ (2004-08-02 12:54) [8]

Именно

← →
_iceman_ (2004-08-03 10:09) [9]

TFontDialog.Execute Найти похожие ветки