В Win7 работает без проблем, а запускаю в XP-через некоторое время выскакивает окно с "runtime error 216...." много штук, что интересно-в ХР обновляю прогу через меню программы-в конце тоже runtime error 216 выходит. Как можно это исправить? Add(MainForm,2953706,56,49) { Width=171 Height=142 Cursor=9 Caption="T" BorderStyle=1 DragForm=0 Position=1 Point(onClose) Point(Handle) link(onDeactivate,12834681:doPopup,[(100,62)(100,146)]) link(onCreate,14753881:doOpen,[(212,69)(212,146)]) link(onClose,14753881:doClose,[(212,76)(212,153)]) } Add(WinTools,12834681,112,133) { link(Handle,2953706:Handle,[(118,107)(62,107)]) } Add(MMTimer,8829228,77,196) { @Hint=#19:Период опроса порта| Interval=1500 link(onTimer,3324:doEvent1,[]) AddHint(-56,59,124,13,@Hint) } Add(DoData,5704331,287,189) { @Hint=#27:Сколько байт нужно получить| Data=Integer(25) link(onEventData,14753881:doRead,[(327,195)(327,174)]) AddHint(-72,96,166,13,@Hint) } Add(COM,14753881,336,140) { @Hint=#22:Задать параметры порта| Port=6 link(onRead,5289639:doCopy,[]) AddHint(-60,-49,143,13,@Hint) } Add(Label,5752282,490,147) { Left=10 Top=15 Width=80 Height=45 Font=[MS Sans Serif,24,1,16711680,1] Caption="" } Add(Copy,5289639,406,147) { Count=7 link(onCopy,5752282:doText,[]) } Add(DoData,36895,217,154) { Data=Integer(7) link(onEventData,14753881:doWrite,[(293,160)(293,167)]) } Add(Hub,3324,168,196) { link(onEvent1,36895:doData,[(200,202)(200,160)]) link(onEvent2,5704331:doData,[(234,209)(234,195)]) } Add(Label,9930031,147,28) { Left=115 Top=15 Width=38 Height=41 Font=[MS Sans Serif,24,0,16711680,1] Caption="°C" } Add(Time,11029998,343,21) { Format=" h:m:s" } Add(Label,9603845,343,77) { Left=5 Top=65 Width=185 Height=65 Font=[MS Sans Serif,24,1,255,1] link(Text,11029998:FormatTime,[]) } Add(Timer,10957269,280,70) { link(onTimer,9603845:doText,[(328,76)(328,83)]) }
|