bmp и paintbox, использование шрифта?

[PONKA]

Здравствуйте! Помогите решить две задачи:
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;

Заранее спасибо за ответы!

[_Dmitry]

2 вопрос: разберитесь со скобками
AddFontResource(PChar(ExtractFilePa th(ParamStr(0)) + 'YourFont.TTF'));
1 вопрос: хотелось бы увидеть ваш код.

[PONKA]

С картинками все в порядке. А вот со шрифтом нет. Сделала файл 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 не использует нужный шрифт.... Помогите, в чем тут дело??!

[_Dmitry]

Давайте разбираться...
1. Проверьте, извлекается ли шрифт из ресурса в файл myF.ttf
2. Имя файла со шрифтом и имя шрифта могут не совпадать...

AddFontResource('myF.ttf');
SendMessage(HWND_BROADCAST,WM_FONTC HANGE,0,0);
form1.Edit1.Font.Name:='myF';

[PONKA]

Да, наверное, дело в этом. Имя файла myF.ttf, а как тогда узнать имя самого шрифта?

[_Dmitry]

Установить шрифт в систему, посмотреть его имя и удалить

[PONKA]

Узнала имя шрифта, но все равно не получается. Начну сначала, есть Едит1 и шрифт, задача в том что бы Едит пользовался этим шрифтом. Пробовала просто копировать шрифт в папку Fonts и присвоить в коде едиту этот шрифт, но не получилось. В Ворде шрифт работает, в папку с системными шрифтами устанавливается, но гда надо не работает.....

[_Dmitry]

Выкладывайте здесь файл со шрифтом, посмотрю...

[PONKA]

Вот файл со шрифтом

[_Dmitry]

У меня все заработало с первого раза

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource('myF.ttf');
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  Form1.Edit1.Font.Name:='455';
end;