opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Code cosmetic in initialization code:

Browse Source 
* Move TMainForm.ParseCommandLineParameters to helpers:ParseCommandLine
* Modify ParseCommandLine to work without private statics FCmdlineFilenames and FCmdlineConnectionParams
* Move code from helpers:setLocales to dpr file
* Rename TMainForm.Startup to TMainForm.AfterFormCreate
* Destroy AppSettings explicitly in single instance mode
This commit is contained in:
Ansgar Becker
2012-09-16 16:55:53 +00:00
parent d87ece9287
commit fea0e8e194
3 changed files with 106 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
packages/delphiXE/heidisql.dpr
View File

@ -47,18 +47,25 @@ uses
{$R ..\..\res\updater.RES}
begin
SetLocales;
// Use MySQL standard format for date/time variables: YYYY-MM-DD HH:MM:SS
// Be aware that Delphi internally converts the slashes in ShortDateFormat to the DateSeparator
FormatSettings.DateSeparator := '-';
FormatSettings.TimeSeparator := ':';
FormatSettings.ShortDateFormat := 'yyyy/mm/dd';
FormatSettings.LongTimeFormat := 'hh:nn:ss';
AppSettings := TAppSettings.Create;
SecondInstMsgId := RegisterWindowMessage(APPNAME);
if (not AppSettings.ReadBool(asAllowMultipleInstances)) and CheckForSecondInstance then
Application.Terminate
else begin
if (not AppSettings.ReadBool(asAllowMultipleInstances)) and CheckForSecondInstance then begin
AppSettings.Free;
Application.Terminate;
end else begin
Application.Initialize;
Application.Title := APPNAME;
Application.UpdateFormatSettings := False;
Application.CreateForm(TMainForm, MainForm);
Application.OnMessage := Mainform.OnMessageHandler;
MainForm.Startup;
MainForm.AfterFormCreate;
Application.MainFormOnTaskBar := True;
Application.Run;
end;