Скажите пожалуйста, как можно очистить TImage от загруженного рис

← →
3Lander (2007-10-26 19:41) [0]

Скажите пожалуйста, как можно очистить TImage от загруженного рисунка? Тока заполнять его через канвас мнимым прямоугольником?! (к сожалению фон самого окна не однотонный - поэтому не катит)

← →
3Lander (2007-10-26 19:45) [1]

причем брать пиксель от окна и перекрашивать его в имадж - не оч хор решение, т.к. таких рисунков 10 шт и они постоянно меняются (так была поставленна задача)

← →
3Lander (2007-10-26 20:21) [2]

вощем раз никто не знает пришлось написать процедурку с закраской по цвету фона - мож кому пригодится:

procedure DoTransPicture(var im:TImage); { принимаем наш имадж к-й нужно "залить" под цвет фона. Здесь mainImage - наш основной фоновый рисунок}
var i,j:integer;
begin
for i:=0 to im.Width-1 do
for j:=0 to im.Height-1 do
begin im.Picture.Bitmap.Canvas.pen.Color:=form1.mainImage.Picture.Bitmap.Canvas.Pixels [im.Left+i,im.Top+j];
im.Picture.Bitmap.Canvas.MoveTo(i,j);
im.Picture.Bitmap.Canvas.LineTo(i+1,j+1);
end;
im.Repaint;
end;

← →
Desdechado © (2007-10-26 21:01) [3]

Очистить или залить фоновым цветом? Это таки разные вещи.
Заливка FillRect

← →
PZ (2007-10-27 07:57) [4]

Image1.Picture := nil;

> Image1.Picture := nil;

Утечек не будет?

> Утечек не будет?

не должно

Скажите пожалуйста, как можно очистить TImage от загруженного рис Найти похожие ветки