RemObjects Pascal Script for Delphi

← →
Sakipiel (2014-06-27 20:35) [0]

в общем гугл ничего не рассказывает по данной проблеме, попробую тут:

"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) [1]

cl.AddTypeS("TMeasureItemEvent", "procedure(Control: TWinControl; Index: Integer; var Height: Integer)");

такая же ошибка

RemObjects Pascal Script for Delphi - 3.0.75.1117 Найти похожие ветки