Einzelnen Beitrag anzeigen

DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#22

AW: Wie verwendet man die neue TVirtualImageList

  Alt 12. Mai 2020, 13:18
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;

Geändert von DieDolly (12. Mai 2020 um 13:24 Uhr)
  Mit Zitat antworten Zitat