Повторить проект

[Максим_maks]

Всем привет, что почитать и как такое реализовать? https://youtu.be/bTJnmDPX1gc?t=146
С графикой собственно не особо имел дело, а тут просто зацепил проект и хотел повторить, думал смогу, а не получилось (((

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

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  R:=Rect(200, 200, 400, 400);
  for i:=0 to 10 do
      begin
        Canvas.Pen.Color:=clDefault;
        Canvas.Brush.Style:=bsClear;
        Canvas.Rectangle(R);
        LCLProc.OffsetRect(R, 20, -20);
      end;
end;
 
procedure TForm1.FormClick(Sender: TObject);
begin
  if PtInRect(R, Point(200,200))
    then ShowMessage(' 200, 200 внутри прямоугольника')
    else ShowMessage(' 200, 200 вне прямоугольника');
end;
 
 
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 // Edit1.Caption:='x'+'='+FloatToStr(Mouse.CursorPos.x)+','+'y'+'='+FloatToStr(Mouse.CursorPos.y);
   Self.Caption := Format('%d x %d', [X, Y])
end;

[Pavia]

Это просто.

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var i: integer;
 r:TRect;
begin
  R:=Rect(200, 200, 400, 400);
  for i:=0 to 10 do
      begin
        Canvas.Pen.Color:=clDefault;
        Canvas.Brush.Style:=bsClear;
        Canvas.Rectangle(R);
        OffsetRect(R, 20, -20);
      end;
  R:=Rect(200, 200, 400, 400);
  OffsetRect(R, 20*SelectedRect, -20*SelectedRect);
  Canvas.Pen.Color:=clDefault;
  Canvas.Brush.Style:=bsSolid;
  Canvas.Brush.Color:=clGreen;
  Canvas.Rectangle(R);

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var MousePoint:TPoint;
var i: integer;
 r:TRect;
begin
 if Button=mbLeft then
    begin
    MousePoint:=Point(X,Y);
    R:=Rect(200, 200, 400, 400);
    for i:=0 to 10 do
      begin
        if  PtInRect(R, MousePoint) then
          begin
           SelectedRect:=i;
           Break;
          end;
        OffsetRect(R, 20, -20);
      end;
    repaint;
    end;
end;

end.

[Максим_maks]

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

Это просто.

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var i: integer;
 r:TRect;
begin
  R:=Rect(200, 200, 400, 400);
  for i:=0 to 10 do
      begin
        Canvas.Pen.Color:=clDefault;
        Canvas.Brush.Style:=bsClear;
        Canvas.Rectangle(R);
        OffsetRect(R, 20, -20);
      end;
  R:=Rect(200, 200, 400, 400);
  OffsetRect(R, 20*SelectedRect, -20*SelectedRect);
  Canvas.Pen.Color:=clDefault;
  Canvas.Brush.Style:=bsSolid;
  Canvas.Brush.Color:=clGreen;
  Canvas.Rectangle(R);

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var MousePoint:TPoint;
var i: integer;
 r:TRect;
begin
 if Button=mbLeft then
    begin
    MousePoint:=Point(X,Y);
    R:=Rect(200, 200, 400, 400);
    for i:=0 to 10 do
      begin
        if  PtInRect(R, MousePoint) then
          begin
           SelectedRect:=i;
           Break;
          end;
        OffsetRect(R, 20, -20);
      end;
    repaint;
    end;
end;

end.

Спасибо огромное - работает.