Помогите подобрать оптимальное решение

[Zeraim]

В общем вот программка, пока не доделанная, основные моменты пишу, все исходники и текстовичок с описанием основного управления внутри. Подскажите как оптимизировать код, поскольку при добавлении большого числа объектов она явно лагает. Что-то нечего нормального кроме как использовать спидбатоны не приходит.

[Stilet]

Может стоит всю отрисовку на чистом WIN API делать. Попробуй.

[Zeraim]

Хм а может быть так, что мой массив подвисает ? Просто складывается ощущение что из него информация вытягиваеьтся не стразу а с какими-то задержками, или вообще не вытягивается =\\
===================================
Вот тут я проверяю находится ли мышка в площади иконки, может стоит использовать регионы для проверки ? Ни сама прога скомпиленая для наглядности проблемы 8)

windows.ClientToScreen(es.Handle,pC);
GetCursorPos(pW);
...
if (pW.X-pC.X in [x..x+32])and(pW.Y-pC.Y in [y..y+32])
      and(GetAsyncKeyState(vk_lbutton) < 0)and(es.Active = true) then begin
    pw.X := 0;//Исправление повторного открытия файла при активации формы
    pw.Y := 0;
    ShellExecute(Handle,'open',Pchar(mInfo[i].Path),nil,nil,SW_SHOWNORMAL);
    sleep(300);//Пока форма не станет не активной
  end;

[Utkin]

Чисто с изображением - уйдите от таймера. Таймер это медленно. Выводите в цикле (через Application.ProcessMessages) в буфер, а из него в таймере уже выводите в форму. На сколько тиков заведен таймер?

[Stilet]

ожет стоит использовать регионы для проверки

Думаю что не здесь проблема, а при отрисовке.

[Zeraim]

Таймер установлен на 44 милисекунды или 24 кадра xD

[Utkin]

Как вариант - запускать приложение с большим приоритетом. И уменьшить число точек в окружности, по которой крутится иконка (ну тут нужен некий баланс - иначе иконка будет дергаться.).

[Zeraim]

Она и так будет дёргатся, тут помоему не как не избавится, я ведь всяких фильтраций не использую xD А насчёт Application.ProcessMessages вы имели в виду создание бесконечных циклов ?

[Utkin]

Да бесконечный цикл. Ну почти бесконечный, с выходом посредством Break. Так Вы используйте фильтрацию.

[Zeraim]

В общем вроде работает, отрисовывает иконки, только вот лагает не по детски, 50% процессора кушает, и приложение отказывается закрыватся, + все ужасно дёргается.

var
  ES: TES;
  ugol : integer = 1;//Угол
  uInc : integer = 1;//Множитель угла
  R : integer = 20;//Радиус сферы 
  mR : integer;//Минимальный радиус
  mInfo : array of MyType;
  mX,mY : integer;
  Bmp : TBitmap;
  ExitIconDraw : boolean = false;
  StartedIconDraw : boolean = false;
...
procedure TES.IconDraw;
var
i,x,y: integer;
begin
while ExitIconDraw = false do begin
Bmp.Width := ES.Width;
Bmp.Height := ES.Height;
Bmp.Canvas.Brush.Color := clBlack;
Bmp.Canvas.Rectangle(0,0,Width,Height);
Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);
  for i := 0 to Length(mInfo)-1 do begin
    x := (es.Width div 2)-20+round(R*cos(i*2*pi/Length(mInfo)+GradToRad(ugol)));
    y := (es.Height div 2)-33+round(R*sin(i*2*pi/Length(mInfo)+GradToRad(ugol)));
    mInfo[i].X := x; mInfo[i].Y := y;
    Bmp.Canvas.Draw(x,y,mInfo[i].Icon);
  end;
  Application.ProcessMessages;
end;
end;
...
procedure TES.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
DragAcceptFiles(Handle, True);
Bmp := TBitmap.Create;
end;
...
procedure TES.FormDestroy(Sender: TObject);
begin
ExitIconDraw := true;
DragAcceptFiles(Handle, False);
SetLength(mInfo,0);
Bmp.Free;
end;
...
procedure TES.WMDropFiles(var M: TWMDropFiles);
var
nF : array[0..max_path] of char;
fInfo: TShFileInfo;
IT: DWORD;
ImageList: TImageList;
begin
...
if StartedIconDraw = false then IconDraw;
StartedIconDraw := true;
end;
...
procedure TES.Timer1Timer(Sender: TObject);
var
i,x,y: integer;
pC,pW : TPoint;
begin
...
ES.Canvas.FillRect(ES.Canvas.ClipRect);
ES.Canvas.Draw(0,0,Bmp);
inc(ugol,uInc);
end;

В общем похоже на то что я где то накосячил xD