PNGImageList

[Spectre]

"ImageList.GetBitmap(Nr, ZielBitmap)"
was meinst du mit zielbitmap?


mal angenommen ich lade 2 bilder rein, Nr wäre dann 0 und 1 nehme ich an, was definiert zielbitmap?

[Popov]

Ich dachte die Bezeichnung ist ist Selbsterklärend. Nehmen wir an du hast zwei Bitmaps in die ImageList1 geladen. In dem Fall ist die erste Bitmap die Nr 0, die zweite die Nr 1, usw. Dann nehmen wir an, du willst es in die Bitmap der Image Komponente laden (Image.Picture.Bitmap). Das ganze würde dann so aussehen:

ImageList1.GetBitmap(0, Image1.Picture.Bitmap); Die erste Bitmap in der Liste (hier 0), wird am die Image Komponente Bitmap übergeben.

Zielbitmap ist also die Bitmap in die die Bitmap aus ImageList übergeben wird.

[Spectre]

hmm...mit "ImageList1.GetBitmap" komme ich nicht weit...sieht aus als hätte die Png komponente eigene befehle :S
google hilft nicht wirklich weiter...ärgerlich. eigentlich möchte ich einfach nur via knopfdruck ein bild aus der imagecollection bzw den bilder die ich vorher reingeladen habe anzeigen :S

[Uwe Raabe]

Also erstmal zum Unterschied:

Eine TPngImageList ist abgeleitet von einer normalen TImageList und erweiter diese um PNG-Support. Wie jede andere TImageList müssen alle Bilder darin gleich groß sein. Alle Controls, die mit einer TImageList zusammenarbeiten können (z.B. TToolbar), sollten dies auch mit einer TPngImageList tun.

Im Gegensatz dazu können die Bilder in einer TPngImageCollection unterschiedliche Größe haben. Allerdings muss man sich hier um die Darstellung der Bilder selber kümmern.

Hier ein kleines Beispiel, wie man das macht.

Auf ein Form platziere eine TPngImageCollection und fülle diese mit diversen Bildern (über den Editor oder per Code). Dann brauchen wir noch ein TImage und einen TButton auf dem Form. Beim TImage setzen wir das AutoSize auf true (damit es sich an die Bildgröße anpasst). Im ButtonClick-Event steht dann folgender Code:

Delphi-Quellcode:

begin
  Image1.Picture.Graphic := PngImageCollection1.Items[Tag].PngImage;
  Tag := Tag + 1;
  if Tag >= PngImageCollection1.Items.Count then
    Tag := 0;
end;

Mit jedem Button-Click wird nun das nächste Bild aus der Collection dargestellt.

[Spectre]

danke für den tip!
habs grad so ausprobiert..allerdings sagt er mir beim compilieren beim TAG (dahin setzt er den cursor)

(Image1.Picture.Graphic := PngImageCollection1.Items[Tag].PngImage = Klasse besitzt keine Standarteigenschaft

:/

[Uwe Raabe]

Zitat von Spectre:

..allerdings sagt er mir beim compilieren beim TAG (dahin setzt er den cursor)

(Image1.Picture.Graphic := PngImageCollection1.Items[Tag].PngImage = Klasse besitzt keine Standarteigenschaft

Welche Version der PngComponents setzt du denn ein und mit welcher Delphi-Version? Bei mir klappt das nachweisbar ohne Probleme.

Wenn deine Implementation noch kein Default für die Collection definiert, dann sollte es dieser Aufruf aber tun:

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

[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]

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

[Spectre]

Für die interessierten bzw falls irgendwann jemand das gleiche problem hat..die gleiche variante für den X2GraphicContainer sieht folgendermaßen aus..

Code:

Image1.Picture.Graphic := TX2GraphicCollectionItem(X2GraphicContainer1.Graphics[0]).picture.graphic;

HF

[Popov]

Wie gesagt ich kenne die Komponente nicht, aber ich hab ein Beispiel gefunden wie eine Png eingefügt wird:

Delphi-Quellcode:

var
  png: TPngImageCollectionItem;
begin
  FPNGImageList := TPNGImageList.Create(Self);

  PNG := FPNGImageList.PngImages.Add;
  PNG.PngImage.LoadFromFile(GetIconDir + 'accept.png');

Daraus könnte man meinen, dass man in etwa so an die Image ran kommt

Delphi-Quellcode:

  PNG.PngImage[x];
  ..

Ist aber ins Blaue geschossen.