Add(ChildGroupBox,5955580,175,173) { } BEGIN_SDK Add(EditMulti,2234262,3,3) { Width=216 Height=116 } Add(GroupBox,10655039,91,21) { Left=130 Top=35 Width=175 Height=145 Caption="Настройки показа" Point(PHandle) } Add(InlineCode,4769095,98,70) { DataPoints=#7:PHandle| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|28: ParentC,CB_Rnd:PControl;|9: public|22: PHandle:THI_Event;|0:|23: constructor Create;|43: //procedure (var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|46: ParentC := PControl(ToIntegerEvent(PHandle));|0:|43: CB_Rnd := NewCheckbox(ParentC,'Вразброс');|45: CB_Rnd.BoundsRect := MakeRect(10,20,110,40);|1: |4:end;|0:|4:end.| link(PHandle,10655039:PHandle,[(104,62)(97,62)]) } END_SDK