Пишу Pacman. Нужна помощь.

[AngelOfDeath]

В общем пишу Pacman
Собираюсь не использовать ни одного изображения
Всё с помощью Canvas
И возникла такая проблема
Всё начало ужасно мерцать

DoubleBuffered:=True;

Не помогает
Я думаю моя ошибка в том что я обновляю всё игровое поле в таймере
В общем вопрос такой:
Как мне сделать в данном коде
Обновление вокруг клетки с Pacman'ом
Если в коде что будет непонятно
Спрашивайте
Хотя всё построено довольно примитивно
Одни циклы и условия...
Вот сурсы и ехе:

[Kostia]

Так и думал, ты рисуешь сразу на форму. ЭТО НЕ ПРАВИЛЬНО!!! Никогда так не делай!
1. Удали все: DoubleBuffered:=True;
2. Заведи буфер

1. Думаю объяснений не требуется
2. В разделе глобальных переменных заведи переменную buf типа TBitMap;

var
  Form1: TForm1;
  buf: TBitMap;

создай ее и задай размеры равные размерам клиентской части формы;

procedure TForm1.FormCreate(Sender: TObject);
begin
  buf:=tbitmap.create;
  buf.width:=clientwidth;
  buf.height:=clientheight;
  CreateLevel;
end;

Далее везде где написано слово canvas, перед ним поставь buf.
и в конце процедуры(таймера) canvas.draw(buf,0,0);

[DeKot]

Посмотри здесь на форуме стр.2 - тему "Особенности программирования
движущихся объектов" и " Мастерская: Некоторые аспекты программирования".

[AngelOfDeath]

Костя спасибо
Только не

canvas.draw(buf,0,0);

а

Canvas.Draw(0,0,buf);

И ещё один вопрос как сделать плавное хождение с клетки на клетку

[Kostia]

Заводишь переменную которая определяет направление и предел движения

var
  orientation: byte;
  limit: integer;

Далее проверяешь нажатие клавиш клавиатуры, проверяешь, можно ли идти в том направлении куда требуется. Если да, то заноси в переменную orientation число, которое определяет одно из 4-х направлений, а в переменную limit координаты клетки на которую нужно перейти(x или y в зависимости от направления).
1-влево (х)
2-вверх (y)
3-вправо (x)
4-вниз (y)

Далее в процессе игры проверяешь, если orientation = 1, то двигаешь персонажа влево и проверяешь не прошел ли он лимит
if (x>=limit) then orientation:=0;
Идентично с остальными направлениями.

[AngelOfDeath]

Что то не особо понятно
Как я это передвижение буду рисовать?

[Kostia]

Эх моя вина, не рассказал до конца.
Нужно завести еще две переменные

var
  x,y: integer;

Они определяют положение персонажа на экране. Далее

if orientation = 1 then 
begin 
  x:=x-1; 
{может есть еще переменные определяющие состояние персонажа(анимация), то их менять тоже следует здесь}
  if x<=limit then orientation:=0;
end;

C расчетом лимита думаю разберешься.

[DeKot]

Сделай управление движения циклом. Допустим у тебя клетки 50 х 50.
Сделай цикл For i:= 1 to 10 do и в каждой итерации цикла добавляй приращение координат в нужном направлении на 5 pixels.
За полный цикл получишь 5 * 10 = 50 - плавное перемещение на одну клетку. Ну, и естественно все изменения делать за пределами формы в
буфере и только затем выводить на форму.

[AngelOfDeath]

Ладно придётся увеличить своё поле в несколько раз...
Чтоб были пиксели для перехода с одной клетки на другую...
Потому что
Вот уровень:

  MapXY: array [0..20,0..20] of Byte;  //Уровень

А вот прорисовка и ходьба:

