IDE.dpr 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687
  1. {
  2. TIGCC IDE
  3. Copyright (C) 2000-2004 Sebastian Reichelt
  4. Copyright (C) 2004 Frédéric Bour
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2, or (at your option)
  8. any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software Foundation,
  15. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  16. }
  17. program IDE;
  18. uses
  19. Forms,
  20. Controls,
  21. VersionUnit in 'VersionUnit.pas',
  22. SourceFileUnit in 'SourceFileUnit.pas',
  23. MasterUnit in 'MasterUnit.pas',
  24. ParsingUnit in 'ParsingUnit.pas',
  25. ProcessUnit in 'ProcessUnit.pas',
  26. ToolsListUnit in 'ToolsListUnit.pas',
  27. MainUnit in 'MainUnit.pas' {MainForm},
  28. ProjectOptionsUnit in 'ProjectOptionsUnit.pas' {ProjectOptionsForm},
  29. PreferencesUnit in 'PreferencesUnit.pas' {PreferencesForm},
  30. AboutUnit in 'AboutUnit.pas' {AboutForm},
  31. ProgramOptionsUnit in 'ProgramOptionsUnit.pas' {ProgramOptionsForm},
  32. StyleSelectionUnit in 'StyleSelectionUnit.pas' {StyleSelectionForm},
  33. ColorsUnit in 'ColorsUnit.pas' {MultipleColorsForm},
  34. CustomStyleUnit in 'CustomStyleUnit.pas' {CustomStyleForm},
  35. WordListUnit in 'WordListUnit.pas' {WordListForm},
  36. StartupScreenUnit in 'StartupScreenUnit.pas' {StartupScreenForm},
  37. SourceFileWinUnit in 'SourceFileWinUnit.pas' {SourceFileForm},
  38. FunctionsWinUnit in 'FunctionsWinUnit.pas' {FunctionsForm},
  39. OpenFileStatusUnit in 'OpenFileStatusUnit.pas' {OpenFileStatusForm},
  40. NewsUnit in 'NewsUnit.pas' {NewsForm},
  41. SendProgressUnit in 'SendProgressUnit.pas' {SendProgressForm},
  42. ToolsUnit in 'ToolsUnit.pas' {ToolsForm},
  43. ToolPropertiesUnit in 'ToolPropertiesUnit.pas' {ToolPropertiesForm},
  44. ProgramOutputUnit in 'ProgramOutputUnit.pas' {ProgramOutputForm},
  45. VTIStartUnit in 'VTIStartUnit.pas' {VTIStartForm},
  46. TIEmuStartUnit in 'TIEmuStartUnit.pas' {TIEmuStartForm},
  47. {$IFDEF CODINGEXT}
  48. CodeCompletion in 'CodeCompletion\CodeCompletion.pas',
  49. CompletionForm in 'CodeCompletion\CompletionForm.pas' {CompForm},
  50. HtFormatting in 'CodeCompletion\HtFormatting.pas',
  51. PrefFrame in 'CodeCompletion\PrefFrame.pas' {CodingExt: TFrame},
  52. TmpltForm in 'CodeCompletion\TmpltForm.pas' {TemplateForm},
  53. uBatch in 'CodeCompletion\Editor\uBatch.pas' {BatchEdit},
  54. uEditor in 'CodeCompletion\Editor\uEditor.pas' {CEditorForm},
  55. uHSFParser in 'CodeCompletion\Editor\uHSFParser.pas',
  56. {$ENDIF}
  57. LinkDLLUnit in 'LinkDLLUnit.pas',
  58. FolderUnit in 'FolderUnit.pas',
  59. LinkUnit in 'LinkUnit.pas',
  60. CalcUnit in 'CalcUnit.pas';
  61. {$R *.RES}
  62. begin
  63. Application.Initialize;
  64. Application.Title := 'TIGCC IDE';
  65. Screen.Cursor := crAppStart;
  66. StartupScreenForm := TStartupScreenForm.Create (Application);
  67. StartupScreenForm.Show;
  68. StartupScreenForm.Update;
  69. StartupScreenForm.DisplayText := 'Creating Main Window...';
  70. Application.CreateForm(TMainForm, MainForm);
  71. {$IFDEF CODINGEXT}
  72. Application.CreateForm(TCompForm, CompForm);
  73. Application.CreateForm(TTemplateForm, TemplateForm);
  74. {$ENDIF}
  75. StartupScreenForm.Free;
  76. StartupScreenForm := nil;
  77. Screen.Cursor := crDefault;
  78. Application.Run;
  79. end.