1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
program XGrtSh;
uses
gnugettext in '..\gnugettext.pas',
TntForms, Forms,
AuxFuncs in '..\AuxFuncs.pas',
myx_public_interface in '..\..\..\library\public_interface\windows\myx_public_interface.pas',
myx_util_public_interface in '..\..\..\library_util\public_interface\windows\myx_util_public_interface.pas',
myx_grt_public_interface in '..\..\..\library_grt\public_interface\windows\myx_grt_public_interface.pas',
myx_grt_builtin_module_public_interface in '..\..\..\library_grt_modules\public_interface\windows\myx_grt_builtin_module_public_interface.pas',
myx_sql_resultset_public_interface in '..\..\..\library_sql_resultset\public_interface\windows\myx_sql_resultset_public_interface.pas',
XGrtShell in 'XGrtShell.pas' {XGrtShellForm: TTntForm},
GrtForms in '..\GrtForms.pas',
GrtObjectTree in '..\GrtObjectTree.pas',
Grt in '..\Grt.pas',
MyxOptions in '..\MyxOptions.pas',
MyxAppOptions in 'MyxAppOptions.pas',
PNGTools in '..\tools\PNGTools.pas';
{$R *.res}
//Enable WindowsXP look'n'feel
{$R ..\..\..\..\mysql-gui-common\res\windows\WindowsXP.res}
{$R ..\..\..\..\mysql-gui-common\res\windows\mysqlcommon.RES}
{$R ..\..\..\..\mysql-gui-common\res\windows\mysqlgrtsh.RES}
begin
// Add extra domain for runtime library translations
AddDomainForResourceString('delphi');
// Force program to use user defined instead of the current Windows settings
UseLanguage('en'); //MYXCommonOptions.Language);
//Application Title
TntApplication.Title := 'MySQL Grt Shell';
Application.Title := 'X Grt Shell';
Application.HelpFile := '';
Application.Initialize;
Application.CreateForm(TXGrtShellForm, XGrtShellForm);
XGrtShellForm.Grt.Console := XGrtShellForm.CommandLineUCE;
Application.Run;
end.
|
