Aziz писал(а):
Windows 8.1, а у вас?Aziz писал(а):
sla8a, может скинете ваш компонент АльфаРесайз ?http://svn.hiasm.com/packs/delphi/code/hiAlphaResize.pas
http://svn.hiasm.com/packs/delphi/code/hiAlphaBitMap.pas
http://svn.hiasm.com/packs/delphi/code/hiAlphaImage.pas
Aziz писал(а):
Что вам еще скинуть для исследования? Тестовая схема
Add(MainForm,2953706,357,315)
{
link(onCreate,16247686:doOperation,[])
}
Add(AlphaResize,15701769,504,329)
{
Point(Result)
link(onResize,16240803:doEvent,[])
link(Bitmap,7194979:Var,[])
link(Width,16247686:Result,[(517,317)(479,317)(479,373)(440,373)])
link(Height,98738:Height,[])
}
Add(AlphaBitmap,98738,504,217)
{
HWidth=100
HHeight=100
Point(Width)
Point(Height)
Point(doCreate)
Point(HWidth)
Point(HHeight)
}
Add(AlphaImage,9384519,574,329)
{
Width=384
Height=261
Align=5
Color=0
AlphaBlendValue=128
AlphaMode=1
Point(Width)
Point(Height)
Point(doRefresh)
Point(ImageWidth)
Point(ImageHeight)
Point(onResize)
}
Add(Math,16247686,434,329)
{
OpType=1
Op2=10
Default=200
link(onResult,15701769:doResize,[])
link(Op1,98738:Width,[(440,261)(517,261)])
}
Add(Debug,7194979,504,273)
{
WEName=""
VDName="AlphaBitmap"
link(Data,98738:Bitmap,[])
}
Add(Debug,16240803,546,329)
{
WEName="AlphaResize"
VDName=""
link(onEvent,9384519:doLoad,[])
}