ImageList mit Ressource-File füllen

[Martin Höfer]

Hallo zusammen,

ich habe ein Problem mit der ImageList. Habe mir eine eigene ImageList abgeleitet und fülle diese mit ein paar BMPs. Teilweise sind die BMPs in 256 Fraben. Allerdings sind diese Farben optimiert, d.h. es sind nicht die Standard-Farben. Wenn ich jetzt die BMPs lade (siehe Code-Auszug unten), werden nur die Standard-Farben dargestellt *würg*. Wenn ich aber über den Hinzufügen-Button genau dasselbe BMP hinzufüge, werden die richtigen Farben dargestellt. Wenn ich mir im Bildeditor die Ressource anschaue, sieht das auch sehr gut aus. Erst wenn ich die ImageList auf ein Formular hänge und die Images anschaue, tritt der Effekt auf. Kann mir hier vielleicht jemand weiterhelfen? Muss ich die BMPs anders hinzufügen?

Vielen Dank schon mal.
Martin

<PRE>
procedure TSEImageList.GetImages;
const
iImgCount = 37;
var
ii: Integer;
sImgName: String;
begin
inherited Loaded;
Clear;
for ii := 1 to iImgCount do begin
sImgName := '16X16_' + Format('%0.3d', [ii]);
GetInstRes(HInstance, rtBitmap, sImgName, width, [], clFuchsia);
end;
end;
</PRE>

[Martin Höfer]

Nochmal ich!

Habe mein Problem mit der ImageList selbst lösen können. Für alle, die es interessiert, hier der Code-Auszug:

Anstatt die Ressource direkt zu laden, wird das Bild zuvor einer temporären Bitmap zugewiesen und diese dann in die ImageList aufgenommen.
<PRE>
procedure TSEImageList.GetImages;
const
iImgCount = 37;
var
ii: Integer;
sImgName: String;
myBitmap: TBitmap;
begin
inherited Loaded;
Clear;
myBitmap := TBitmap.Create;
for ii := 1 to iImgCount do begin
sImgName := '16X16_' + Format('%0.3d', [ii]);
myBitmap.Handle := LoadBitmap(HInstance, PChar(sImgName));
AddMasked(myBitmap, clFuchsia);
end;
myBitmap.Free;
end;
</PRE>

Marti