Вверх ↑
Ответов: 784
Рейтинг: 168
#1: 2020-09-02 08:24:53 ЛС | профиль | цитата
Леонид, поправил. Пока не понятно, что выберет создатель темы, и в какую сторону его "подталкивать" или, возможно, сделает что-то своё.
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,[])
}


карма: 15

0
Редактировалось 9 раз(а), последний 2020-09-03 11:23:53