diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-15 16:18:07 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-15 16:18:07 +0000 |
commit | c500001a6c5a3a571d0190ad73839f5bfb6fa98e (patch) | |
tree | f43a0f6f6b947d01db270cc0a1dcc9b115f3014f /src/gui/gui_tab.pas | |
parent | 9e89b98db6b5c885da8c2b67782faf9c9b93a0f2 (diff) | |
download | fpGUI-c500001a6c5a3a571d0190ad73839f5bfb6fa98e.tar.xz |
* Minor fix when a tab gets destroyed. This affected the UI Designer.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r-- | src/gui/gui_tab.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index 5351ae46..d0b4640e 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -720,7 +720,8 @@ var ts: TfpgTabSheet; begin FOnChange := nil; - FActivePage := TfpgTabSheet(FPages[0]); + if FPages.Count > 0 then + FActivePage := TfpgTabSheet(FPages[0]); ActiveWidget := nil; while FPages.Count > 0 do begin |