Also hier gibt es die Möglichkeit so ziemlich jedes gängige Bildformat in einem TImage anzeigen zu können...
(getestet mit Borland Delphi 2005)
Was benötigt wird
----------------------------------------
-
GraphicEx lib
Wie wird die lib installiert?
----------------------------------------
Da sowas eigentlich klar sein sollte gibt's das nur einmal ganz kurz:
1) zip Archiv entpacken (es empfiehlt sich da das Programmverzeichnis von Borland)
2) Delphi starten
3) Oben in der Leiste Tools->Optionen->Bibliothek(
Win32) oder Bibliothek(.Net)
4) Dort den obersten "..." Button klicken, nochmal den "..." Button im nächsten Fenster
5) Das Verzeichnis von 1) auswählen
6) Hinzufügen
Der Quelltext
----------------------------------------
Das Image wird in "Image1" (TImage) geladen.
Delphi-Quellcode:
uses
GraphicEx
type
Image1: TImage;
private
procedure DoLoad(const FileName: String);
procedure TForm1.DoLoad(const FileName: String);
var
GraphicClass: TGraphicExGraphicClass;
Graphic: TGraphic;
begin
Screen.Cursor := crHourGlass;
try
try
GraphicClass := FileFormatList.GraphicFromContent(FileName);
if GraphicClass = nil then
Image1.Picture.LoadFromFile(FileName)
else
begin
Graphic := GraphicClass.Create;
Graphic.LoadFromFile(FileName);
Image1.Picture.Graphic := Graphic;
end;
except
end;
finally
Screen.Cursor := crDefault;
end;
end;
Starten lässt sich das z.B. mit einem zusätzlichen Button (Button1) und einem OpenPictureDialog (OPD):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OPD.Execute then DoLoad(OPD.FileName);
end;
Die Projektdatei gibt's nochmal als Attachement dazu...