Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2012-07-08 21:26:19 ЛС | профиль | цитата
code_28426.txt
Сохранить png c прозрачностью у вас вряд ли получиться
------------ Дoбавленo в 21.26:
Хотя я ошибся
Add(MainForm,1140714,56,266)
{
}
Add(Button,4543271,119,266)
{
Left=10
Top=10
Caption="open..."
link(onClick,1114238:doExecute,[])
}
Add(Button,13817781,119,308)
{
Left=10
Top=30
Caption="save..."
link(onClick,12903383:doExecute,[])
}
Add(ODialog,1114238,175,266)
{
link(onExecute,8962254:doLoad,[])
}
Add(SDialog,12903383,175,308)
{
Filter="Alpha png|*.png"
link(onExecute,2293379:doValue,[])
}
Add(AlphaShadow,4373770,287,308)
{
ShiftX=0
ShiftY=0
TransparentColor=16777215
DeepBlur=0
link(onShadow,10204995:doEvent1,[])
link(Bitmap,10675770:Bitmap,[])
}
Add(AlphaBitmap,10675770,287,266)
{
}
Add(Img_Loader,8962254,231,266)
{
link(onLoad,10675770:doLoad,[])
}
Add(Memory,2293379,231,308)
{
link(onData,4373770:doShadow,[])
}
Add(PNG,12757652,413,294)
{
Transparent=0
Point(doLoadFromBitmap)
Point(FileName)
link(FileName,2293379:Value,[(419,282)(328,282)(328,352)(237,352)])
}
Add(Hub,10204995,371,308)
{
link(onEvent1,12757652:doLoadFromBitmap,[])
link(onEvent2,12757652:doSave,[(399,321)(399,307)])
}


карма: 1

0
файлы: 1code_28426.txt [1KB] [401]