Вверх ↑
Ответов: 118
Рейтинг: 0
#1: 2022-05-02 06:06:30 ЛС | профиль | цитата
Собственно вопрос как мне сохранить надпись в формате png.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
BorderStyle=1
Position=1
}
Add(PaintBox,296008,224,63)
{
Left=10
Top=10
Width=280
Height=70
Font=[Impact,8,0,0,204]
ClearBeforeDraw=0
link(onBeforeDraw,13209161:doDraw,[(268,69)(268,221)(205,221)(205,300)])
}
Add(Img_Text,13209161,224,294)
{
X=3
Y=3
Font=[Impact,50,0,0,204]
link(onDraw,5578383:doDraw,[])
link(Bitmap,1787433:Var2,[])
link(Text,1853982:Var3,[(237,251)])
}
Add(Edit,14302289,161,196)
{
Left=10
Top=85
Width=280
}
Add(Img_Text,5578383,280,294)
{
Font=[Impact,50,0,12639424,204]
link(onDraw,296008:doRefresh,[(317,300)(317,213)(212,213)(212,69)])
link(Bitmap,1787433:Var3,[(286,229)])
link(Text,1853982:Var2,[(293,264)(188,264)])
}
Add(GetDataEx,1787433,224,224)
{
link(Data,296008:Bitmap,[])
}
Add(GetDataEx,1853982,182,246)
{
Angle=3
link(Data,14302289:Text,[(167,251)])
}
Add(Button,6185901,217,392)
{
Left=10
Top=120
Caption="save"
}

карма: 0

0