Вверх ↑
Ответов: 1328
Рейтинг: 69
#1: 2009-12-14 01:41:44 ЛС | профиль | цитата
Замени в двух дочерник формах (в левом верхнем углу)

Add(PaintBox,12798536,98,273)
{
Left=5
Top=5
Width=50
Height=50
link(onBeforeDraw,15491911:doString,[])
}
Add(Img_Bmp,5904296,98,329)
{
Transparent=0
TransparentColor=16777215
link(Bitmap,12798536:Bitmap,[])
}
Add(PictureStream,14320027,196,273)
{
link(onLoad,5904296:doDraw,[(239,279)(239,316)(86,316)(86,335)])
}
Add(FormatStr,15491911,147,273)
{
DataCount=1
Mask="%1Iconssystem.bmp"
link(onFString,14320027:doLoad,[])
link(Str1,15221014:CurrentDir,[])
}
Add(Dir,15221014,147,224)
{
}



на этот (будет работать с FPC и на 2 компонента меньше):

code_15985.txt
карма: 2

0
файлы: 1code_15985.txt [425B] [237]