From 07be7a72222f07311cae6571b3da9dd6c41a00fa Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 23 Oct 2007 21:40:18 +0000 Subject: [PATCH] GUI specific initializings and restoring registry settings belongs to ReadWindowOptions. So, move all two lines from FormCreate here. --- source/childwin.dfm | 1 - source/childwin.pas | 13 ++++--------- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/source/childwin.dfm b/source/childwin.dfm index 3e60bc44..22f71da6 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -14,7 +14,6 @@ object MDIChild: TMDIChild Visible = True OnActivate = FormActivate OnClose = FormClose - OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 diff --git a/source/childwin.pas b/source/childwin.pas index cad11036..ab2af218 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -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