1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586 |
- {
- TIGCC IDE
- Copyright (C) 2000-2004 Sebastian Reichelt
- Copyright (C) 2004 Frédéric Bour
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- }
- program IDE;
- uses
- Forms,
- Controls,
- VersionUnit in 'VersionUnit.pas',
- SourceFileUnit in 'SourceFileUnit.pas',
- MasterUnit in 'MasterUnit.pas',
- ParsingUnit in 'ParsingUnit.pas',
- ProcessUnit in 'ProcessUnit.pas',
- ToolsListUnit in 'ToolsListUnit.pas',
- MainUnit in 'MainUnit.pas' {MainForm},
- ProjectOptionsUnit in 'ProjectOptionsUnit.pas' {ProjectOptionsForm},
- PreferencesUnit in 'PreferencesUnit.pas' {PreferencesForm},
- AboutUnit in 'AboutUnit.pas' {AboutForm},
- ProgramOptionsUnit in 'ProgramOptionsUnit.pas' {ProgramOptionsForm},
- StyleSelectionUnit in 'StyleSelectionUnit.pas' {StyleSelectionForm},
- ColorsUnit in 'ColorsUnit.pas' {MultipleColorsForm},
- CustomStyleUnit in 'CustomStyleUnit.pas' {CustomStyleForm},
- WordListUnit in 'WordListUnit.pas' {WordListForm},
- StartupScreenUnit in 'StartupScreenUnit.pas' {StartupScreenForm},
- SourceFileWinUnit in 'SourceFileWinUnit.pas' {SourceFileForm},
- FunctionsWinUnit in 'FunctionsWinUnit.pas' {FunctionsForm},
- OpenFileStatusUnit in 'OpenFileStatusUnit.pas' {OpenFileStatusForm},
- NewsUnit in 'NewsUnit.pas' {NewsForm},
- SendProgressUnit in 'SendProgressUnit.pas' {SendProgressForm},
- ToolsUnit in 'ToolsUnit.pas' {ToolsForm},
- ToolPropertiesUnit in 'ToolPropertiesUnit.pas' {ToolPropertiesForm},
- ProgramOutputUnit in 'ProgramOutputUnit.pas' {ProgramOutputForm},
- VTIStartUnit in 'VTIStartUnit.pas' {VTIStartForm},
- {$IFDEF CODINGEXT}
- CodeCompletion in 'CodeCompletion\CodeCompletion.pas',
- CompletionForm in 'CodeCompletion\CompletionForm.pas' {CompForm},
- HtFormatting in 'CodeCompletion\HtFormatting.pas',
- PrefFrame in 'CodeCompletion\PrefFrame.pas' {CodingExt: TFrame},
- TmpltForm in 'CodeCompletion\TmpltForm.pas' {TemplateForm},
- uBatch in 'CodeCompletion\Editor\uBatch.pas' {BatchEdit},
- uEditor in 'CodeCompletion\Editor\uEditor.pas' {CEditorForm},
- uHSFParser in 'CodeCompletion\Editor\uHSFParser.pas',
- {$ENDIF}
- LinkDLLUnit in 'LinkDLLUnit.pas',
- FolderUnit in 'FolderUnit.pas',
- LinkUnit in 'LinkUnit.pas',
- CalcUnit in 'CalcUnit.pas';
- {$R *.RES}
- begin
- Application.Initialize;
- Application.Title := 'TIGCC IDE';
- Screen.Cursor := crAppStart;
- StartupScreenForm := TStartupScreenForm.Create (Application);
- StartupScreenForm.Show;
- StartupScreenForm.Update;
- StartupScreenForm.DisplayText := 'Creating Main Window...';
- Application.CreateForm(TMainForm, MainForm);
- {$IFDEF CODINGEXT}
- Application.CreateForm(TCompForm, CompForm);
- Application.CreateForm(TTemplateForm, TemplateForm);
- {$ENDIF}
- StartupScreenForm.Free;
- StartupScreenForm := nil;
- Screen.Cursor := crDefault;
- Application.Run;
- end.
|