Леонид, поправил. Пока не понятно, что выберет создатель темы, и в какую сторону его "подталкивать"  или, возможно, сделает что-то своё. Add(MainForm,10014265,77,63) { Left=20 Top=105 Width=715 Height=405 Name="Comics" Point(onClose) Point(Left) Point(Top) Point(SizeBorder) Point(SizeHeader) Point(doBringToFront) Point(doSetFocus) link(onCreate,15140061:doEvent1,[]) link(onClose,84379:In,[]) } Add(VBJScript,7818199,301,196) { WorkPoints=#11:##SetScript| Script=#0:|0:| } Add(ChildPanelEx,9495353,210,196) { link(onFString,10912034:doEvent1,[]) } BEGIN_SDK Add(EditMultiEx,5568177,21,21) { WorkCount=#6:doData|0:| EventCount=#9:onFString|8:onEvent1|0:| Width=552 Height=606 link(doData,7998393:doEvent1,[(81,27)(81,83)]) } Add(Panel,2715289,35,105) { Left=489 Width=210 Height=366 Align=3 } Add(FormatStr,7734432,238,385) { DataCount=5 Mask="Dim objExcel, objWorkbook, objCallout, objWorksheet\r\n\r\n Set objExcel = CreateObject("Excel.Application")\r\n objExcel.Visible = False\r\n objExcel.DisplayAlerts = False\r\n Set objWorkbook = objExcel.Workbooks.Add\r\n Set objWorksheet = objWorkbook.Worksheets(1)\r\n Set objCallout = objWorksheet.Shapes.AddShape(%2, 125, 150, 70, 50)\r\n With objCallout\r\n .ShapeStyle = 22\r\n .TextFrame.Characters.Text = "%1"\r\n .TextFrame.Characters.Font.Name = "%3" \r\n .TextFrame.Characters.Font.Size = %4\r\n .TextFrame.Characters.Font.ColorIndex = %5 \r\n .TextFrame.AutoSize = 1\r\n .Adjustments.Item(1) = -0.5\r\n .Adjustments.Item(2) = 1\r\n '.Line.DashStyle = 2\r\n '.Line.ForeColor.RGB = RGB(255, 0, 0)\r\n \r\n .Select\r\n .Copy\r\n End With\r\n 'objCallout.Select\r\n 'objCallout.Copy\r\n objExcel.Quit\r\n Set objExcel = Nothing\r\n\r\n \r\n " link(onFString,5568177:onFString,[(417,391)(417,27)]) link(Str1,12168777:Var2,[(244,376)(209,376)]) link(Str2,8682430:String,[]) link(Str3,16196897:CurrentFont,[]) link(Str4,12347589:Text,[(265,201)(293,201)]) link(Str5,665877:Index,[(272,236)(328,236)]) } Add(Memo,10812541,112,322) { Left=2 Top=2 Width=206 Height=115 Align=2 Strings=#16:Вызывает антирес|19:И такой ишо разрез:|26:Как у вас там ходют бабы —|21:В панталонах али без.|0:| ScrollBars=3 } Add(ComboBox,8682430,238,49) { Left=5 Top=115 Height=21 Strings=#3:105|3:106|3:107|3:108|0:| Text="108" Point(doSelectString) } Add(DoData,37326,189,77) { Data=Integer(108) link(onEventData,8682430:doSelectString,[]) } Add(ArrayEnum,6302324,126,378) { link(onItem,10884594:doStrCatDlm,[(165,384)(165,335)]) link(onEndEnum,7734432:doString,[]) link(Array,10812541:Array,[]) } Add(StrCatDelim,10884594,203,329) { Delimiter=""& Chr(10) &"" Point(doClear) link(Str1,12168777:Var1,[(209,320)(195,320)(195,369)]) } Add(GetDataEx,12168777,203,364) { link(Data,10884594:Result,[]) } Add(Hub,13169329,91,371) { OutCount=3 link(onEvent1,10884594:doClear,[(172,377)(172,342)]) link(onEvent2,6302324:doEnum,[]) } Add(Hub,7998393,91,77) { OutCount=3 link(onEvent1,37326:doData,[]) link(onEvent2,8126443:doData,[(179,90)(179,209)]) } Add(Button,8620402,49,371) { Left=2 Top=324 Width=206 Align=4 Caption="Создать" link(onClick,13169329:doEvent1,[]) } Add(ColorBox,665877,315,196) { Left=163 Top=142 Width=45 Height=21 } Add(FontBox,16196897,252,161) { Left=2 Top=142 Width=110 Height=21 SelFont="Segoe Script" } Add(Edit,12347589,287,161) { Left=117 Top=140 Width=36 Height=24 Font=[MS Sans Serif,12,0,0,1] Text="10" DataType=2 ClearAfterEnter=1 } Add(DoData,8126443,196,203) { Data=String(1) link(onEventData,665877:doSelectColor,[]) } END_SDK Add(Hub,10912034,266,196) { link(onEvent1,7818199:##SetScript,[]) link(onEvent2,6631650:##add,[]) } Add(ODialog,3782541,231,77) { link(onExecute,843123:doLoadFrom,[]) } Add(EnumProcess,10869016,602,98) { Name="EXCEL.EXE" Point(Name) Point(doFindName) Point(onFind) link(onFind,10869016:doKill,[(641,111)(641,90)(592,90)(592,118)]) } Add(LineBreak,2629559,546,119) { link(Out,10869016:doFindName,[]) Primary=[84379,-420,-35] } Add(ChildScrollBox,6481383,392,77) { link(onEvent1,15753555:doExecute,[]) } BEGIN_SDK Add(EditMulti,15256453,7,21) { EventCount=1 WorkCount=2 VarCount=3 Width=580 Height=256 link(doWork1,15183908:doLoad,[(207,27)(207,41)]) link(doWork2,15183908:doRefresh,[(200,34)(200,55)]) link(Var1,15183908:ImageBitmap,[(13,82)(223,82)]) link(Var2,15183908:Left,[(20,89)(230,89)]) link(Var3,15183908:Top,[(27,96)(237,96)]) } Add(ScrollBox,3673637,259,126) { Width=559 Height=366 Align=5 Point(Left) Point(Top) } Add(Image,15183908,217,35) { Width=68 Height=37 AutoSize=0 ViewStyle=4 Point(doRefresh) Point(Left) Point(Top) Point(onMouseDown) link(onMouseDown,8100323:doEvent,[]) } Add(IndexToChanel,8100323,266,42) { link(onEvent2,14654003:doPopupHere,[]) } Add(PopupMenu,14654003,322,49) { Menu=#17:Сохранить рисунок| link(onClick,10954584:doEvent,[]) } Add(IndexToChanel,10954584,385,49) { Count=3 link(onEvent1,15256453:onEvent1,[(424,55)(424,27)]) } END_SDK Add(Hub,15140061,161,77) { link(onEvent1,3782541:doExecute,[]) link(onEvent2,9495353:doData,[(186,90)(186,202)]) } Add(Img_AlphaBmp,14772512,140,420) { Point(X) Point(Y) link(onDraw,8475122:doWork,[]) link(Bitmap,4304517:getVar,[(146,397)(111,397)]) link(AlphaBitmap,13217951:Bitmap,[(153,390)(139,390)]) link(X,6630475:Result,[(160,341)(111,341)]) link(Y,3024571:Result,[]) } Add(Clipboard,13217951,126,350) { } Add(ChildFormEx,6631650,371,196) { Mode=1 link(onEvent1,9354981:doWork,[(410,202)(410,195)]) link(onEvent2,16623951:In,[]) } BEGIN_SDK Add(EditMultiEx,168946,21,21) { WorkCount=#8:doEvent1|5:##add| EventCount=#8:onEvent1|8:onEvent2|8:onEvent3| VarCount=#4:Left|3:Top| Width=363 Height=298 Point(##add) link(doEvent1,12260838:doClose,[(109,27)(109,125)]) link(##add,13134724:doData,[(46,34)(46,132)]) link(Left,12260838:Left,[(27,173)(125,173)]) link(Top,12260838:Top,[(34,180)(132,180)]) } Add(IndexToChanel,1447170,168,119) { link(onEvent2,5146317:doPopupHere,[]) } Add(Clipboard,13574382,56,77) { } Add(DoData,13134724,63,126) { link(onEventData,12260838:doPicture,[]) link(Data,13574382:Bitmap,[]) } Add(MainForm,12260838,119,98) { Width=1351 Height=680 Color=16777215 KeyPreview=1 Caption="Form1" BorderStyle=0 TaskBar=1 DragForm=0 ClientSize=0 Position=2 Point(doPicture) Point(onMouseDown) Point(Left) Point(Top) link(onMouseDown,1447170:doEvent,[]) } Add(PopupMenu,5146317,224,126) { Menu=#7:Удалить|8:Вставить|0:| link(onClick,11793537:doEvent,[]) } Add(IndexToChanel,11793537,273,126) { Count=3 link(onEvent1,168946:onEvent1,[(312,132)(312,27)]) link(onEvent2,168946:onEvent2,[(319,139)(319,34)]) link(onEvent3,168946:onEvent3,[(326,146)(326,41)]) } END_SDK Add(Img_GDIFileProcessor,843123,287,77) { link(onLoad,6481383:doWork1,[]) link(SBitmap,4649719:getVar,[]) } Add(Hub,13815085,70,287) { link(onEvent1,6630475:doCalc,[]) link(onEvent2,14772512:doDraw,[(95,300)(95,426)]) } Add(MathParse,6630475,105,287) { DataCount=3 MathStr="%1 - %2 -%3" link(onResult,3024571:doCalc,[]) link(X1,6631650:Left,[(111,257)(377,257)]) link(X2,10014265:Left,[(118,278)(83,278)]) link(X3,2974769:Var2,[]) } Add(MathParse,3024571,161,287) { DataCount=4 MathStr="%1 - %2 -%3 -0" link(X1,6631650:Top,[(167,278)(384,278)]) link(X2,10014265:Top,[(174,271)(90,271)]) link(X3,10014265:SizeHeader,[(181,247)(104,247)]) link(X4,2974769:Var3,[(188,265)]) } Add(Hub,3293907,329,119) { OutCount=3 link(onEvent1,6481383:doWork2,[(354,125)(354,90)]) link(onEvent2,6631650:doEvent1,[(361,132)(361,202)]) link(onEvent3,14496742:doEvent1,[(354,139)(354,153)(39,153)(39,97)]) } Add(GetDataEx,2974769,119,260) { Angle=3 link(Data,10014265:SizeBorder,[(97,265)]) } Add(Hub,14496742,49,91) { link(onEvent1,10014265:doBringToFront,[]) link(onEvent2,10014265:doSetFocus,[]) } Add(LineBreakEx,9354981,427,189) { } Add(LineBreakEx,13700084,301,119) { Type=1 link(OnEvent,3293907:doEvent1,[]) } Add(LineBreakEx,8475122,182,420) { } Add(LineBreak,525556,28,287) { link(Out,13815085:doEvent1,[]) Primary=[16623951,399,-84] } Add(SDialog,15753555,441,77) { link(onExecute,843123:doSaveTo,[(480,83)(480,69)(277,69)(277,90)]) } Add(LineBreakEx,4649719,294,35) { Type=2 } Add(LineBreakEx,4304517,105,378) { Type=2 } Add(LineBreakEx,13758349,392,126) { Type=3 link(_Data,6481383:Var1,[]) }
|