Ускорить переход между Image

[ArtGrek]

      Image2.Left := Form1.Width;
      Image2.Top := 0;
      repeat
        Image2.Left := Image2.Left - 1;
        Application.ProcessMessages;
      until Image2.Left = 0;

если форма не на весь екран(200x150), движение происходит норамльно, но если делать fullscreen(1280x1024),
начинает зависать, даже если отнимать по 10 или даже 100, причем ето не самыи сложныи переход, как мне ето ускорить?
если есть предложения осуществить показ SlidShow по другому, я весь внимания

P.S. Application.ProcessMessages; уберать нельзя, иначе бегущая строка зависает пока переход проходит

[asmodey1]

А DoubleBuffered:=True у вас прописано ?
И еще. Единичка - это мало. Сделайте хотя бы Image2.Left - 2, плавность от этого не уменьшится.

[MyLastHit]

Вообще не въезжаю зачем тут цикл... Пока цикл выполняется - программа висит.
В таймер вот это вписать:

       if Image2.Left>0 then
       begin
       Image2.Left := Image2.Left - 1;//тут подогнать значение по лучше, наверняка не 1
       Application.ProcessMessages;
       end;

И интервал поставить 10.

[ArtGrek]

procedure TForm3.FormCreate(Sender: TObject);
begin
  Form3.Left := Screen.Monitors[Screen.MonitorCount - 1].Left;
  Form3.Top := Screen.Monitors[Screen.MonitorCount - 1].Top;
  Width := Screen.Monitors[Screen.MonitorCount - 1].Width;
  Height := Screen.Monitors[Screen.MonitorCount - 1].Height;
  DoubleBuffered := True;
end;

...
  Image1.Picture.Bitmap := TBitMap(List[1][Картинка1]);
  Image1.Left := 0;  //
  Image1.Top := 0;  // Left Top не меняюца
...

  case TsComboBox(List[4][EffIndex]).ItemIndex of //номер еффекта перехода
    0: begin
      Image2.Left := - Image2.Width; // помешаю картинку в левои части
      Image2.Top := 0;
      Image2.Picture.Bitmap := TBitMap(List[1][Картинка2]); // присваиваю следуюшее изображение
      repeat  // переход
        Image2.Left := Image2.Left + 10;
        Application.ProcessMessages;
      until Image2.Left >= Image1.Left;
      Image1.Picture.Bitmap := TBitMap(List[1][Картинка1]); // присваиваю следуюшее изображение главному Image, что не движеца
      Image2.Left := Form2.Width;  // убираю временыи Image
      Image2.Top := Form2.Height;
    end;

asmodey1 А DoubleBuffered:=True у вас прописано ?
И еще. Единичка - это мало. Сделайте хотя бы Image2.Left - 2, плавность от этого не уменьшится.

без изменении

MyLastHit Вообще не въезжаю зачем тут цикл...

вроди разницы нет, как мне кажеца

MyLastHit Пока цикл выполняется - программа висит.

без Application.ProcessMessages;

[Stilet]

Ну не знаю... Во-первых я бы вынес движение в отдельный поток, а во-вторых пожалуй избавился от медленного TImage в пользу чистого WinAPI.

[ArtGrek]

Во-первых я бы вынес движение в отдельный поток

даже не буду лищнии раз спрашиват, подскажи где почитать?
за пример вообще буду благодарен...

во-вторых пожалуй избавился от медленного TImage в пользу чистого WinAPI

в первом хоть смысл того что искать понял, как можно Image заменит WinApi?

[veniside]

> как мне ето ускорить?

Переписать всё к чертям через BitBlt() или DirectX, раз уж полноэкранные картинки взялись двигать с шагом в 1 пиксель и FPS построенном на принципе "пока проц не умрёт".

[Stilet]

даже не буду лищнии раз спрашиват, подскажи где почитать?

Уф... Пожалуй нет книг где бы описывалось движение картинки в потоке...
Есть просто статьи о том как потоки использовать в Делфи.

[ArtGrek]

подскажите с какими компонентами DirectX работат для организации слаид шоу с переходами

[ArtGrek]

подскажи где почитать о том как потоки использовать в Делфи?)
я об етом