GUI specific initializings and restoring registry settings belongs to ReadWindowOptions. So, move all two lines from FormCreate here.

This commit is contained in:
Ansgar Becker
2007-10-23 21:40:18 +00:00
parent edbfbedc2f
commit 07be7a7222
2 changed files with 4 additions and 10 deletions

View File

@@ -14,7 +14,6 @@ object MDIChild: TMDIChild
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96

View File

@@ -505,7 +505,6 @@ type
DropPosition: TPoint);
procedure ComboBoxQueryDelimiterExit(Sender: TObject);
procedure ComboBoxQueryDelimiterAdd(delimiter: String);
procedure FormCreate(Sender: TObject);
procedure menuLogToFileClick(Sender: TObject);
procedure menuOpenLogFolderClick(Sender: TObject);
procedure vstGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
@@ -931,6 +930,10 @@ var
reg : TRegistry;
begin
// Initialize delimiter settings
delimiter := DEFAULT_DELIMITER;
ComboBoxQueryDelimiter.ItemIndex := ComboBoxQueryDelimiter.Items.IndexOf( delimiter );
reg := TRegistry.Create;
if reg.OpenKey( REGPATH, true ) then
begin
@@ -6325,14 +6328,6 @@ begin
end;
procedure TMDIChild.FormCreate(Sender: TObject);
begin
// See reference: mysql.cpp Ver 14.12 Distrib 5.0.45, for Win32 (ia32): Line 365
delimiter := DEFAULT_DELIMITER;
ComboBoxQueryDelimiter.ItemIndex := ComboBoxQueryDelimiter.Items.IndexOf( delimiter );
end;
{***
Callback procedure able to handle client-side SQL statements such as DELIMITER