Вверх ↑
Этот топик читают: Гость
Ответов: 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
Ответов: 783
Рейтинг: 168
#2: 2022-05-02 06:42:37 ЛС | профиль | цитата
Spectr20 писал(а):
как мне сохранить надпись в формате png


Add(MainForm,14063653,287,112)
{
BorderStyle=1
Position=1
}
Add(PaintBox,296008,490,182)
{
Left=10
Top=10
Width=280
Height=70
Font=[Impact,8,0,0,204]
ClearBeforeDraw=0
link(onBeforeDraw,13209161:doDraw,[(529,188)(529,223)(480,223)(480,307)])
}
Add(Img_Text,13209161,490,301)
{
X=3
Y=3
Font=[Impact,50,0,0,204]
link(onDraw,5578383:doDraw,[])
link(Bitmap,1787433:Var2,[])
link(Text,14442097:Var2,[])
}
Add(Edit,14302289,427,203)
{
Left=10
Top=85
Width=280
}
Add(Img_Text,5578383,546,301)
{
Font=[Impact,50,0,12639424,204]
link(onDraw,296008:doRefresh,[(585,307)(585,174)(480,174)(480,188)])
link(Bitmap,7282303:Var2,[])
link(Text,14442097:Var3,[(559,258)])
}
Add(GetDataEx,1787433,490,231)
{
link(Data,296008:Bitmap,[])
}
Add(Button,6185901,560,392)
{
Left=10
Top=120
Caption="save"
link(onClick,10933403:doEvent1,[])
}
Add(PNG,5773761,721,378)
{
FileName="test.png"
Point(Stream)
Point(doLoadFromBitmap)
}
Add(GetDataEx,14442097,497,253)
{
Angle=3
link(Data,14302289:Text,[(433,258)])
}
Add(Hub,10933403,630,392)
{
InCount=2
link(onEvent1,6523934:doData,[])
link(onEvent2,5773761:doSave,[(711,405)(711,391)])
}
Add(DoData,6523934,672,392)
{
link(onEventData,5773761:doLoadFromBitmap,[])
link(Data,7282303:Var3,[(678,236)])
}
Add(GetDataEx,7282303,546,231)
{
Angle=3
link(Data,1787433:Var3,[])
}

карма: 15

0
Ответов: 118
Рейтинг: 0
#3: 2022-05-02 06:58:46 ЛС | профиль | цитата
Gunta писал(а):
Spectr20 писал(а):
как мне сохранить надпись в формате png


Add(MainForm,14063653,287,112)
{
BorderStyle=1
Position=1
}
Add(PaintBox,296008,490,182)
{
Left=10
Top=10
Width=280
Height=70
Font=[Impact,8,0,0,204]
ClearBeforeDraw=0
link(onBeforeDraw,13209161:doDraw,[(529,188)(529,223)(480,223)(480,307)])
}
Add(Img_Text,13209161,490,301)
{
X=3
Y=3
Font=[Impact,50,0,0,204]
link(onDraw,5578383:doDraw,[])
link(Bitmap,1787433:Var2,[])
link(Text,14442097:Var2,[])
}
Add(Edit,14302289,427,203)
{
Left=10
Top=85
Width=280
}
Add(Img_Text,5578383,546,301)
{
Font=[Impact,50,0,12639424,204]
link(onDraw,296008:doRefresh,[(585,307)(585,174)(480,174)(480,188)])
link(Bitmap,7282303:Var2,[])
link(Text,14442097:Var3,[(559,258)])
}
Add(GetDataEx,1787433,490,231)
{
link(Data,296008:Bitmap,[])
}
Add(Button,6185901,560,392)
{
Left=10
Top=120
Caption="save"
link(onClick,10933403:doEvent1,[])
}
Add(PNG,5773761,721,378)
{
FileName="test.png"
Point(Stream)
Point(doLoadFromBitmap)
}
Add(GetDataEx,14442097,497,253)
{
Angle=3
link(Data,14302289:Text,[(433,258)])
}
Add(Hub,10933403,630,392)
{
InCount=2
link(onEvent1,6523934:doData,[])
link(onEvent2,5773761:doSave,[(711,405)(711,391)])
}
Add(DoData,6523934,672,392)
{
link(onEventData,5773761:doLoadFromBitmap,[])
link(Data,7282303:Var3,[(678,236)])
}
Add(GetDataEx,7282303,546,231)
{
Angle=3
link(Data,1787433:Var3,[])
}

Мне нужна картинка с прозрачностью, чтобы текст был на прозрачном фоне
карма: 0

0
Ответов: 783
Рейтинг: 168
#4: 2022-05-02 17:27:23 ЛС | профиль | цитата
Spectr20 писал(а):
нужна картинка с прозрачностью, чтобы текст был на прозрачном фоне

Add(MainForm,14063653,441,119)
{
Width=414
Height=315
BorderStyle=1
Position=1
}
Add(PaintBox,296008,322,196)
{
Left=10
Top=10
Width=280
Height=70
Font=[Impact,8,0,-16777201,204]
ClearBeforeDraw=0
link(onBeforeDraw,13209161:doDraw,[])
}
Add(Img_Text,13209161,392,196)
{
X=3
Y=3
Font=[Impact,50,0,0,204]
link(onDraw,5578383:doDraw,[])
link(Bitmap,6964436:Var2,[])
link(Text,14442097:Var2,[])
}
Add(Edit,14302289,266,196)
{
Left=10
Top=85
Width=280
link(onChange,296008:doRefresh,[])
}
Add(Img_Text,5578383,441,196)
{
Font=[Impact,50,0,12639424,204]
link(onDraw,13772845:doShadow,[])
link(Bitmap,7198467:Var2,[])
link(Text,14442097:Var3,[(454,167)])
}
Add(Button,6185901,504,133)
{
Left=10
Top=120
Caption="save"
Point(Width)
Point(Height)
link(onClick,8357463:doEvent1,[])
}
Add(PNG,5773761,595,182)
{
FileName="test.png"
Transparent=0
TransparentColor=-16777201
Point(doLoadFromBitmap)
Point(doBitmap)
}
Add(GetDataEx,14442097,399,162)
{
Angle=3
link(Data,14302289:Text,[(314,167)(314,236)(272,236)])
}
Add(GetDataEx,6964436,392,172)
{
Angle=3
link(Data,296008:Bitmap,[(363,177)(363,236)(328,236)])
}
Add(GetDataEx,7198467,441,172)
{
Angle=3
link(Data,6964436:Var3,[])
}
Add(AlphaShadow,13772845,497,196)
{
ShiftX=0
ShiftY=0
TransparentColor=-16777201
DeepBlur=0
link(onShadow,5773761:doLoadFromBitmap,[])
link(Bitmap,7198467:Var3,[(503,177)])
}
Add(Hub,8357463,553,133)
{
link(onEvent1,5773761:doSave,[(578,139)(578,195)])
link(onEvent2,6826236:doDeferredEvent,[])
}
Add(WinExec,9378175,651,133)
{
FileName="test.png"
}
Add(DeferredEvent,6826236,595,140)
{
Delay=1000
link(onDeferredEvent,9378175:doShellExec,[])
}

Пожалуйста не цитируй всё сообщение. Читать топик неочень удобно.

Редактировалось 1 раз(а), последний 2022-05-02 17:59:27
карма: 15

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)