Движение квадратика

[artemavd]

SERG1980, почти то, что нужно. Есть маленький нюанс: Когда квадратик касается кружочка и когда кружочек вписывается в квадрат, то при движении квадрата назад, кружочек не остается, а затирается и исчезает. Как исправить сей нюанс?)

[SERG1980]

ну если по самому простому то добавте эту строку

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form1.Image1.Canvas.Ellipse(xe,ye,xe+de,ye+de);
 case key  of
........

[artemavd]

SERG1980, круто, спасибо за ликвидацию этого нюанса). А вот есть еще несколько вопросов по теме:
1. Как восстановить первоначальные размеры квадратика после того как "покинул" окружность?
Пробовал так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Form1.Image1.Canvas.Ellipse(xe,ye,xe+de,ye+de);
 form1.Image1.Canvas.FillRect(form1.Image1.Canvas.ClipRect);
 Form1.Image1.Canvas.Pen.Color:=clRed;
 Form1.Image1.Canvas.Brush.Style:=bsClear;
 Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);

 case key  of
........

не сработало
2. Почему если квадратик "наползает" на окружность с любой из четырех сторон, то подниматься обратно он может только вверх?
3. Можно ли как-то отследить момент, когда окружность будет вписана в квадратик? Например, пусть квадратик "наткнулся" на первую окружность, в куда-нибудь Label1 занеслось "1". Второй раз квадратик коснулся какой-то другой окружности, то в Label1 занеслось уже "2" и т.д.

[SERG1980]

К сожалению у меня нет сейчас перед собой ни проекта ни delphi.
По вопросу 3 можно сделать следующее. В проекте есть процедура Podgon (помоему так), так вот в конец этой процедуры можно завести счётчик попаданий в окружность и выводить это значение в лэйбл.

var p:integer;//глобальная
....
inc(p);
form1.label1.caption:='ляляля '+inttostr(p);

а по астальному надо пошаманить над исходником, которого у меня сейчас нет

[RAZOR3]

по 2 вопросу - все из-за проверки координат при нажатии клавишь
вот так вроде нормально:

VK_LEFT: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr-1;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (xr=xe+de)and((yr+hr>=ye)and(yr<=ye+de)) then Podgon;
           end;
  VK_RIGHT:begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr+1;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (xr+wr=xe)and((yr+hr>=ye)and(yr<=ye+de)) then Podgon;
           end;
  VK_UP:   begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr-1;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (yr=ye+de)and((xr+wr>=xe)and(xr<=xe+de)) then Podgon;

           end;
  VK_DOWN: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr+1;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (yr+hr=ye)and((xr+wr>=xe)and(xr<=xe+de)) then Podgon;
           end;
  VK_RETURN: Rasstanovka;

[artemavd]

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

  VK_LEFT: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr-3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (xr=xe+de)and((yr+hr>=ye)and(yr<=ye+de)) then Podgon;
           end;
  VK_RIGHT:begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr+3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (xr+wr=xe)and((yr+hr>=ye)and(yr<=ye+de)) then Podgon;
           end;
  VK_UP:   begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr-3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (yr=ye+de)and((xr+wr>=xe)and(xr<=xe+de)) then Podgon;

           end;
  VK_DOWN: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr+3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if (yr+hr=ye)and((xr+wr>=xe)and(xr<=xe+de)) then Podgon;
           end;
  VK_RETURN: Rasstanovka;//нажали Enter

??

[RAZOR3]

может так. конечно вариант не очень

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var colision: boolean;
  begin
 case key  of
  VK_LEFT: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr-3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if colision=True then exit;
            if (xr>=xe+de)and((yr+hr>=ye)and(yr<=ye+de)) then begin
            Colision:=true;
            Podgon;
            end;
           end;
  VK_RIGHT:begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            xr:=xr+3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if colision=True then exit;
            if (xr+wr>=xe)and((yr+hr>=ye)and(yr<=ye+de)) then begin
            Colision:=true;
            Podgon;
            end;
           end;
  VK_UP:   begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr-3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if colision=True then exit;
            if (yr>=ye+de)and((xr+wr>=xe)and(xr<=xe+de)) then begin
            Colision:=true;
            Podgon;
            end;
           end;
  VK_DOWN: begin
            Form1.Image1.Canvas.Pen.Color:=Image1.Canvas.Pixels[1,1];
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            yr:=yr+3;
            Form1.Image1.Canvas.Pen.Color:=clred;
            Form1.Image1.Canvas.Rectangle(xr,yr,xr+wr,yr+hr);
            if colision=True then exit;
            if (yr+hr>=ye)and((xr+wr>=xe)and(xr<=xe+de)) then begin
            Colision:=true;
            Podgon;
            end;
           end;
  VK_RETURN: Rasstanovka;//íàæàëè Enter
 end;
