Вверх ↑
Ответов: 8918
Рейтинг: 823
#1: 2020-11-23 16:32:30 ЛС | профиль | цитата
Fangir писал(а):
он делает "doConvert" "автоматом"
Ну а попробовать автомат/не автомат можно бы
Проба


Add(MainForm,2953706,196,98)
{
}
Add(Img_GDIFileProcessor,15799535,350,161)
{
Quality=50
Point(doSaveformat)
Point(doConvert)
link(onLoad,349788:doLoad,[])
link(FileName,6876006:Value,[])
link(SBitmap,349788:ImageBitmap,[(363,152)(391,152)(391,201)(412,201)])
}
Add(ComboBox,3114376,504,14)
{
Left=5
Top=35
Height=21
Strings=#3:BMP|4:JPEG|3:GIF|4:TIFF|3:PNG|
link(onClick,2746940:doEvent1,[])
}
Add(Button,2733179,189,154)
{
Left=5
Top=5
Caption="Open"
link(onClick,11333368:doExecute,[])
}
Add(Button,6314749,189,203)
{
Left=10
Top=205
Caption="Save"
link(onClick,7704039:doEvent1,[])
}
Add(Image,349788,406,161)
{
Left=95
Top=20
Width=280
Height=210
}
Add(Dir,1455448,455,28)
{
}
Add(ODialog,11333368,231,154)
{
link(onExecute,6240413:doEvent1,[])
}
Add(Hub,6240413,308,154)
{
link(onEvent1,16386832:doWork2,[])
link(onEvent2,15799535:doLoadFrom,[])
}
Add(FilePartElm,2492523,392,91)
{
Mode=2
Point(Part)
link(onPart,15566632:doWork2,[])
}
Add(Memory,6876006,350,91)
{
link(onData,2492523:doPart,[])
}
Add(FormatStr,5504243,455,91)
{
DataCount=3
Mask="%1%2.%3"
Point(FString)
link(onFString,10124244:doText,[])
link(Str1,1455448:CurrentDir,[])
link(Str2,2492523:Part,[(468,82)(447,82)(447,131)(398,131)])
link(Str3,3114376:String,[(475,82)(517,82)])
}
Add(Hub,7704039,231,203)
{
OutCount=3
link(onEvent1,15799535:doConvert,[(270,209)(270,188)])
link(onEvent2,12881872:doData,[])
link(onEvent3,15799535:doSaveTo,[(277,223)(277,174)])
}
Add(DoData,12881872,287,210)
{
link(onEventData,16386832:doWork3,[(333,216)])
link(Data,5504243:FString,[(293,145)(461,145)])
}
Add(HubEx,16386832,329,154)
{
Angle=3
link(onEvent,6876006:doValue,[(333,97)])
}
Add(Edit,10124244,504,91)
{
Left=10
Top=235
Width=370
}
Add(Hub,2746940,546,21)
{
link(onEvent1,15799535:doSaveformat,[(578,27)(578,139)(340,139)(340,181)])
link(onEvent2,15566632:doWork1,[(571,34)(571,69)(431,69)])
}
Add(HubEx,15566632,427,91)
{
link(onEvent,5504243:doString,[])
}

Исходная картинка 5184х3456
BMP -- 51.25 Mb
IPEG -- 6.88 Mb (при качестве 50%)
GIF -- 4.41 Mb
TIIF-- 16.61 Mb
PNG -- 22.7 Mb
карма: 19

0