mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
GUI specific initializings and restoring registry settings belongs to ReadWindowOptions. So, move all two lines from FormCreate here.
This commit is contained in:
@@ -14,7 +14,6 @@ object MDIChild: TMDIChild
|
||||
Visible = True
|
||||
OnActivate = FormActivate
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDeactivate = FormDeactivate
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user