#pas
FColorDialogEx.OnCanClose := onCanClose;

procedure THIColorDialogEx.onCanClose;
var dt:TData;
begin
 _hi_OnEvent(_event_OnCanClose,ChooseColor.rgbResult);
 if ReadInteger(dt,_data_Close,0) = 0 then ACanClose := true
  else ACanClose := false;
end;

procedure THIColorDialogEx.onCanClose;
var dt:TData;
begin
 _hi_OnEvent(_event_OnCanClose,ChooseColor.rgbResult);
 {if ReadInteger(dt,_data_Close,0) = 0 then ACanClose := true
  else ACanClose := false;}
end;

Add(ColorDialogEx,10603938,287,140)
{
 Title="Диалог выбра цвета - 3042"
 Color=12639424
 HelpButton=1
 Point(CustomColors)
 Point(OnChangeColor)
 Point(OnChangeCustomColors)
 Point(doColor)
 Point(Close)
 link(Close,12264157:Value,[])
}
Add(Memory,12264157,287,84)
{
 Default=Integer(1)
}

ReadInteger(dt,_data_Close,0);[/code]
Если написать так:
[quote]procedure THIColorDialogEx.onCanClose;
var dt:TData;
begin
 _hi_OnEvent(_event_OnCanClose,ChooseColor.rgbResult);
 ReadInteger(dt,_data_Close,0);
 {if ReadInteger(dt,_data_Close,0) = 0 then ACanClose := true
  else ACanClose := false;}
end;[/quote],
то будет ошибка. Почему же число не хочет считываться?

#pas
function THIMainForm._onClose;
begin
   ...
   if Accept and(ToIntegerEvent(_data_Close)<>0) then exit;
   ...
end;

#pas
//ReadInteger(_Data,_data_ИмяВерхнейТочки,_prop_Свойство) - так читаются данные отовсюду;
//ToInteger(_Data) - так читаются данные только из потока
//....... и т. д. для всех точек и типов данных. 

Add(RedrawManager,11454834,91,553)
{
}