sаmakacd писал(а):
Что, никто не знает как конвертировать ICO в PNG без изменения прозрачностиВ стандартном пакете нормально можно отконвертить в png только 32-х битные иконки вот по такой схеме
Add(MainForm,3996542,147,182)
{
}
Add(Edit,8821187,266,126)
{
Left=10
Top=5
Width=350
Text=""
}
Add(Button,9945948,147,126)
{
Left=360
Top=5
Width=20
Caption="..."
link(onClick,14942471:doBrowse,[])
}
Add(Button,9496077,203,182)
{
Left=325
Top=30
Caption="OK"
link(onClick,5089863:doSearch,[])
}
Add(Browse,14942471,203,126)
{
link(onBrowse,8821187:doText,[])
}
Add(Hub,10269111,308,182)
{
OutCount=4
link(onEvent1,6732671:doLoad,[])
link(onEvent2,6732671:doBitmap,[(359,195)(359,202)])
link(onEvent3,2189439:doData,[(354,202)(354,244)])
link(onEvent4,962923:doPart,[(346,209)(346,307)])
}
Add(FileSearch,5089863,259,182)
{
Ext="*.ico"
link(onSearch,10269111:doEvent1,[])
link(Dir,8821187:Text,[])
}
Add(PNG,5616394,546,224)
{
Transparent=0
Point(doLoadFromBitmap)
}
Add(Replace,13109471,420,301)
{
SubStr=".ico"
DestStr=".png"
link(onReplace,1857753:doStrCat,[])
}
Add(FilePartElm,962923,371,301)
{
link(onPart,13109471:doReplace,[])
}
Add(StrCat,1857753,469,301)
{
Str1="g:HiAsmAndroidicon"
link(onStrCat,5616394:doSave,[(523,307)(523,237)])
}
Add(Icon,6732671,371,182)
{
Transparent=536870911
Point(doBitmap)
Point(onBitmap)
link(onBitmap,16260895:doLoad,[])
}
Add(DoData,2189439,427,238)
{
link(onEventData,5616394:doLoadFromBitmap,[])
link(Data,16260895:Bitmap,[])
}
Add(AlphaBitmap,16260895,427,182)
{
}