From c914724da943aa154e1838a339b02746305667db Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 26 Mar 2010 11:02:34 +0200
Subject: tabs: make sure internal ActivePageIndex is still correct.

---
 src/gui/fpg_tab.pas | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas
index f65e819c..ae12a177 100644
--- a/src/gui/fpg_tab.pas
+++ b/src/gui/fpg_tab.pas
@@ -610,6 +610,7 @@ end;
 procedure TfpgPageControl.OrderSheets;
 begin
   FPages.Sort(@SortCompare);
+  FActivePageIndex := FPages.IndexOf(ActivePage);
 end;
 
 procedure TfpgPageControl.RePaintTitles;
-- 
cgit v1.2.3-70-g09d2