Вверх ↑
Этот топик читают: Гость
Ответов: 321
Рейтинг: 10
#1: 2017-04-01 10:33:04 ЛС | профиль | цитата
Привет ребята, собственно вопрос, можно ли повернуть "Надпись". например на 15 градусов ?!
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26061
Рейтинг: 2120
#2: 2017-04-01 11:02:46 ЛС | профиль | цитата
Master4eG писал(а):
можно ли повернуть "Надпись". например на 15 градусов ?!

Компонент Img_TExt, свойство Orientation
карма: 22

0
Ответов: 321
Рейтинг: 10
#3: 2017-04-01 11:10:24 ЛС | профиль | цитата
nesco, это при рисовании, если не ошибаюсь, а как в pre-view показать насколько повернут будет текст ?!
карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#4: 2017-04-01 11:14:05 ЛС | профиль | цитата
Master4eG писал(а):
а как в pre-view показать насколько повернут будет текст ?!

Отрисуй перевернутый текст прямо на контексте, вот и будет pre-view. Ну не поворачиваются у нас контролы, хоть ты тресни.
карма: 22

0
Ответов: 321
Рейтинг: 10
#5: 2017-04-01 11:20:08 ЛС | профиль | цитата
В моем случае по верх картинки передвигаю "Label" через MoveWindow, это типа pre-view, с этого Label и получаю координаты для Img_TExt...
Значит нельзя, спасибо nesco, .

Редактировалось 1 раз(а), последний 2017-04-01 11:20:28
карма: 1

0
Ответов: 8886
Рейтинг: 823
#6: 2017-04-01 16:55:25 ЛС | профиль | цитата
Master4eG, если нельзя, но очень хочется, то
можно


