From 99c9e9fcce319f741ed407653896688846234fd4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 5 Sep 2006 19:28:21 +0000
Subject: [PATCH] published TPageControl.OnPageChanged

git-svn-id: trunk@9818 -
---
 lcl/comctrls.pp            | 1 +
 lcl/include/customform.inc | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index e33fb5a5f2..2c291494b5 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -286,6 +286,7 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnPageChanged;
     property OnResize;
     //property OnStartDock;
     //property OnStartDrag;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index bc6fa10077..14ccdb62cf 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1442,7 +1442,7 @@ end;
 ------------------------------------------------------------------------------}
 procedure TCustomForm.Hide;
 begin
-  If (fsModal in FormState) and (ModalResult=0) then
+  if (fsModal in FormState) and (ModalResult=0) then
     ModalResult := mrCancel;
   Visible := False;
 end;