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,[])
}