Mostrar bitmap progressivamente no Delphi

Inclua na seção uses: Graphics

Esta é uma boa dica para quem deseja fazer aplicativos para exibir fotografias.



1. Coloque no form um TButton e um PaintBox.
2. No evento OnClick do Button escreva:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: integer;
  R: TRect;
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile('c:\imagem.bmp');

    PaintBox1.ClientWidth := Bmp.Width;
    PaintBox1.ClientHeight := Bmp.Height;
    PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);

    R.Left := 0;
    R.Right := Bmp.Width -1;

    for I := 1 to 10 do begin
      J := I - 1;
      while J < (Bmp.Height -1) do begin
        R.Top := J;
        R.Bottom := J+1;
        PaintBox1.Canvas.CopyRect(R, Bmp.Canvas, R);
        J := J + 10;
      end;
      Sleep(50);
    end;
  finally
    Bmp.Free;
  end;
end;

Esta dica é só uma idéia inicial, mas com um pouco de criatividade o programador poderá criar outros efeitos mais interessantes.