Как сделать эффект Fade для Image?

← →
Intell (2003-06-20 14:44) [0]

Мне нужно создать эффект Fade для Image, как это сделать? Можно компонентом, если таковой есть.

← →
Intell (2003-06-20 20:21) [1]

А вообще како-нибудь спецэффект можно сделать с Image?

← →
Dmk (2003-06-20 23:43) [2]

Не забудь на форму Image положить :)
Если Image положить на MDI-форму в клиентскую область, то
работать не будет.

procedure TImageForm.BitBtn1Click(Sender: TObject);
var
y: Integer;
ScLen: DWord;
FadeCounter: DWord;

Procedure DecBytesString(const Addr, Width:DWord);
asm
push edi
push ebx

mov ecx, Width
mov edi, Addr

@nPx: mov bl, [edi]
test bl, bl
jz @Left

dec bl
mov [edi], bl

@Left: inc edi
loop @nPx

pop ebx
pop edi
end;

begin
With Image1.Picture.Bitmap do
begin
ScLen := Width * 3;

For FadeCounter := 0 to 255 do
begin
For Y := 0 to Height - 1 do
DecBytesString(DWord(ScanLine[y]), ScLen);

If FadeCounter mod 5 = 0 then
Self.Canvas.Draw(0 , 0, Image1.Picture.Bitmap);
end;
end;//with
end;

← →
Fenik (2003-06-21 00:05) [3]

Да что все втюрились в этот глючный TImage???
Он только для "картинки в окне "О программе".

← →
Mihey (2003-06-21 00:14) [4]

Могу посоветовать Cool Controls, там Image с эффектами появления.

← →
Dmk (2003-06-21 03:32) [5]

← →
Intell (2003-06-23 11:06) [6]

Mihey, подскажи где достать CoolControls на Delphi6. Хотя он всё равно не для той цели (на Image на сколько знаю там ничего нет).

Как сделать эффект Fade для Image? Найти похожие ветки