end;

[artemavd]

RAZOR3, применив Ваш код, получил следующее:

Придвижении квадратика сверху вниз, т.е. нажатие VK_DOWN:
квадратик, достигнув кружочка "вписывает" в себя кружок и счетчик увеличивается при каждом последующем нажатии на клавишу VK_DOWN, а квадратик с места не сдвигается, а должен по идее двигаться дальше вниз и восстанавливать свои размеры. Сдвигается квадратик только влево, при нажатии на клавишу VK_LEFT.

Придвижении квадратика сверху вниз, т.е. нажатие VK_RIGHT:
квадратик, достигнув кружочка "вписывает" в себя кружок и счетчик увеличивается при каждом последующем нажатии на клавишу VK_RIGHT, а квадратик с места не сдвигается, а должен по идее двигаться дальше вниз и восстанавливать свои размеры. Сдвигается квадратик только влево, при нажатии на клавишу VK_LEFT.

Придвижении квадратика сверху вниз, т.е. нажатие VK_LEFT:
если квадратик не находится на одной линии с кружочком, то двигается вроде нормарльно, влево. А если квадратик оказывается на одной линии с кружочком, то при нажатии клавиши VK_LEFT, квадратик после первого же нажатия "вписывает" в себя кружок и счетчик увеличивается при каждом последующем нажатии на клавишу VK_RIGHT, а квадратик с места не сдвигается, а должен по идее двигаться дальше вниз и восстанавливать свои размеры. Сдвигается квадратик только влево, при нажатии на клавишу VK_LEFT.

Придвижении квадратика сверху вниз, т.е. нажатие VK_UP:
квадратик, достигнув кружочка "вписывает" в себя кружок и счетчик увеличивается при каждом последующем нажатии на клавишу VK_UP, а квадратик с места не сдвигается, а должен по идее двигаться дальше вниз и восстанавливать свои размеры. Сдвигается квадратик только влево, при нажатии на клавишу VK_LEFT.


Где в коде все это прописывается вообще??

[Stilet]

Предлагаю свой вариант (из колледжа)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
   function collis:boolean;
  end;
  const sr=100;
var r:integer;
   sq,circ:TPoint;
  Form1: TForm1;

implementation

{$R *.dfm}
  function TForm1.collis:boolean;
  begin
   if
     (abs(sq.Y-circ.Y)<(sr+r))
     and
     (abs(sq.X-circ.X)<(sr+r))
   then r:=sr else r:=50;
  end;
procedure TForm1.FormPaint(Sender: TObject);
begin
  collis;
  Canvas.Brush.Style:=bsClear;
  Canvas.Rectangle(sq.X-sr,sq.Y-sr,sq.X+100,sq.Y+sr);
  canvas.Ellipse(circ.X-r,circ.y-r,circ.X+r,circ.Y+r);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case key of
  VK_LEFT:dec(SQ.X,10);
  VK_RIGHT:inc(SQ.X,10);
  VK_UP:dec(SQ.y,10);
  VK_DOWN:inc(SQ.y,10);
 end;
 Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 circ.X:=Width div 2;
 circ.Y:=Height div 2;   r:=50;

end;

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

end.

Единственный недочет - круг сдесь образмериваеть нужно тригонометрическими функциями, а не прямоугольными границами из команды Ellipse, тогда будет точнее коллизия вычисляться

[artemavd]

Stilet, возникло несколько вопросов:
1. Где задаются размеры окружности и квадрата?
2. Почему при наведении квадрата на окружность, она не вписывается в него?)