schneller Ersatz für timage

**R2009**

Hallo DP'ler,

gibt es einen schnellen Ersatz für Timage? Ich muss ein Icon(bmp)-array auf einer Form darstellen.
Alles was ich eigentlich brauche ist eine Komponente in der eine Bitmap dargestellt werden kann und
das ich anklicken kann. Die unten angegebene Routine braucht für breite=38 und hoehe=28 ca 20sec.
timage_ext ist ein Nachfolger von timage mit 2 Integervariablen zusätzlich. Der Zeitbedarf zwischen
meiner Komponente und timage unterscheidet sich überhaupt nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			  setlength(bmdraw,breite,hoehe);

  for n := 0 to breite-1 do

    for m := 0 to hoehe-1 do

    begin

      bmdraw[n,m]:=timage_ext.create(self);

      bmdraw[n,m].Parent:=Form2;

      bmdraw[n,m].Picture.Bitmap.Width:=22;

      bmdraw[n,m].Picture.Bitmap.height:=22;

      bmdraw[n,m].Top:=2;

      Bm.Imagelist1.GetBitmap(0, bmdraw[n,m].Picture.Bitmap);

      bmdraw[n,m].Left:=n*23;

      bmdraw[n,m].top:=m*23;

      bmdraw[n,m].OnMouseDown:=FormMouseDown;

      bmdraw[n,m].ext_x:=n;

      bmdraw[n,m].ext_y:=m;

    end;

Vielen dank im Vorraus!

schneller Ersatz für timage

schneller Ersatz für timage

Forumregeln