Проблема с рисованием прямоугольника

[Юра.]

Задача: Создать движение прямоугольника.
Что сделал: Реализовал движение очень просто: стирание и рисование в новых координатах, однако при таком способе рисования происходит моргание изображения.
Вопрос: Как от него избавиться?

[Stilet]

Задача: Создать движение прямоугольника.

Пробуй так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var ax,ay:integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Rectangle(ax-50,ay-50,ax+50,ay+50);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ax:=x;ay:=y;Repaint;
end;

end.

[Юра.]

Все равно тоже самое.

[Stilet]

Ну не знаю. У меня работает без мерцаний. Ну попробуй что-ли возьми кинь на форму Shape, выставленную в rectangle и меняй его Top и Left...

[mrandrey]

procedure TForm1.FormPaint(Sender: TObject);
var p:tpaintstructure;
begin
beginpaint(p);
Canvas.Rectangle(ax-50,ay-50,ax+50,ay+50);
endpaint(p);
end;

Может помочь, если нет создай битмап, и рисуй в нем, а затем выводи его на канву

[JTG]

На чём рисуется, чем рисуется, по таймеру/нет, как стирается? Код в студию!

[mutabor]

Проще всего DoubleBuffered:=true того на чем рисуешь. Не поможет рисуй в буфере а потом только на экран. Не написал ничего, на чем, как? Мы что догадываться должны?

[Aleksandr]

Посмотри вот этот код

var
  Form1: TForm1;
  x,y: integer; // координаты прямоугольника
implementation
{$R *.DFM}
procedure kub(x,y: integer;color: TColor);
const
  dx = 5;
  dy = 5;
var
  buf: TColor;
begin
  with form1.canvas do
  begin
    buf:=pen.Color;   // сохраним текущий цвет
    pen.Color:=color; // установим нужный цвет
    // рисуем ...
    MoveTo(x,y);
    LineTo(x,y-10*dy);
    LineTo(x+20*dx,y-10*dy);
    LineTo(x+20*dx,y-10*dy);
    LineTo(x+20*dx,y-10*dy);
    LineTo(x+20*dx,y);
    LineTo(x,y);
    pen.Color:=buf; // восстановим старый цвет карандаша
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   kub(x,y,form1.color); // стереть рисунок
   if x < Form1.ClientWidth
      then x := x+5
      else begin
        x := 0;
        y := Random(50) + 100;
      end;
  kub(x,y,clWhite);     // нарисовать в новой точке
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
     x:=0;
     y:=100;
     Timer1.Interval := 50;
end;

[mutabor]

Вообще то это не мерцание а ступенчатость передвижения. С мерцанием ты столкнешься позже когда изображения будешь перемещать.

if x < Form1.ClientWidth
then x := x+2

Timer1.Interval:=20;

Так лучше?

P.S. Строка
LineTo(x+20*dx,y-10*dy); повторяется 3 раза, это так надо ?

[JTG]

Хе, спрашивал Юра. а код выложил Aleksandr С кубом там и правда косяк