Вверх ↑
Ответов: 8943
Рейтинг: 824
#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