Могу подправить
------------ Дoбавленo в 20.43:
Вот так Add(Edit,4902751,238,189) { Left=90 Top=40 Width=185 Text="8 (" Point(onKillFocus) Point(doPosition) link(onChange,13826405:doLength,[]) } Add(StrCat,8335133,448,189) { Str2=") " link(onStrCat,11465704:doWork1,[(493,195)]) link(Str1,2430236:Var1,[(454,177)(433,177)]) } Add(Length,13826405,294,189) { link(onLength,5685982:doEvent1,[]) } Add(If_else,9010320,385,189) { Op2=Integer(6) link(onTrue,8335133:doStrCat,[]) } Add(StrCat,12380988,448,238) { Str2="-" link(onStrCat,11465704:doWork2,[]) link(Str1,2430236:Var3,[(454,230)]) } Add(If_else,7454393,385,238) { Op2=Integer(11) link(onTrue,12380988:doStrCat,[]) } Add(Hub,5685982,336,189) { OutCount=3 link(onEvent1,9010320:doCompare,[]) link(onEvent2,7454393:doCompare,[(368,202)(368,244)]) link(onEvent3,6549444:doCompare,[(363,209)(363,286)]) } Add(GetDataEx,2430236,427,225) { Angle=3 link(Data,4902751:Text,[(244,230)]) } Add(HubEx,11465704,489,238) { Angle=1 link(onEvent,3816351:doWork1,[]) } Add(If_else,6549444,385,280) { Op2=Integer(14) link(onTrue,9999496:doStrCat,[]) } Add(StrCat,9999496,448,280) { Str2="-" link(onStrCat,3816351:doWork2,[]) link(Str1,2430236:Var2,[(454,257)(433,257)]) } Add(HubEx,3816351,489,280) { Angle=1 link(onEvent,2468463:doEvent1,[(493,334)(108,334)(108,202)]) } Add(Length,15055715,161,203) { link(onLength,4902751:doPosition,[]) } Add(Hub,2468463,126,196) { link(onEvent1,4902751:doText2,[]) link(onEvent2,15055715:doLength,[]) }
------------ Дoбавленo в 21.11:
Так лучше. Add(MainForm,2953706,21,105) { } Add(Edit,4902751,196,189) { Left=90 Top=40 Width=185 Text="8 (" Point(onKillFocus) Point(doPosition) link(onChange,12957080:doEvent1,[]) } Add(StrCat,8335133,462,189) { Str2=") " link(onStrCat,11465704:doWork1,[(507,195)]) link(Str1,2430236:Var1,[(468,177)(447,177)]) } Add(Length,13826405,301,189) { link(onLength,5685982:doEvent1,[]) } Add(If_else,9010320,399,189) { Op2=Integer(6) link(onTrue,8335133:doStrCat,[]) } Add(StrCat,12380988,462,238) { Str2="-" link(onStrCat,11465704:doWork2,[]) link(Str1,2430236:Var3,[(468,230)]) } Add(If_else,7454393,399,238) { Op2=Integer(11) link(onTrue,12380988:doStrCat,[]) } Add(Hub,5685982,350,189) { OutCount=3 link(onEvent1,9010320:doCompare,[]) link(onEvent2,7454393:doCompare,[(382,202)(382,244)]) link(onEvent3,6549444:doCompare,[(377,209)(377,286)]) } Add(GetDataEx,2430236,441,225) { Angle=3 link(Data,9149645:Var3,[]) } Add(HubEx,11465704,503,238) { Angle=1 link(onEvent,3816351:doWork1,[]) } Add(If_else,6549444,399,280) { Op2=Integer(14) link(onTrue,9999496:doStrCat,[]) } Add(StrCat,9999496,462,280) { Str2="-" link(onStrCat,3816351:doWork2,[]) link(Str1,2430236:Var2,[(468,275)(447,275)]) } Add(HubEx,3816351,503,280) { Angle=1 link(onEvent,1542054:doWork1,[]) } Add(Length,15055715,133,203) { link(onLength,4902751:doPosition,[]) } Add(Hub,2468463,91,196) { link(onEvent1,4902751:doText2,[]) link(onEvent2,15055715:doLength,[]) } Add(Delete,13693509,196,308) { Position=18 Count=1 link(onDelete,1542054:doWork2,[]) link(Str,9149645:Var2,[]) } Add(GetDataEx,9149645,196,225) { link(Data,4902751:Text,[]) } Add(Hub,12957080,245,189) { link(onEvent1,13826405:doLength,[]) link(onEvent2,13693509:doDelete,[(276,202)(276,262)(177,262)(177,314)]) } Add(HubEx,1542054,503,308) { Angle=1 link(onEvent,2468463:doEvent1,[(507,346)(53,346)(53,202)]) }
|