плавное появление/исчезновение объекта TImage

[Хамяг]

На форме есть объект (пускай Image1). В данный момент на канвасе рисуется картинка. Нужно, чтобы при наведении мыши изображение плавно появлялось, а при отведении - плавно исчезало.

Насчёт реализации мысль есть: по таймеру чистим канвас и отрисовываем картинку. Вопрос в том - как задать прозрачность отрисовываемой картинке?

[Аватар]

А если использовать TAnimate?

[Хамяг]

Нет, не подходит.

Впрочем, откопал и немного настроил под себя процедурку:

procedure SetBlend(Image: TImage; Original: TBitmap; Value: Byte);
var
  x,y: Integer;
  pd: PRGBTriple;
  Bit: TBitmap;
begin
  Bit:=TBitmap.Create;
  Bit.Assign(Original);
  Form1.Caption:=IntToStr(Bit.Width)+' '+IntToStr(Bit.Height);
  for y:=0 to Bit.Height-2 do
  begin
    pd:=Bit.ScanLine[y];
    for x:=0 to (Bit.Width-1)*4 div 3 do
    begin
      pd.rgbtBlue:=Round((1-Value/255)*pd.rgbtBlue);
      pd.rgbtGreen:=Round((1-Value/255)*pd.rgbtGreen);
      pd.rgbtRed:=Round((1-Value/255)*pd.rgbtRed);
      Inc(pd);
    end;
  end;
  Image.Picture.Assign(Bit);
  Bit.Free;
end;

на тестовой форме замечательно работает. попробую теперь перенести в проект.