amxmodx/editor/editor2/AMXX_Edit_v2.dpr
Christian Hammacher c1552aacd6 * May 18th, 2005: Starting to develop AMXX-Edit v2 as a kind of open source
* May 19th, 2005: Added debug dialog (only for developing)
2005-05-19 11:03:42 +00:00

77 lines
2.9 KiB
ObjectPascal
Executable File

program AMXX_Edit_v2;
{
AMXX-Edit v2
Editor for AMX Mod X scripts, coded by Basic-Master
© by AMX Mod X Development Team
This application uses the following components:
DelphiSci: delphisci.sourceforge.net (based on Scintilla library: scintilla.sourceforge.net)
FlatStyle by Maik Porkert (found on www.torry.net)
GlyFX Icons: www.glyfx.com (using GlyFX Icon Pack of Delphi 2005 PE)
Modified CorelButton (see CorelButton.pas, original by ConquerWare)
Indy 9 Socket Components: www.indyproject.org
[JEDI component library, only necersarry for Exception Dialog (jvcl.sourceforge.net)]
AMXX-Edit v2 is published under GNU General Public License and comes
with ABSOLUTELY NO WARRANTY (see GPL.txt for more information)
}
//{$DEFINE EXCEPTION_DEBUG} // Remove comments only when you want to trace exceptions
uses
Forms,
Windows,
Classes,
SysUtils,
UnitfrmMain in 'UnitfrmMain.pas' {frmMain},
UnitfrmOptions in 'UnitfrmOptions.pas' {frmSettings},
UnitfrmDebug in 'UnitfrmDebug.pas' {frmDebug},
UnitFunc in 'UnitFunc.pas',
UnitfrmAbout in 'UnitfrmAbout.pas' {frmAbout},
UnitfrmGoToLine in 'UnitfrmGoToLine.pas' {frmGoToLine},
UnitfrmSaveDialog in 'UnitfrmSaveDialog.pas' {frmSaveDialog},
UnitTextAnalyze in 'UnitTextAnalyze.pas',
UnitfrmMenuMaker in 'UnitfrmMenuMaker.pas' {frmMenuMaker},
UnitAddMenu in 'UnitAddMenu.pas',
UnitfrmSelectMenu in 'UnitfrmSelectMenu.pas' {frmSelectMenu},
UnitHowToMakePlayerMenu in 'UnitHowToMakePlayerMenu.pas' {frmHowToMakePlayerMenu},
UnitfrmSockets in 'UnitfrmSockets.pas' {frmSocketTerminal},
UnitReadThread in 'UnitReadThread.pas',
UnitfrmLoopGenerator in 'UnitfrmLoopGenerator.pas' {frmLoopGenerator},
UnitfrmExceptionHandler in 'UnitfrmExceptionHandler.pas' {ExceptionDialog};
{$R *.res}
var i: integer;
begin
if (FindWindow('TfrmMain', 'AMXX-Edit v2') <> 0) then begin // Don't allow 2 starts...
for i := 1 to ParamCount do begin
if FileExists(ParamStr(i)) then
SendOpen(ParamStr(i)); // ... and send open message to the other app
end;
ShowWindow(FindWindow('TfrmMain', 'AMXX-Edit v2'), SW_SHOW);
SetForegroundWindow(FindWindow('TfrmMain', 'AMXX-Edit v2'));
exit;
end;
Application.Initialize;
Application.Title := 'AMXX-Edit v2';
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmSettings, frmSettings);
Application.CreateForm(TfrmDebug, frmDebug);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TfrmGoToLine, frmGoToLine);
Application.CreateForm(TfrmSaveDialog, frmSaveDialog);
Application.CreateForm(TfrmMenuMaker, frmMenuMaker);
Application.CreateForm(TfrmSelectMenu, frmSelectMenu);
Application.CreateForm(TfrmHowToMakePlayerMenu, frmHowToMakePlayerMenu);
Application.CreateForm(TfrmSocketTerminal, frmSocketTerminal);
Application.CreateForm(TfrmLoopGenerator, frmLoopGenerator);
Load;
Apply;
Application.Run;
end.