Add(MainForm,2953706,63,119)
{
Height=304
Point(onMouseDown)
Point(onMouseWheel)
link(onCreate,15525676:doWork1,[])
link(onMouseWheel,640718:doCalc,[])
}
Add(Image,1995399,350,133)
{
Left=75
Top=15
Width=300
Height=240
Point(doRefresh)
Point(onMouseDown)
Point(onMouseWheel)
Point(doVisible)
Point(Handle)
Point(MouseX)
Point(MouseY)
link(onMouseDown,14862133:doWork1,[(389,146)(389,125)(316,125)])
}
Add(Edit,16238834,203,210)
{
Left=10
Top=20
Text="125"
}
Add(MultiElement,15525676,112,133)
{
link(onEvent1,10062129:doWork2,[])
}
BEGIN_SDK
Add(EditMulti,5140168,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,6774456:doEvent1,[(109,27)(109,62)])
}
Add(Hub,6774456,119,56)
{
link(onEvent1,9869400:doCreate,[])
link(onEvent2,16557241:doFor,[(144,69)(144,83)(60,83)(60,111)])
}
Add(Bitmap,9869400,245,42)
{
HWidth=300
HHeight=240
FillColor=12639424
Point(doCreate)
}
Add(Img_Point,1752040,245,105)
{
Size=2
Point(X)
Point(Y)
link(Bitmap,8723685:Var2,[])
link(X,1003261:Position,[(258,96)(171,96)(171,145)(139,145)])
}
Add(For,1003261,133,105)
{
End=299
link(onEvent,192781:doCalc,[])
}
Add(For,16557241,70,105)
{
Start=1
End=6
link(onEvent,1003261:doFor,[])
link(onStop,7352095:doData,[(109,118)(109,153)])
}
Add(MathParse,192781,182,105)
{
MathStr="240-sqrt(%1)*3*%2"
link(onResult,1752040:doDraw,[])
link(X2,16557241:Position,[(195,89)(125,89)(125,145)(76,145)])
}
Add(GetDataEx,8723685,245,77)
{
link(Data,9869400:Bitmap,[])
}
Add(DoData,7352095,224,147)
{
link(onEventData,5140168:onEvent1,[(284,153)(284,27)])
link(Data,8723685:Var1,[(230,82)])
}
END_SDK
Add(Button,13181900,56,280)
{
Left=5
Top=95
Caption="Yes!"
link(onClick,1530583:doDrawYes,[])
}
Add(Edit,6506125,238,147)
{
Left=10
Top=70
Text="30"
DataType=2
Point(doSetFocus)
link(onChange,8808314:doEvent1,[])
}
Add(ColorBox,1817693,259,210)
{
Left=5
Top=145
Height=21
link(onClick,6506125:doSetFocus,[(298,216)(298,195)(228,195)(228,167)])
}
Add(MathParse,640718,189,147)
{
DataCount=1
MathStr="%0 + %1/120"
ResultType=0
Default=30
AngleMode=1
link(onResult,6506125:doText,[])
}
Add(Hub,8808314,280,147)
{
link(onEvent1,1530583:doAngle,[(306,153)(306,293)])
link(onEvent2,14862133:doWork2,[])
}
Add(Label,3967422,63,161)
{
Left=20
Top=5
Width=25
Height=17
Caption="Text"
}
Add(Label,3188990,70,168)
{
Left=20
Top=55
Width=31
Height=17
Caption="Angle"
}
Add(Label,3690193,77,175)
{
Left=20
Top=130
Width=28
Height=17
Caption="Color"
}
Add(Button,4066259,56,210)
{
Left=10
Top=190
Caption="Open"
link(onClick,4697106:doExecute,[])
}
Add(Button,13225042,56,245)
{
Left=10
Top=230
Caption="Save"
link(onClick,12823846:doExecute,[])
}
Add(ODialog,4697106,105,210)
{
link(onExecute,10759725:doLoad,[])
}
Add(SDialog,12823846,105,245)
{
link(onExecute,10759725:doSave,[(144,251)(144,223)])
}
Add(PictureStream,10759725,154,210)
{
link(onLoad,10062129:doWork3,[(193,216)(193,195)(165,195)])
link(Bitmap,2993540:Var1,[(167,201)])
}
Add(GetDataEx,2993540,350,196)
{
link(Data,1995399:ImageBitmap,[])
}
Add(MultiElementEx,1530583,329,273)
{
link(Text,16238834:Text,[(335,264)(209,264)])
link(Angle,6506125:Text,[(342,258)(244,258)])
link(Color,1817693:CurrentColor,[(349,249)(265,249)])
link(onRefresh,1995399:doRefresh,[(388,279)(388,194)(333,194)(333,153)])
link(Bitmap,2993540:Var2,[])
link(Handle,1995399:Handle,[])
link(MouseX,1995399:MouseX,[])
link(MouseY,1995399:MouseY,[])
link(onVisible,1995399:doVisible,[(396,286)(396,187)(340,187)(340,160)])
}
BEGIN_SDK
Add(EditMultiEx,4382009,21,21)
{
WorkCount=#6:doDraw|9:doDrawYes|7:doAngle|
EventCount=#9:onRefresh|9:onVisible|
DataCount=#4:Text|5:Angle|5:Color|6:Bitmap|6:Handle|6:MouseX|6:MouseY|
Width=720
Height=347
VOffset=50
link(doDraw,5479662:doEvent1,[])
link(doDrawYes,11188608:doEvent1,[(32,84)(32,181)])
link(doAngle,11106589:doOperation,[(60,91)(60,132)(221,132)(221,181)])
}
Add(Img_Text,12118607,287,189)
{
Font=[MS Sans Serif,10,1,0,1]
Point(X)
Point(Y)
link(Bitmap,9020572:Var2,[])
link(Text,4382009:Text,[(300,64)(27,64)])
}
Add(ChanelToIndex,8900766,98,77)
{
link(onIndex,4382009:onVisible,[(179,83)(179,90)(277,90)(277,84)])
}
Add(Hub,5479662,70,70)
{
OutCount=4
link(onEvent1,545429:doValue,[])
link(onEvent2,8900766:doWork1,[])
link(onEvent3,8900766:doWork2,[])
link(onEvent4,13249102:doStart,[])
}
Add(Thread,13249102,140,91)
{
Delay=1
FastStop=0
link(onExec,3198357:doWork1,[(179,97)])
}
Add(Bitmap,5114966,287,133)
{
HWidth=300
HHeight=50
FillColor=-16777211
Point(doCreate)
}
Add(Hub,1024558,203,182)
{
OutCount=3
link(onEvent1,5114966:doCreate,[(228,188)(228,153)])
link(onEvent2,12118607:doDraw,[])
link(onEvent3,15153645:doFor,[(249,202)(249,258)])
}
Add(For,15153645,259,252)
{
link(onEvent,7836985:doFor,[])
link(onStop,15841749:doWork1,[(298,265)(298,314)])
link(End,12118607:TextWidth,[(272,242)(293,242)])
}
Add(For,7836985,308,252)
{
link(onEvent,3550271:doGetPixel,[])
link(End,12118607:TextHeight,[(321,243)(300,243)])
}
Add(GetDataEx,9020572,287,168)
{
link(Data,5114966:Bitmap,[])
}
Add(If_else,13820927,413,252)
{
Op2=Integer(0)
link(onTrue,9415986:doCalc,[])
}
Add(MathParse,9415986,469,252)
{
DataCount=5
MathStr="%3 + (%1*%5 + %2*%4)"
ResultType=0
link(onResult,13645466:doCalc,[])
link(X1,2781653:Var2,[])
link(X2,14054847:Var2,[])
link(X3,545429:Value,[(489,117)(195,117)])
link(X4,3138598:Var2,[])
link(X5,5710410:Var2,[])
}
Add(GetDataEx,3893379,371,238)
{
Angle=3
link(Data,15153645:Position,[(356,243)(356,299)(265,299)])
}
Add(GetDataEx,25535,378,231)
{
Angle=3
link(Data,7836985:Position,[(349,236)(349,292)(314,292)])
}
Add(Math,11106589,406,175)
{
OpType=13
Default=0.5
AngleMode=1
link(onResult,16160249:doOperation,[])
link(Op1,6336601:Var2,[])
}
Add(Math,16160249,448,175)
{
OpType=12
Default=0.866025403784439
AngleMode=1
link(Op1,6336601:Var3,[(454,166)])
}
Add(GetDataEx,6336601,406,161)
{
link(Data,4382009:Angle,[(412,57)(34,57)])
}
Add(MathParse,13645466,532,252)
{
DataCount=5
MathStr="%3 + (-%1*%4 + %2*%5)"
ResultType=0
link(onResult,11425714:doDraw,[])
link(X1,2781653:Var3,[(538,243)])
link(X2,14054847:Var3,[(545,236)])
link(X3,6447145:Value,[(552,124)(244,124)])
link(X4,3138598:Var3,[(559,229)])
link(X5,5710410:Var3,[(566,222)])
}
Add(GetDataEx,2781653,469,238)
{
Angle=3
link(Data,3893379:Var3,[])
}
Add(GetDataEx,14054847,476,231)
{
Angle=3
link(Data,25535:Var3,[])
}
Add(GetDataEx,3138598,490,224)
{
Angle=3
link(Data,11106589:Result,[(412,229)])
}
Add(GetDataEx,5710410,497,217)
{
Angle=3
link(Data,16160249:Result,[(454,222)])
}
Add(Img_Point,11425714,595,252)
{
DrawSource=1
Point(X)
Point(Y)
Point(Color)
Point(doDrawSource)
link(onDraw,6468469:doCompare,[])
link(Bitmap,4382009:Handle,[(601,40)(55,40)])
link(X,759375:Var2,[])
link(Y,15410473:Var2,[])
link(Color,11161184:Var2,[])
}
Add(Img_GetPoint,3550271,364,252)
{
link(onGetPixel,13820927:doCompare,[])
link(Bitmap,9020572:Var3,[(370,173)])
link(X,3893379:Var2,[])
link(Y,25535:Var2,[])
}
Add(Memory,545429,189,70)
{
Point(Data)
link(onData,6447145:doValue,[])
link(Data,4382009:MouseX,[(195,33)(62,33)])
}
Add(Memory,6447145,238,70)
{
Point(Data)
link(Data,4382009:MouseY,[(244,26)(69,26)])
}
Add(Hub,11188608,112,175)
{
link(onEvent1,15841749:doWork2,[(137,181)(137,321)])
link(onEvent2,3198357:doWork2,[])
}
Add(If_else,6468469,637,252)
{
Op2=Integer(1)
link(onTrue,6495134:doDraw,[])
link(Op1,15923019:Value,[])
}
Add(HubEx,3198357,175,182)
{
link(onEvent,1024558:doEvent1,[])
}
Add(ChanelToIndex,15841749,315,308)
{
link(onIndex,15923019:doValue,[(515,314)(515,195)])
}
Add(Memory,15923019,637,189)
{
Default=Integer(0)
}
Add(Img_Point,6495134,686,252)
{
Point(X)
Point(Y)
Point(Color)
link(onDraw,4382009:onRefresh,[(725,258)(725,77)])
link(Bitmap,4382009:Bitmap,[(692,47)(48,47)])
link(X,759375:Var3,[(699,243)])
link(Y,15410473:Var3,[(706,236)])
link(Color,11161184:Var3,[(713,229)])
}
Add(GetDataEx,759375,602,238)
{
Angle=3
link(Data,9415986:Result,[(587,243)(587,299)(475,299)])
}
Add(GetDataEx,15410473,609,231)
{
Angle=3
link(Data,13645466:Result,[(580,236)(580,292)(538,292)])
}
Add(GetDataEx,11161184,616,224)
{
link(Data,4382009:Color,[(622,51)(41,51)])
}
END_SDK
Add(HubEx,14862133,312,154)
{
Angle=1
link(onEvent,1530583:doDraw,[(316,279)])
}
Add(HubEx,10062129,161,133)
{
link(onEvent,1995399:doLoad,[])
}

