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 ClientHeight = 667
ClientWidth = 935 ClientWidth = 935
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '1.1'
object RxViewsPanel1: TRxViewsPanel object RxViewsPanel1: TRxViewsPanel
Left = 0 Left = 0
Height = 617 Height = 617

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

@ -35,7 +35,7 @@ type
TabSheet4: TTabSheet; TabSheet4: TTabSheet;
ToolPanel1: TToolPanel; ToolPanel1: TToolPanel;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure RxViewsPanel1SelectViewEvent(ItemIndex: integer; procedure RxViewsPanel1SelectViewEvent(Sender: TObject; ItemIndex: integer;
const Item: TRxViewsPanelItem); const Item: TRxViewsPanelItem);
private private
// //
@ -52,16 +52,16 @@ implementation
{ TForm1 } { TForm1 }
procedure TForm1.RxViewsPanel1SelectViewEvent(ItemIndex: integer;
const Item: TRxViewsPanelItem);
begin
ExtendedNotebook1.PageIndex:=ItemIndex
end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
RxViewsPanel1.ItemIndex:=1; RxViewsPanel1.ItemIndex:=1;
end; end;
procedure TForm1.RxViewsPanel1SelectViewEvent(Sender: TObject;
ItemIndex: integer; const Item: TRxViewsPanelItem);
begin
ExtendedNotebook1.PageIndex:=ItemIndex
end;
end. end.

4
components/rx/rxviewspanel.pas
View File

@ -44,7 +44,7 @@ type
TRxViewsPanel = class; TRxViewsPanel = class;
TRxViewsPanelItem = 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 }
TRxViewsPanelItem = class(TCollectionItem) TRxViewsPanelItem = class(TCollectionItem)
@ -232,7 +232,7 @@ procedure TRxViewsPanel.InternalSelectView(Item: TRxViewsPanelItem);
begin begin
FItemIndex:=Item.Index; FItemIndex:=Item.Index;
if Assigned(FOnSelectViewEvent) then if Assigned(FOnSelectViewEvent) then
FOnSelectViewEvent(Item.Index, Item); FOnSelectViewEvent(Self, Item.Index, Item);
end; end;
procedure TRxViewsPanel.Loaded; procedure TRxViewsPanel.Loaded;