procedure TForm1.PaintAndUpdateLevel;
var
X,Y,Pix:Integer;
I:Integer;
begin
i:=0;
for x := 0 to 20 do
  for y := 0 to 20 do
    begin
      if MapXY[x,y]=0  then
      begin
      i:=1;
      buf.Canvas.Brush.Color:=clBlack;
      buf.Canvas.Pen.Color:=clBlack;
      buf.Canvas.Rectangle(x*30,y*30,x*30+30,y*30+30);
      buf.Canvas.Font.Color:=clYellow;
      buf.Canvas.Ellipse(x*30+10,y*30+10,x*30+20,y*30+20);
      end;
      if MapXY[x,y]=5 then
      begin
            buf.Canvas.Brush.Color:=clBlack;
      buf.Canvas.Pen.Color:=clBlack;
      buf.Canvas.Rectangle(x*30,y*30,x*30+30,y*30+30);
      end;
      
      if MapXY[x,y]=1 then
      begin
        buf.Canvas.Pen.Width:=0;
        buf.Canvas.Pen.Color:=clBlack;
        buf.Canvas.Brush.Color:=clWhite;
        buf.Canvas.Rectangle(x*30,y*30,x*30+30,y*30+30);
      end;
      if MapXY[x,y]=2 then
      begin
      buf.Canvas.Pen.Width:=0;
      buf.Canvas.Pen.Color:=clBlack;
      buf.Canvas.Brush.Color:=clBlack;
      buf.Canvas.Rectangle(x*30,y*30,x*30+30,y*30+30);
      buf.Canvas.Brush.Color:=clYellow;
      buf.Canvas.Ellipse(x*30,y*30,x*30+30,y*30+30);
      PackX:=x;
      PackY:=y;
      end;
            if MapXY[x,y]=0 then
      begin
      buf.Canvas.Pen.Color:=clYellow;
      buf.Canvas.Pen.Width:=2;
      buf.Canvas.Ellipse(x*30+10,y*30+10,x*30+20,y*30+20);
      end;

    end;
Canvas.Draw(0,0,buf);
end;

OldPackX:=PackX;
OldPackY:=PackY;
if GoUp=true then   //Вверх
if MapXY[PackX,PackY-1]=1 then
Exit
else
begin
  OldPackY:=PackY;
  MapXY[PackX,PackY-1]:=2;
  MapXY[PackX,OldPackY]:=0;
  MapXY[OldPackX,OldPackY]:=5;






PaintAndUpdateLevel;
end;



if GoDown=true then    //Вниз
if MapXY[PackX,PackY+1]=1 then
Exit
else
begin
  OldPackY:=PackY;
  MapXY[PackX,PackY+1]:=2;
  MapXY[PackX,OldPackY]:=0;
  MapXY[OldPackX,OldPackY]:=5;
  PaintAndUpdateLevel;
end;


if GoLeft=true then    //Влево
if MapXY[PackX-1,PackY]=1 then
Exit
else
begin
  OldPackX:=PackX;
  MapXY[PackX-1,PackY]:=2;
  MapXY[OldPackX,OldPackY]:=5;
  PaintAndUpdateLevel;
end;


if GoRight=true then  //Вправо
if MapXY[PackX+1,PackY]=1 then
Exit
else
begin




  MapXY[PackX+1,PackY]:=2;
  MapXY[OldPackX,PackY]:=0;
  MapXY[OldPackX,OldPackY]:=5;
  PaintAndUpdateLevel;
end;





end;

Чтож доделаю пока такой пример

[AngelOfDeath]

Вот собрался сделать редактор карт...
Короче как сделать проверку клика на канве?
пробовал такой метод:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
a,b,c,x2,y2:Integer;
x3,y3:Integer;
begin
x3:=x;
y3:=y;

for a := 0 to 20 do
  for b := 0 to 20 do
    for c := 0 to 30 do

    begin
       if x3=b*30+c then
       if y3=a*30+c then
       begin
       Form1.Caption:='ok';
       exit;
       end;

    end;
end;

но ето работает далеко не всегда...