BitBtn.Glyph zur Laufzeit via ImageList austauschen

[weltaran]

Hallo Leute!

Ich habe Probleme mit einer ImageList. Ich habe 2 quadartische bmp-Dateien mit gleicher Kantenlänge erstellt. Wenn ich eine ImageList (zur Designzeit) einfüge und mit dem Bilderlisten-Editor die zwei Bilder einfüge werden sie korrekt dargestellt, d.h. die Transparenzfarbe wird der unteren linken Ecke entnommen. Schließe ich den Bilderlisten-editor und öffne ihn gleich darauf wieder, so sind die ComboBoxen für die Transparenzfarbe disabled und die Icons werden falsch dargestellt.

Weiterhin zeigt sich -- vielleicht damit zusammenhängend --folgendes Problem.

Delphi-Quellcode:

 (in FormCreate..)
  ...
  ImageList1.GetBitmap(0, BitBtn1.Glyph);
  BitBtn1.Tag:=0;
  ...

sowie

Delphi-Quellcode:

procedure TfrmTestMeter.BitBtn1Click(Sender: TObject);
begin
  if  BitBtn1.Tag=1 then
  begin
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
    BitBtn1.Tag:= 0;
  end else
  begin
    ImageList1.GetBitmap(1, BitBtn1.Glyph);
    BitBtn1.Tag:= 1;
  end;
end;

Ergebnis: zur Laufzeit ändert sich das Bild nicht im geringsten. Wenn
ich jedoch zu Beginn das andere Image zuweise (Index 1) dann wird
dieses richtig dargestellt.

Habt ihr eine Idee?

[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[Wadim]

hau mal davor:

bitbtn1.Glyph.Assign(nil); rein - dann müste das gehen

mfg wadim