![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 38
|
![]()
Здравствуйте! Помогите решить две задачи:
1. Есть рисунки-bmp, которые находятся в файле ресурсов (p.res). Их надо вставить в paintbox. В принципе все получается и компилируется, но при запуске программы выдается ошибка, что не может найти этот вмп. 2. Как вставить свой шрифт в программу, что бы он мог использоваться компонентом Edit. Так не получается: procedure TForm1.FormCreate(Sender: TObject); begin AddFontResource(PChar(ExtractFilePa th(ParamStr(0) + 'YourFont.TTF'))); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end; Заранее спасибо за ответы! |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
2 вопрос: разберитесь со скобками
AddFontResource(PChar(ExtractFilePa th(ParamStr(0)) + 'YourFont.TTF')); 1 вопрос: хотелось бы увидеть ваш код. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 38
|
![]()
С картинками все в порядке. А вот со шрифтом нет. Сделала файл font.res с нужным шрифтом и попыталась им воспользоваться - не получилось, все компилируется, но нужный мне компонент почемуто не может им воспользоваться. Код такой:
procedure TForm1.FormCreate(Sender: TObject); var Res : TResourceStream; begin Res := TResourceStream.Create(hInstance, 'FONT', Pchar('ANYOL1')); Res.SavetoFile('myF.ttf'); Res.Free; AddFontResource(PChar('myF.ttf')); SendMessage(HWND_BROADCAST,WM_FONTC HANGE,0,0); form1.Edit1.Font.Name:='myF'; end; Это Едит1 не использует нужный шрифт.... Помогите, в чем тут дело??! |
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Давайте разбираться...
1. Проверьте, извлекается ли шрифт из ресурса в файл myF.ttf 2. Имя файла со шрифтом и имя шрифта могут не совпадать... AddFontResource('myF.ttf'); SendMessage(HWND_BROADCAST,WM_FONTC HANGE,0,0); form1.Edit1.Font.Name:='myF'; |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 38
|
![]()
Да, наверное, дело в этом. Имя файла myF.ttf, а как тогда узнать имя самого шрифта?
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Установить шрифт в систему, посмотреть его имя и удалить
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 38
|
![]()
Узнала имя шрифта, но все равно не получается. Начну сначала, есть Едит1 и шрифт, задача в том что бы Едит пользовался этим шрифтом. Пробовала просто копировать шрифт в папку Fonts и присвоить в коде едиту этот шрифт, но не получилось. В Ворде шрифт работает, в папку с системными шрифтами устанавливается, но гда надо не работает.....
|
![]() |
![]() |
![]() |
#8 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
Выкладывайте здесь файл со шрифтом, посмотрю...
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 38
|
![]()
Вот файл со шрифтом
|
![]() |
![]() |
![]() |
#10 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]()
У меня все заработало с первого раза
Код:
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
paintbox | steck | Общие вопросы Delphi | 5 | 28.10.2007 16:15 |
Как определить координаты видимой части PaintBox? | Vladimir K. | Общие вопросы Delphi | 3 | 28.12.2006 10:02 |