Вверх ↑
Разработчик
Ответов: 26270
Рейтинг: 2142
#1: 2020-05-12 19:42:33 ЛС | профиль | цитата
Схема


Add(MainForm,2953706,315,175)
{
}
Add(Img_GDIFileProcessor,2672318,427,210)
{
Point(doGetParamFrom)
Point(onGetParam)
link(onGetParam,14410688:doSeparateMT,[])
}
Add(ODialog,6607378,371,224)
{
Filter="All Image Files|*.bmp;*.gif;*.ico;*wmf;*.emf;*.tif;*.png;*.jpg;*.jpeg|BMP (*.bmp)|*.bmp|JPG (*.jpg, *.jpeg)|*.jpg;*.jpeg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif|PNG (*.png)|*.png|ICO (*.ico)|*.ico|EMF (*.emf)|*.emf|WMF (*.wmf)|*.wmf|All files (*.*)|*.*"
FileName=""
link(onExecute,2672318:doGetParamFrom,[])
}
Add(Button,10144938,315,224)
{
Left=20
Top=10
Width=105
TabOrder=-1
Caption="Get DPI"
link(onClick,6607378:doExecute,[])
}
Add(MT_MultiData,14410688,490,217)
{
From=2
link(onData1,14058512:doText,[(529,223)(529,188)])
link(onData2,4928339:doText,[])
}
Add(Edit,14058512,560,182)
{
Left=200
Top=10
Text=""
}
Add(Edit,4928339,560,224)
{
Left=200
Top=35
Text=""
}
Add(Label,1127462,315,112)
{
Left=160
Top=13
Width=33
Height=17
Caption="HDPI:"
}
Add(Label,1847001,301,105)
{
Left=160
Top=37
Width=32
Height=17
Caption="VDPI:"
}

Без проблем читало файлы tiff 45 MB
карма: 22

0