Вверх ↑
Ответов: 118
Рейтинг: 0
#1: 2016-09-11 11:50:55 ЛС | профиль | цитата
Ну как вариант можно сделать так.
Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,21,105)
{
Width=213
Height=278
Caption="open and save png"
}
Add(Button,11478040,91,119)
{
Left=10
Top=10
Caption="open"
link(onClick,2628552:doExecute,[])
}
Add(Button,15795534,79,297)
{
Left=130
Top=10
Caption="save"
link(onClick,14727489:doExecute,[(125,303)(125,307)])
}
Add(AlphaImage,11867954,415,252)
{
Left=10
Top=45
Width=180
Height=180
Color=15780518
ViewStyle=1
}
Add(ODialog,2628552,147,119)
{
Filter="png|*.png"
FileName=""
link(onExecute,14838305:doEvent1,[])
}
Add(PNG,14621292,336,245)
{
Point(doAlphaBitmap)
Point(onAlphaBitmap)
link(onAlphaBitmap,11867954:doLoad,[])
}
Add(Hub,14838305,196,119)
{
link(onEvent1,14621292:doLoad,[(273,125)(273,251)])
link(onEvent2,14621292:doAlphaBitmap,[(273,132)(273,265)])
}
Add(SDialog,14727489,140,301)
{
Filter="png|*.png"
FileName=""
link(onExecute,14621292:doSave,[(254,307)(254,258)])
}

]
карма: 0

0
файлы: 1Пример картинки png.png [23KB] [398]
Редактировалось 3 раз(а), последний 2016-09-11 11:54:18