Vuelvo de nuevo para consultar ya que no logro entender el problema. Ya realize pruebas con vcl normal, con canvas, con canvas d2d, y hasta en fmx que tiene aceleracion por hardware.
Mi problema es el mismo. Cuando hay muchos objetos en pantalla, en un formulario, el rendimiento disminuye.
Decidi probar en FMX con un formulario 3d, y me puse a monitorear con el MSI after burner los fps y la utilización de recursos. Y pasado los 50 objetos creados, la aplicacion disminuye sus fps pero NO UTILIZA PARA NADA LOS RECURSOS DE HARDWARE.
mi pequeño codigo para realizar pruebas : En este ejemplo, creo objetos imagenes3d en tiempo de ejecucion y los muevo en pantalla, maximo 100 objetos. (He probado realizando dibujos en canvas,creando un solo frame pero la situacion es la misma)
procedure TForm1.Timer2Timer(Sender: TObject);
var g : integer;
begin
randomize;
g := random (20) ;
if g = 10 then begin
for var i := 1 to 100 do begin
if not assigned(vector[i]) then begin
vector[i] := timage3d.Create(vector[i]);
vector[i].Bitmap := image3d1.Bitmap;
vector[i].Parent := image3d1.Parent;
vector[i].Width := 100;
vector[i].Height:= 100;
vector[i].Position.x:= 100;
vector[i].Position.y:= 100;
vector[i].Position.z:= 0;
vector[i].Projection := image3d1.Projection;
break ;
end
end ;
end;
for var t := 1 to 100 do begin
if assigned(vector[t]) then begin
vector[t].Position.x := vector[t].Position.x + 2;
vector[t].Position.y := vector[t].Position.y + 2;
//vector[t].RotationAngle.x := vector[t].RotationAngle.x + 1;
end
end
end;
Esto es todo el codigo de ejemplo, y todo el codigo dentro del timer, no hay nada mas. Lo realize como prueba. Para dar a entenderme. Les muestro una imagen de la aplicacion de prueba, donde se crean imagenes en tiempo de ejecucion y se mueven por pantalla. Cual es el motivo de la relantizacion ?
TFloatAnimation
para mover las imágenes y efectivamente el rendimiento cae cuando hay más de 50 objetos en pantalla, lo cual me parece lógico por la manera de hacerlo. Hice otra prueba básica, manteniendo las posiciones de las imágnes en una lista y dibujando las imágenes en un bitmap que luego asigno a un TImageViewer, y con 100 imágenes, logro mantener 60/64 fps sin problema haciendo todo en el hilo principal. Para más objetos, se puede trasladar parte del proceso a un hilo secundario.