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.
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!