Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TJvImage und gif während der Laufzeit laden? (https://www.delphipraxis.net/75765-tjvimage-und-gif-waehrend-der-laufzeit-laden.html)

alleinherrscher 24. Aug 2006 18:50


TJvImage und gif während der Laufzeit laden?
 
hi!

Ich habe gerade die JVCL Komponenten installiert und muss sagen: die sind echt klasse. Ich komme nur damit noch nicht so ganz klar...Wenn ich versuche, in ein TJvImage zur laufzeit ein gif zu laden, bekomme ich ne Fehlermeldung: "unbekannte dateiendung"...

Ich bin auf der suche nach einer komponente die ein paar mehr Bildtypen als das Image von Delphi öffnen kann. Diese komponente sollte auch ne canvas haben, damit ich hinterher z.B. das geöffnete gif in eine Imagelist oder sowas kopieren kann...

kann mir da jemand helfen?

Viele Grüße

Helmi 24. Aug 2006 18:54

Re: TJvImage und gif während der Laufzeit laden?
 
Hallo,

also was das reinladen von gifs angeht kann ich dir helfen: http://www.swissdelphicenter.ch/de/showcode.php?id=2012

alleinherrscher 24. Aug 2006 18:59

Re: TJvImage und gif während der Laufzeit laden?
 
Danköööö! Ich probiers direkt mal!

alleinherrscher 24. Aug 2006 19:16

Re: TJvImage und gif während der Laufzeit laden?
 
Delphi-Quellcode:
 
try
    TransferImage:=TImage.Create(nil);
    OleGraphic := TOleGraphic.Create;
    fs        := TFileStream.Create(imagepath, fmOpenRead or fmSharedenyNone);
    OleGraphic.LoadFromStream(fs);
    TransferImage.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;

    aBitmap:=TBitmap.Create;
    aBitmap.Width:=32;
    aBitmap.Height:=32;
    TransferImage.Picture.Bitmap.canvas.StretchDraw(rect(0,0,32,32),abitmap);
                    //das geht natürlich schief


So ich habe das Bild jetzt in

Image.picture geladen (das kann auch angezeigt werden *freu*)

Aber wie komme ich jetzt an die bitmap.canvas? die scheint leer zu sein, wenn die darauf zugreifen will... ich muss doch irgendwie an das bitmap kommen, weil ich nur das per strechdraw auf die richtige größe ziehen kann und dann in ne imagelist einbauen kann oder?

nochmal grüße und danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz