Вверх ↑
Этот топик читают: Гость
Ответов: 1841
Рейтинг: 369
#16: 2012-06-29 18:02:13 ЛС | профиль | цитата
Borka писал(а):
Во дотыркал наконец! Короче если из Alpha Bitmap загружать тогда и получается исходный hex.


карма: 1
0
Ответов: 258
Рейтинг: -27
#17: 2012-06-29 18:05:27 ЛС | профиль | цитата
какой-то шпион попал на форум
карма: 0

0
Ответов: 171
Рейтинг: 19
#18: 2012-06-29 20:55:55 ЛС | профиль | цитата

Схема для пакетного добавление в массив картинок
Add(MainForm,13008881,77,56)
{
Width=415
Height=171
}
Add(Button,1595742,14,231)
{
Left=10
Top=75
Width=100
Caption="Выбрать папку"
link(onClick,13710315:doBrowse,[])
}
Add(MemoryStream,12682459,532,273)
{
}
Add(StreamConvertor,14817002,658,392)
{
link(onResult,3044554:doString,[])
}
Add(BitmapStream,5342263,532,343)
{
link(onRead,5342263:doWrite,[(576,349)(576,353)(520,353)(520,356)])
link(Stream,7050701:Var2,[])
link(Bitmap,393892:Bitmap,[])
}
Add(GetDataEx,7050701,532,308)
{
link(Data,12682459:Stream,[])
}
Add(Hub,7661853,441,343)
{
OutCount=3
link(onEvent1,5342263:doRead,[])
link(onEvent2,1868100:doCompress,[(511,356)(511,398)])
link(onEvent3,13420353:doWork3,[(467,363)(467,300)])
}
Add(AlphaBitmap,393892,539,189)
{
}
Add(Hub,4979940,399,196)
{
OutCount=4
link(onEvent1,393892:doClear,[])
link(onEvent2,393892:doLoad,[(476,209)(476,195)])
link(onEvent3,12682459:doClear,[(473,216)(473,286)])
link(onEvent4,7661853:doEvent1,[(427,223)(427,349)])
}
Add(ZLIB,1868100,602,392)
{
link(onStream,14817002:doConvert,[])
link(Stream,7050701:Var3,[(608,313)])
}
Add(FormatStr,3044554,714,392)
{
DataCount=1
Mask="'Bitmap'=[ZIP%1],"
link(onFString,13394531:doAdd,[])
}
Add(FormatStr,1755993,987,511)
{
DataCount=1
Mask="Add(BitmapArray,1863381,336,77)\r\n{\r\n Bitmaps=[%1]\r\n}"
link(onFString,5019577:doWork3,[(1040,517)])
}
Add(Browse,13710315,77,231)
{
link(onBrowse,5232103:doSearch,[])
}
Add(FileSearch,5232103,133,231)
{
link(onSearch,14181471:doAdd,[])
link(onEndSearch,13420353:doWork1,[(191,244)(191,274)(156,274)])
link(Ext,10699140:Text,[])
}
Add(Img_Loader,12165528,343,196)
{
link(onLoad,4979940:doEvent1,[])
}
Add(Edit,10699140,133,175)
{
Left=60
Top=5
Width=75
Text="*.gif"
}
Add(StrList,13394531,791,392)
{
}
Add(StrList,14181471,217,231)
{
}
Add(ArrayRW,4607348,266,315)
{
link(onRead,12165528:doLoad,[(328,321)(328,202)])
link(Array,14181471:Array,[(272,292)(237,292)])
}
Add(CounterEx,15278467,168,308)
{
Min=-1
Max=10000
Default=-1
Point(doReset)
link(onNext,2775865:doCompare,[])
}
Add(HubEx,13420353,152,294)
{
Angle=1
link(onEvent,15278467:doNext,[(156,314)])
}
Add(If_else,2775865,217,308)
{
link(onTrue,14047361:doEvent1,[(381,314)(381,468)])
link(onFalse,4607348:doRead,[])
link(Op1,15278467:Count,[(223,296)(199,296)(199,352)(174,352)])
link(Op2,14181471:Count,[])
}
Add(Clipboard,8644320,1057,462)
{
}
Add(Delete,1392817,791,462)
{
Count=3
Direction=1
link(onDelete,2722735:doReplace,[])
link(Str,13394531:Text,[])
}
Add(Replace,2722735,840,462)
{
SubStr="\r\n"
DestStr=" "
link(onReplace,14427252:doTrim,[])
}
Add(Trim,14427252,882,462)
{
Char=" "
Mode=7
link(onTrim,16167653:doEvent,[])
}
Add(Hub,14047361,714,462)
{
OutCount=4
link(onEvent1,1392817:doDelete,[])
link(onEvent2,13394531:doClear,[(760,475)(760,405)])
link(onEvent3,2521038:doEvent1,[(758,482)(758,500)(93,500)(93,286)])
link(onEvent4,592515:doMessage,[(746,489)(746,531)])
}
Add(Message,592515,763,525)
{
Message="Готово! Код скопирован в буффер обмена."
}
Add(Hub,2521038,105,280)
{
link(onEvent1,14181471:doClear,[(199,286)(199,244)])
link(onEvent2,15278467:doReset,[(143,293)(143,321)])
}
Add(Label,533351,77,0)
{
Left=15
Top=10
Width=37
Height=17
Caption="Маска"
}
Add(CheckBox,12054985,931,399)
{
Left=15
Top=35
Width=85
Checked=0
Caption="UseName"
}
Add(IndexToChanel,16167653,931,462)
{
Point(Index)
link(onEvent1,4606146:doString,[])
link(onEvent2,1755993:doString,[(975,475)(975,517)])
link(Index,12054985:Checked,[])
}
Add(FormatStr,4606146,987,462)
{
DataCount=1
Mask="Add(BitmapArray,1863381,336,77)\r\n{\r\n Bitmaps=[%1]\r\n UseName=1\r\n}"
link(onFString,5019577:doWork2,[])
}
Add(HubEx,5019577,1036,462)
{
link(onEvent,8644320:doPutText,[])
}


карма: 0

0
18
Сообщение
...
Прикрепленные файлы
(файлы не залиты)