Organize repository into standard trunk/branches/tags structure.

2025-08-14 01:56:36 +08:00 · 2007-06-26 11:26:18 +00:00
commit bffc0206f2
906 changed files with 321672 additions and 0 deletions
--- a/packages/delphi11/heidisql.dpr
+++ b/packages/delphi11/heidisql.dpr
@ -0,0 +1,77 @@
+program heidisql;
+
+{%File '..\..\const.inc'}
+
+uses
+  Forms,
+  SysUtils,
+  Dialogs,
+  main in '..\..\main.PAS' {MainForm},
+  childwin in '..\..\childwin.pas' {MDIChild},
+  about in '..\..\about.pas' {AboutBox},
+  connections in '..\..\connections.pas' {connform},
+  createtable in '..\..\createtable.pas' {CreateTableForm},
+  fieldeditor in '..\..\fieldeditor.pas' {FieldEditForm},
+  exportsql in '..\..\exportsql.pas' {ExportSQLForm},
+  tbl_properties in '..\..\tbl_properties.pas' {tbl_properties_form},
+  tblcomment in '..\..\tblcomment.pas' {tablecomment},
+  loaddata in '..\..\loaddata.pas' {loaddataform},
+  usermanager in '..\..\usermanager.pas' {UserManagerForm},
+  options in '..\..\options.pas' {optionsform},
+  selectsomedatabases in '..\..\selectsomedatabases.pas' {SelectFromManyDatabases},
+  optimizetables in '..\..\optimizetables.pas' {optimize},
+  printlist in '..\..\printlist.pas' {printlistForm},
+  copytable in '..\..\copytable.pas' {CopyTableForm},
+  edituser in '..\..\edituser.pas' {FormEditUser},
+  insertfiles in '..\..\insertfiles.pas' {frmInsertFiles},
+  insertfiles_progress in '..\..\insertfiles_progress.pas' {frmInsertFilesProgress},
+  helpers in '..\..\helpers.pas',
+  synchronization in '..\..\synchronization.pas',
+  communication in '..\..\communication.pas',
+  threading in '..\..\threading.pas',
+  sqlhelp in '..\..\sqlhelp.pas' {frmSQLhelp},
+  queryprogress in '..\..\queryprogress.pas' {frmQueryProgress},
+  mysqlquery in '..\..\mysqlquery.pas',
+  mysqlquerythread in '..\..\mysqlquerythread.pas',
+  mysqlconn in '..\..\mysqlconn.pas',
+  mysql in '..\..\mysql.pas';
+
+{$R *.RES}
+
+begin
+  debug('perf: All modules loaded.');
+  Application.Initialize;
+  Application.Title := APPNAME;
+  Application.CreateForm(TMainForm, MainForm); debug('perf: Main created.');
+
+  Application.CreateForm(TCreateTableForm, CreateTableForm); debug('perf: CreateTable created.');
+  Application.CreateForm(Ttbl_properties_form, tbl_properties_form); debug('perf: tbl_properties created.');
+  Application.CreateForm(Ttablecomment, tablecomment); debug('perf: tablecomment created.');
+  Application.CreateForm(Tloaddataform, loaddataform); debug('perf: loaddata created.');
+  Application.CreateForm(TprintlistForm, printlistForm); debug('perf: printlist created.');
+  Application.CreateForm(TCopyTableForm, CopyTableForm); debug('perf: CopyTable created.');
+  Application.CreateForm(TFormEditUser, FormEditUser); debug('perf: EditUser created.');
+  Application.CreateForm(TfrmSQLhelp, frmSQLhelp); debug('perf: frmSQLhelp created.');
+
+
+  try
+    try
+      InitializeSync(MainForm.Handle);
+      SetWindowName(main.discname);
+      InitializeThreading(MainForm.Handle);
+      InitializeComm(
+        MainForm.Handle,
+        MainForm.ExecuteRemoteNonQuery,
+        MainForm.ExecuteRemoteQuery
+      );
+      debug('perf: Running.');
+      Application.Run;
+    finally
+      DeInitializeSync;
+    end;
+  except
+    on e: Exception do begin
+      ShowMessage(e.ClassName + ': ' + e.Message);
+    end;
+  end;
+ end.