Lazarus - как добавить в программу шрифты из папки? - AddFontResource - 20 Января 2022 - Блог

Меню сайта

Категории раздела

Религия [2]

Буддизм, Христианство, Агни Йога, Йога Васиштха и др. Йоги, Индуизм, Искусство Жизни, Шри Шри Рави Шанкар, Конфуций, Хагакуре Сокрытое в листве, Ицхак Одизес, Наталья Грейс, Ошо, Тантра, Даосизм

Программы [5]

Описание различных программ

Программирование [24]

Исходники, примеры, ссылки, программы C++, Delphi, Python, Html, Java но в основном Delphi, Python, Html, создание игр, Blender Game Engine

Blender [16]

Бесплатный редактор трехмерного моделирования

CAD\CAM\CAE [0]

Solid Works, Nastran, Patran, Ansys и др.

Krita [4]

Материалы по свободному графическому редактору

Интернет [1]

Интересная информация о работе с интернетом

IrfanView [1]

Возможности программы

Игры [2]

Железо [1]

Различная электроника

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Форма входа

Главная » 2022 » Январь » 20 » Lazarus - как добавить в программу шрифты из папки? - AddFontResource

20:44

Lazarus - как добавить в программу шрифты из папки? - AddFontResource

uses

Windows; //Особо подчеркнём, что для функции AddFontResource используется модуль Windows

var
Form1: TForm1;
seldir,selfile,apath:string;

procedure TForm1.FormCreate(Sender: TObject);
begin
seldir:='';
selfile:='';
StatusBar1.SimpleText:='Здравствуйте! Жду ваших указаний...';
apath:= ExtractFilePath(Application.ExeName);//Определение директории данной программы
AddFontResource(PChar(apath+'pass.ttf'));
AddFontResource(PChar(apath+'tahoma.ttf'));
Edit2.Font.Name:='Pass';
Edit3.Font.Name:='Pass';
Edit2.Font.Size:=9;
Edit3.Font.Size:=9;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
RemoveFontResource(PChar(apath+'pass.ttf'));
RemoveFontResource(PChar(apath+'tahoma.ttf'));
end;