Set and fetch default height of PageControl via constant rather than from the control itself, as that may not be created that early. A minimal chance that this fixes issue #1995.

This commit is contained in:
Ansgar Becker
2010-06-11 16:56:12 +00:00
parent 1bef78634b
commit 3c4beba2dd
2 changed files with 2 additions and 1 deletions

View File

@ -114,6 +114,7 @@ const
REGNAME_SQLHELPPLWIDTH = 'SQLHelp_PnlLeftWidth';
REGNAME_SQLHELPPRHEIGHT = 'SQLHelp_PnlRightTopHeight';
REGNAME_TABLEEDITOR_TABSHEIGHT = 'TableEditorTabsHeight';
DEFAULT_TABLEEDITOR_TABSHEIGHT = 150;
REGNAME_HOST = 'Host';
DEFAULT_HOST = '127.0.0.1';
REGNAME_USER = 'User';

View File

@ -217,7 +217,7 @@ const
constructor TfrmTableEditor.Create(AOwner: TComponent);
begin
inherited;
PageControlMain.Height := GetRegValue(REGNAME_TABLEEDITOR_TABSHEIGHT, PageControlMain.Height);
PageControlMain.Height := GetRegValue(REGNAME_TABLEEDITOR_TABSHEIGHT, DEFAULT_TABLEEDITOR_TABSHEIGHT);
FixVT(listColumns);
FixVT(treeIndexes);
FixVT(listForeignKeys);