Вверх ↑
Разработчик
Ответов: 26303
Рейтинг: 2146
#1: 2008-05-31 15:26:20 ЛС | профиль | цитата
Сергей, я вот тут немного прикинул схемку, посмотри, может пригодится



Add(StringTableMT,7061257,623,217)
{
Left=5
Top=5
Width=540
Height=300
Font=[Courier New,10,1,0,204]
Columns=#12:Image=140==2|8:File=240|11:Size=100==2|
Flat=1
ImgSize=129
AssignedIList=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(IconArray)
Point(EndIdxIcons)
Point(doHint)
}
Add(PaintBox,2786301,315,175)
{
Left=10
Top=370
Width=129
Height=129
Color=15793151
Visible=1
}
Add(MainForm,11367671,70,147)
{
Left=20
Top=105
Width=558
Height=364
Ctl3D=0
Caption="ImageLoader -- BMP, GIF, JPG, JPEG, ICO, WMF, EMF, PNG, XBM, TIFF"
BorderStyle=4
Position=1
}
Add(Button,12242450,70,182)
{
Left=10
Top=310
Width=70
Height=25
TabOrder=-1
Caption="Load Files"
link(onClick,6607378:doExecute,[])
}
Add(Repeat,5895942,301,315)
{
Op1=Integer(1)
link(onRepeat,5295562:doProcessMessages,[])
link(Op2,1836674:Busy,[])
}
Add(ImageLoader,1836674,308,252)
{
Point2AsOffset=0
link(onLoad,1836674:doDraw,[(351,258)(351,230)(296,230)(296,265)])
link(onDraw,10840596:doData,[])
link(Bitmap,3084269:Var2,[])
}
Add(Application,5295562,364,315)
{
Wait=1
}
Add(ODialog,6607378,126,182)
{
Filter="BMP, GIF, JPG, JPEG, ICO, WMF, EMF, PNG, XBM, TIFF files (*.bmp;*.gif;*.ico;*wmf;*.emf;*.xbm;*.tiff;*.png;*.jpg;*.jpeg)|*.bmp;*.gif;*.ico;*wmf;*.emf;*.xbm;*.tiff;*.png;*.jpg;*.jpeg|All files (*.*)|*.*"
FileName=""
Select=1
link(onExecute,10171142:doEvent1,[])
}
Add(Hub,10171142,175,182)
{
OutCount=4
link(onEvent1,2786301:doClear,[])
link(onEvent2,6478250:doPart,[])
link(onEvent3,1836674:doLoad,[(257,202)(257,258)])
link(onEvent4,5895942:doRepeat,[(254,209)(254,321)])
}
Add(Hub,9030609,420,259)
{
OutCount=3
link(onEvent1,11977354:doLoadFromBitmap,[])
link(onEvent2,4102778:doAdd,[(484,272)(484,342)])
link(onEvent3,803282:doString,[(473,279)(473,335)])
}
Add(Icon,11977354,497,245)
{
Transparent=15793151
Point(doLoadFromBitmap)
}
Add(ArrayRW,4102778,637,322)
{
link(Array,7061257:IconArray,[])
link(Value,11977354:Icon,[(657,303)(503,303)])
}
Add(FormatStr,803282,553,329)
{
DataCount=4
Mask="%1;;%2;%3 x %4"
link(onFString,7061257:doAdd,[(604,335)(604,223)])
link(Str1,7061257:EndIdxIcons,[(559,292)(650,292)])
link(Str2,8471742:Value,[])
link(Str3,1836674:ImageWidth,[(573,307)(321,307)])
link(Str4,1836674:ImageHeight,[(580,307)(328,307)])
}
Add(Memory,8471742,560,196)
{
}
Add(GetDataEx,3084269,308,217)
{
link(Data,2786301:Bitmap,[])
}
Add(DoData,10840596,364,259)
{
link(onEventData,9030609:doEvent1,[])
link(Data,3084269:Var3,[(370,226)])
}
Add(FilePart,6478250,497,189)
{
link(onName,8471742:doValue,[])
}

карма: 22

0