Make(delphi) ver(4.04 build 185) Add(MainForm,2953706,63,217) { Width=638 Height=595 Position=1 link(onCreate,14030401:doEnum,[]) } Add(PaintBox,11169961,252,357) { Left=5 Width=620 Height=450 Color=-16777196 ClearBeforeDraw=0 Point(onMouseDown) Point(MouseX) Point(MouseY) link(onBeforeDraw,10361715:doEnum,[]) link(onMouseDown,1283018:doEnum,[(296,370)(296,475)]) } Add(RGN_Array,7489550,280,147) { } Add(RGN_Rect,2715743,210,238) { Point2=1310750 Point2AsOffset=0 link(onCreateRect,4134596:doEvent1,[]) link(Point1,6145322:Point,[]) } Add(ArrayRW,4820326,280,224) { link(Array,4378807:Var2,[]) } Add(PointXY,6145322,210,175) { link(X,14810400:Part1,[]) link(Y,14810400:Part2,[]) } Add(ArrayEnum,10361715,322,357) { link(onItem,16493341:doEvent1,[]) link(Array,7090295:Var2,[]) } Add(GetDataEx,4378807,280,196) { link(Data,7489550:Array,[]) } Add(IntegerArray,14512497,497,154) { @Hint=#14:Массив билетов|13:0 - не продан|10:1 - продан| IntArray=[] AddHint(-9,-61,98,39,@Hint) } Add(ArrayRW,8230153,497,231) { link(Array,13903674:Var2,[]) link(Index,13100592:Var2,[(510,219)(364,219)]) } Add(Hub,4134596,252,238) { link(onEvent1,4820326:doAdd,[]) link(onEvent2,7061056:doData,[]) } Add(DoData,7061056,378,245) { Data=Integer(0) link(onEventData,8230153:doAdd,[]) AddHint(0,-18,21,13,Data) } Add(RGN_Draw,16634796,553,364) { Color=65280 link(onDraw,11208437:doWork2,[]) link(Bitmap,14321127:Var2,[]) } Add(GetDataEx,14321127,553,347) { Angle=3 link(Data,15870139:Var3,[]) } Add(Img_TextInRect,14597232,686,364) { Point2=1310750 Point2AsOffset=0 AlignHorizon=2 Alignvertical=2 link(Bitmap,14321127:Var3,[(692,352)]) link(Point1,3202759:Point,[]) } Add(RGN_GetData,12980563,602,364) { link(onGetData,1932065:doOperation,[]) } Add(PointXY,3202759,700,308) { link(X,12980563:Left,[(706,296)(641,296)(641,431)(608,431)]) link(Y,12980563:Top,[(713,287)(636,287)(636,427)(615,427)]) } Add(Hub,16493341,378,357) { link(onEvent1,8230153:doRead,[(420,363)(420,237)]) link(onEvent2,12308612:doEvent,[]) } Add(GetDataEx,13100592,358,329) { Angle=2 link(Data,10361715:Index,[(364,396)(335,396)]) } Add(IndexToChanel,12308612,497,364) { Point(Index) link(onEvent1,16634796:doDraw,[]) link(onEvent2,7799530:doDraw,[(537,377)(537,419)]) link(Index,8230153:Item,[]) } Add(RGN_Draw,7799530,546,413) { Color=255 link(onDraw,11208437:doWork3,[(592,419)]) link(Bitmap,15870139:Var2,[]) } Add(GetDataEx,15870139,546,347) { Angle=3 link(Data,11169961:Bitmap,[(373,352)(373,407)(258,407)]) } Add(HubEx,11208437,588,364) { link(onEvent,12980563:doGetData,[]) } Add(ArrayEnum,1283018,308,469) { link(onItem,8429164:doCheck,[]) link(Array,7090295:Var1,[(314,320)]) } Add(GetDataEx,7090295,322,315) { link(Data,4378807:Var3,[(328,201)]) } Add(RGN_PointXY,8429164,357,469) { link(onTrue,650521:doEvent1,[]) link(X,11169961:MouseX,[(370,442)(265,442)]) link(Y,11169961:MouseY,[(377,429)(272,429)]) } Add(Hub,650521,399,469) { OutCount=3 link(onEvent1,3579676:doRead,[]) link(onEvent2,4714090:doWork3,[(425,482)(425,544)(152,544)]) link(onEvent3,1283018:doStop,[(421,489)(421,515)(301,515)(301,482)]) } Add(HubEx,4714090,148,357) { link(onEvent,11169961:doRefresh,[]) } Add(ArrayRW,3579676,441,469) { link(onRead,3372627:doOperation,[]) link(Array,13903674:Var1,[(447,201)]) link(Index,2494074:Var1,[(454,452)]) } Add(GetDataEx,13903674,497,196) { link(Data,14512497:Array,[]) } Add(Math,3372627,490,469) { OpType=6 Op2=1 link(onResult,16770184:doEvent1,[]) } Add(Math,1932065,644,364) { Op2=1 link(onResult,14597232:doDraw,[]) link(Op1,13100592:Var3,[(650,334)]) } Add(ArrayEnum,14030401,112,231) { link(onItem,15150942:doEvent1,[]) link(onEndEnum,4714090:doWork1,[(152,244)]) link(Array,10989941:Var2,[]) } Add(MultiStrPart,14810400,210,119) { From=1 } Add(Hub,15150942,161,231) { link(onEvent1,14810400:doSplit,[(193,237)(193,125)]) link(onEvent2,2715743:doCreateRect,[]) } Add(StrList,12790281,98,147) { Strings=#14:Лв.1/1;137;129|14:Лв.1/2;190;173|14:Ср.1/1;265;197|14:Ср.1/2;335;197|14:Пр.1/1;410;173|14:Пр.1/2;463;129|13:Лв.2/1;74;162|14:Лв.2/2;124;213|14:Лв.2/3;185;249|14:Ср.2/1;262;267|14:Ср.2/2;333;268|14:Пр.2/1;411;250|14:Пр.2/2;472;216|14:Пр.2/3;523;166|13:Лв.3/1;37;228|13:Лв.3/2;90;275|14:Лв.3/3;152;311|14:Ср.3/1;234;333|14:Ср.3/2;300;340|14:Ср.3/3;366;333|14:Пр.3/1;448;311|14:Пр.3/2;510;275|14:Пр.3/3;563;228|13:Лв.4/1;15;295|13:Лв.4/2;77;344|14:Лв.4/3;141;380|14:Ср.4/1;232;402|14:Ср.4/2;300;410|14:Ср.4/3;368;402|14:Пр.4/1;464;380|14:Пр.4/2;528;344|15:Пр.4//3;585;295| } Add(ListBox,16083973,847,553) { Top=455 Width=620 Height=105 AddType=1 } Add(Hub,16770184,532,469) { link(onEvent1,3579676:doWrite,[(553,475)(553,523)(429,523)(429,482)]) link(onEvent2,8292678:doRead,[(567,482)(567,594)]) } Add(StrList,10282012,756,546) { Strings=#13:вернули билет|13:куплен билет | Point(onGetString) Point(doGetString) Point(IdxToSelect) link(onGetString,10083617:doString,[]) link(IdxToSelect,3372627:Result,[(776,510)(496,510)]) } Add(ArrayRW,8292678,588,588) { link(onRead,5327185:doSplit,[]) link(Array,10989941:Var1,[(594,571)(109,571)(109,208)]) link(Index,2494074:Var3,[(601,452)]) } Add(GetDataEx,2494074,553,447) { Angle=2 link(Data,1283018:Index,[(559,536)(321,536)]) } Add(GetDataEx,10989941,112,203) { link(Data,12790281:Array,[]) } Add(FormatStr,10083617,798,553) { DataCount=3 Mask="[%1] %2 %3 сектора" link(onFString,16083973:doAdd,[]) link(Str1,14399309:FormatTime,[]) link(Str3,13002352:Result,[(818,541)(839,541)(839,634)(720,634)]) } Add(Time,14399309,798,462) { Format="D:M:Y h:m:s" } Add(MultiStrPart,5327185,630,588) { Count=1 link(onSplit,14614472:doReplace,[]) } Add(MultiReplace,13002352,714,588) { ReplaceList="Лв=слева;\r\nСр=в середине;\r\nПр=справа;" link(onResult,10282012:doGetString,[]) } Add(Replace,14614472,672,588) { SubStr="/" DestStr=" ряда " link(onReplace,13002352:doMultiReplace,[]) link(Str,5327185:Part1,[(678,576)(668,576)(668,633)(636,633)]) }