| Категории раздела |
|
Религия [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
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;
| |
|
|
|
