Changeset 213 for Docking/CoolDocking/Common/URectangle.pas

Timestamp:

Mar 21, 2011, 10:23:24 AM (13 years ago)

Author:

george

Message:

• Fixed: Tabs image indexes.
• Fixed: Destroying Tabs managed conjoin form.

File:

• Docking/CoolDocking/Common/URectangle.pas (modified) (3 diffs)

Docking/CoolDocking/Common/URectangle.pas

@@ -1 +1 @@
 unit URectangle;
 
-{$mode objfpc}{$H+}
+// Date: 2011-03-20
+
+{$mode Delphi}{$H+}
 
 interface
@@ -34 +36 @@
 
     procedure Assign(Source: TRectangle);
+    function IsInside(Pos: TPoint): Boolean;
 
     property Width: Integer read GetWidth write SetWidth;
@@ -142 +145 @@
 end;
 
+function TRectangle.IsInside(Pos: TPoint): Boolean;
+begin
+  Result := (Pos.X >= Left) and (Pos.Y >= Top) and
+    (Pos.X <= Right) and (Pos.Y <= Bottom);
+end;
+
 end.