diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-26 11:02:34 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-26 11:02:34 +0200 |
| commit | c914724da943aa154e1838a339b02746305667db (patch) | |
| tree | 7546dc1b61833ad7693167b811044dedfc44c6db | |
| parent | 5c3868bf81c0957db82def8c6df5e7efedfeca76 (diff) | |
| download | fpGUI-c914724da943aa154e1838a339b02746305667db.tar.xz | |
tabs: make sure internal ActivePageIndex is still correct.
| -rw-r--r-- | src/gui/fpg_tab.pas | 1 |
1 files changed, 1 insertions, 0 deletions
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; |