Вверх ↑
Ответов: 198
Рейтинг: 2
#1: 2017-01-24 03:57:14 ЛС | профиль | цитата
Sersey писал(а):
Вот если кто усовершенствует компонент "Resize"...

Зачем его усовершенствовать? Там и так все есть.

Как-то так, если наглядно:


Add(MainForm,2953706,63,147)
{
Width=464
Height=592
}
Add(HTTPClient,12661902,245,217)
{
Point(doLoadStream)
Point(Stream)
link(URL,6502750:Text,[(251,209)(216,209)])
link(onFinish,7846593:doEvent1,[])
link(Stream,16397487:Var2,[])
}
Add(Thread,8193695,182,245)
{
Delay=100
FastStop=0
link(onExec,12661902:doLoadStream,[])
}
Add(MemoryStream,790357,259,140)
{
Point(doPosition)
}
Add(Hub,7846593,315,224)
{
OutCount=4
link(onEvent1,790357:doPosition,[(341,230)(341,195)(247,195)(247,160)])
link(onEvent2,11060859:doLoadFromStream,[])
link(onEvent3,11060859:doBitmap,[])
link(onEvent4,8019900:In,[])
}
Add(GetDataEx,16397487,259,175)
{
link(Data,790357:Stream,[])
}
Add(Jpeg,11060859,392,217)
{
Point(doLoadFromStream)
Point(doBitmap)
Point(Stream)
Point(Width)
Point(Height)
link(onBitmap,1340064:doLoad,[])
link(Stream,16397487:Var3,[(398,180)])
}
Add(Edit,6502750,210,168)
{
Left=10
Top=10
Width=355
Text="https://avatanplus.com/files/resources/original/576bb0ab7d47b1557caa1df9.jpg"
}
Add(Button,11592616,133,245)
{
Left=370
Top=10
Width=70
Caption="Загрузить"
link(onClick,8193695:doStart,[])
}
Add(LineBreak,8870497,210,147)
{
link(Out,790357:doClear,[])
Primary=[8019900,147,98]
}
Add(Resize,14096111,455,308)
{
link(onResult,2561044:doLoad,[])
link(Bitmap,1340064:ImageBitmap,[])
link(Width,15600128:Var,[])
link(Height,12470928:Var,[])
}
Add(Image,1340064,455,217)
{
Left=10
Top=45
Width=430
Height=215
ViewStyle=4
}
Add(Edit,13225990,399,350)
{
Left=190
Top=265
Text="236"
DataType=1
}
Add(Label,14194458,574,140)
{
Left=5
Top=265
Width=185
Height=20
Font=[MS Sans Serif,12,0,0,1]
Caption="Максимальная ширина"
AutoSize=1
}
Add(If_else,13786046,392,427)
{
Type=2
link(onTrue,6894813:doEvent1,[])
link(Op1,11842920:Var2,[])
link(Op2,15061549:Var2,[])
}
Add(Hub,6894813,448,427)
{
OutCount=3
link(onEvent1,2759388:doOperation,[])
link(onEvent2,16350758:doOperation,[(509,440)(509,510)])
link(onEvent3,8345291:In,[])
}
Add(GetDataEx,11842920,392,406)
{
link(Data,12750823:Var2,[])
}
Add(GetDataEx,15061549,399,399)
{
link(Data,13225990:Text,[])
}
Add(Image,2561044,504,308)
{
Left=5
Top=300
Width=430
Height=215
ViewStyle=4
}
Add(Math,2759388,532,427)
{
OpType=3
link(onResult,10485528:doOperation,[])
link(Op1,11842920:Var3,[(538,411)])
link(Op2,15061549:Var3,[(545,404)])
}
Add(Math,10485528,581,427)
{
OpType=3
link(Op1,12750823:Var3,[(587,397)])
link(Op2,14776419:Var3,[(594,414)(571,414)(571,471)])
}
Add(GetDataEx,12750823,392,392)
{
link(Data,11060859:Width,[])
}
Add(Math,16350758,525,504)
{
OpType=3
link(Op1,8522409:Var,[])
link(Op2,14776419:Var2,[])
}
Add(GetDataEx,14776419,532,466)
{
link(Data,2759388:Result,[])
}
Add(LineBreak,434537,399,259)
{
Type=1
link(Data,11060859:Height,[])
Primary=[8522409,126,217]
}
Add(LineBreak,15282896,581,469)
{
Type=1
link(Data,10485528:Result,[])
Primary=[15600128,-119,-210]
}
Add(LineBreak,3345367,525,546)
{
Type=1
link(Data,16350758:Result,[])
Primary=[12470928,-56,-266]
}
Add(LineBreak,1029238,413,308)
{
link(Out,14096111:doResize,[])
Primary=[8345291,63,133]
}
Add(Button,3182306,329,427)
{
Left=365
Top=265
Width=70
Caption="Resize"
link(onClick,13786046:doCompare,[])
}


После загрузки всех картинок - удаляешь все не нужное.
карма: 0

0