[JVCL-Checkins] SF.net SVN: jvcl: [11167] trunk/jvcl/run/JvXPButtons.pas

[<ob...@us...>]

Revision: 11167
          http://svn.sourceforge.net/jvcl/?rev=11167&view=rev
Author:   obones
Date:     2007-01-27 10:57:52 -0800 (Sat, 27 Jan 2007)

Log Message:
-----------
Mantis 4015: Surfaced Click procedure

Modified Paths:
--------------
    trunk/jvcl/run/JvXPButtons.pas

Modified: trunk/jvcl/run/JvXPButtons.pas
===================================================================
--- trunk/jvcl/run/JvXPButtons.pas	2007-01-26 20:40:33 UTC (rev 11166)
+++ trunk/jvcl/run/JvXPButtons.pas	2007-01-27 18:57:52 UTC (rev 11167)
@@ -112,6 +112,8 @@
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+
+    procedure Click; override;
   end;
 
   TJvXPButton = class(TJvXPCustomButton)
@@ -382,6 +384,12 @@
   inherited Destroy;
 end;
 
+procedure TJvXPCustomButton.Click;
+begin
+  // Only there to make it public (Mantis 4015)
+  inherited Click;
+end;
+
 function TJvXPCustomButton.GetActionLinkClass: TControlActionLinkClass;
 begin
   Result := TJvXPCustomButtonActionLink;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.