PNGImageList

[Uwe Raabe]

Zitat von Andreas L.:

Die PNGImageList ist übrigens (genau so wie der PNGButton) sehr buggy.

Kannst du da etwas mehr zu sagen? Interessiert mich halt...

[Bernhard Geyer]

Zitat von Andreas L.:

Die PNGImageList ist übrigens (genau so wie der PNGButton) sehr buggy. Ich verwende deshalb immer die X²GraphicList (letzter Abschnitt des Artikels).

Ich verwende seit Jahren die ElPack/LMD-Komponenten die seit Jahren auch für ältere Delphi-Versionen eine durchgehende PNG-Unterstützung bieten.

[Andreas L.]

Zitat von Uwe Raabe:

Zitat von Andreas L.:

Die PNGImageList ist übrigens (genau so wie der PNGButton) sehr buggy.

Kannst du da etwas mehr zu sagen? Interessiert mich halt...

Es gibt Darstellungsfehler mit manchen Controls (Toolbars, ...) und die PNGCollection hat bei mir immer wieder Bilder verloren.

[Uwe Raabe]

Zitat von Andreas L.:

Es gibt Darstellungsfehler mit manchen Controls (Toolbars, ...) und die PNGCollection hat bei mir immer wieder Bilder verloren.

Obwohl ich vermute, daß du sie nicht mehr einsetzt - solltest du mal sowas reproduzieren können, wäre ich dir dankbar, wenn du es mir zukommen lässt (PM).

[Spectre]

Delphi 7 benutze ich. die png komponente ist von 2003..bischen älter.

ich hab mir mal die X2GraphicList runtergeladen und die x2graphiclist1 und den x2graphiccontainer1 aufs formular gelegt..bilder in die collection reingeladen und nen TImage + button plaziert...wenn ich..

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture := X2Graphiccontainer1.graphics[1].Picture;

end;

diesen code versuche gibts zwar keine fehlermeldung - aber ein bild wird auch nicht angezeigt :S

ich hatte es ursprünglich mit

Code:

Image1.Picture.graphic

probiert aber da gibts nen error bezüglich graphic und Timage

[Spectre]

na kommt, ihr könnt das

ich möchte einfach nur via knopfdruck aus der png imagelist in ein Timage die bilder anzeigen lassen die ich zuvor in die liste geladen habe..ich kriegs ums verrecken nicht hin! sufu hat auch nicht wirklich was gebracht weil die meisten beispiele sich auf die Imagelist mit BITMAPS konzentrieren, irgendwie bin ich zu blöd für diese komponente..

würde sich jemand erbarmen mir nen beispiel code zu geben mit dem ich experimentieren kann oder nen kleine beispiel exe compilieren?

Ihr seid die besten!

robin

[Uwe Raabe]

Image1.Picture.Graphic := PngImageList1.PngImages.Items[0].PngImage;

[Spectre]

Ich teste das gleich in ner stunde wenn ich zuhause bin, danke Uwe!!

[Spectre]

Unabhängig davon ob ich die X2GraphicList oder die Pngimagelist verwende, bei

Code:

Image1.Picture.Graphic := PngImageCollection1.Items.Items[Tag].PngImage;

der zeile meldet er mir das pngimage als undefinierten bezeichner, obwohl ich diese 4 in der uses drin hab..: X2CLGraphicList, PngExtraEx,pngimage,uPngImageList; muss ich pngimage noch irgednwie anders klassifizieren? hier mal der ganze code...lach. lustig das man an so "kleinigkeiten" so festhängen kann ;D

hab nen button, nen Timage, ne PngImageList und eine TpngImageCollection auf der form.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ImgList, X2CLGraphicList, PngExtraEx,pngimage,
  uPngImageList;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    PngImageList1: TPngImageList;
    collection: TPngImageCollection;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Graphic := collection.items.Items[0].pngimage;
end;

end.

danke für die geduld...wiedermal
robin

[Uwe Raabe]

Du solltest nur die Unit einbinden, von der du die PngImageList verwenden willst. Keine der vier von dir genannten gehört zu den PngComponents, auf die sich mein Code-Beispiel bezieht.