Вверх ↑
Ответов: 798
Рейтинг: 168
#1: 2022-02-08 22:09:32 ЛС | профиль | цитата
rektware писал(а):
сохранить результат в файл .bmp


Add(MainForm,13558544,392,140)
{
Width=758
Height=466
Caption="Пример использования компонента Img_TextInRect"
Position=1
link(onCreate,9048474:doWork2,[])
}
Add(Img_TextInRect,15165379,525,266)
{
Font=[MS Sans Serif,20,0,0,1]
Text=""Hello world!""
OffsetLeft=5
OffsetRight=5
OffsetTop=5
OffsetBottom=5
AlignHorizon=2
Alignvertical=2
link(Bitmap,4595295:Var2,[])
link(Point2,8512111:Point,[])
}
Add(PaintBox,5743918,539,154)
{
Left=35
Top=35
Width=491
Height=369
Align=5
Color=12639424
ClearBeforeDraw=0
Point(Width)
Point(Height)
Point(onResize)
link(onBeforeDraw,15165379:doDraw,[(578,160)(578,146)(515,146)(515,272)])
link(onResize,9048474:doWork1,[(585,167)(585,139)(487,139)])
}
Add(PointXY,8512111,546,210)
{
link(X,5743918:Width,[])
link(Y,5743918:Height,[])
}
Add(HubEx,9048474,483,154)
{
link(onEvent,5743918:doRefresh,[])
}
Add(Button,11831123,336,266)
{
Left=370
Top=270
Align=2
Caption="Сохранить"
link(onClick,4870775:doExecute,[])
}
Add(Img_GDIFileProcessor,9365942,448,259)
{
link(SBitmap,4595295:Var1,[(461,197)])
}
Add(SDialog,4870775,399,266)
{
Filter="Рисунки*.bmp"
FileName=".bmp"
link(onExecute,9365942:doSaveTo,[])
}
Add(GetDataEx,4595295,525,192)
{
Angle=1
link(Data,5743918:Bitmap,[(545,197)])
}

карма: 16

1
Голосовали:rektware