Мерцание при движении Image delphi 7 clx

[Alexandr17]

Собственно вопрос. Как убрать мерцание при движении Image в Delphi 7 CLX
Именно CLX а не VCL

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

Реализовать двойную буферизацию.

[Rockot]

inherited; //от мерцания
ControlStyle := ControlStyle + [csOpaque];//от мерцания
Добавь в тот обработчик где передвигаешь или меняешь размер картинки.

[Alexandr17]

Оба добавить или достаточно одного. Проблема в том что передвигается он у меня в таймере а это ControlStyle := ControlStyle + [csOpaque];
Я уверен его достаточно вызывать 1 раз.

[Rockot]

Сообщение от Alexandr17

Оба добавить или достаточно одного. Проблема в том что передвигается он у меня в таймере а это ControlStyle := ControlStyle + [csOpaque];
Я уверен его достаточно вызывать 1 раз.

Хм... У меня есть удалёнка, что-то типа Team Viwera или как его там, так вот я засунул эти две строчки в таймер, на работоспособности не отразилось, так что можешь запихать спокойно в таймер.

[Alexandr17]

Возвращаюсь к вопросу правдо проблема не на delphi 7 а Delphi 2009 VCL
Ни DoubleBuffered ни
inherited; //от мерцания
ControlStyle := ControlStyle + [csOpaque];//от мерцания
не помогают избавится от мерцания.
Правдо двигую я панели на которых размещены картинки
Вот код

procedure TfrmRCED.tmrAnim0Timer(Sender: TObject);
begin
  case IndexAnim of
    1:begin
        if pnl1.Top > -100 then pnl1.Top:=pnl1.Top-5;
        if pnl2.Top < 484 then pnl2.Top:=pnl2.Top+5;
        if (pnl1.Top = -100)and(pnl2.Top = 484) then IndexAnim:=0;

    end;
    2:begin
        if pnl1.Top < 0 then pnl1.Top:=pnl1.Top+5;
        if pnl2.Top > 384 then pnl2.Top:=pnl2.Top-5;
        if (pnl1.Top = 0)and(pnl2.Top = 384) then IndexAnim:=0;
    end;
  end;
end;

[Alexandr17]

ну что никто не может помочь избавится от мерцания.

[Stilet]

двигую я панели на которых размещены картинки

Странно что этот код не мерцал в D7...

никто не может

Здесь чего никто не может, если есть всего нет, но будь проект целиком сюда, смогут лишь все.

[Alexandr17]

Сообщение от Alexandr17

Возвращаюсь к вопросу правдо проблема не на delphi 7 а Delphi 2009 VCL
Ни DoubleBuffered ни
inherited; //от мерцания
ControlStyle := ControlStyle + [csOpaque];//от мерцания
не помогают избавится от мерцания.
Правдо двигую я панели на которых размещены картинки
Вот код

procedure TfrmRCED.tmrAnim0Timer(Sender: TObject);
begin
  case IndexAnim of
    1:begin
        if pnl1.Top > -100 then pnl1.Top:=pnl1.Top-5;
        if pnl2.Top < 484 then pnl2.Top:=pnl2.Top+5;
        if (pnl1.Top = -100)and(pnl2.Top = 484) then IndexAnim:=0;

    end;
    2:begin
        if pnl1.Top < 0 then pnl1.Top:=pnl1.Top+5;
        if pnl2.Top > 384 then pnl2.Top:=pnl2.Top-5;
        if (pnl1.Top = 0)and(pnl2.Top = 384) then IndexAnim:=0;
    end;
  end;
end;

А это что. Код который отвечает за работу движения. Проэкт сам скинуть не могу. Не закончен.

[Sibedir]

Новый проект + пара компонентов (может ажно 10) + проблемный код

Если проблема повторилась то
  минипроект сюда
иначе
  ищем разницу со своим проектом
  далее по обстоятельствам