Forum: Programmieren allgemein
by Basetyp,
6. Dez 2012
Sehr schön. Danke genau das wollte ich hören :-D
Hab den Code mal weniger TImage missbrauchend gemacht.
procedure DrawEntities(E: Array_Array_TPoint; Source_Bitmap: TBitmap);
var i, t: Integer;
Destination_Rect, Source_Rect: TRect;
begin
MAPTEST_form.Image3.Width := 500;
Forum: Programmieren allgemein
by Basetyp,
6. Dez 2012
Guten Abend Delphi Praxis.
Ich hab mich mal grade an ein Programm gemacht, dass dynamisch TImage Objekte aus Bitmapabschnitten erstellt.
Das Programm soll ca. 10000 Bitmaps in eine Array of TImage laden und dann in die Form ausgeben.
Allerdings gibt es nach ca. 20sec des Wartens diese Meldung: Klick!
Hier der dazu gehörende Code:
procedure DrawEntities(E: Array_Array_TPoint;...