Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

TTF + Delphi 5

977
27 ноября 2001 года
ANDREQ
3 / / 20.04.2000
Проблема такова нужно добраться до символов шрифта, до которых tmp=Chr(n); не достает, в частности, нужна лат. буква 'a' с точками на верху (например, у Arial`а).

Решение 1
Установить шрифт, отредактировав его так, чтобы всё, что надо можно было достать через Chr(n).
Нашел такую вакцину

Добавить фонт (.fon, .fot, .fnt, .ttf) в систему можно след. образом
{$IFDEF WIN32}
AddFontResource( PChar( my_font_PathName { AnsiString } ) );
{$ELSE}
var
ss array [ 0..255 ] of Char;
AddFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Убрать его по окончании работы
{$IFDEF WIN32}
RemoveFontResource ( PChar(my_font_PathName) );
{$ELSE}
RemoveFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

Но, все-равно не получается. Пособите! Поделитесь цельным работающим кодом!!!

Решение 2
Уж ладно бы с этими шрифтами, может есть какая команда, чтобы дорваться до символов. Проведите ликбез, плыз!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог