From 683521530bed58abfdc4cc5d07ac5215b77e2108 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 31 Oct 2012 14:54:31 +0000
Subject: [PATCH] add sender to RxViewPanel event handler

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2589 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/Demos/RxViewsPanel/unit1.lfm |  2 +-
 components/rx/Demos/RxViewsPanel/unit1.pas | 14 +++++++-------
 components/rx/rxviewspanel.pas             |  4 ++--
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/components/rx/Demos/RxViewsPanel/unit1.lfm b/components/rx/Demos/RxViewsPanel/unit1.lfm
index 2099c0faf..c922e92c6 100644
--- a/components/rx/Demos/RxViewsPanel/unit1.lfm
+++ b/components/rx/Demos/RxViewsPanel/unit1.lfm
@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientHeight = 667
   ClientWidth = 935
   OnCreate = FormCreate
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object RxViewsPanel1: TRxViewsPanel
     Left = 0
     Height = 617
diff --git a/components/rx/Demos/RxViewsPanel/unit1.pas b/components/rx/Demos/RxViewsPanel/unit1.pas
index dc35ee4e6..f57dcb691 100644
--- a/components/rx/Demos/RxViewsPanel/unit1.pas
+++ b/components/rx/Demos/RxViewsPanel/unit1.pas
@@ -35,7 +35,7 @@ type
     TabSheet4: TTabSheet;
     ToolPanel1: TToolPanel;
     procedure FormCreate(Sender: TObject);
-    procedure RxViewsPanel1SelectViewEvent(ItemIndex: integer;
+    procedure RxViewsPanel1SelectViewEvent(Sender: TObject; ItemIndex: integer;
       const Item: TRxViewsPanelItem);
   private
     //
@@ -52,16 +52,16 @@ implementation
 
 { TForm1 }
 
-procedure TForm1.RxViewsPanel1SelectViewEvent(ItemIndex: integer;
-  const Item: TRxViewsPanelItem);
-begin
-  ExtendedNotebook1.PageIndex:=ItemIndex
-end;
-
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   RxViewsPanel1.ItemIndex:=1;
 end;
 
+procedure TForm1.RxViewsPanel1SelectViewEvent(Sender: TObject;
+  ItemIndex: integer; const Item: TRxViewsPanelItem);
+begin
+  ExtendedNotebook1.PageIndex:=ItemIndex
+end;
+
 end.
 
diff --git a/components/rx/rxviewspanel.pas b/components/rx/rxviewspanel.pas
index 93da669e4..a50919f83 100644
--- a/components/rx/rxviewspanel.pas
+++ b/components/rx/rxviewspanel.pas
@@ -44,7 +44,7 @@ type
   TRxViewsPanel = class;
   TRxViewsPanelItem = class;
 
-  TSelectViewEvent = procedure (ItemIndex:integer;const Item:TRxViewsPanelItem) of object;
+  TSelectViewEvent = procedure (Sender: TObject; ItemIndex:integer; const Item:TRxViewsPanelItem) of object;
   { TRxViewsPanelItem }
 
   TRxViewsPanelItem = class(TCollectionItem)
@@ -232,7 +232,7 @@ procedure TRxViewsPanel.InternalSelectView(Item: TRxViewsPanelItem);
 begin
   FItemIndex:=Item.Index;
   if Assigned(FOnSelectViewEvent) then
-    FOnSelectViewEvent(Item.Index, Item);
+    FOnSelectViewEvent(Self, Item.Index, Item);
 end;
 
 procedure TRxViewsPanel.Loaded;