deleted

TurboBird.lpr.bak

@@ -1,86 +0,0 @@
-{***************************************************************************}
-{  TurboBird: FireBird database administration and management tool          }
-{  Developed by: Motaz Abdel Azeem http://code.sd/                          }
-{  Start development:  5.Dec.2009                                           }
-{  Last updated     : 13.Dec.2011                                           }
-{  License          : GPL for GUI, LGPL for Units                           }
-{***************************************************************************}
-
-program TurboBird;
-
-{$mode objfpc}{$H+}
-
-uses
-  {$IFDEF UNIX}{$IFDEF UseCThreads}
-  cthreads,
-  {$ENDIF}{$ENDIF}
-  Interfaces, // this includes the LCL widgetset
-  Forms, Controls, memdslaz, main, createdb, Reg, QueryWindow,
-  ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen, EnterPass, About,
-  CreateTrigger, EditTable, CallProc, EditDataFullRec,
-  UDFInfo, ViewDomain, NewDomain, SysTables, NewConstraint, NewEditField, Calen, Scriptdb,
-  UserPermissions, TableManage, BackupRestore, CreateUser, ChangePass,
-  PermissionManage, SQLHistory, CopyTable, dynlibs, ibase60dyn, dbInfo;
-
-const
-  Version = '0.8.9';
-  VersionDate = '2010 - Dec 2011';
-{$IFDEF Unix}
-  {$DEFINE extdecl:=cdecl}
-    fbclib = 'libfbclient.' + sharedsuffix;
-{$ENDIF}
-{$IFDEF Windows}
-  {$DEFINE extdecl:=stdcall}
-   fbclib = 'fbclient.dll';
-{$ENDIF}
-
-{$R *.res}
-
-var
-  SAbout: TfmAbout;
-  IBaseLibraryHandle : TLibHandle;
-begin
-  Application.Initialize;
-  IBaseLibraryHandle:= LoadLibrary(fbclib);
-  // Check Firebird library existance
-  if (IBaseLibraryHandle = nilhandle) then
-  begin
-     Application.MessageBox('Can not load library: ' + fbclib, 'Error', 0);
-     Exit;
-  end;
-  SAbout:= TfmAbout.Create(nil);
-  SAbout.BorderStyle:= bsNone;
-  SAbout.BitBtn1.Visible:= False;
-  SAbout.Show;
-  Application.ProcessMessages;
-  SAbout.Update;
-
-  Application.CreateForm(TfmMain, fmMain);
-  Application.CreateForm(TfmCreateDB, fmCreateDB);
-  Application.CreateForm(TfmReg, fmReg);
-  Application.CreateForm(TfmNewTable, fmNewTable);
-  Application.CreateForm(TfmNewGen, fmNewGen);
-  Application.CreateForm(TfmEnterPass, fmEnterPass);
-  Application.CreateForm(TfmCreateTrigger, fmCreateTrigger);
-  Application.CreateForm(TfmEditTable, fmEditTable);
-  Application.CreateForm(TfmCallProc, fmCallProc);
-  Application.CreateForm(TfmEditDataFullRec, fmEditDataFullRec);
-  Application.CreateForm(TfmNewDomain, fmNewDomain);
-  Application.CreateForm(TdmSysTables, dmSysTables);
-  Application.CreateForm(TfmNewConstraint, fmNewConstraint);
-  Application.CreateForm(TfmCalen, fmCalen);
-  Application.CreateForm(TfmBackupRestore, fmBackupRestore);
-  Application.CreateForm(TfmCreateUser, fmCreateUser);
-  Application.CreateForm(TfmChangePass, fmChangePass);
-  Application.CreateForm(TfmSQLHistory, fmSQLHistory);
-  Application.CreateForm(TfmCopyTable, fmCopyTable);
-  fmMain.Version:= Version;
-  fmMain.VersionDate:= VersionDate;
-  SAbout.Free;
-  InitialiseIBase60;
-  Application.CreateForm(TfmDBInfo, fmDBInfo);
-  Application.Run;
-  ReleaseIBase60;
-
-end.
-