| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TFontDialog.Execute [D7, WinXP]
_iceman_ © (2004-07-31 16:33:00)Здравствуйте!
При вызове диалога для изменения шрифта
if dlgFont.Execute then
AxisYFont.Assign(dlgFont.Font);
получаю
System Error. Code: 1722
Сервер RPC недоступен
Данная ошибка появилась на домашнем компьютере. На рабочем ее не было.
Заранее благодарен!
_iceman_ (2004-08-03 10:09:00) [1]up
_iceman_ (2004-08-02 12:54:00) [2]Именно
Ega23 (2004-08-02 12:47:00) [3]Т.е. у тебя сам FontDialog не создаётся?
_iceman_ (2004-08-02 12:41:00) [4]
> Ega23 © (02.08.04 12:27) [5]
Да. Достаточно.
Но вылетаю с ошибкой не при присвоении, а при вызове диалога.
Ega23 (2004-08-02 12:27:00) [5]
AxisYFont.Name=FontDialog.Font.Name;
Size
Color
CharSet
Style
В принципе, этого достаточно.
_iceman_ (2004-08-02 12:17:00) [6]У меня он тоже работает. На работе. Я говорю, что на домашнем не работает.
Sun bittern (2004-08-01 09:54:00) [7]_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-07-31 22:20:00) [8]AxisYFont: TFont;
Sun bittern (2004-07-31 19:29:00) [9]Естественно вопрос. Кто такой AxisYFont и из какой библии. Может он из семейки COM?
| |
