icons erzeugen

[DeddyH]

Delphi-Quellcode:

var b:Tbitmap; // Das Icon
i,j:Integer;
begin
  b := TBitmap.Create;
  try
    b.LoadFromFile(Dateiname);
    for i := 0 to 100 do
      for j := 0 to 100 do
        //da das wahrscheinlich in die OnPaint-Methode des Formulars soll,
        //das Form1 besser weglassen
        {form1.}canvas.draw(i*b.width, j*b.height, b);
  finally
    b.Free;
  end;
end;