pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

add sender to RxViewPanel event handler

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2589 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-10-31 14:54:31 +00:00
parent e6dea1efeb
commit 683521530b
3 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/Demos/RxViewsPanel/unit1.lfm
View File

@ -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

14
components/rx/Demos/RxViewsPanel/unit1.pas
View File

@ -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.

4
components/rx/rxviewspanel.pas
View File

@ -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;