Roter billede

Lav en animeret GIF. Der er frie komponenter på nettet, som kan vise den på en form.

Kender du et sted, hvor en sådan komponent kan findes?

>>AASuper

Omkring algoritmer og diverse til billedbehandling, så har du kode + teori på denne side

http://www.efg2.com/Lab/

Det var et svar :)

Brug eventuelt DelphiX... download den her: http://turbo.gamedev.net/delphix.asp

ZeroHero

eller bruger API funtinen PlgBlt()

Morten_S og ZeroHero>
I giver henvisniniger til nogle sider - kan I ikke specificere det lidt? Hvad skal jeg have fat i, hvilken kode skal jeg skrive i Delphi m.m.?

MartinLind>>
Hvordan virker PlgBlt() ?

NCA>>
Jeg kan íkke finde nogle gratis komponenter, som kan vise animerede GIF's i Delphi 6.


>>AASuper

Det kan du se i Online hjælpen

http://www.melander.dk/delphi/gifimage/

Stoney

Prøv disse adresser:
http://www.melander.dk/delphi/gifimage/
http://www.ajdcomp.demon.co.uk/delphi/freeware.html#3
http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm (og se under GIF)

Stoney og NCA>>
Ingen af de nævnte adresser indeholder en GIF-komponent, som kan benyttes med Delphi i version 6.

>>AASuper

http://www.efg2.com/Lab/ImageProcessing/RotateScanline.htm
her står hvordan du rotere et billede ved hjælp af scanlines...

Du kan på http://www.frasersoft.net/rxhelp/
downloade den seneste version af RXLib.
Du skal bruge TRxGifAnimator til at indeholde din animerede GIF. Husk under properties at sætte Animate til true.
Jeg har kun testet den under Delphi 5, men efter sigende skulle det også virke under Delphi 6.

billederne er loaded ind i en imagelist

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    ImageList1: TImageList;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    ImageListIndex: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ImageListIndex := 0;
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,0,true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,ImageListIndex,true);

Inc(ImageListIndex);

if ImageListIndex > ImageList1.Count -1 then
  ImageListIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;

if Timer1.Enabled then
  Button1.Caption := 'Stop'
else
  Button1.Caption := 'Start';
end;

end.

Tak for svaret, det var vist den nemmeste løsning...