с утра хорошо думается ,на чистую голову
вот доработаный вариант
жаль конечно что файл нельзя прилепить...
code_9128.txt
------------ Дoбавленo:
Add(MainForm,4916021,-149,175) { Left=20 Top=105 Width=761 Height=518 Position=1 Point(onDblClick) Point(onClose) Point(MouseX) Point(MouseY) link(onCreate,11507049:doEvent1,[(-26,195)(-26,419)]) link(onDblClick,14843277:doCompare,[(-101,202)(-101,272)]) } Add(Timer,13089243,523,266) { Interval=30 Enable=1 AutoStop=1 link(onTimer,7065366:doData,[]) } Add(FormatStr,8647546,-9,266) { DataCount=3 Mask="%1;%2;%3" link(onFString,2101727:doEvent1,[]) link(Str1,12472948:Var1,[(-3,254)]) link(Str2,4916021:MouseY,[(4,240)(-136,240)]) link(Str3,4916021:MouseX,[(11,233)(-143,233)]) } Add(DoData,7065366,572,266) { link(onEventData,16556987:doEvent1,[]) link(Data,7939362:Value,[(578,254)(562,254)(562,310)(480,310)]) } Add(ChildPanelEx,2167013,418,266) { Mode=1 link(delpan,7939362:doValue,[]) link(onSv,6260279:doEvent1,[(459,279)(459,191)(87,191)(87,216)]) link(Op2,1255205:Checked,[(424,250)(375,250)]) link(op23,16555155:Checked,[]) } BEGIN_SDK Add(EditMultiEx,4334663,21,21) { WorkCount=#5:##add|8:##delete|8:##select|7:##clear| EventCount=#6:delpan|4:onSv| VarCount=#12:##eventIndex|7:##count|7:##index|9:StrToSave| DataCount=#3:Op2|4:op23| Width=650 Point(##add) Point(##delete) Point(##select) Point(##clear) Point(##eventIndex) Point(##count) Point(##index) link(##add,16739583:doSplit,[(35,27)(35,69)]) link(##select,8336416:doString,[(62,41)(62,125)]) link(StrToSave,8336416:FString,[(48,197)(195,197)]) } Add(Panel,16698249,280,56) { Left=10 Top=15 Width=71 Height=59 Point(doLeft) Point(doTop) Point(Handle) Point(onMouseDown) Point(Left) Point(Top) Point(onDblClick) Point(onMouseUp) link(onMouseDown,3448009:doCompare,[(324,69)(324,90)]) link(onDblClick,1412874:doCompare,[]) } Add(StrPart,16739583,91,63) { Char=";" Point(Left) link(onSplit,12139722:doSplit,[(135,69)(135,41)]) link(onPart,14000975:doValue,[(156,76)(156,34)]) } Add(StrPart,12139722,147,35) { Char=";" link(onSplit,16698249:doLeft,[(236,41)(236,69)]) link(onPart,16698249:doTop,[(225,48)(225,76)]) } Add(MoveWindow,4482568,280,126) { link(Handle,16698249:Handle,[]) } Add(Memory,14000975,189,28) { link(onData,16698249:doCaption,[(251,34)(251,62)]) } Add(FormatStr,8336416,189,119) { DataCount=3 Mask="%1;%2;%3" Point(FString) link(Str1,14000975:Value,[]) link(Str2,16698249:Top,[(202,94)(300,94)]) link(Str3,16698249:Left,[(209,100)(293,100)]) } Add(Hub,13142027,399,84) { link(onEvent1,4482568:doMove,[(443,90)(443,111)(268,111)(268,132)]) link(onEvent2,4334663:onSv,[(526,97)(526,34)]) } Add(If_else,3448009,336,84) { Op1=Integer(0) link(onTrue,13142027:doEvent1,[]) link(onFalse,10644367:doMessage,[(391,97)(391,153)]) link(Op2,4334663:Op2,[(349,52)(27,52)]) } Add(If_else,1412874,448,70) { Op1=Integer(1) link(onTrue,4334663:delpan,[(576,76)(576,27)]) link(onFalse,7921980:doMessage,[(516,83)(516,111)]) link(Op2,4334663:op23,[(461,46)(34,46)]) } Add(Message,10644367,483,147) { Message="перемещение запрещено..." Caption="внимание" Icon=4 } Add(Message,7921980,553,105) { Message="удаление запрещено..." Caption="внимание" Icon=4 } END_SDK Add(Memory,7939362,474,266) { Point(Data) link(onData,13089243:doTimer,[]) link(Data,2167013:##eventIndex,[(480,254)(463,254)(463,310)(424,310)]) } Add(StringTable,3402547,341,364) { Top=364 Width=203 Height=120 FileName="probe.tbl" Columns=#10:Caption=65|6:Top=65|7:Left=65| StaticColumn=0 Point(Strings) link(Str,2167013:StrToSave,[(347,331)(445,331)]) } Add(For,12359612,243,280) { IncludeEnd=1 link(onEvent,13553136:doEvent1,[]) link(End,12472948:Var2,[]) } Add(Hub,13553136,292,280) { link(onEvent1,2167013:##select,[]) link(onEvent2,3402547:doAdd,[(332,293)(332,370)]) } Add(GetDataEx,12472948,243,245) { Angle=1 link(Data,2167013:##count,[(315,254)(315,310)(431,310)]) } Add(Hub,672925,180,273) { InCount=5 link(onEvent1,3402547:doClear,[(282,279)(282,377)]) link(onEvent2,12359612:doFor,[]) } Add(CheckBox,16555155,425,203) { Left=126 Top=339 Caption="Del" } Add(HubEx,10059197,222,385) { link(onEvent,3402547:doSave,[]) } Add(ArrayEnum,8885822,355,420) { link(onItem,2014848:doWork3,[(401,426)]) link(onEndEnum,672925:doEvent3,[(402,433)(402,462)(162,462)(162,293)]) link(Array,3402547:Strings,[]) } Add(HubEx,2014848,397,259) { link(onEvent,2167013:##add,[]) } Add(Hub,16556987,621,266) { OutCount=3 link(onEvent1,2167013:##delete,[(680,272)(680,322)(406,322)(406,279)]) link(onEvent2,672925:doEvent4,[(672,279)(672,412)(168,412)(168,300)]) link(onEvent3,8760824:doEvent2,[(665,286)(665,472)(54,472)(54,335)]) } Add(Hub,2101727,33,266) { OutCount=3 link(onEvent1,2014848:doWork2,[]) link(onEvent2,672925:doEvent1,[]) link(onEvent3,8760824:doEvent1,[(87,286)(87,328)]) } Add(Hub,8760824,110,322) { InCount=2 link(onEvent1,672925:doEvent2,[(155,328)(155,286)]) link(onEvent2,10059197:doWork2,[(210,335)(210,398)]) } Add(Hub,11507049,271,413) { link(onEvent1,3402547:doLoad,[(322,419)(322,391)]) link(onEvent2,8885822:doEnum,[]) } Add(CheckBox,1255205,369,203) { Left=66 Top=339 Caption="Hold" } Add(Hub,6260279,96,210) { link(onEvent1,672925:doEvent5,[(150,216)(150,307)]) link(onEvent2,10059197:doWork1,[(226,223)]) } Add(CheckBox,10028162,320,203) { Left=6 Top=339 Caption="create" } Add(If_else,14843277,-86,266) { Op1=Integer(1) link(onTrue,8647546:doString,[]) link(onFalse,10644367:doMessage,[(-34,279)(-34,202)]) link(Op2,10028162:Checked,[(-73,250)(326,250)]) } Add(Message,10644367,-16,196) { Message="созданее новых панелей запрещено..." Caption="внимание" }
есть ещё доработки на чекеры create hold del....
|