Размытие в TImage

← →
X-Disa (2003-11-09 13:03) [0]

Скажите, плиз, как размыть картинку в TImage?

← →
Dmitry © (2003-11-09 14:07) [1]

Размывать все будем на канве:

Создаем:
var B:TBitMap; p:TBlendFunction; b:= TBitmap.Create; b.Width := ClientWidth; b.Height := ClientHeight; b.Canvas.Brush.Color:=clblack; b.Canvas.Rectangle(0,0,1024,768); p.BlendOp :=0 ; p.BlendFlags := 0; p.SourceConstantAlpha := 30; p.AlphaFormat :=0;

Перемещаем картинку в канву:
b.Canvas.Draw(0,0,Image1.Picture.Graphic); Canvas.Draw(0,0,b);

Постепенно меняем параметры xx1,xx2,yy1,yy2, этим можно добиться что картинка будет "уплывать" в разные стороны -- в какие задашь -- поэкспериментируй
Windows.AlphaBlend(b.Canvas.Handle,xx1,yy1,ClientWidth+xx2,ClientHeight+yy2,canvas.Handle,0,0,ClientWidth,ClientHeight,p ); Canvas.Draw(0,0,b);

Если запутаешься что нибудь состряпаю вышлю на мыло.

Размытие в TImage Найти похожие ветки