RemObjects Pascal Script for Delphi - 3.0.75.1117
Sakipiel © (2014-06-27 20:35:00)
в общем гугл ничего не рассказывает по данной проблеме,
попробую тут:
'Unable to register type TDrawItemEvent', начинает появляться
если подключить плагин TPSImport_StdCtrls
http://www.be-precision.com/forum/index.php?topic=311
нашел, что есть такая же беда в другом скриптовом языке
написанном на основе этого, и там ее исправили, но код там не
открытый и посмотреть нечего. А вопрос в том, что нужно сделать
чтобы исправить это?(
вылет происходит в модуле uPSC_stdctrls в процедуре
cl.AddTypeS('TDrawItemEvent', 'procedure(Control:
TWinControl; Index: Integer; Rect: TRect; State: Byte)');
тогда как на самом деле объявление 'TDrawItemEvent' должно
выглядеть как procedure(Control: TWinControl; Index: Integer;
Rect: TRect;
State: TOwnerDrawState)
попробовал сделать так
cl.AddTypeS('TOwnerDrawState',
'(odSelected,odGrayed,odDisabled,odChecked,odFocused)');
cl.AddTypeS('TDrawItemEvent', 'procedure(Control:
TWinControl; Index: Integer; Rect: TRect; State:
TOwnerDrawState)');
ошибка та же...
в процедуре строка Result := ReadType(Name, Parser);
дает nil из за чего и вызывается исключение. понять что
происходит в ReadType я уже не в силах (
Sakipiel (2014-06-27 20:36:00) [1]
cl.AddTypeS('TMeasureItemEvent', 'procedure(Control:
TWinControl; Index: Integer; var Height: Integer)');
такая же ошибка
Наверх 
ЧАТ |
Орешник |
|
