TOpenPictureDialog

Det skulle vist kunne lade sig gøre ved bare at tilføje jpeg til uses, og så hente TGifImage fra http://www.melander.dk/delphi/gifimage/ og use den.

Er der ikke en komponent der kan gøre det?

Jo, TOpenPictureDialog, som du nævner kan udvides til at vise andet end bmp.

Hvis du installerer TGifImage, så skriver du bare uses jpeg, gifimage; under implementation i den unit, hvor du har din TOpenPictureDialog.

Jeg prøver lige, men der er 99% sikkerhed for at du får du 60 point.

Jeg prøver lige, men der er 99% sikkerhed for at du får de 60 point. (Retter lige fejlen) 

Hej,
Jeg har prøvet at tilføje gifimage og jpeg på TOpenPictureDialog, men det virker ikke med (*.gif) billeder.

Lav et nyt projekt, hvor du lægger en TImage (fra Additional) og en TOpenPictureDialog (fra Dialogs) på formen. Dobbeltklik på formen for at tilføje en OnCreate handler, og ret din unit1, så den ser således ud:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses                          <---------
  jpeg, gifimage;              <---------

procedure TForm1.FormCreate(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then              <--------------
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);      <---------------
end;

end.


Pilene skal du naturligvis ikke lave! Jeg har lavet dem for at vise dig de fire linier, du skal tilføje.

Hvis det stadigvæk ikke virker, så check om du har TGifimage med i din Library Path.

Vælg Tools|Environment Options...|Library
Klik på ...-knappen ud for Library Path, og undersøg om
$(DELPHI)\\Source\\GifImage
er med på din library path. Hvis ikke, så klik på ...-knappen ved siden af editboksen og browse han til mappen og klik OK i Browse for Folder dialogen.
Klik på Add under editboksen, og klik på OK.
Gentag dette ved Browsing Path.

Hej Pstric,
Jeg fandt ud af at jeg havde en helt anden component der hed TGifImage. Men nu har jeg downloaded TGifImage fra http://www.melander.dk/delphi/gifimage/. Jeg håber den virker.

Virkede det?

Jep!
Tak for hjælpen