Gitarist писал(а):
нужно чтобы база принимала картинки из потока, а не из файла. Так же надо завести кнопку "удалить".Сделал пример без базы sqlite
Add(MainForm,11228693,385,133)
{
Width=346
Height=417
link(onCreate,12270136:doCreate,[])
}
Add(ArrayRW,12492177,805,441)
{
Point(Count)
link(onRead,7762710:doLoad,[])
link(Array,13936902:Array,[(811,369)(454,369)])
link(Value,1688515:Var3,[(825,432)])
}
Add(Button,12253877,147,266)
{
Left=20
Top=345
Width=80
Height=25
Caption="Add"
link(onClick,13251997:doExecute,[])
}
Add(Image,7762710,861,441)
{
Top=15
Width=310
Height=305
}
Add(UpDown,15724284,686,378)
{
Left=145
Top=330
Height=55
Max=0
Point(doMax)
link(onPosition,6239166:doEvent1,[])
}
Add(Hub,6239166,728,378)
{
link(onEvent1,7448564:doText,[])
link(onEvent2,6215024:doWork1,[(753,391)])
}
Add(Label,7448564,763,378)
{
Left=180
Top=350
}
Add(Img_Loader,14048178,245,266)
{
Point(ImageWidth)
Point(ImageHeight)
link(onLoad,5529192:doEvent1,[])
}
Add(ODialog,13251997,196,266)
{
link(onExecute,14048178:doLoad,[])
}
Add(Button,6576230,280,469)
{
Left=230
Top=345
Caption="Del"
link(onClick,15903298:doEvent1,[])
}
Add(Type_Create,12270136,448,147)
{
StorageType=0
Point(doClear)
}
Add(Type_RW,6439857,497,259)
{
link(GType,10106393:Var2,[])
link(Name,13342049:Count,[])
}
Add(Type_Array,13936902,448,308)
{
Point(NameArray)
link(GType,11089989:Var2,[])
}
Add(GetDataEx,11089989,448,231)
{
link(Data,12270136:FType,[])
}
Add(Math,1427289,455,385)
{
OpType=1
Op2=1
link(onResult,12557386:doEvent1,[])
link(Op1,13936902:Count,[])
}
Add(Type_RW,13992137,581,448)
{
Point(Count)
link(GType,10106393:Var3,[(587,236)])
}
Add(ArrayRW,8382365,525,469)
{
Point(Count)
link(onRead,13992137:doDelete,[])
link(Array,13936902:NameArray,[(531,376)(468,376)])
link(Index,1688515:Var1,[(538,432)])
}
Add(GetDataEx,1688515,686,427)
{
link(Data,15724284:Position,[])
}
Add(GetDataEx,10106393,497,231)
{
Angle=3
link(Data,11089989:Var3,[])
}
Add(Hub,735085,385,308)
{
InCount=2
link(onEvent1,13936902:doLoad,[])
link(onEvent2,1427289:doOperation,[(431,321)(431,391)])
}
Add(Hub,15903298,329,469)
{
link(onEvent1,8382365:doRead,[])
link(onEvent2,735085:doEvent2,[(375,482)(375,321)])
}
Add(HubEx,6215024,749,441)
{
link(onEvent,12492177:doRead,[])
}
Add(Hub,5529192,336,266)
{
OutCount=3
link(onEvent1,13342049:doNext,[(361,272)(361,188)])
link(onEvent2,6439857:doAdd,[])
link(onEvent3,735085:doEvent1,[(375,286)(375,314)])
}
Add(Hub,12557386,637,385)
{
OutCount=3
link(onEvent1,15724284:doMax,[])
link(onEvent2,15724284:doPosition,[(662,398)(662,384)])
link(onEvent3,6215024:doWork2,[(662,405)(662,447)])
}
Add(InfoTip,7793053,112,224)
{
Info=#23:Вместо этих компонентов|16:побавай свою BMP|
Width=204
Height=88
}
Add(CounterEx,13342049,504,182)
{
Max=9999999
}



Поиск
Друзья
Администрация