Вверх ↑
Этот топик читают: Гость
Ответов: 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

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#122: 2008-11-19 08:53:01 ЛС | профиль | цитата
Мдяяя... Совсем GetEnabled
------------ Дoбавленo:

Добавлено
карма: 22

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#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
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#124: 2008-11-20 11:35:30 ЛС | профиль | цитата
Nic писал(а):
у тебя нет каких-либо сведений по этому вопросу?

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

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#125: 2008-11-20 11:40:29 ЛС | профиль | цитата
Посмотри код контрола с отрисовкой имён шрифтов самими шрифтами. Может найдётся время довести до визуального компонента.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1tdkfontcombobox.rar [1.8KB] [271]
Разработчик
Ответов: 26151
Рейтинг: 2127
#126: 2008-11-20 12:11:49 ЛС | профиль | цитата
Nic писал(а):
с отрисовкой имён шрифтов самими шрифтами

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

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#127: 2008-11-20 12:24:15 ЛС | профиль | цитата

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

Взято отсюда
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1kol_fontcombo.jpg [9.8KB] [533]
Разработчик
Ответов: 26151
Рейтинг: 2127
#128: 2008-11-20 12:25:05 ЛС | профиль | цитата
Nic, ну не одно и то же, только без иконок




карма: 22

0
файлы: 1font_box_001.png [6.1KB] [387]
Главный модератор
Ответов: 2999
Рейтинг: 396
#129: 2008-11-20 13:04:42 ЛС | профиль | цитата
Да, согласен, велосипед изобретать не стоит. А как на счёт IC установки PS Type 1?
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#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

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#131: 2008-11-20 18:29:39 ЛС | профиль | цитата
nesco писал(а):
Ну это уже слишком


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

А можно попросить инфу по вызовам API для установки шрифта в системе. На пальцах, вроде понятно из твоего объяснения, что надо создать два временных файла и, скорее всего, передать их в API функцию.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#132: 2008-11-20 18:51:29 ЛС | профиль | цитата
Nic писал(а):
что надо создать два временных файла

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

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

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


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


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

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#133: 2008-11-20 19:46:29 ЛС | профиль | цитата
А как обновить список шрифтов компонента FontBox?
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#134: 2008-11-20 20:41:58 ЛС | профиль | цитата
Nic писал(а):
А как обновить список шрифтов компонента FontBox?

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

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#135: 2008-11-20 21:22:47 ЛС | профиль | цитата
Может его научить принимать сообщения системы? Если это не возможно, то добавить метод.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)