Final purge of OnPageChanged from Lazarus

git-svn-id: trunk@32626 -

components/chmhelp/lhelp/lhelpcore.lfm

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

docs/xml/lcl/comctrls.xml

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

examples/cleandir/frmmain.lfm

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

lcl/extctrls.pp

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

lcl/include/tabcontrol.inc

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