Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
+ 15.07.08 21:02 Число просмотров: 1319
Автор: Den <Denis> Статус: The Elderman
|
Подозреваю, что параметр Data (структура) в функцию EnumFontsProc должен передаваться по ссылке, если в EnumFontFamiliesEx правильно передается указатель на нее.
Соответственно, попробуй так:
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; var Data: TString): Integer; stdcall;
begin
... ---
Естественно Data должна быть объявлена в главном модуле программы, а не в процедуре или функции.
Как у тебя оформлен вызов EnumFontFamiliesEx и как объявлена Data? - исходник!
|
|
|