* Created a new overloaded CentrePoint function.

* Implemented a new method TfpgPopupMenu.MenuItemByName
* Created a example project showing how the ICommand and ICommandHolder interfaces
  can be used.

1 files changed, 15 insertions, 11 deletions

diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index a10685f6..bd6d15d5 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -278,12 +278,13 @@ function  fpgGetTickCount: DWord;
 
 
 // Rectangle routines
-function InflateRect(var Rect: TRect; dx: Integer; dy: Integer): Boolean;
-function InflateRect(var Rect: TfpgRect; dx: Integer; dy: Integer): Boolean;
-function OffsetRect(var Rect: TRect; dx: Integer; dy: Integer): Boolean;
-function OffsetRect(var Rect: TfpgRect; dx: Integer; dy: Integer): Boolean;
-function CenterPoint(const Rect: TRect): TPoint;
-function fpgRect(ALeft, ATop, AWidth, AHeight: integer): TfpgRect;
+function  InflateRect(var Rect: TRect; dx: Integer; dy: Integer): Boolean;
+function  InflateRect(var Rect: TfpgRect; dx: Integer; dy: Integer): Boolean;
+function  OffsetRect(var Rect: TRect; dx: Integer; dy: Integer): Boolean;
+function  OffsetRect(var Rect: TfpgRect; dx: Integer; dy: Integer): Boolean;
+function  CenterPoint(const Rect: TRect): TPoint;
+function  CenterPoint(const Rect: TfpgRect): TPoint;
+function  fpgRect(ALeft, ATop, AWidth, AHeight: integer): TfpgRect;
 
 // Debug rountines
 procedure PrintRect(var Rect: TRect);
@@ -441,11 +442,14 @@ end;
 
 function CenterPoint(const Rect: TRect): TPoint;
 begin
-  with Rect do
-  begin
-    Result.X := (Left+Right) div 2;
-    Result.Y := (Top+Bottom) div 2;
-  end;
+  Result.X := (Rect.Left + Rect.Right) div 2;
+  Result.Y := (Rect.Top + Rect.Bottom) div 2;
+end;
+
+function CenterPoint(const Rect: TfpgRect): TPoint;
+begin
+  Result.X := (Rect.Left + Rect.Right) div 2;
+  Result.Y := (Rect.Top + Rect.Bottom) div 2;
 end;
 
 function fpgRect(ALeft, ATop, AWidth, AHeight: integer): TfpgRect;