Imagelist bild laden problem

[rocksoft]

Hallo Dahead,

nein nicht wirklich hab schon mal etwas was einigermassen geht, leider habe ich da noch ein fehler und möglichherweise mach ich es komplizierter als es wirklick ist.

mit ein Bild 100x100 bzw 4 x 25 x 25 lauft es, aber wenn ich 64x64 benutze a 4 x 16x16 fehlen da einige Bilder.

eventuell kann mir jemand helfen

Delphi-Quellcode:

begin
bitmap := TBitmap.Create;
pic := Timage.Create(self);
bitmap.LoadFromFile('c:\qqq.bmp'); //100x100
h:=imagelist1.Height; // Bild Hohe    25px
y:= bitmap.Width;     // Image Breite  100
j:= y div h;          // Bilder Y = 4
//c:=1;
For c:=0 to j do
begin
a := rect(0,0,y,h);
b := rect(0,h*c,y,h*(c+1));
pic.Canvas.CopyRect(a,bitmap.canvas,b);
ImageList1.AddMasked(pic.Picture.Bitmap, clFuchsia);
pic.free;
bitmap.free;
end;
end;

Danke.