Bitmap von ImageList laden ?

[Jens Hartmann]

Hallo zusammen,

und besten dank schon mal für die Info´s. Ich habe mein Problem jetzt mit einer Resourcendatei und einer Graphics32 Komponentensammlung über die Komponente Image32 gelößt. Auf diese Komponente bin durch die Suchmaschine gekommen, da ich die Bilder gerne überblenden würde.

Ich habe mir verschiedene Beiträge angesehen, jedoch keinen der mir so richtig helfen konnte.

Ich zeig Euch hier mal meine aktuelle Lösung und hoffe, das ihr mir nochmal weiterhelfen könt.

Delphi-Quellcode:

procedure TPSStarter.FormCreate(Sender: TObject);
var
  Live : TBitmap32;
begin
  PicTimer.Interval := Starter.Interval div 11;
  Live := TBitmap32.Create;
  Live.LoadFromResourceName(HInstance, 'Erfolg');
  Image321.Bitmap := Live;
  Live.Free;
end;

procedure TPSStarter.PicTimerTimer(Sender: TObject);
var
  Live : TBitmap32;
  i : integer;
begin
try
  try
    Live := TBitmap32.Create;
    case Image321.Tag of
      0:  Live.LoadFromResourceName(HInstance, 'Einbruch');
      1:  Live.LoadFromResourceName(HInstance, 'Brand');
      2:  Live.LoadFromResourceName(HInstance, 'TK');
      3:  Live.LoadFromResourceName(HInstance, 'IT');
      4:  Live.LoadFromResourceName(HInstance, 'Kosten');
      5:  Live.LoadFromResourceName(HInstance, 'Lichtruf');
      6:  Live.LoadFromResourceName(HInstance, 'Video');
      7:  Live.LoadFromResourceName(HInstance, 'Zeit');
      8:  Live.LoadFromResourceName(HInstance, 'Zutritt');
      9:  Live.LoadFromResourceName(HInstance, 'Planung');
     10:  Live.LoadFromResourceName(HInstance,'Erfolg');
    end;
    Image321.Bitmap := Live;
  except
    Exit;
  end;
  finally
    Live.Free;
    Image321.Tag := Image321.Tag + 1;
  end;
end;

Danke schon mal

Gruß Jens