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.