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

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]

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

---

← →
Ega23 ©   (2004-08-02 12:47) [7]

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

---

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

Именно

---

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

up

---

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

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



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