TempFont - HiAsm

Форумы Делаем компонентыTempFont ← Ctrl1 2 3 4 5 6 7 8910Ctrl →

Этот топик читают: Гость

Ответов: 5446

Рейтинг: 323

#121: 2008-11-19 02:26:26 ЛС | профиль | цитата

#pas
procedure THIWinTools._var_isEnabled;

var h:cardinal;

begin

   h := ReadInteger(_Data,_data_Handle,0);

   dtInteger(_Data, integer(isWindowEnabled(h)));

end;

карма: 1

Разработчик

Ответов: 26073

Рейтинг: 2122

#122: 2008-11-19 08:53:01 ЛС | профиль | цитата

Мдяяя... Совсем GetEnabled
------------ Дoбавленo:

Добавлено

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#123: 2008-11-20 11:28:42 ЛС | профиль | цитата

nesco, мерси за исправления - помогло. Но пришла беда откуда не ждали. Потребовалось подключить шрифт в формате Adobe Postscript Type 1. Это файлы с расширением pfa и pfb. Последняя буква говорит о формате данных самого файла (a - ascii, b - binary). Ещё как то используется файл метрик, чтобы это ни значило с расширением pfm. Порылся в Гугле - почти ничего не нашёл. Обнаружил, что в PHP4 есть функция:

Google писал(а):

Загружает шрифт в формате PostScript Type1 из файла
imagepsslantfont

Буду ещё рыть, конечно. Вопрос: у тебя нет каких-либо сведений по этому вопросу?

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Разработчик

Ответов: 26073

Рейтинг: 2122

#124: 2008-11-20 11:35:30 ЛС | профиль | цитата

Nic писал(а):

у тебя нет каких-либо сведений по этому вопросу?

Да, встречал такой вопрос, их надо грузить все, функция это поддерживает, но вот реализация оказалась довольно сложной, надо создавать три одинаковых файла temp, но с разными расширениями. Млин... это -- чистый геморрой

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#125: 2008-11-20 11:40:29 ЛС | профиль | цитата

Посмотри код контрола с отрисовкой имён шрифтов самими шрифтами. Может найдётся время довести до визуального компонента.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

файлы: 1

tdkfontcombobox.rar [1.8KB] [240]

Разработчик

Ответов: 26073

Рейтинг: 2122

#126: 2008-11-20 12:11:49 ЛС | профиль | цитата

Nic писал(а):

с отрисовкой имён шрифтов самими шрифтами

А что, FontBox разве так не делает

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#127: 2008-11-20 12:24:15 ЛС | профиль | цитата

------------ Дoбавленo:

Взято отсюда

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

файлы: 1

kol_fontcombo.jpg [9.8KB] [501]

Разработчик

Ответов: 26073

Рейтинг: 2122

#128: 2008-11-20 12:25:05 ЛС | профиль | цитата

Nic, ну не одно и то же, только без иконок

карма: 22

файлы: 1

font_box_001.png [6.1KB] [347]

Главный модератор

Ответов: 2997

Рейтинг: 395

#129: 2008-11-20 13:04:42 ЛС | профиль | цитата

Да, согласен, велосипед изобретать не стоит. А как на счёт IC установки PS Type 1?

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Разработчик

Ответов: 26073

Рейтинг: 2122

#130: 2008-11-20 17:27:25 ЛС | профиль | цитата

Nic писал(а):

А как на счёт IC установки PS Type 1

Ну это уже слишком, может сам попробуешь

------------ Дoбавленo:

Nic писал(а):

Посмотри код контрола с отрисовкой имён шрифтов самими шрифтами

Добавил все прелести BoxDrawManagera к FontBoxy.


Add(FontBox,2563314,112,112)
{
 Left=10
 Top=15
 Width=250
 Height=21
 BoxDrawManager="123"
 link(onResult,10399787:doText,[])
}
Add(BoxDrawManager,10306346,112,154)
{
 Name="123"
 Gradient=1
 Gutter=1
}
Add(Edit,10399787,168,112)
{
 Left=275
 Top=15
 Width=150
 Height=25
 Text=""
}

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#131: 2008-11-20 18:29:39 ЛС | профиль | цитата

nesco писал(а):

Ну это уже слишком

Согласен, наглость с моей стороны, но не мог не спросить

А можно попросить инфу по вызовам API для установки шрифта в системе. На пальцах, вроде понятно из твоего объяснения, что надо создать два временных файла и, скорее всего, передать их в API функцию.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Разработчик

Ответов: 26073

Рейтинг: 2122

#132: 2008-11-20 18:51:29 ЛС | профиль | цитата

Nic писал(а):

что надо создать два временных файла

Можно и не создавать, а грузить напрямую. Почитай про AddFontResource, информации про нее навалом.

Вот про имя файла, которое нужно подставить:

MSDNrus писал(а):

Windows 2000/XP: Чтобы добавить шрифт, информация о котором исходит из нескольких файлов ресурса, в параметре lpszFileName, указывают на строку с именами файлов, разделенными | (логическое OR) - например, abcxxxxx.pfm | abcxxxxx.pfb.

------------ Дoбавленo:

Выгрузка ресурса шрифта производится функцией RemoveFontResource, вот только про имя там ничего не написано, видимо, надо выгружать каждый в отдельности.

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#133: 2008-11-20 19:46:29 ЛС | профиль | цитата

А как обновить список шрифтов компонента FontBox?

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Разработчик

Ответов: 26073

Рейтинг: 2122

#134: 2008-11-20 20:41:58 ЛС | профиль | цитата

Nic писал(а):

А как обновить список шрифтов компонента FontBox?

А никак (а кто его знал, что это понадобится)

карма: 22

Главный модератор

Ответов: 2997

Рейтинг: 395

#135: 2008-11-20 21:22:47 ЛС | профиль | цитата

Может его научить принимать сообщения системы? Если это не возможно, то добавить метод.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Форумы Делаем компонентыTempFont ← Ctrl1 2 3 4 5 6 7 8910Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)