Много TImage - при перемещении тормоза

[Тоба]

Сообщение от Человек_Борща

На сколько помню, GR32 успешно справляется с таким кол-вом компонентов.
Особенно при наличии компонента, умеющего накладывать на базовое изображение слои. Таким образом проблема сама себя решает с любым кол-во изображений. Хотя я с 400 шт. не пробовал )

Специально решил попробовать:
500 слоёв.
Аналогичные тормоза при перемещении.
Не важно какого класса TCustomLayer, TBitmapLayer, TRotLayer ... etc
/////////////////////////////////////////////////////////////////////////////////////
Если создать мало слоёв, то всё шустренько таскается мышью,

unit MainUnit;

interface

//{$I GR32.inc}

uses
  SysUtils, Windows,Classes, Graphics, Messages, Controls, Forms, Dialogs,
  StdCtrls, GR32, GR32_RotLayer, ComCtrls, jpeg, GR32_Image;

type
  TFormRotLayer = class(TForm)
    ImgView: TImgView32;
    Button4: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);

    procedure LMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure LMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure LMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  public
    L: array [1..500] of TRotLayer;
    LayerList  : TList;
  private
   MX, MY   : integer;
   Pushed   : boolean;
   CurLayer :  integer;
  end;

var
  FormRotLayer: TFormRotLayer;

implementation

{$R *.dfm}


procedure TFormRotLayer.FormCreate(Sender: TObject);
begin
  ImgView.Bitmap.LoadFromFile('Back.jpg');
  LayerList := TList.Create;
end;

/////////////////////////////////////////////////////

procedure TFormRotLayer.LMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
P: TFloatPoint;
begin

  if Button = mbLeft then
    begin
    Pushed := true;
    CurLayer := TRotLayer(Sender).Index;
    //TRotLayer(Sender).BringToFront;
    P := TRotLayer(Sender).Position;
    MX := X - Round(P.X);
    MY := Y - Round(P.Y);
    Label1.Caption := IntToStr(CurLayer+1);
    end;
end;

/////////////////////////////////////////////////////

procedure TFormRotLayer.LMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
 Pushed := false;
end;

////////////////////////////////////////////////////

procedure TFormRotLayer.LMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
   if ssLeft in Shift then
   begin
      if Pushed then
      begin
      TRotLayer(LayerList.Items[CurLayer]).Position := FloatPoint(X - MX , Y - MY );
      end;
   end;
end;

///////////////////////////////////////////////////

procedure TFormRotLayer.Button4Click(Sender: TObject);
var
 i: Cardinal;
begin
  for i:=1 to 500 do
  begin

   L[i] := TRotLayer.Create(ImgView.Layers);
   L[i].Bitmap.LoadFromFile('Pict.jpg');
   L[i].Position := FloatPoint(Random(ImgView.Width-L[i].Bitmap.Width), Random(ImgView.Height-L[i].Bitmap.Height));
   L[i].MouseEvents := True;
   L[i].OnMouseMove := LMouseMove;
   L[i].OnMouseDown := LMouseDown;
   L[i].OnMouseUp   := LMouseUp;

    if  Assigned( LayerList ) then
    LayerList.Add(TObject(L[i]));

  end;

end;

procedure TFormRotLayer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    if  Assigned( LayerList ) then
    FreeAndNil(LayerList);
end;

end.

[Stilet]

Аналогичные тормоза при перемещении.

Я бы на твоем месте не работал с компонентами... Уж лучше обрабатывать OnPaint отрисовывая некую канву, служащую буфером, на которой будут рисоваться изменения в положении паззлов при попытке их перемещения.

[Тоба]

Это я уже понял.
Как раз этим сейчас и занимаюсь.
Камень на камне(подводные).Фаски, тени, антиалайзинг, призрак с динамической прозрачностью, повороты, общий фон канвы(текстура или Solid),пропорциональное масштабирование при ресайзе формы...
Танцую с бубном вокруг TGPBitmap и TВitmap32.

[Человек_Борща]

тогда под вашу задачу нужно действительно что-то уж совсем "своё".
Рекомендую смотреть с сторону GDI+, или же OpenGL, DirectX. Простой канвас вам тут не помощник, с такими-то объёмами информации.

[Stilet]

или же OpenGL, DirectX

О! Кстати. Очень даже да. Или FireMonkey если хочется рапида.

[Тоба]

GDI+ и GR32 прекрасно со всем этим справляется, просто очень много волокиты и времени надо

[Алексей_2012]

А если при онклик на картину написать:

image.doublebufEred:=true;?

А при отпускании кнопки-ложь?

[Тоба]

Сообщение от Алексей_2012

А если при онклик на картину написать:
image.doublebufEred:=true;?
А при отпускании кнопки-ложь?

А вы сами попробуйте написать, заодно узнаете - присуще ли данное свойство классу TImage.

[Человек_Борща]

Или FireMonkey если хочется рапида.

...Если хочется странного. FM у меня так и не заработал, под Windows 8.1 да из коробочных Demo в составе XE8. Скомпилировал, вижу что при движении окна все мигает гирляндой, закрыл, дальше не использую новомодную фигню.

А если при онклик на картину написать:

image.doublebufEred:=true;?

А при отпускании кнопки-ложь?

Свойство то есть, проблема в том что TImage не справится с таким объемом инфы. А GR32 ничего графического от delphi и не берут в принципе, там все самописное.