Problem with InterSectRect
lazarus / 12-Debugger

----------------------------------------------------------------------
jolana_bases · 2013-11-24 14:50

Hello!

Whats the problem with InterSectRect?
It shows me Error:Indentifier not found "Inter SectRect"??

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Overlay: Trect;
begin
 bumba;

 if InterSectRect(Overlay, Shape2.BoundsRect,Shape1.BoundsRect) then
 begin
   VelX:=-VelX-random(5);
   VelY:=-VelY-random(5);
 end;

----------------------------------------------------------------------
Leledumbo · 2013-11-24 15:08

It's declared in Types unit, do you have it in the uses clause?

----------------------------------------------------------------------
jolana_bases · 2013-11-24 15:10

What do I need to write un Uses?

----------------------------------------------------------------------
Leledumbo · 2013-11-25 15:58

Types