mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
5ec8c4c725
* prefer const over constref for FPC>=3.2.4 * fix unsupported TabOrder on TSpeedbutton * pass a float value to FloatToStr * remove unused units from uses clause in lpr project file
59 lines
1.8 KiB
ObjectPascal
59 lines
1.8 KiB
ObjectPascal
program heidisql;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cthreads,
|
|
{$ENDIF}
|
|
{$IFDEF HASAMIGA}
|
|
athreads,
|
|
{$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
SysUtils, Dialogs,
|
|
Forms, printer4lazarus, datetimectrls, LCLTranslator, Translations,
|
|
{ you can add units after this }
|
|
main, apphelpers, dbconnection;
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
AppLanguage: String;
|
|
begin
|
|
PostponedLogItems := TDBLogItems.Create(True);
|
|
Application.MainFormOnTaskBar := True;
|
|
|
|
// 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
|
|
DefaultFormatSettings.DateSeparator := '-';
|
|
DefaultFormatSettings.TimeSeparator := ':';
|
|
DefaultFormatSettings.ShortDateFormat := 'yyyy/mm/dd';
|
|
DefaultFormatSettings.LongTimeFormat := 'hh:nn:ss';
|
|
// Testing issue #2189:
|
|
// DefaultFormatSettings.ThousandSeparator:= chr(160);
|
|
|
|
AppSettings := TAppSettings.Create;
|
|
|
|
AppLanguage := AppSettings.ReadString(asAppLanguage);
|
|
// SysLanguage may be zh_CN, while we don't offer such a language, but anyway, this is just the current system language:
|
|
SysLanguage := GetLanguageID.LanguageCode;
|
|
LCLTranslator.SetDefaultLang(AppLanguage);
|
|
InitMoFile(AppLanguage);
|
|
|
|
// Enable padding in customized tooltips
|
|
//HintWindowClass := TExtHintWindow;
|
|
|
|
RequireDerivedFormResource:=True;
|
|
Application.Scaled:=True;
|
|
Application.Initialize;
|
|
//Application.UpdateFormatSettings := False;
|
|
|
|
Application.CreateForm(TMainForm, MainForm);
|
|
MainForm.AfterFormCreate;
|
|
Application.OnDeactivate := MainForm.ApplicationDeActivate;
|
|
Application.OnShowHint := MainForm.ApplicationShowHint;
|
|
//Application.MainFormOnTaskBar := True;
|
|
Application.Run;
|
|
end.
|
|
|