77 lines
2.9 KiB
ObjectPascal
Executable File
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.
|