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]