paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 12:31:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Final purge of OnPageChanged from Lazarus

Browse Source 
git-svn-id: trunk@32626 -
This commit is contained in:
sekelsenmat 2011-10-02 20:02:34 +00:00
parent 8f10f85be0
commit 266bf088ec
5 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/chmhelp/lhelp/lhelpcore.lfm
View File

@ -253,7 +253,6 @@ object HelpForm: THelpForm
TabPosition = tpBottom
OnChange = PageControlChange
OnEnter = PageControlEnter
OnPageChanged = PageControlChange
end
object MainMenu1: TMainMenu
left = 208

7
docs/xml/lcl/comctrls.xml
View File

@ -1988,9 +1988,9 @@
<seealso/>
</element>
<!-- property Visibility: public -->
<element name="TCustomTabControl.OnPageChanged">
<element name="TCustomTabControl.OnChange">
<short>
<var>OnPageChanged</var> - event handler for a change in the page</short>
<var>OnChange</var> - event handler for a change in the page</short>
<descr/>
<seealso/>
</element>
@ -3519,7 +3519,7 @@
<p>
<var>Create</var> - constructor for <var>TTabControlNoteBookStrings</var>: calls inherited <var>Create</var> then sets some default Actions</p>
<p>Among the actions set are:</p>
<p>OnGetImageIndex, OnChanging, OnPageChanged. Notebook is created with a nominated parent</p>
<p>OnGetImageIndex, OnChanging, OnChange. Notebook is created with a nominated parent</p>
</descr>
<errors/>
<seealso>
@ -18206,7 +18206,6 @@ the comparision is case sensitive.
<element name="TPageControl.OnDragOver" link="#LCL.Controls.TControl.OnDragOver"/>
<element name="TPageControl.OnEndDock" link="#LCL.Controls.TControl.OnEndDock"/>
<element name="TPageControl.OnEndDrag" link="#LCL.Controls.TControl.OnEndDrag"/>
<element name="TPageControl.OnPageChanged" link="#LCL.ComCtrls.TCustomTabControl.OnPageChanged"/>
<element name="TPageControl.OnStartDock" link="#LCL.Controls.TControl.OnStartDock"/>
<element name="TPageControl.OnStartDrag" link="#LCL.Controls.TControl.OnStartDrag"/>
<element name="TPageControl.OnUnDock" link="#LCL.Controls.TWinControl.OnUnDock"/>

1
examples/cleandir/frmmain.lfm
View File

@ -72,7 +72,6 @@ object MainForm: TMainForm
TabIndex = 3
TabOrder = 1
OnChange = PCConfigChange
OnPageChanged = PCConfigChange
object TSOptions: TTabSheet
Caption = 'Options'
ClientHeight = 380

2
lcl/extctrls.pp
View File

@ -150,6 +150,7 @@ type
property DragCursor;
property DragMode;
property Enabled;
// property OnChange;
property OnChangeBounds;
// property OnChanging;
property OnContextPopup;
@ -163,7 +164,6 @@ type
property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
// property OnPageChanged;
property OnResize;
property OnStartDrag;
// property Options;

4
lcl/include/tabcontrol.inc
View File

@ -780,8 +780,8 @@ var
p: TObject;
begin
//inherited DoChange;
if Assigned(OnPageChanged) then
OnPageChanged(Self)
if Assigned(OnChange) then
OnChange(Self)
else begin
//emulate page switch
for i := 0 to TabCount - 1 do begin