Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

Размытие в 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);


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

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.037 c