Место надписи под мышкой, угол наклона колёсиком, предпросмотр по кнопке или по вращению колёсика, отрисовка по нажатию кнопки "Yes!"
карма: 19

1
Голосовали:Master4eG
Ответов: 321
Рейтинг: 10
#7: 2017-04-01 18:01:41 ЛС | профиль | цитата
Леонид, спасибо за схемку, но у меня очень много текста, не совсем рационально наверное будет использовать данный метод.
И у меня почему-то не сохраняет, если честно.
2017-04-01_194514.png
Легче просто Label по верх картинки гонять
Спасибо еще раз за пример!

Редактировалось 2 раз(а), последний 2017-04-01 18:04:52
карма: 1

0
Ответов: 4621
Рейтинг: 746
#8: 2017-04-03 10:53:46 ЛС | профиль | цитата
Наверное, угол поворота просится в GLabel - все равно пользовательская отрисовка.
карма: 26

0
Ответов: 8886
Рейтинг: 823
#9: 2017-04-03 11:11:03 ЛС | профиль | цитата
"А вот схема от foksov-а, свежепойманная!", да ещё и с мышиным управлением
Картинка в четырёхугольнике

Add(Label,5079206,567,98)
{
Left=55
Top=5
Width=55
Height=17
Caption="Исходный"
}
Add(MainForm,9551264,602,56)
{
Width=798
Height=551
Caption="Деформация"
BorderStyle=1
Position=1
link(onCreate,13822067:doEvent1,[])
}
Add(ChildPanel,5175251,686,112)
{
link(onEvent1,2572868:doLoad,[])
link(onEvent2,22670:doLoad,[(725,125)(725,167)])
}
BEGIN_SDK
Add(EditMulti,12533179,14,7)
{
EventCount=2
WorkCount=2
VarCount=1
Width=797
Height=263
link(doWork1,70937:doEvent1,[])
link(doWork2,8907202:doEvent1,[(46,20)(46,41)])
link(Var1,600467:Var1,[(20,165)])
}
Add(Panel,5118939,231,35)
{
Left=170
Width=620
Height=515
WinStyle=1
BorderStyle=1
}
Add(PaintBox,12791373,91,77)
{
Left=2
Top=2
Width=620
Height=515
Color=16777215
WinStyle=1
Point(Width)
Point(Height)
link(onBeforeDraw,7015858:doDraw,[(130,83)(130,118)(116,118)(116,181)])
}
Add(ChildPanelEx,3277863,371,98)
{
Mode=1
link(onTop,14372150:doEvent1,[])
link(onMouseUp,5824829:doEvent1,[(411,111)(411,146)])
link(wb,5034828:Var2,[])
}
BEGIN_SDK
Add(EditMultiEx,12902457,203,133)
{
WorkCount=#5:##add|0:|
EventCount=#5:onTop|9:onMouseUp|
VarCount=#12:##eventIndex|
DataCount=#2:wb|
Width=335
Height=165
Point(##add)
Point(##eventIndex)
link(##add,5772976:doRead,[(217,139)(217,209)])
}
Add(Panel,9084549,364,196)
{
Left=15
Top=10
Width=7
Height=7
Color=255
TabOrder=-1
Ctl3D=0
BevelOuter=2
Point(Handle)
Point(doLeft)
Point(doTop)
Point(Left)
Point(Top)
Point(onMouseDown)
Point(onMove)
Point(doSetFocus)
Point(onMouseMove)
link(onMouseDown,5699333:doMove,[(408,209)(408,185)(352,185)(352,153)])
link(onMove,11836548:doData,[])
link(onMouseMove,12785750:doEvent,[])
}
Add(MoveWindow,5699333,364,147)
{
link(Handle,9084549:Handle,[(370,138)(349,138)(349,236)(370,236)])
}
Add(PointXY,1383579,371,238)
{
link(X,9084549:Left,[])
link(Y,9084549:Top,[])
}
Add(ArrayRW,5772976,231,203)
{
link(onRead,11487859:doEvent1,[])
link(Array,12902457:wb,[(237,186)(209,186)])
}
Add(Math,12692509,301,203)
{
OpType=4
Op2=65535
ResultType=0
link(onResult,9084549:doLeft,[])
}
Add(Hub,11487859,273,203)
{
link(onEvent1,12692509:doOperation,[])
link(onEvent2,6195675:doOperation,[])
}
Add(Math,6195675,301,210)
{
OpType=7
Op2=65536
ResultType=0
link(onResult,9084549:doTop,[])
}
Add(IndexToChanel,12785750,469,217)
{
Count=1
link(onEvent1,12902457:onMouseUp,[(519,223)(519,146)])
}
Add(DoData,11836548,427,210)
{
link(onEventData,12902457:onTop,[(508,216)(508,139)])
link(Data,1383579:Point,[(433,201)(419,201)(419,278)(377,278)])
}
END_SDK
Add(For,9732909,308,98)
{
End=3
link(onEvent,3277863:##add,[])
link(onStop,10257296:doWork1,[(361,111)])
}
Add(InlineCode,7993286,238,217)
{
WorkPoints=#7:doDefor|
EventPoints=#10:onEventBmp|
DataPoints=#6:BmpSrc|6:BmpDst|6:dArray|
Code=#0:|15:unit HiAsmUnit;|0:|9:interface|0:|31:uses kol,Share,Debug{,Windows};|0:|4:type|28: THiAsmClass = class(TDebug)|11: private |22: FItem,eIndex:TData;|20: src,dst :PBitmap;|33: u, v: array [0..3] of integer;|9: public|15:{ Data Points }|47:BmpSrc, BmpDst, dArray, onEventBmp : THI_Event;|0:|15:{ Work Points }|48:Procedure doDefor (var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|15:{ Work Points }|31:Procedure THiAsmClass.doDefor;|4:type|29: PMultArray = ^TMultArray;|40: TMultArray = array[0..0] of integer;|4:var |34: a1,a2,b1,b2,c1,c2,d1,d2,z:real;|29: i,j,x,y,i2,j2,h,w:integer;|20: p1,p2:PMultArray;|14: Arr:PArray;|5:begin|27: Arr := ReadArray(dArray);|23: if Arr=nil then exit;|18: for i:=0 to 3 do|11: begin|32: dtInteger(eIndex, i);|35: Arr._Get(eIndex, FItem);|47: u[i] := ToInteger(FItem) and $FFFF; |43: v[i] := ToInteger(FItem) shr 16;|15: end; |2: |38: src := ReadBitmap(_Data,BmpSrc,nil);|38: dst := ReadBitmap(_Data,BmpDst,nil);|30: //dst := NewBitmap(620,512);|42: if (src = nil) or (src.Empty) then exit;|27: dst.PixelFormat:=pf32bit;|27: src.PixelFormat:=pf32bit;|2: |32: i2:=src.Width; j2:=src.Height;|30: h:=dst.Height; w:=dst.Width;|2: |11: z:=i2*j2;|39: d1:=u[0]; d2:=v[0];|47: a1:=(u[1]-d1)/i2; a2:=(v[1]-d2)/i2;|47: c1:=(u[3]-d1)/j2; c2:=(v[3]-d2)/j2;|56: b1:=(u[2]-u[3]-u[1]+d1)/z; b2:=(v[2]-v[3]-v[1]+d2)/z;|2: |73: p2:=dst.ScanLine[h]; //Через указатели|21: for y:=0 to j2-1 do|9: begin|75: p1:=src.ScanLine[y]; //Через указатели|23: for x:=0 to i2-1 do|11: begin|39: i:=trunc(a1*x+b1*x*y+c1*y+d1); |38: j:=trunc(a2*x+b2*x*y+c2*y+d2);|75: p2[(h-j)*w+i]:=p1[x]; //Через указатели|73: //dst.canvas.pixels[i,j]:=src.canvas.pixels[x,y]; //Через Pixels|10: end;|8: end;|32: _hi_OnEvent(onEventBmp,dst);|4:end;|0:|4:end.|
link(onEventBmp,12087286:doEvent1,[(557,223)(557,104)])
link(BmpSrc,600467:Var3,[(244,165)])
link(BmpDst,6258751:Var2,[])
link(dArray,5573916:getVar,[])
}
Add(For,15097577,371,175)
{
End=3
link(onEvent,279093:doWork1,[])
}
Add(Bitmap,1893649,245,98)
{
@Hint=#5:Буфер|
HWidth=620
HHeight=515
FillColor=-16777201
Point(doCreate)
Point(HWidth)
Point(HHeight)
}
Add(Img_Bmp,7015858,126,175)
{
link(onDraw,10257296:doWork2,[])
link(Bitmap,15365913:Var3,[(132,124)])
link(SourceBitmap,6258751:Var1,[(139,152)])
}
Add(LineBreakEx,15115925,56,140)
{
Caption="bmp"
Type=3
link(_Data,15365913:Var1,[(62,124)])
}
Add(GetDataEx,15365913,91,119)
{
link(Data,12791373:Bitmap,[])
}
Add(LineBreakEx,2833138,511,147)
{
Caption="bmp"
Type=2
}
Add(LineBreakEx,14324866,28,77)
{
Caption="refr"
Type=1
link(OnEvent,15077390:doWork2,[])
}
Add(LineBreakEx,4473850,455,126)
{
Caption="refr"
}
Add(ArrayRW,9578601,455,91)
{
Index=Integer(0)
link(Array,8844056:Var2,[])
link(Index,3277863:##eventIndex,[(468,80)(500,80)(500,162)(377,162)])
}
Add(MultiElement,279093,511,175)
{
link(Data1,2833138:getVar,[])
link(Data2,8844056:Var3,[(524,68)])
}
BEGIN_SDK
Add(EditMulti,2885264,259,84)
{
WorkCount=1
DataCount=2
Width=181
Height=172
link(doWork1,6508886:doEvent1,[(244,90)(244,146)])
}
Add(Img_Line,5085825,322,203)
{
Color=255
Point(Point1)
Point(Point2)
link(Bitmap,2885264:Data1,[(328,187)(265,187)])
link(Point1,14654656:Result,[])
link(Point2,1616886:Result,[(342,187)(384,187)])
}
Add(MathParse,14654656,329,140)
{
MathStr="%2[%1]"
ResultType=0
link(X2,1434546:Var2,[])
}
Add(MathParse,1616886,378,140)
{
MathStr="%2[(%1+1) mod 4]"
ResultType=0
link(X2,1434546:Var3,[(391,112)])
}
Add(Hub,6508886,287,140)
{
OutCount=3
link(onEvent1,14654656:doCalc,[])
link(onEvent2,1616886:doCalc,[(369,153)(369,146)])
link(onEvent3,5085825:doDraw,[(311,160)(311,209)])
}
Add(GetDataEx,1434546,336,107)
{
Angle=3
link(Data,2885264:Data2,[(272,112)])
}
END_SDK
Add(Hub,14372150,420,98)
{
link(onEvent1,9578601:doWrite,[])
link(onEvent2,11042403:doWork1,[(444,111)])
}
Add(Hub,70937,56,7)
{
link(onEvent1,9732909:doFor,[(70,13)(286,13)(286,104)])
link(onEvent2,14913336:doWork1,[(165,20)])
}
Add(IntegerArray,15066555,371,21)
{
@Hint=#1:u|
IntArray=['0'=327990,'0'=17695330,'0'=32768310,'0'=16384155]
}
Add(GetDataEx,5034828,371,63)
{
link(Data,15066555:Array,[])
}
Add(GetDataEx,8844056,455,63)
{
Angle=3
link(Data,5034828:Var3,[])
}
Add(Bitmap,4806727,189,35)
{
@Hint=#5:Буфер|
FillColor=-16777201
Point(Width)
Point(Height)
}
Add(GetDataEx,6258751,245,147)
{
link(Data,1893649:Bitmap,[])
}
Add(Hub,15784955,189,210)
{
InCount=2
link(onEvent1,1893649:doCreate,[(214,216)(214,118)])
link(onEvent2,7993286:doDefor,[])
}
Add(LineBreak,1098471,112,217)
{
Caption="up"
link(Out,15784955:doEvent2,[])
Primary=[14031383,343,-77]
}
Add(Hub,5824829,420,140)
{
link(onEvent1,14031383:In,[])
link(onEvent2,11042403:doWork3,[(444,153)])
}
Add(HubEx,11042403,440,126)
{
link(onEvent,4473850:doWork,[])
}
Add(GetDataEx,600467,189,160)
{
link(Data,4806727:Bitmap,[])
}
Add(InfoTip,7747766,588,280)
{
Info=#15:Взято из книги:|0:|8:Delphi 5|34:Создание мультимедийных приложений|0:|9:Н.Тюкачев|10:Ю.Свиридов|0:|21:Издательство "Нолидж"|6:Москва|5:2000 |
Font=[MS Sans Serif,8,0,16711680,1]
Transparent=1
Width=225
Height=165
Margin=10
}
Add(Hub,8907202,56,35)
{
OutCount=4
link(onEvent1,4806727:doLoad,[])
link(onEvent2,12533179:onEvent1,[(95,48)(95,27)(291,27)(291,13)])
link(onEvent3,15077390:doWork1,[(81,55)])
link(onEvent4,14913336:doWork2,[])
}
Add(HubEx,15077390,77,77)
{
link(onEvent,12791373:doRefresh,[])
}
Add(HubEx,10257296,357,175)
{
link(onEvent,15097577:doFor,[])
}
Add(LineBreakEx,969702,308,77)
{
Caption="arr"
Type=3
link(_Data,5034828:Var1,[(314,68)])
}
Add(LineBreakEx,5573916,252,189)
{
Caption="arr"
Type=2
}
Add(HubEx,14913336,161,56)
{
Angle=1
link(onEvent,15784955:doEvent1,[(165,216)])
}
Add(Hub,12087286,567,98)
{
link(onEvent1,10700511:doCalc,[])
link(onEvent2,13840374:doCopy,[(592,111)(592,174)])
}
Add(MathParse,10700511,609,98)
{
@Hint=#5:min x|
DataCount=1
MathStr="min(\r\n(%1[0] mod 65536),\r\n(%1[1] mod 65536),\r\n(%1[2] mod 65536),\r\n(%1[3] mod 65536)\r\n)"
link(onResult,8573504:doCalc,[])
link(X1,6216964:Var2,[])
}
Add(MathParse,13536548,707,98)
{
@Hint=#5:max x|
MathStr="max((%1[0] mod 65536),(%1[1] mod 65536),(%1[2] mod 65536),(%1[3] mod 65536))-%2"
link(onResult,13543022:doCalc,[])
link(X1,4016801:Var2,[])
link(X2,9499964:Var3,[(720,89)(699,89)(699,138)])
}
Add(MathParse,8573504,658,98)
{
@Hint=#5:min y|
DataCount=1
MathStr="min(\r\n(%1[0] div 65536),\r\n(%1[1] div 65536),\r\n(%1[2] div 65536),\r\n(%1[3] div 65536)\r\n)"
link(onResult,13536548:doCalc,[])
link(X1,6258061:Var2,[])
}
Add(MathParse,13543022,756,98)
{
@Hint=#5:max y|
MathStr="max(\r\n(%1[0] div 65536),\r\n(%1[1] div 65536),\r\n(%1[2] div 65536),\r\n(%1[3] div 65536)\r\n)-%2"
link(X1,4016801:Var3,[(762,82)])
link(X2,10938285:Var3,[(769,89)(748,89)(748,145)])
}
Add(LineBreakEx,8831110,609,56)
{
Caption="arr"
Type=2
}
Add(GetDataEx,6216964,609,77)
{
link(Data,8831110:getVar,[])
}
Add(GetDataEx,6258061,658,77)
{
Angle=3
link(Data,6216964:Var3,[])
}
Add(GetDataEx,4016801,707,77)
{
Angle=3
link(Data,6258061:Var3,[])
}
Add(Img_Copy,13840374,602,168)
{
Point(Width)
Point(Height)
link(onCopy,12533179:onEvent2,[(795,174)(795,20)])
link(X,9499964:Var2,[])
link(Y,10938285:Var1,[(622,145)])
link(Width,13536548:Result,[(629,152)(713,152)])
link(Height,13543022:Result,[(636,159)(762,159)])
}
Add(GetDataEx,9499964,609,133)
{
link(Data,10700511:Result,[])
}
Add(GetDataEx,10938285,658,140)
{
link(Data,8573504:Result,[])
}
Add(InfoTip,8161412,560,35)
{
Info=#26:Копирование только нужного|
Width=246
Height=193
}
END_SDK
Add(Image,2572868,749,112)
{
Left=5
Top=30
Width=160
Height=160
Ctl3D=0
link(Bitmap,5175251:Var1,[(755,100)(742,100)(742,156)(692,156)])
}
Add(Image,22670,749,161)
{
Left=5
Top=220
Width=160
Height=160
Ctl3D=0
}
Add(Button,9598790,434,140)
{
Left=20
Top=395
Width=110
Caption="Load picture"
link(onClick,6865173:doEvent1,[])
}
Add(Img_Loader,1673702,567,140)
{
link(onLoad,6029042:doWork2,[])
}
Add(ODialog,10745261,525,140)
{
Filter="Pictures|*.bmp;*.png;*.jpg;*.jpeg;*.gif;*.ico"
FileName=""
link(onExecute,1673702:doLoad,[])
}
Add(Resize,14405595,623,140)
{
Width=620
Height=515
link(onResult,5175251:doWork2,[(672,146)(672,125)])
}
Add(Label,8753854,525,98)
{
Left=55
Top=200
Width=56
Height=17
Caption="Результат"
}
Add(Button,2711093,161,245)
{
Left=20
Top=485
Width=110
Caption="Load source"
link(onClick,6975981:doWork2,[])
}
Add(StrList,5246062,427,217)
{
}
Add(Application,14021022,224,203)
{
}
Add(MultiStrPart,2286488,224,245)
{
Char="."
Count=1
Direct=1
link(onSplit,7560079:doStrCat,[])
link(Str,14021022:AppFileName,[])
}
Add(StrCat,7560079,273,245)
{
Str2=".sha"
link(onStrCat,16045027:doEvent1,[])
}
Add(Img_MultiText,7062782,483,329)
{
X=3
Font=[MS Sans Serif,10,1,8388608,1]
Orientation=[MS Sans Serif,10,1,8388608,1]
link(onDraw,15241736:doData,[])
link(Bitmap,9770793:Var2,[])
link(Text,5246062:Text,[(496,306)(433,306)])
}
Add(Hub,16045027,343,245)
{
link(onEvent1,5246062:doLoad,[])
link(onEvent2,10304141:doOperation,[(382,258)(382,300)(235,300)(235,328)])
}
Add(Bitmap,14930578,483,245)
{
HWidth=300
HHeight=200
FillColor=-16777201
Point(doCreate)
Point(onCreate)
}
Add(Math,10304141,245,322)
{
OpType=1
link(onResult,12887285:doEvent1,[])
link(Op2,7062782:TextHeight,[(258,306)(230,306)(230,369)(496,369)])
}
Add(CounterEx,11545751,427,329)
{
Max=115
Direct=1
Default=115
Point(doMin)
link(onNext,7062782:doDraw,[])
}
Add(Timer,8509903,329,322)
{
Interval=100
Enable=1
link(onTimer,10668883:doEvent1,[])
}
Add(Hub,10668883,371,322)
{
link(onEvent1,14930578:doCreate,[(396,328)(396,314)(466,314)(466,265)])
link(onEvent2,11545751:doNext,[])
}
Add(Hub,12887285,287,322)
{
link(onEvent1,8509903:doTimer,[])
link(onEvent2,11545751:doMin,[(312,335)(312,363)(389,363)(389,342)])
}
Add(HubEx,6029042,609,140)
{
link(onEvent,14405595:doResize,[])
}
Add(DoData,15241736,532,329)
{
link(onEventData,6029042:doWork3,[(613,335)])
link(Data,9770793:Var3,[(538,292)])
}
Add(GetDataEx,9770793,483,287)
{
link(Data,14930578:Bitmap,[])
}
Add(Hub,6865173,490,140)
{
link(onEvent1,10745261:doExecute,[])
link(onEvent2,8509903:doStop,[(515,153)(515,209)(319,209)(319,335)])
}
Add(Hub,13822067,644,70)
{
link(onEvent1,6975981:doWork1,[(669,76)(669,48)(207,48)])
link(onEvent2,5175251:doWork1,[(676,83)(676,118)])
}
Add(HubEx,6975981,203,245)
{
link(onEvent,2286488:doSplit,[])
}

(Сохраните схему в виде *.sha, и снова откройте, текст схемы отразится в картинке.)

Редактировалось 1 раз(а), последний 2017-04-03 12:01:26
карма: 19

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)