# | Line 235 | Line 235 | begin | |
---|---|---|
235 | inherited Loaded; | |
236 | if IBSQLEditFrame1 <> nil then | |
237 | begin | |
238 | + | if PageControl <> nil then |
239 | + | PageControl.ActivePage := SelectPage; |
240 | IBSQLEditFrame1.OnUserTablesOpened := @HandleUserTablesOpened; | |
241 | if SelectTableNames <> nil then | |
242 | SelectTableNames.ListSource := IBSQLEditFrame1.UserTableSource; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |