Zitat von
romber:
Doch die Icons werden irgendwie eckig angezeigt....
Da kann ich mir nichts drunter vorstellen.
Du müsstest als erstes mal die einzelnen Bildchen in deiner Imagelist überprüfen.
Nimm folgende Procedure um alle Bildchen auf ein Image zu laden und schau dir das optische Ergebnis an.
Delphi-Quellcode:
procedure PaintImagelist(imglist : TImageList; image : TImage; Gap:Integer=1);
var
i : Integer;
x ,y : Integer;
begin
x := 0;
y := 0;
for i := 0 to imglist.Count-1 do
begin
imglist.Draw(image.Canvas, x, y, i);
x := x + imglist.Width+Gap;
if x > (image.Width - imglist.Width) then
begin
x := 0;
y := y + imglist.Height+Gap;
end;
end;
end;