Нестандартные шрифты в Delphi

@red_mail · Регистрация: 25.11.2008

Студворк — интернет-сервис помощи студентам

Господа программисты, нужен платный совет.
Как использовать нестандартные шрифты в Delphi? Меня в частности интересует казахский шрифт. Как реализовать его использование в Delphi?
В MSOffice (Word, Excel) отображается нормально, а в Д7 никак.
Какие есть варианты?
За действенный совет не пожалею 5 WMZ.8)

@r@di0 · 24.01.2009, 14:48

Есть два способа:
1. Создать файл *.ini, где прописать наш шрифт, копировать сам файл шрифта.
Этот метод актуален, если Вы хотите сделать своё приложение совместимым с Windows 3.x
2. Прописать шрифт в реестре.

Мы пойдем вторым путем. Постараюсь обьяснить на примере:
Перенесите на форму компонент FontDialog и три кнопки Button. Первую назовите BInst, задайте Caption "Установить", вторую BUnInst, caption "Удалить", а третью обзовите BFont, и задайте её caption "Шрифт".

Затем подключаем модуль Registry, обьявляем переменную:

Delphi
1
2
uses registry;
var Reg:TRegistry;

Потом в процедуре TForm.Create пишем:

Delphi
1
2
3
4
5
6
7
8
Reg:=TRegistry.Create;//создаем объект Reg типа KeyExists
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.KeyExists('\Softaware\A Projects\P1')//здесь пишутся данные Вашей программы
 then begin
{если программа была установлена, то читается настройка шрифта}
 Reg.OpenKey('\Softaware\A Projects\P1',true);//здесь пишутся данные Вашей программы
 Font.Name:=Reg.ReadString('Шрифт');
 end;

Идем дальше. Теперь в обработчике TForm.BInstClick пишем:

Delphi
1
2
3
4
5
6
 Reg.OpenKey('\Softaware\A Projects',true);
 Reg.WriteString('Тема','Мои приложения');
 Reg.OpenKey('\Softaware\A Projects\P1',true);
 Reg.WriteString('Приложение','PRegistry');
 Reg.WriteString('Файл',ParamStr(0));//Запись в параметр Файл имени и пути к исполняемуму файлу (сюда нужно было бы дописать копирование файла шрифта с установочного диска)
 Reg.WriteString('Шрифт',Form1.Font.Name);//запись в параметр шрифт имени шрифта

Поехали дальше. В обработчике TForm.BUnInstClick пишем:

Delphi
1
Reg.Delete('\Softaware\A Projects\P1');//удаляем субключ из реестра

Теперь пропишем непосредственно выбор шрифта в процедуре TForm.BFontClick:

Delphi
1
2
3
4
5
6
7
if (Font.Dialog1.Execute)
 then begin
 Font.Assign(FontDialog1.Font);
 if (Reg.OpenKey('\Softaware\A Projects\P1',false))
//запись имени шрифта только если есть раздел P1
 then Reg.WriteString('Шрифт',Form.Font.Name);
 end;

Ну, и на последок. В процедуре TForm.FormDestroy пишем:

Delphi
1
 Reg.Free;//удаляем из памяти объект Reg

Теперь сохраните свое приложение под именем PRegistry и запустите, откройте RegEdit и посмотрите как оно рабоатет.

Еще к сведению: в свойстве Device компонента FontDialog определяется из какого списка шрифтов будет предложен выбор в диалоговом окне:
fdScreen - из списка экрана (по умолчанию)
fdPrinter - из списка принтера
fdBoth - из обоих

В свойстве fdForceFontExist свойства Options, можно задать разрешать ли пользователю вводить другие имена или выбирать шрифты из списка.

Z418395693191

@red_mail · 24.01.2009, 16:47 **[ТС]**

Все это понятно, но не подходит.
Дело в том, что при попытке написать что-нибудь используя нужный (казахский) шрифт отображается абра-кадабра.
Приаттачиваю сами шрифты, попробуйте может у вас получиться.
Еще раз повторюсь, что в Worde и Excel все отображается нормально.

Нужно чтобы в Label, Memo, Edit можно было бы писать на казахском.
Мне посоветовали рыть в сторону Unicode.
Буду пробывать.

Забыл сказать, что 9 спецсимволов вводяться через цифры (не NumPad). Все остальное как в русском языке (в казахском алфавите 42 буквы, 9 спец.).

@r@di0 · 24.01.2009, 19:35

интересно! Попробую на досуге!

@red_mail · 02.02.2009, 14:13 **[ТС]**

Тему можно закрывать. Установил CodeGear RAD Studio, прекрасно поддерживающий Unicode. Проблема отпала сама собой.

magirus · 24.11.2011, 21:17

Комментарий модератора

r@di0, вы не первый день на форуме - пользуйтесь тегами обрамления кода

@digim0n · 24.11.2011, 21:35

magirus, бро)) топик за 24.01.2009 откуда отрыл? и на тот момент он был новичком))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@red_mail 4 / 4 / 1 Регистрация: 25.11.2008 Сообщений: 107

	Нестандартные шрифты в Delphi 24.01.2009, 11:12. Показов 7420. Ответов 6 Метки нет (Все метки) Господа программисты, нужен платный совет. Как использовать нестандартные шрифты в Delphi? Меня в частности интересует казахский шрифт. Как реализовать его использование в Delphi? В MSOffice (Word, Excel) отображается нормально, а в Д7 никак. Какие есть варианты? За действенный совет не пожалею 5 WMZ.8) 0

@r@di0 103 / 92 / 20 Регистрация: 24.01.2009 Сообщений: 519
	24.01.2009, 19:35
	интересно! Попробую на досуге! 0

@red_mail 4 / 4 / 1 Регистрация: 25.11.2008 Сообщений: 107
	02.02.2009, 14:13 [ТС]
	Тему можно закрывать. Установил CodeGear RAD Studio, прекрасно поддерживающий Unicode. Проблема отпала сама собой. 0

@digim0n 84 / 84 / 16 Регистрация: 11.11.2011 Сообщений: 259
	24.11.2011, 21:35
	magirus, бро)) топик за 24.01.2009 откуда отрыл? и на тот момент он был новичком)) 1