ganselo, Вооот! Другое дело
Что-то получается, только некоторые части не могу перевести с
Delphi на
C++.
Delphi
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('Bauhs93.ttf');
Res.Free;
AddFontResource(PChar('Bauhs93.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
C++ как и что у меня получилось (
потом, когда и если всё получится, детально опишу последовательность действий). Не могу эту часть правильно перевести. Переменная
TResourceStream Res; вроде бы создаю, а потом присвоить ей что-то я не пойму как? По ходу нужно использовать оператор
new, но на простых типах умею, а вот на таких не приходилось. Думаю с кодом после
begin разобрался бы, мне только правильно перевести эту строку -
Res : TResourceStream;
Код:
// Для своего использования шрифта - Delphi
// Res : TResourceStream; // Объявляем переменную
// begin
// Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
// Res.SavetoFile('Bauhs93.ttf');
// Res.Free; // освобождение ресурсов - деструктор.
// Работает только эта часть-----------------------------
AddFontResourceA("verdana.ttf");
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Проект с включенным в него ресурсом для шрифта скомпилился, только без тех строк, что закоментированы. В
FormCreate
