Wie verwendet man die neue TVirtualImageList

[DieDolly]

Ja. Siehe Anhang
Die Schleife habe ich Vcl.ImageCollection.pas genommen (TImageCollection.GetSourceImageIndex) um zu sehen, was da eigentlich das Ergebnis ist.

[Uwe Raabe]

In der Tat. GetSourceImage gibt einfach nur das nächst-größere Image zurück. In meinen Tests passte das zufällig.

Es gibt aber eine kleine Ergänzung, mit der das gewünschte Ergebnis erreicht werden kann:

Delphi-Quellcode:

type
  TImageCollectionHelper = class helper for TImageCollection
  public
    function GetScaledImage(AIndex, AWidth, AHeight: Integer): TWICImage; overload;
  end;

function TImageCollectionHelper.GetScaledImage(AIndex, AWidth, AHeight: Integer): TWICImage;
begin
  Result := GetScaledImage(GetSourceImage(AIndex, AWidth, AHeight), AWidth, AHeight);
end;


...
 Image3.Picture.Graphic := Images.GetScaledImage(Images.GetIndexByName('krankenwagen'), Image3.Width, Image3.Height);
...

[DieDolly]

Also doch nicht ganz meine Blödheit. Danke dafür.
Ich frage mich wieso sowas nicht schon direkt in der Komponente enthalten ist. Ich finde es ist logisch, dass wenn man dem Aufruf Width und Height mit gibt, man auch nach Möglichkeit diese Größe haben möchte.

[DieDolly]

Ich merke gerade, dass es eine AV am Ende des Programms gibt. Besser gesagt ein Speicherleck was mit TWICImage zu tun hat. Wie bekommt man denn das weg?
Ein Image3.Picture.Graphic.Free; im FormDestroy bringt nur noch mehr Ärger.

[Uwe Raabe]

Stimmt. SetGraphic macht ein Assign.

Delphi-Quellcode:

 img := Images.GetScaledImage(Images.GetIndexByName('krankenwagen'), Image3.Width, Image3.Height); // img: TWICImage;
 try
   Image3.Picture.Graphic := img;
 finally
   img.Free;
 end;

[DieDolly]

Ist es möglich img als var Parameter dem Aufruf mitzugeben um Zeilen zu sparen?
Weil ich ändere die Bilder öfter und nicht nur zum Programmstart.

Delphi-Quellcode:

procedure TImageCollectionHelper.GetScaledImage(AIndex, AWidth, AHeight: Integer; var Graphic: TGraphic);
var
 Img: TWICImage;
begin
 Img := GetScaledImage(GetSourceImage(AIndex, AWidth, AHeight), AWidth, AHeight);
 try
  Graphic := Img;
 finally
  Img.Free;
 end;
end;

[Uwe Raabe]

Da Graphic ein Property ist, kann man das nicht als var-Parameter übergeben. Allerdings kann man noch einen anderen Class Helper schreiben:

Delphi-Quellcode:

type
  TImageHelper = class helper for TImage
  public
    procedure UpdateImage(Source: TImageCollection; Index: Integer); overload;
    procedure UpdateImage(Source: TImageCollection; const AName: string); overload;
  end;

procedure TImageHelper.UpdateImage(Source: TImageCollection; Index: Integer);
var
  img: TWICImage;
begin
  img := Source.GetScaledImage(Index, Width, Height);
  try
    Picture.Graphic := img;
  finally
    img.Free;
  end;
end;

procedure TImageHelper.UpdateImage(Source: TImageCollection; const AName: string);
begin
  UpdateImage(Source, Source.GetIndexByName(AName));
end;


...
 Image3.UpdateImage(Images, 'krankenwagen');
...

[himitsu]

Zitat von DieDolly:

Ist es möglich img als var Parameter dem Aufruf mitzugeben um Zeilen zu sparen?
Weil ich ändere die Bilder öfter und nicht nur zum Programmstart.

Nein, denn es wird nicht die Referenz kopiert,
selbst wenn es das würde, dann wäre es Fatal die kopierte Referenz (Img) sofort freizugeben,
und da es nicht möglich ist einen Property zu übergeben, sondern nur den wert aus/für dessen Getter oder Setter,
ist VAR hier sowieso nutzlos.


Du kannst aber TPicture als Parameter übergeben und darüber auf den Setter des Picture.Graphic zugreifen,
oder z.B. wie im schon gezeigten ClassHelper, an TImage oder auch an TPicture, das .Graphic in der Methode benutzen.

[TurboMagic]

Zitat von DieDolly:

Also doch nicht ganz meine Blödheit. Danke dafür.
Ich frage mich wieso sowas nicht schon direkt in der Komponente enthalten ist. Ich finde es ist logisch, dass wenn man dem Aufruf Width und Height mit gibt, man auch nach Möglichkeit diese Größe haben möchte.

Die Frage ist natürlich berechtigt.
Hast du schon mal in quality.embarcadero.com nachgeschaut ob die dort auch schon jemand gestellt hat?
Falls nicht wäre es toll, wenn du das dort als Feature Request eintragen könntest und uns hier
dann die Report Nummer verrätst, damit wir dafür stimmen können.

Grüße
TurboMagic