Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2018-11-15 23:57:20 ЛС | профиль | цитата
sla8a писал(а):
Почему делается тень верхнего левого угла картинки?

Потому, что рисунок в обычном bmp -- 24bpp, и у него нет маски. Более корректно все это безобразие будет работать только с цветом фона -- clNone
Схема


Add(MainForm,13448457,196,238)
{
Width=373
Height=310
Position=1
link(onCreate,5430549:doCreate,[])
}
Add(Img_Text,7264361,245,308)
{
X=2
Y=2
Font=[Verdana,36,1,65793,204]
Text="T"
link(onDraw,13014802:doShadow,[])
link(Bitmap,13846490:Var2,[])
}
Add(PaintBox,13234352,357,238)
{
Left=10
Top=5
Width=345
Height=260
Color=16777215
}
Add(Bitmap,5430549,245,238)
{
HWidth=100
HHeight=100
FillColor=536870911
Point(onCreate)
Point(doCreate)
link(onCreate,7264361:doDraw,[(289,244)(289,217)(181,217)(181,314)])
}
Add(Img_AlphaBmp,1001163,357,308)
{
X=100
Y=50
AlphaBlendValue=125
link(Bitmap,13234352:Bitmap,[])
}
Add(AlphaShadow,13014802,308,308)
{
ShiftX=12
ShiftY=12
TransparentColor=536870911
link(onShadow,1001163:doDraw,[])
link(Bitmap,13846490:Var3,[(314,292)])
}
Add(GetDataEx,13846490,245,287)
{
link(Data,5430549:Bitmap,[])
}

карма: 22

0