FastReport - Images laden

[Jack and the Juice]

Ich melde mich hier nochmals zu Wort, falls jemand anders ein ähnliches Problem haben sollte.

Das hier ist der, von mir zunächst genutzte, falsche Weg:

Delphi-Quellcode:

var
  PictureView: TfrxPictureView;
  imgindex: Integer;
begin
  ...
  if cdsmain.FieldByName('Land').value = 'Deutschland' then
    imgindex := 0;
  if cdsmain.FieldByName('Land').value = 'Frankreich' then
    imgindex := 1;
  ...
  PictureView := frxReport1.FindObject('landimg') as TfrxPictureView;
  imglist1.GetBitmap(imgindex, PictureView.Picture.bitmap); 
end;

Um das Ganze zu realisieren, reichte es bei mir aus, einfach ein TBitmap zu erstellen und dieses dann dem PictureView zuzuordnen. So funktioniert es:

Delphi-Quellcode:

var
  PictureView: TfrxPictureView;
  imgindex: Integer;
  bitmap: TBitmap;
begin
  ...
  if cdsmain.FieldByName('Land').value = 'Deutschland' then
    imgindex := 0;
  if cdsmain.FieldByName('Land').value = 'Frankreich' then
    imgindex := 1;
  ...
  bitmap := TBitmap.Create;
  try
    imglist1.GetBitmap(imgindex, bitmap);
    PictureView := frxReport1.FindObject('landimg') as TfrxPictureView;
    PictureView.Picture.bitmap := bitmap;
  finally
    bitmap.Free;
  end;
end;