* May 18th, 2005: Starting to develop AMXX-Edit v2 as a kind of open source
This commit is contained in:
Christian Hammacher
parent
3642cedd2b
commit
dd6abc5487
38
editor/editor2/AMXX_Edit_v2.cfg
Executable file
38
editor/editor2/AMXX_Edit_v2.cfg
Executable file
@ -0,0 +1,38 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\programme\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\programme\borland\delphi7\Projects\Bpl"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
136
editor/editor2/AMXX_Edit_v2.dof
Executable file
136
editor/editor2/AMXX_Edit_v2.dof
Executable file
@ -0,0 +1,136 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;VclSmp;dbrtl;dbexpress;vcldb;dsnap;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;Indy70;FlatStyle_D5;CrossKylix;DJcl;DelphiX_for7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1031
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=AMX Mod X
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
72
editor/editor2/AMXX_Edit_v2.dpr
Executable file
72
editor/editor2/AMXX_Edit_v2.dpr
Executable file
@ -0,0 +1,72 @@
|
||||
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
|
||||
|
||||
AMXX-Edit v2 is published under GNU General Public License and comes
|
||||
with ABSOLUTELY NO WARRANTY (see GPL.txt for more information)
|
||||
}
|
||||
|
||||
|
||||
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};
|
||||
|
||||
{$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.
|
||||
436
editor/editor2/UnitAddMenu.pas
Executable file
436
editor/editor2/UnitAddMenu.pas
Executable file
@ -0,0 +1,436 @@
|
||||
unit UnitAddMenu;
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, Classes, Graphics, Dialogs, Windows;
|
||||
|
||||
function AddMenu: Boolean;
|
||||
function AddPlayerMenu: Boolean;
|
||||
function GetFirst(eStart: String; eSearchMain: Boolean): Integer;
|
||||
function GetLast(eStart: String; eSearchMain: Boolean): Integer;
|
||||
function AddIfDoesntExist(eInclude: String): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMenuMaker, UnitfrmMain, UnitTextAnalyze, UnitFunc;
|
||||
|
||||
{ Normal Menu }
|
||||
|
||||
function AddMenu: Boolean;
|
||||
var eColoredMenu, DefinedKeys: String;
|
||||
i: integer;
|
||||
eStr: TStringList;
|
||||
begin
|
||||
Result := GetFirst('public Show' + frmMenuMaker.txtMenuName.Text, True) = -1;
|
||||
if not Result then
|
||||
exit;
|
||||
|
||||
eStr := TStringList.Create;
|
||||
{ Transform text }
|
||||
eColoredMenu := frmMenuMaker.GetColoredMenu;
|
||||
if frmMenuMaker.chkAppendOnlyMenuText.Checked then begin
|
||||
frmMain.sciEditor.Lines.Add('// Created menu: ' + eColoredMenu);
|
||||
exit;
|
||||
end;
|
||||
{ Add functions }
|
||||
eStr.Add(Format('public Show%s(id) {', [frmMenuMaker.txtMenuName.Text]));
|
||||
eStr.Add(' show_menu(id, Keys' + frmMenuMaker.txtMenuName.Text + ', "' + eColoredMenu + '", -1, "' + frmMenuMaker.txtMenuName.Text + '")');
|
||||
if frmMenuMaker.chkAddComment.Checked then
|
||||
eStr[eStr.Count -1] := eStr[eStr.Count -1] + ' // Display menu';
|
||||
eStr.Add('}');
|
||||
eStr.Add('');
|
||||
eStr.Add('public Pressed' + frmMenuMaker.txtMenuName.Text + '(id, key) {');
|
||||
if frmMenuMaker.chkAddComment.Checked then begin
|
||||
eStr.Add(' /* Menu:');
|
||||
for i := 0 to frmMenuMaker.rtfEditor.Lines.Count -1 do
|
||||
eStr.Add(' * ' + frmMenuMaker.rtfEditor.Lines[i]);
|
||||
eStr.Add(' */');
|
||||
eStr.Add('');
|
||||
end;
|
||||
eStr.Add(' switch (key) {');
|
||||
DefinedKeys := '';
|
||||
for i := 1 to Length(frmMenuMaker.txtKeys.Text) do begin
|
||||
if frmMenuMaker.txtKeys.Text[i] = '0' then begin
|
||||
DefinedKeys := DefinedKeys + '|(1<<9)';
|
||||
if frmMenuMaker.chkAddComment.Checked then
|
||||
eStr.Add(' case 9: { // 0')
|
||||
else
|
||||
eStr.Add(' case 9: {');
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' }');
|
||||
end
|
||||
else begin
|
||||
DefinedKeys := DefinedKeys + '|(1<<' + IntToStr(StrToInt(frmMenuMaker.txtKeys.Text[i]) -1) + ')';
|
||||
if frmMenuMaker.chkAddComment.Checked then
|
||||
eStr.Add(' case ' + IntToStr(StrToInt(frmMenuMaker.txtKeys.Text[i]) -1) + ': { // ' + frmMenuMaker.txtKeys.Text[i])
|
||||
else
|
||||
eStr.Add(' case ' + IntToStr(StrToInt(frmMenuMaker.txtKeys.Text[i]) -1) + ': {');
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' }');
|
||||
end;
|
||||
end;
|
||||
Delete(DefinedKeys, 1, 1);
|
||||
if frmMenuMaker.chkAddComment.Checked then
|
||||
DefinedKeys := DefinedKeys + ' // Keys: ' + frmMenuMaker.txtKeys.Text;
|
||||
eStr.Add(' }');
|
||||
eStr.Add('}');
|
||||
// Insert
|
||||
AddIfDoesntExist('amxmodx');
|
||||
i := GetFirst('#define', True) +2;
|
||||
if i = 1 then
|
||||
i := GetFirst('#include', True) +2;
|
||||
if i = 1 then
|
||||
i := 0;
|
||||
|
||||
frmMain.sciEditor.Lines.Insert(i, Format('#define Keys%s %s', [frmMenuMaker.txtMenuName.Text, DefinedKeys]));
|
||||
frmMain.sciEditor.Lines.Text := frmMain.sciEditor.Lines.Text + #13 + eStr.Text;
|
||||
if frmMenuMaker.chkRegisterMenuCommand.Checked then begin
|
||||
i := GetFirst('register_plugin', True) +2;
|
||||
if i = 1 then
|
||||
i := GetFirst('public plugin_init()', True) +2;
|
||||
if i = 1 then begin
|
||||
eStr.Clear;
|
||||
eStr.Add('public plugin_init() {');
|
||||
eStr.Add(' register_menucmd(register_menuid("' + frmMenuMaker.txtMenuName.Text + '"), Keys' + frmMenuMaker.txtMenuName.Text + ', "Pressed' + frmMenuMaker.txtMenuName.Text + '")');
|
||||
eStr.Add('}');
|
||||
frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +2, '');
|
||||
frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +3, eStr.Text);
|
||||
end
|
||||
else
|
||||
frmMain.sciEditor.Lines.Insert(i, ' register_menucmd(register_menuid("' + frmMenuMaker.txtMenuName.Text + '"), Keys' + frmMenuMaker.txtMenuName.Text + ', "Pressed' + frmMenuMaker.txtMenuName.Text + '")');
|
||||
end;
|
||||
frmMain.SetModified;
|
||||
eStr.Free;
|
||||
UpdateList(frmMain.sciEditor.Lines.Text);
|
||||
end;
|
||||
|
||||
{ Player Menu }
|
||||
|
||||
function AddPlayerMenu: Boolean;
|
||||
function PrepareItem(eItem: String; eDisabled: Boolean): String; // Remove colors etc.
|
||||
begin
|
||||
eItem := StringReplace(eItem, '\w', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
eItem := StringReplace(eItem, '\y', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
eItem := StringReplace(eItem, '\r', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
eItem := StringReplace(eItem, '\d', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
eItem := StringReplace(eItem, '%n', '%i', [rfIgnoreCase]);
|
||||
eItem := StringReplace(eItem, '%v', '%s', [rfIgnoreCase]);
|
||||
if eDisabled then
|
||||
eItem := '\d' + eItem
|
||||
else
|
||||
eItem := '\w' + eItem;
|
||||
Result := eItem + '^n';
|
||||
end;
|
||||
|
||||
var i: integer;
|
||||
eStr: TStringList;
|
||||
ePlayersFrom, ePlayersTo: Integer; // Players
|
||||
ePlayerFormat: String;
|
||||
eNext, eExit: Integer; // Next and Back/Exit
|
||||
eNextText, eBackText, eExitText: String;
|
||||
eCurLineIndex: Integer; // Current ..
|
||||
eCurLine: String; // .. line
|
||||
DefinedKeys: String; // Action Keys
|
||||
begin
|
||||
Result := GetFirst('public Show' + frmMenuMaker.txtMenu.Text, True) = -1;
|
||||
if not Result then begin
|
||||
MessageBox(frmMenuMaker.Handle, 'Menu already exists. Please choose another name.', 'Warning', MB_ICONWARNING);
|
||||
exit;
|
||||
end;
|
||||
|
||||
{
|
||||
Kick player
|
||||
|
||||
$players(1,8,%n. %v)
|
||||
$next(9,9. Next)
|
||||
|
||||
$exitorback(0, 0. Exit, 0. Back)
|
||||
}
|
||||
|
||||
eCurLine := frmMenuMaker.rtfEditor.Lines[0];
|
||||
eCurLineIndex := 0;
|
||||
eNext := -1;
|
||||
eExit := -1;
|
||||
eStr := TStringList.Create;
|
||||
// Prepare Values
|
||||
try
|
||||
{ Players }
|
||||
eCurLineIndex := GetFirst('$players', False);
|
||||
eCurLine := frmMenuMaker.rtfEditor.Lines[eCurLineIndex];
|
||||
ePlayersFrom := StrToInt(Between(LowerCase(Trim(eCurLine)), '$players(', ','));
|
||||
ePlayersTo := StrToInt(Between(Trim(LowerCase(eCurLine)), ',', ','));
|
||||
while CountChars(eCurLine, ',') > 1 do
|
||||
Delete(eCurLine, 1, 1);
|
||||
ePlayerFormat := Between(LowerCase(eCurLine), ',', ')');
|
||||
{ Next }
|
||||
if GetFirst('$next', False) <> -1 then begin
|
||||
eCurLineIndex := GetFirst('$next', False);
|
||||
eCurLine := frmMenuMaker.rtfEditor.Lines[eCurLineIndex];
|
||||
eNext := StrToInt(Trim(Between(eCurLine, '(', ',')));
|
||||
eNextText := Between(eCurLine, ',', ')');
|
||||
end;
|
||||
{ Exit or Back }
|
||||
if GetFirst('$exitorback', False) <> -1 then begin
|
||||
eCurLineIndex := GetFirst('$exitorback', False);
|
||||
eCurLine := frmMenuMaker.rtfEditor.Lines[eCurLineIndex];
|
||||
eExit := StrToInt(Trim(Between(eCurLine, '(', ',')));
|
||||
eExitText := Between(eCurLine, ',', ',');
|
||||
while CountChars(eCurLine, ',') > 1 do
|
||||
Delete(eCurLine, 1, 1);
|
||||
eBackText := Between(eCurLine, ',', ')');
|
||||
end;
|
||||
except
|
||||
MessageBox(frmMenuMaker.Handle, PChar(Format('Syntax error at line %s: ' + #13 + '%s', [IntToStr(eCurLineIndex +1), frmMenuMaker.rtfEditor.Lines[eCurLineIndex]])), 'Error', MB_ICONERROR);
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
// Check Keys
|
||||
{ Players }
|
||||
if (ePlayersFrom < 0) or (ePlayersFrom > ePlayersTo) then begin
|
||||
MessageBox(frmMenuMaker.Handle, 'Invalid start key (players)', 'Warning', MB_ICONWARNING);
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
if (ePlayersTo < 0) or (ePlayersTo > 9) then begin
|
||||
MessageBox(frmMenuMaker.Handle, 'Invalid stop key (players)', 'Warning', MB_ICONWARNING);
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
{ Next, Exit and Custom keys}
|
||||
eCurLine := '';
|
||||
for i := ePlayersFrom to ePlayersTo do
|
||||
eCurLine := eCurLine + IntToStr(i);
|
||||
|
||||
if Pos(IntToStr(eNext), eCurLine) > 0 then begin
|
||||
MessageBox(frmMenuMaker.Handle, PChar(Format('"Next" key already in use (%s). Delete it or choose another one and try again.', [IntToStr(eNext)])), 'Warning', MB_ICONWARNING);
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
if Pos(IntToStr(eExit), eCurLine) > 0 then begin
|
||||
MessageBox(frmMenuMaker.Handle, PChar(Format('"Exit" key already in use (%s). Delete it or choose another one and try again.', [IntToStr(eExit)])), 'Warning', MB_ICONWARNING);
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
eCurLine := eCurLine + IntToStr(eNext);
|
||||
eCurLine := eCurLine + IntToStr(eExit);
|
||||
// Insert Code
|
||||
try
|
||||
{ Includes }
|
||||
AddIfDoesntExist('amxmodx');
|
||||
AddIfDoesntExist('amxmisc');
|
||||
{ Define Keys }
|
||||
DefinedKeys := '';
|
||||
if Length(eCurLine) <> 0 then begin
|
||||
for i := 1 to Length(eCurLine) do begin
|
||||
if eCurLine[i] = '0' then
|
||||
DefinedKeys := DefinedKeys + '|(1<<9)'
|
||||
else begin
|
||||
eCurLine[i] := IntToStr(StrToInt(eCurLine[i]) -1)[1];
|
||||
DefinedKeys := DefinedKeys + '|(1<<' + eCurLine[i] + ')';
|
||||
end;
|
||||
end;
|
||||
Delete(DefinedKeys, 1, 1);
|
||||
end;
|
||||
i := GetLast('#define', True) +2;
|
||||
if i = 1 then
|
||||
i := GetLast('#include', True) +2;
|
||||
if i = 1 then
|
||||
i := 0;
|
||||
frmMain.sciEditor.Lines.Insert(i, Format('#define Keys%s %s', [frmMenuMaker.txtMenu.Text, DefinedKeys]));
|
||||
frmMain.sciEditor.Lines.Insert(i +1, 'new MenuPos' + frmMenuMaker.txtMenu.Text);
|
||||
frmMain.sciEditor.Lines.Insert(i +2, 'new MenuPlayers' + frmMenuMAker.txtMenu.Text + '[32]');
|
||||
{ Register }
|
||||
i := GetFirst('register_plugin', True) +2;
|
||||
if i = 1 then
|
||||
i := GetFirst('public plugin_init()', True) +2;
|
||||
if i = 1 then begin
|
||||
eStr.Clear;
|
||||
eStr.Add('public plugin_init() {');
|
||||
eStr.Add(' register_menucmd(register_menuid("' + frmMenuMaker.txtMenu.Text + '"), Keys' + frmMenuMaker.txtMenu.Text + ', "Pressed' + frmMenuMaker.txtMenu.Text + '")');
|
||||
eStr.Add('}');
|
||||
frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +2, '');
|
||||
frmMain.sciEditor.Lines.Insert(GetFirst('#define', True) +3, eStr.Text);
|
||||
end
|
||||
else
|
||||
frmMain.sciEditor.Lines.Insert(i, ' register_menucmd(register_menuid("' + frmMenuMaker.txtMenu.Text + '"), Keys' + frmMenuMaker.txtMenu.Text + ', "Pressed' + frmMenuMaker.txtMenu.Text + '")');
|
||||
{ Show Menu Functions (thx to xeroblood for code example) }
|
||||
eStr.Clear;
|
||||
eStr.Add('public Show' + frmMenuMaker.txtMenu.Text + '(id) {');
|
||||
eStr.Add(' ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, MenuPos' + frmMenuMaker.txtMenu.Text + ' = 0)');
|
||||
eStr.Add(' return PLUGIN_HANDLED');
|
||||
eStr.Add('}');
|
||||
eStr.Add('');
|
||||
eStr.Add('public ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, position) {');
|
||||
if frmMenuMaker.chkComments.Checked then
|
||||
eStr.Add(' // Menu stuff //');
|
||||
eStr.Add(' if (position < 0) { return 0; }');
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' new i, k');
|
||||
eStr.Add(' new MenuBody[255]');
|
||||
eStr.Add(' new CurrentKey = ' + IntToStr(ePlayersFrom -1));
|
||||
eStr.Add(' new Start = position * ' + IntToStr(ePlayersTo - ePlayersFrom));
|
||||
eStr.Add(' new Num');
|
||||
eStr.Add(' new UserName[32]');
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' get_players(MenuPlayers' + frmMenuMaker.txtMenu.Text + ', Num)');
|
||||
eStr.Add(' if (Start >= Num) { Start = position = MenuPos' + frmMenuMaker.txtMenu.Text + ' = 0; }');
|
||||
eCurLine := frmMenuMaker.GetColoredMenu;
|
||||
eCurLine := Copy(eCurLine, 1, Pos('$players', eCurLine) -3);
|
||||
Insert('\R%d/%d^n\w', eCurLine, Pos('^n', eCurLine));
|
||||
eStr.Add(' new Len = format(MenuBody, 255, "' + eCurLine + '", position+1, (Num / ' + IntToStr(ePlayersTo - ePlayersFrom) + ' + ((Num % ' + IntToStr(ePlayersTo - ePlayersFrom) + ') ? 1 : 0 )) )');
|
||||
eStr.Add(' new End = Start + ' + IntToStr(ePlayersTo - ePlayersFrom));
|
||||
if eExit = 0 then
|
||||
eStr.Add(' new Keys = (1<<9)')
|
||||
else
|
||||
eStr.Add(' new Keys = (1<<' + IntToStr(eExit -1) + ')');
|
||||
eStr.Add(' if (End > Num) { End = Num; }');
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' for(i=Start;i<End;i++) {');
|
||||
eStr.Add(' k = MenuPlayers' + frmMenuMaker.txtMenu.Text + '[i]');
|
||||
eStr.Add(' get_user_name(k, UserName, 31)');
|
||||
// Any conditions?
|
||||
if (frmMenuMaker.chkImmunity.Checked) and (frmMenuMaker.chkAlive.Checked) then
|
||||
eStr.Add(' if ((get_user_flags(k) & ADMIN_IMMUNITY) || !is_user_alive(k)) {')
|
||||
else if (frmMenuMaker.chkImmunity.Checked) then
|
||||
eStr.Add(' if (get_user_flags(k) & ADMIN_IMMUNITY) {')
|
||||
else if (frmMenuMaker.chkAlive.Checked) then
|
||||
eStr.Add(' if (!is_user_alive(k)) {');
|
||||
if (frmMenuMaker.chkImmunity.Checked) or (frmMenuMaker.chkAlive.Checked) then begin
|
||||
eStr.Add(' CurrentKey++');
|
||||
eStr.Add(' Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, True) + '", CurrentKey, UserName)');
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' else {');
|
||||
eStr.Add(' Keys |= (1<<CurrentKey++)');
|
||||
eStr.Add(' Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, False) + '", CurrentKey, UserName)');
|
||||
eStr.Add(' }');
|
||||
end
|
||||
else begin
|
||||
eStr.Add(' Keys |= (i<<CurrentKey++)');
|
||||
eStr.Add(' Len += format(MenuBody[Len], (255-Len), "' + PrepareItem(ePlayerFormat, False) + '", CurrentKey, UserName)');
|
||||
end;
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' if (End != Num) {');
|
||||
eStr.Add(' format(MenuBody[Len], (255-Len), "^n\w' + eNextText + '^n%s", position ? "\w' + eBackText + '" : "\w' + eExitText + '")');
|
||||
eStr.Add(' Keys |= (1<<' + IntToStr(eNext -1) + ')');
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' else {');
|
||||
eStr.Add(' format(MenuBody[Len], (255-Len), "^n%s", position ? "\w' + eBackText + '" : "\w' + eExitText + '")');
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' show_menu(id, Keys, MenuBody, -1)');
|
||||
eStr.Add(' return 0');
|
||||
eStr.Add('}');
|
||||
eStr.Add('');
|
||||
eStr.Add('public Pressed' + frmMenuMaker.txtMenu.Text + '(id, key) {');
|
||||
eStr.Add(' switch (key) {');
|
||||
if frmMenuMaker.chkComments.Checked then begin
|
||||
if eNext <> 0 then
|
||||
eStr.Add(' case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ') // More Option')
|
||||
else
|
||||
eStr.Add(' case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ') // More Option');
|
||||
|
||||
if eExit <> 0 then
|
||||
eStr.Add(' case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ') // Back Option')
|
||||
else
|
||||
eStr.Add(' case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ') // Back Option');
|
||||
end
|
||||
else begin
|
||||
if eNext <> 0 then
|
||||
eStr.Add(' case ' + IntToStr(eNext -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ')')
|
||||
else
|
||||
eStr.Add(' case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, ++MenuPos' + frmMenuMaker.txtMenu.Text + ')');
|
||||
if eExit <> 0 then
|
||||
eStr.Add(' case ' + IntToStr(eExit -1) + ': ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ')')
|
||||
else
|
||||
eStr.Add(' case 9: ShowMenu' + frmMenuMaker.txtMenu.Text + '(id, --MenuPos' + frmMenuMaker.txtMenu.Text + ')');
|
||||
end;
|
||||
eStr.Add(' default: {');
|
||||
if frmMenuMaker.chkComments.Checked then
|
||||
eStr.Add(' // Get User ID and Username');
|
||||
eStr.Add(' new PlayerID = MenuPlayers' + frmMenuMaker.txtMenu.Text + '[MenuPos' + frmMenuMaker.txtMenu.Text + ' * ' + IntToStr(ePlayersTo - ePlayersFrom) + ' + key]');
|
||||
eStr.Add(' new UserName[32]');
|
||||
eStr.Add(' get_user_name(PlayerID, UserName, 31)');
|
||||
if frmMenuMaker.chkComments.Checked then
|
||||
eStr.Add(' // Do actions here')
|
||||
else
|
||||
eStr.Add(' ');
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' }');
|
||||
eStr.Add(' return PLUGIN_HANDLED');
|
||||
eStr.Add('}');
|
||||
frmMain.sciEditor.Lines.Text := frmMain.sciEditor.Lines.Text + #13 + eStr.Text;
|
||||
except
|
||||
MessageBox(frmMenuMaker.Handle, PChar('An error occured while inserting code!'), 'Warning', MB_ICONWARNING);
|
||||
end;
|
||||
frmMain.SetModified;
|
||||
eStr.Free;
|
||||
end;
|
||||
|
||||
{ Functions }
|
||||
|
||||
function GetFirst(eStart: String; eSearchMain: Boolean): Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
eStart := LowerCase(Trim(eStart));
|
||||
Result := -1;
|
||||
if eSearchMain then begin
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
if Pos(eStart, LowerCase(Trim(frmMain.sciEditor.Lines[i]))) = 1 then begin
|
||||
Result := i;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
for i := 0 to frmMenuMaker.rtfEditor.Lines.Count -1 do begin
|
||||
if Pos(eStart, LowerCase(Trim(frmMenuMaker.rtfEditor.Lines[i]))) = 1 then begin
|
||||
Result := i;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetLast(eStart: String; eSearchMain: Boolean): Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
eStart := LowerCase(Trim(eStart));
|
||||
Result := -1;
|
||||
if eSearchMain then begin
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
if Pos(eStart, LowerCase(Trim(frmMain.sciEditor.Lines[i]))) = 1 then
|
||||
Result := i;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
for i := 0 to frmMenuMaker.rtfEditor.Lines.Count -1 do begin
|
||||
if Pos(eStart, LowerCase(Trim(frmMenuMaker.rtfEditor.Lines[i]))) = 1 then
|
||||
Result := i;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function AddIfDoesntExist(eInclude: String): Boolean;
|
||||
var i: integer;
|
||||
eLine: String;
|
||||
begin
|
||||
Result := True;
|
||||
eInclude := RemoveSpaces(LowerCase(eInclude));
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
eLine := LowerCase(RemoveSpaces(frmMain.sciEditor.Lines[i]));
|
||||
eLine := StringReplace(eLine, '<', '', [rfReplaceAll]);
|
||||
eLine := StringReplace(eLine, '>', '', [rfReplaceAll]);
|
||||
eLine := StringReplace(eLine, '"', '', [rfReplaceAll]);
|
||||
if eLine = '#include' + eInclude then begin
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
i := GetLast('#include', True);
|
||||
if i = -1 then
|
||||
i := 0;
|
||||
|
||||
frmMain.sciEditor.Lines.Insert(i, '#include <' + eInclude + '>');
|
||||
end;
|
||||
|
||||
end.
|
||||
649
editor/editor2/UnitFunc.pas
Executable file
649
editor/editor2/UnitFunc.pas
Executable file
@ -0,0 +1,649 @@
|
||||
unit UnitFunc;
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, Classes, IniFiles, Graphics, ScintillaLanguageManager,
|
||||
Windows, Messages, SciLexerMod, tlhelp32, Controls, Forms, SciDocuments;
|
||||
|
||||
procedure Delay(eTime: Integer);
|
||||
function CountChars(eIn: String; eChar: Char): Integer;
|
||||
function Between(eText, eFirst, eSecond: String): String;
|
||||
procedure SendOpen(eFile: String);
|
||||
procedure Load;
|
||||
procedure Save;
|
||||
procedure Apply;
|
||||
function GetConsoleOutput(const Command: String): Boolean;
|
||||
procedure KillIt(dwProcID: DWORD);
|
||||
function GetProcID(sProcName: String): Integer;
|
||||
procedure DoCompile;
|
||||
function ShowSaveDialog(Caption, SaveCaption, CloseCaption: String): Boolean;
|
||||
procedure AppendFileExt;
|
||||
function RemoveSpaces(eInput: String): String;
|
||||
|
||||
var eErrorLine: Integer;
|
||||
eHints, eWarnings, eErrors: Integer;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMain, UnitfrmOptions, UnitfrmAbout,
|
||||
UnitfrmDebug, UnitfrmSaveDialog;
|
||||
|
||||
procedure Delay(eTime: Integer);
|
||||
var i: integer;
|
||||
begin
|
||||
for i := 1 to eTime do begin
|
||||
Sleep(1);
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
end;
|
||||
|
||||
function CountChars(eIn: String; eChar: Char): Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := 0;
|
||||
if Length(eIn) <> 0 then begin
|
||||
for i := 1 to Length(eIn) do begin
|
||||
if eIn[i] = eChar then
|
||||
Inc(Result, 1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function Between(eText, eFirst, eSecond: String): String;
|
||||
var eTemp: String;
|
||||
begin
|
||||
if (Pos(eFirst, eText) = 0) or (Pos(eSecond, eText) = 0) then
|
||||
Result := ''
|
||||
else begin
|
||||
eTemp := eText;
|
||||
Delete(eTemp, 1, Pos(eFirst, eText) + Length(eFirst) - 1);
|
||||
Delete(eTemp, Pos(eSecond, eTemp), Length(eTemp));
|
||||
Result := eTemp;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SendOpen(eFile: String);
|
||||
var HTargetWnd: HWND;
|
||||
ACopyDataStruct: TCopyDataStruct;
|
||||
begin
|
||||
with ACopyDataStruct do
|
||||
begin
|
||||
dwData := 0;
|
||||
cbData := Length(eFile) + 1;
|
||||
lpData := PChar(eFile);
|
||||
end;
|
||||
|
||||
HTargetWnd := FindWindow('TfrmMain', 'AMXX-Edit v2');
|
||||
|
||||
if HTargetWnd <> 0 then
|
||||
SendMessage(HTargetWnd, WM_COPYDATA, 0, LongInt(@ACopyDataStruct));
|
||||
end;
|
||||
|
||||
procedure Load;
|
||||
var eFile: TIniFile;
|
||||
begin
|
||||
if not FileExists(ExtractFilePath(ParamStr(0)) + 'Config.ini') then
|
||||
exit;
|
||||
|
||||
eFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
|
||||
with frmSettings do begin
|
||||
{ Editor }
|
||||
cboFoldingStyle.ItemIndex := eFile.ReadInteger('Editor', 'FoldingStyle', 0);
|
||||
chkAutoComplete.Checked := eFile.ReadBool('Editor', 'Auto-Complete', True);
|
||||
chkHints.Checked := eFile.ReadBool('Editor', 'Hints', True);
|
||||
chkHighlighting.Checked := eFile.ReadBool('Editor', 'Highlighting', True);
|
||||
chkAutoIndent.Checked := eFile.ReadBool('Editor', 'AutoIndent', True);
|
||||
chkBrackets.Checked := eFile.ReadBool('Editor', 'HighlightBrackets', True);
|
||||
{ Directories }
|
||||
txtAMXXPath.Text := eFile.ReadString('Directories', 'AMXX', '');
|
||||
txtHalfLife.Text := eFile.ReadString('Directories', 'Half-Life', '');
|
||||
txtSave.Text := eFile.ReadString('Directories', 'SaveTarget', '');
|
||||
{ Colors }
|
||||
cboComments.Selected := eFile.ReadInteger('Colors', 'Comments', clGreen);
|
||||
cboDirectives.Selected := eFile.ReadInteger('Colors', 'Directives', clTeal);
|
||||
cboOperators.Selected := eFile.ReadInteger('Colors', 'Operators', clNavy);
|
||||
cboStrings.Selected := eFile.ReadInteger('Colors', 'Strings', clBlue);
|
||||
cboKeywords.Selected := eFile.ReadInteger('Colors', 'Keywords', clRed);
|
||||
cboActiveLine.Selected := eFile.ReadInteger('Colors', 'ActiveLine', $00FFE6E6);
|
||||
{ FTP }
|
||||
txtHost.Text := eFile.ReadString('FTP', 'Host', '');
|
||||
txtPort.Text := IntToStr(eFile.ReadInteger('FTP', 'Port', 21));
|
||||
txtUser.Text := eFile.ReadString('FTP', 'Username', '');
|
||||
txtPassword.Text := eFile.ReadString('FTP', 'Password', '');
|
||||
txtStandardDir.Text := eFile.ReadString('FTP', 'DefaultDir', '\');
|
||||
{ View }
|
||||
cboCodeExplorer.ItemIndex := eFile.ReadInteger('View', 'ShowCodeExplorer', 0);
|
||||
chkStatusbar.Checked := eFile.ReadBool('View', 'Statusbar', True);
|
||||
{ Char completer }
|
||||
frmSettings.chkAutoCloseBrackets.Checked := eFile.ReadBool('CharCompleter', 'AutoCloseBrackets', False);
|
||||
frmSettings.chkAutoCloseQuotes.Checked := eFile.ReadBool('CharCompleter', 'AutoCloseQuotes', False);
|
||||
{ Compiler Output }
|
||||
if eFile.ReadBool('View', 'CompileOutputInWindow', True) then
|
||||
frmSettings.optWindow.Checked := True
|
||||
else
|
||||
frmSettings.optList.Checked := True;
|
||||
{ Misc }
|
||||
chkReload.Checked := eFile.ReadBool('Misc', 'AutoReload', True);
|
||||
chkAutoAddPlugins.Checked := eFile.ReadBool('Misc', 'AutoAdd', True);
|
||||
end;
|
||||
eFile.Free;
|
||||
end;
|
||||
|
||||
procedure Save;
|
||||
var eFile: TIniFile;
|
||||
begin
|
||||
eFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
|
||||
with frmSettings do begin
|
||||
{ Editor }
|
||||
eFile.WriteInteger('Editor', 'FoldingStyle', cboFoldingStyle.ItemIndex);
|
||||
eFile.WriteBool('Editor', 'Auto-Complete', chkAutoComplete.Checked);
|
||||
eFile.WriteBool('Editor', 'Hints', chkHints.Checked);
|
||||
eFile.WriteBool('Editor', 'Highlighting', chkHighlighting.Checked);
|
||||
eFile.WriteBool('Editor', 'AutoIndent', chkAutoIndent.Checked);
|
||||
eFile.WriteBool('Editor', 'HighlightBrackets', chkBrackets.Checked);
|
||||
{ Directories }
|
||||
eFile.WriteString('Directories', 'AMXX', txtAMXXPath.Text);
|
||||
eFile.WriteString('Directories', 'Half-Life', txtHalfLife.Text);
|
||||
eFile.WriteString('Directories', 'SaveTarget', txtSave.Text);
|
||||
{ Colors }
|
||||
eFile.WriteInteger('Colors', 'Comments', cboComments.Selected);
|
||||
eFile.WriteInteger('Colors', 'Directives', cboDirectives.Selected);
|
||||
eFile.WriteInteger('Colors', 'Operators', cboOperators.Selected);
|
||||
eFile.WriteInteger('Colors', 'Strings', cboStrings.Selected);
|
||||
eFile.WriteInteger('Colors', 'Keywords', cboKeywords.Selected);
|
||||
eFile.WriteInteger('Colors', 'ActiveLine', cboActiveLine.Selected);
|
||||
{ FTP }
|
||||
eFile.WriteString('FTP', 'Host', txtHost.Text);
|
||||
eFile.WriteString('FTP', 'Port', txtPort.Text);
|
||||
eFile.WriteString('FTP', 'Username', txtUser.Text);
|
||||
eFile.WriteString('FTP', 'Password', txtPassword.Text);
|
||||
eFile.WriteString('FTP', 'DefaultDir', txtStandardDir.Text);
|
||||
{ View }
|
||||
eFile.WriteInteger('View', 'ShowCodeExplorer', cboCodeExplorer.ItemIndex);
|
||||
eFile.WriteBool('View', 'Statusbar', chkStatusbar.Checked);
|
||||
{ Char completer }
|
||||
eFile.WriteBool('CharCompleter', 'AutoCloseBrackets', frmSettings.chkAutoCloseBrackets.Checked);
|
||||
eFile.WriteBool('CharCompleter', 'AutoCloseQuotes', frmSettings.chkAutoCloseQuotes.Checked);
|
||||
{ Compiler Output }
|
||||
eFile.WriteBool('View', 'CompileOutputInWindow', frmSettings.optWindow.Checked);
|
||||
{ Misc }
|
||||
eFile.WriteBool('Misc', 'AutoReload', chkReload.Checked);
|
||||
eFile.WriteBool('Misc', 'AutoAdd', chkAutoAddPlugins.Checked);
|
||||
end;
|
||||
eFile.Free;
|
||||
end;
|
||||
|
||||
procedure Apply;
|
||||
function PathComplete(eInput: String): String;
|
||||
var eBackup: String;
|
||||
begin
|
||||
if Trim(eInput) = '' then
|
||||
exit;
|
||||
|
||||
eBackup := eInput;
|
||||
while Length(eInput) > 1 do
|
||||
Delete(eInput, 1, 1);
|
||||
if eInput <> '\' then
|
||||
Result := eBackup + '\'
|
||||
else
|
||||
Result := eBackup;
|
||||
end;
|
||||
|
||||
begin
|
||||
with frmMain do begin
|
||||
{ Folding }
|
||||
case frmSettings.cboFoldingStyle.ItemIndex of
|
||||
0: sciEditor.FoldMarkerType := sciMarkArrows;
|
||||
1: sciEditor.FoldMarkerType := sciMarkBox;
|
||||
2: sciEditor.FoldMarkerType := sciMarkCircle;
|
||||
3: sciEditor.FoldMarkerType := sciMarkPlusMinus;
|
||||
end;
|
||||
if frmSettings.cboFoldingStyle.ItemIndex = 4 then
|
||||
sciEditor.Folding := sciEditor.Folding - [foldFold]
|
||||
else
|
||||
sciEditor.Folding := sciEditor.Folding + [foldFold];
|
||||
{ Auto Complete }
|
||||
sacComplete.Disabled := not frmSettings.chkAutoComplete.Checked;
|
||||
{ Hints }
|
||||
cltEditor.Disabled := not frmSettings.chkHints.Checked;
|
||||
{ Colors }
|
||||
with sciEditor.LanguageManager.LanguageList.Find('SMALL').Styles do begin
|
||||
TSciStyle(Items[0]).ForeColor := frmSettings.cboComments.Selected;
|
||||
TSciStyle(Items[1]).ForeColor := frmSettings.cboDirectives.Selected;
|
||||
TSciStyle(Items[2]).ForeColor := frmSettings.cboOperators.Selected;
|
||||
TSciStyle(Items[3]).ForeColor := frmSettings.cboStrings.Selected;
|
||||
TSciStyle(Items[4]).ForeColor := frmSettings.cboKeywords.Selected;
|
||||
TSciStyle(Items[5]).ForeColor := frmSettings.cboComments.Selected;
|
||||
TSciStyle(Items[6]).ForeColor := TSciStyle(Items[2]).ForeColor;
|
||||
end;
|
||||
frmMain.sciEditor.Caret.LineBackColor := frmSettings.cboActiveLine.Selected;
|
||||
|
||||
if frmSettings.chkHighlighting.Checked then
|
||||
frmMain.sciEditor.LanguageManager.SelectedLanguage := 'SMALL'
|
||||
else
|
||||
frmMain.sciEditor.LanguageManager.SelectedLanguage := 'null';
|
||||
{ Check directories }
|
||||
frmSettings.txtAMXXPath.Text := PathComplete(frmSettings.txtAMXXPath.Text);
|
||||
frmSettings.txtSave.Text := PathComplete(frmSettings.txtSave.Text);
|
||||
{ View }
|
||||
case frmSettings.cboCodeExplorer.ItemIndex of
|
||||
0: begin
|
||||
frmMain.splFunctions.Visible := True;
|
||||
frmMain.pnlFunctions.Visible := True;
|
||||
frmMain.pnlFunctions.Width := 150;
|
||||
frmMain.pnlSpacerLeft.Cursor := crDefault;
|
||||
end;
|
||||
1: begin
|
||||
frmMain.splFunctions.Visible := False;
|
||||
frmMain.pnlFunctions.Visible := True;
|
||||
frmMain.pnlFunctions.Width := 5;
|
||||
frmMain.pnlSpacerLeft.Cursor := crHSplit;
|
||||
end;
|
||||
2: begin
|
||||
frmMain.pnlFunctions.Visible := False;
|
||||
frmMain.splFunctions.Visible := False;
|
||||
frmMain.pnlSpacerLeft.Cursor := crDefault;
|
||||
end;
|
||||
end;
|
||||
frmMain.sbInfo.Visible := frmSettings.chkStatusbar.Checked;
|
||||
frmMain.sciEditor.BraceHilite := frmSettings.chkBrackets.Checked;
|
||||
{ Char completer }
|
||||
frmMain.sciEditor.AutoCloseBraces := frmSettings.chkAutoCloseBrackets.Checked;
|
||||
frmMain.sciEditor.AutoCloseQuotes := frmSettings.chkAutoCloseQuotes.Checked;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DoAdd(eStream: TMemoryStream);
|
||||
var eStr: TStringList;
|
||||
i: integer;
|
||||
eErrLine: Integer;
|
||||
eType, eBackup, eTemp: String;
|
||||
begin
|
||||
eStr := TStringList.Create;
|
||||
eStr.LoadFromStream(eStream);
|
||||
|
||||
eHints := 0;
|
||||
eWarnings := 0;
|
||||
eErrors := 0;
|
||||
eType := '';
|
||||
eErrorLine := -1;
|
||||
|
||||
for i := 2 to eStr.Count -1 do begin
|
||||
try
|
||||
if eStr[i] <> '' then begin
|
||||
if (Pos(': fatal error', eStr[i]) <> 0) or (Pos(': error', eStr[i]) <> 0) or (Pos(': warning', eStr[i]) <> 0) or (Pos(': hint', eStr[i]) <> 0) then begin
|
||||
eBackup := eStr[i];
|
||||
if (Pos(': fatal error', eStr[i]) <> 0) or (Pos(': error', eStr[i]) <> 0) then begin
|
||||
Inc(eErrors, 1);
|
||||
eType := 'Error';
|
||||
end
|
||||
else if Pos(': warning', eStr[i]) <> 0 then begin
|
||||
Inc(eWarnings, 1);
|
||||
eType := 'Warning';
|
||||
end
|
||||
else if Pos(': hint', eStr[i]) <> 0 then begin
|
||||
Inc(eHints, 1);
|
||||
eType := 'Hint';
|
||||
end;
|
||||
|
||||
eErrLine := -1;
|
||||
while (Pos('(', eStr[i]) <> 1) and (Length(eStr[i]) > 0) do
|
||||
eStr[i] := Copy(eStr[i], 2, Length(eStr[i]));
|
||||
try
|
||||
eTemp := Copy(eStr[i], 2, Pos(')', eStr[i]) -2);
|
||||
if Pos(#32, eTemp) <> 0 then
|
||||
eTemp := Copy(eTemp, 1, Pos(#32, eTemp) -1);
|
||||
eErrLine := StrToInt(eTemp);
|
||||
if (eErrorLine = -1) and (eType = 'Error') then
|
||||
eErrorLine := eErrLine;
|
||||
except
|
||||
if (eErrorLine = -1) and (eType = 'Error') then
|
||||
eErrorLine := frmMain.sciEditor.Lines.Count -1;
|
||||
end;
|
||||
eStr[i] := Copy(eStr[i], 3, Length(eStr[i]));
|
||||
while (Pos(':', eStr[i]) > 3) and (Length(eStr[i]) > 0) do
|
||||
eStr[i] := Copy(eStr[i], 2, Length(eStr[i]));
|
||||
eStr[i] := Copy(eStr[i], 4, Length(eStr[i]));
|
||||
eStr[i] := Copy(eStr[i], Pos(':', eStr[i]) +2, Length(eStr[i]));
|
||||
if Pos(': fatal error', eBackup) <> 0 then
|
||||
eStr[i] := 'Fatal error: ' + eStr[i]
|
||||
else if eStr[i] = '' then
|
||||
eStr[i] := eBackup
|
||||
else
|
||||
eStr[i] := eType + ': ' + eStr[i] + ' on line ' + IntToStr(eErrLine);
|
||||
if frmSettings.optWindow.Checked then begin
|
||||
frmDebug.lblErrors.Caption := ' Errors: ' + IntToStr(eErrors);
|
||||
frmDebug.lblWarnings.Caption := ' Warnings: ' + IntToStr(eWarnings);
|
||||
frmDebug.lblHints.Caption := ' Hints: ' + IntToStr(eHints);
|
||||
end;
|
||||
end
|
||||
else if (eStr[i] = 'Done.') or (Pos(' Error', eStr[i]) <> 0) or (Pos(' Warning', eStr[i]) <> 0) or (Pos(' Hint', eStr[i]) <> 0) then begin
|
||||
if frmSettings.optWindow.Checked then begin
|
||||
if eErrors <> 0 then
|
||||
frmDebug.lblStatus.Caption := ' Done. There are errors.'
|
||||
else if eWarnings <> 0 then
|
||||
frmDebug.lblStatus.Caption := ' Done. There are warnings.'
|
||||
else if eHints <> 0 then
|
||||
frmDebug.lblStatus.Caption := ' Done. There are hints.'
|
||||
else
|
||||
frmDebug.lblStatus.Caption := ' Done.';
|
||||
frmDebug.lblStatus.Font.Style := [fsBold];
|
||||
end
|
||||
else begin
|
||||
if eErrors <> 0 then
|
||||
frmMain.lvDebug.Items.Add.Caption := 'Done. There are errors.'
|
||||
else if eWarnings <> 0 then
|
||||
frmMain.lvDebug.Items.Add.Caption := 'Done. There are warnings.'
|
||||
else if eHints <> 0 then
|
||||
frmMain.lvDebug.Items.Add.Caption := 'Done. There are hints.'
|
||||
else
|
||||
frmMain.lvDebug.Items.Add.Caption := 'Done.';
|
||||
|
||||
if eErrorLine <> -1 then
|
||||
frmMain.ShowErrorLine;
|
||||
eStr.Free;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
if frmSettings.optWindow.Checked then begin
|
||||
frmDebug.lstOutput.Items.Add(eStr[i]);
|
||||
frmDebug.lstOutput.ItemIndex := frmDebug.lstOutput.Items.Count -1;
|
||||
frmDebug.Repaint;
|
||||
end
|
||||
else begin
|
||||
frmMain.lvDebug.Items.Add.Caption := eStr[i];
|
||||
frmMain.lvDebug.ItemIndex := frmDebug.lstOutput.Items.Count -1;
|
||||
frmMain.Repaint;
|
||||
end;
|
||||
end;
|
||||
except
|
||||
// nothing
|
||||
end;
|
||||
end;
|
||||
eStr.Free;
|
||||
end;
|
||||
|
||||
function GetConsoleOutput(const Command: String): Boolean;
|
||||
var
|
||||
StartupInfo: TStartupInfo;
|
||||
ProcessInfo: TProcessInformation;
|
||||
SecurityAttr: TSecurityAttributes;
|
||||
PipeOutputRead: THandle;
|
||||
PipeOutputWrite: THandle;
|
||||
PipeErrorsRead: THandle;
|
||||
PipeErrorsWrite: THandle;
|
||||
Succeed: Boolean;
|
||||
Buffer: array [0..255] of Char;
|
||||
NumberOfBytesRead: DWORD;
|
||||
Stream: TMemoryStream;
|
||||
begin
|
||||
frmDebug.Compiling := True;
|
||||
FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
|
||||
|
||||
FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);
|
||||
SecurityAttr.nLength := SizeOf(SecurityAttr);
|
||||
SecurityAttr.bInheritHandle := True;
|
||||
SecurityAttr.lpSecurityDescriptor := nil;
|
||||
|
||||
CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);
|
||||
CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);
|
||||
|
||||
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
|
||||
StartupInfo.cb:=SizeOf(StartupInfo);
|
||||
StartupInfo.hStdInput := 0;
|
||||
StartupInfo.hStdOutput := PipeOutputWrite;
|
||||
StartupInfo.hStdError := PipeErrorsWrite;
|
||||
StartupInfo.wShowWindow := SW_HIDE;
|
||||
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
|
||||
|
||||
if CreateProcess(nil, PChar(command), nil, nil, true,
|
||||
CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,
|
||||
StartupInfo, ProcessInfo) then begin
|
||||
Result := True;
|
||||
CloseHandle(PipeOutputWrite);
|
||||
CloseHandle(PipeErrorsWrite);
|
||||
|
||||
Stream := TMemoryStream.Create;
|
||||
try
|
||||
while True do begin
|
||||
Succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);
|
||||
if not Succeed then Break;
|
||||
Stream.Write(Buffer, NumberOfBytesRead);
|
||||
end;
|
||||
Stream.Position := 0;
|
||||
DoAdd(Stream);
|
||||
finally
|
||||
Stream.Free;
|
||||
end;
|
||||
CloseHandle(PipeOutputRead);
|
||||
|
||||
try
|
||||
while True do
|
||||
begin
|
||||
Succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);
|
||||
if not Succeed then Break;
|
||||
end;
|
||||
finally
|
||||
end;
|
||||
CloseHandle(PipeErrorsRead);
|
||||
|
||||
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
|
||||
CloseHandle(ProcessInfo.hProcess);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Result := False;
|
||||
CloseHandle(PipeOutputRead);
|
||||
CloseHandle(PipeOutputWrite);
|
||||
CloseHandle(PipeErrorsRead);
|
||||
CloseHandle(PipeErrorsWrite);
|
||||
end;
|
||||
frmDebug.Compiling := False;
|
||||
end;
|
||||
|
||||
|
||||
procedure KillIt(dwProcID: DWORD);
|
||||
var
|
||||
hProcess : Cardinal;
|
||||
begin
|
||||
hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID);
|
||||
TerminateProcess(hProcess, 0);
|
||||
end;
|
||||
|
||||
function GetProcID(sProcName: String): Integer;
|
||||
var
|
||||
hProcSnap: THandle;
|
||||
pe32: TProcessEntry32;
|
||||
begin
|
||||
result := -1;
|
||||
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
|
||||
if hProcSnap = INVALID_HANDLE_VALUE then exit;
|
||||
|
||||
pe32.dwSize := SizeOf(ProcessEntry32);
|
||||
|
||||
if Process32First(hProcSnap, pe32) = true then
|
||||
while Process32Next(hProcSnap, pe32) = true do
|
||||
begin
|
||||
if pos(sProcName, pe32.szExeFile) <> 0 then
|
||||
result := pe32.th32ProcessID;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure DoCompile;
|
||||
var eStr: TStringList;
|
||||
i: integer;
|
||||
eFound: Boolean;
|
||||
begin
|
||||
if (FileExists(frmSettings.txtAMXXPath.Text + 'scripting\amxxsc.exe')) and (FileExists(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini')) then begin
|
||||
if frmMain.dtcEditor.ActiveDocument.IsUntitled then begin
|
||||
if DirectoryExists(frmSettings.txtSave.Text) then
|
||||
frmMain.sdSave.InitialDir := frmSettings.txtSave.Text;
|
||||
|
||||
if frmMain.sdSave.Execute then begin
|
||||
try
|
||||
AppendFileExt;
|
||||
frmMain.dtcEditor.ActiveDocument.Modified := False;
|
||||
frmMain.dtcEditor.ActiveDocument.FileName := frmMain.sdSave.FileName;
|
||||
frmMain.sciEditor.SaveToFile(frmMain.dtcEditor.ActiveDocument.FileName);
|
||||
except
|
||||
// :F
|
||||
end;
|
||||
end
|
||||
else
|
||||
exit;
|
||||
end
|
||||
else
|
||||
frmMain.acSave.Execute;
|
||||
Screen.Cursor := crHourGlass;
|
||||
if frmSettings.chkAutoAddPlugins.Checked then begin
|
||||
eStr := TStringList.Create;
|
||||
eStr.LoadFromFile(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini');
|
||||
eFound := False;
|
||||
for i := 0 to eStr.Count -1 do begin
|
||||
if Pos(ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx'), TrimLeft(eStr[i])) = 1 then
|
||||
eFound := True;
|
||||
end;
|
||||
if not eFound then begin
|
||||
eStr.Add(ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx'));
|
||||
eStr.SaveToFile(frmSettings.txtAMXXPath.Text + 'configs\plugins.ini');
|
||||
end;
|
||||
eStr.Free;
|
||||
end;
|
||||
try
|
||||
frmMain.atbToolBar.RecreateControls;
|
||||
except
|
||||
// :F
|
||||
end;
|
||||
|
||||
if frmSettings.optWindow.Checked then begin
|
||||
frmDebug.lblFile.Caption := ' File: ' + ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName);
|
||||
frmDebug.lblStatus.Font.Style := [];
|
||||
frmDebug.lblStatus.Caption := ' Status: Compiling...';
|
||||
frmDebug.lblHints.Caption := ' Hints: 0';
|
||||
frmDebug.lblWarnings.Caption := ' Warnings: 0';
|
||||
frmDebug.lblErrors.Caption := ' Errors: 0';
|
||||
frmDebug.lstOutput.Items.Text := 'Compiler Output:';
|
||||
frmDebug.Show;
|
||||
frmDebug.Repaint;
|
||||
end
|
||||
else begin
|
||||
frmMain.lvDebug.Clear;
|
||||
frmMain.lvDebug.Items.Add.Caption := 'Compiling ' + ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName) + '...';
|
||||
frmMain.lvDebug.Visible := True;
|
||||
frmMain.Repaint;
|
||||
end;
|
||||
GetConsoleOutput(frmSettings.txtAMXXPath.Text + 'scripting\amxxsc.exe ' +
|
||||
'"' + frmMain.dtcEditor.ActiveDocument.FileName + '" ' +
|
||||
'"-o' + frmSettings.txtAMXXPath.Text + 'plugins\' + ChangeFileExt(ExtractFileName(frmMain.dtcEditor.ActiveDocument.FileName), '.amxx') + '"');
|
||||
Screen.Cursor := crDefault;
|
||||
end
|
||||
else
|
||||
MessageBox(frmMain.Handle, 'Couldn''t find amxxsc.exe or plugins.ini. Check your settings and try again.', 'Error', MB_ICONERROR);
|
||||
end;
|
||||
|
||||
function ShowSaveDialog(Caption, SaveCaption, CloseCaption: String): Boolean;
|
||||
function TabByName(eName: String): TSciDoc;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := nil;
|
||||
for i := 0 to frmMain.dtcEditor.Count -1 do begin
|
||||
if frmMain.dtcEditor.Tabs[i] = eName then
|
||||
Result := frmMain.dtcEditor.Document[i];
|
||||
end;
|
||||
end;
|
||||
|
||||
var i: integer;
|
||||
eStr: TStringList;
|
||||
begin
|
||||
eStr := TStringList.Create;
|
||||
frmSaveDialog.Caption := Caption;
|
||||
frmSaveDialog.SaveCaption := SaveCaption;
|
||||
frmSaveDialog.CloseCaption := CloseCaption;
|
||||
frmSaveDialog.cmdSave.Caption := CloseCaption;
|
||||
frmSaveDialog.lstFiles.Clear;
|
||||
for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
|
||||
if (frmMain.dtcEditor.Document[i].Modified) then
|
||||
frmSaveDialog.lstFiles.Items.Add(frmMain.dtcEditor.Tabs[i])
|
||||
else if (frmMain.dtcEditor.Document[i].IsUntitled) then
|
||||
frmSaveDialog.lstFiles.Items.Add(frmMain.dtcEditor.Tabs[i]);
|
||||
end;
|
||||
|
||||
if (frmMain.dtcEditor.Tabs.Count = 1) and (frmMain.sciEditor.Lines.Text = '') then
|
||||
frmSaveDialog.lstFiles.Clear;
|
||||
|
||||
if frmSaveDialog.lstFiles.Items.Count = 0 then begin
|
||||
Result := True;
|
||||
if frmSettings.chkReload.Checked then begin
|
||||
for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
|
||||
if not frmMain.dtcEditor.Document[i].IsUntitled then
|
||||
eStr.Add(frmMain.dtcEditor.Document[i].FileName);
|
||||
end;
|
||||
eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Files.ini');
|
||||
end;
|
||||
eStr.Free;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if frmSaveDialog.ShowModal = mrOk then begin
|
||||
for i := 0 to frmSaveDialog.lstFiles.Items.Count -1 do begin
|
||||
if frmSaveDialog.lstFiles.Checked[i] then begin
|
||||
if (TabByName(frmSaveDialog.lstFiles.Items[i]).IsUntitled) then begin
|
||||
frmMain.sdSave.Title := Format('Save %s (Tab %s)', [TabByName(frmSaveDialog.lstFiles.Items[i]).FileName, IntToStr(TabByName(frmSaveDialog.lstFiles.Items[i]).Index +1)]);
|
||||
if frmMain.sdSave.Execute then begin
|
||||
AppendFileExt;
|
||||
frmMain.dtcEditor.Activate(TabByName(frmSaveDialog.lstFiles.Items[i]).Index);
|
||||
frmMain.sciEditor.SaveToFile(frmMain.sdSave.FileName);
|
||||
frmMain.dtcEditor.ActiveDocument.FileName := frmMain.sdSave.FileName;
|
||||
frmMain.SetSaved;
|
||||
frmMain.sbInfo.Panels[1].Text := '';
|
||||
end
|
||||
else begin
|
||||
frmMain.sdSave.Title := 'Save...';
|
||||
eStr.Free;
|
||||
Result := False;
|
||||
exit;
|
||||
end;
|
||||
frmMain.sdSave.Title := 'Save...';
|
||||
end
|
||||
else begin
|
||||
frmMain.dtcEditor.Activate(TabByName(frmSaveDialog.lstFiles.Items[i]).Index);
|
||||
frmMain.sciEditor.SaveToFile(TabByName(frmSaveDialog.lstFiles.Items[i]).FileName);
|
||||
frmMain.dtcEditor.ActiveDocument.Modified := False;
|
||||
frmMain.SetSaved;
|
||||
frmMain.sbInfo.Panels[1].Text := '';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to frmMain.dtcEditor.Tabs.Count -1 do begin
|
||||
if (not frmMain.dtcEditor.Document[i].IsUntitled) and (not frmMain.dtcEditor.Document[i].Modified) then
|
||||
eStr.Add(frmMain.dtcEditor.Document[i].FileName);
|
||||
end;
|
||||
|
||||
if frmSettings.chkReload.Checked then
|
||||
eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Files.ini');
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
Result := False;
|
||||
eStr.Free;
|
||||
end;
|
||||
|
||||
procedure AppendFileExt;
|
||||
var eExt: String;
|
||||
begin
|
||||
eExt := LowerCase(ExtractFileExt(frmMain.sdSave.FileName));
|
||||
if (frmMain.sdSave.FilterIndex = 1) and (eExt <> '.sma') then
|
||||
frmMain.sdSave.FileName := frmMain.sdSave.FileName + '.sma'
|
||||
else if (frmMain.sdSave.FilterIndex = 2) and (eExt <> '.inc') then
|
||||
frmMain.sdSave.FileName := frmMain.sdSave.FileName + '.inc';
|
||||
end;
|
||||
|
||||
function RemoveSpaces(eInput: String): String;
|
||||
begin
|
||||
eInput := StringReplace(eInput, ' ', '', [rfReplaceAll]);
|
||||
eInput := StringReplace(eInput, ' ', '', [rfReplaceAll]);
|
||||
Result := eInput;
|
||||
end;
|
||||
|
||||
end.
|
||||
24
editor/editor2/UnitHowToMakePlayerMenu.pas
Executable file
24
editor/editor2/UnitHowToMakePlayerMenu.pas
Executable file
@ -0,0 +1,24 @@
|
||||
unit UnitHowToMakePlayerMenu;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, CorelButton;
|
||||
|
||||
type
|
||||
TfrmHowToMakePlayerMenu = class(TForm)
|
||||
lblHowTo: TLabel;
|
||||
txtTutorial: TMemo;
|
||||
cmdOK: TCorelButton;
|
||||
cmdExample: TCorelButton;
|
||||
end;
|
||||
|
||||
var
|
||||
frmHowToMakePlayerMenu: TfrmHowToMakePlayerMenu;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
end.
|
||||
60
editor/editor2/UnitReadThread.pas
Executable file
60
editor/editor2/UnitReadThread.pas
Executable file
@ -0,0 +1,60 @@
|
||||
unit UnitReadThread;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Graphics;
|
||||
|
||||
type
|
||||
TReadThread = class(TThread)
|
||||
public
|
||||
ReadTCP: Boolean;
|
||||
protected
|
||||
Read: String;
|
||||
procedure Execute; override;
|
||||
procedure AddRead;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmSockets;
|
||||
|
||||
{ TReadThread }
|
||||
|
||||
procedure TReadThread.AddRead;
|
||||
begin
|
||||
frmSocketTerminal.OnRead(Read);
|
||||
end;
|
||||
|
||||
procedure TReadThread.Execute;
|
||||
begin
|
||||
if ReadTCP then begin
|
||||
frmSocketTerminal.IdTCPClient.ReadTimeout := 50;
|
||||
repeat
|
||||
try
|
||||
Read := frmSocketTerminal.IdTCPClient.ReadLn;
|
||||
Synchronize(AddRead);
|
||||
except
|
||||
// nothing
|
||||
end;
|
||||
until (Terminated) or (not frmSocketTerminal.IdTCPClient.Connected);
|
||||
end
|
||||
else begin
|
||||
frmSocketTerminal.IdUDPClient.ReceiveTimeout := 50;
|
||||
repeat
|
||||
try
|
||||
Read := frmSocketTerminal.IdUDPClient.ReceiveString;
|
||||
if Read <> '' then
|
||||
Synchronize(AddRead);
|
||||
except
|
||||
// nothing
|
||||
end;
|
||||
until (Terminated) or (not frmSocketTerminal.IdUDPClient.Active);
|
||||
end;
|
||||
Free;
|
||||
Read := 'fu@u';
|
||||
Synchronize(AddRead);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
32
editor/editor2/UnitfrmAbout.pas
Executable file
32
editor/editor2/UnitfrmAbout.pas
Executable file
@ -0,0 +1,32 @@
|
||||
unit UnitfrmAbout;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, ShellAPI, TFlatSpeedButtonUnit;
|
||||
|
||||
type
|
||||
TfrmAbout = class(TForm)
|
||||
pnlInfo: TPanel;
|
||||
imgAMXX: TImage;
|
||||
lblCopyright: TLabel;
|
||||
lblComments: TLabel;
|
||||
lblCoder: TLabel;
|
||||
FlatSpeedButton1: TFlatSpeedButton;
|
||||
procedure imgAMXXClick(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
frmAbout: TfrmAbout;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmAbout.imgAMXXClick(Sender: TObject);
|
||||
begin
|
||||
ShellExecute(Handle, 'open', 'http://www.amxmodx.org/', nil, nil, SW_SHOW);
|
||||
end;
|
||||
|
||||
end.
|
||||
91
editor/editor2/UnitfrmDebug.pas
Executable file
91
editor/editor2/UnitfrmDebug.pas
Executable file
@ -0,0 +1,91 @@
|
||||
unit UnitfrmDebug;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms;
|
||||
|
||||
type
|
||||
TfrmDebug = class(TForm)
|
||||
cmdMore: TButton;
|
||||
pnlCompile: TPanel;
|
||||
lblFile: TStaticText;
|
||||
lblStatus: TStaticText;
|
||||
lblHints: TStaticText;
|
||||
lblWarnings: TStaticText;
|
||||
lblErrors: TStaticText;
|
||||
cmdCancelOkay: TButton;
|
||||
bvlDelimeter: TBevel;
|
||||
lstOutput: TListBox;
|
||||
procedure cmdMoreClick(Sender: TObject);
|
||||
procedure cmdCancelOkayClick(Sender: TObject);
|
||||
procedure lstOutputDblClick(Sender: TObject);
|
||||
private
|
||||
FCompiling: Boolean;
|
||||
procedure SetCompiling(const Value: Boolean);
|
||||
public
|
||||
property Compiling: Boolean read FCompiling write SetCompiling;
|
||||
end;
|
||||
|
||||
var
|
||||
frmDebug: TfrmDebug;
|
||||
|
||||
const DEFAULT_HEIGHT = 165;
|
||||
MAX_HEIGHT = 277;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMain, UnitFunc, UnitfrmOptions;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmDebug.cmdMoreClick(Sender: TObject);
|
||||
begin
|
||||
if Height = DEFAULT_HEIGHT then begin
|
||||
Height := MAX_HEIGHT;
|
||||
cmdMore.Caption := '<< Compiler Output';
|
||||
end
|
||||
else begin
|
||||
Height := DEFAULT_HEIGHT;
|
||||
cmdMore.Caption := 'Compiler Output >>';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDebug.SetCompiling(const Value: Boolean);
|
||||
begin
|
||||
FCompiling := Value;
|
||||
if Value then
|
||||
cmdCancelOkay.Caption := 'Cancel'
|
||||
else
|
||||
cmdCancelOkay.Caption := 'Close';
|
||||
end;
|
||||
|
||||
procedure TfrmDebug.cmdCancelOkayClick(Sender: TObject);
|
||||
var i: integer;
|
||||
begin
|
||||
if Compiling then begin
|
||||
i := GetProcId('amxxsc.exe');
|
||||
if i <> -1 then
|
||||
KillIt(i);
|
||||
Compiling := False;
|
||||
end
|
||||
else begin
|
||||
Hide;
|
||||
frmMain.Show;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDebug.lstOutputDblClick(Sender: TObject);
|
||||
begin
|
||||
if lstOutput.ItemIndex <> -1 then begin
|
||||
if Pos('Warning', lstOutput.Items[lstOutput.ItemIndex]) = 1 then
|
||||
MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Warning', MB_ICONWARNING)
|
||||
else if Pos('Error', lstOutput.Items[lstOutput.ItemIndex]) = 1 then
|
||||
MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Error', MB_ICONERROR)
|
||||
else
|
||||
MessageBox(Handle, PChar(lstOutput.Items[lstOutput.ItemIndex]), 'Information', MB_ICONINFORMATION)
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
48
editor/editor2/UnitfrmGoToLine.pas
Executable file
48
editor/editor2/UnitfrmGoToLine.pas
Executable file
@ -0,0 +1,48 @@
|
||||
unit UnitfrmGoToLine;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, TFlatSpeedButtonUnit, TFlatEditUnit;
|
||||
|
||||
type
|
||||
TfrmGoToLine = class(TForm)
|
||||
lblInfo: TLabel;
|
||||
txtLine: TFlatEdit;
|
||||
cmdOK: TFlatSpeedButton;
|
||||
cmdCancel: TFlatSpeedButton;
|
||||
procedure cmdOKClick(Sender: TObject);
|
||||
procedure txtLineKeyPress(Sender: TObject; var Key: Char);
|
||||
end;
|
||||
|
||||
var
|
||||
frmGoToLine: TfrmGoToLine;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMain;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmGoToLine.cmdOKClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
if (StrToInt(txtLine.Text) < 0) or (StrToInt(txtLine.Text) > frmMain.sciEditor.Lines.Count) then
|
||||
raise Exception.Create('Invalid Line')
|
||||
else
|
||||
ModalResult := mrOK;
|
||||
except
|
||||
MessageBox(Handle, 'Invalid value. Check the entered line and press OK again.', 'Error', MB_ICONERROR);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGoToLine.txtLineKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then begin
|
||||
cmdOk.Click;
|
||||
Key := #0;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
66
editor/editor2/UnitfrmLoopGenerator.pas
Executable file
66
editor/editor2/UnitfrmLoopGenerator.pas
Executable file
@ -0,0 +1,66 @@
|
||||
unit UnitfrmLoopGenerator;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, TFlatRadioButtonUnit, TFlatEditUnit,
|
||||
TFlatButtonUnit;
|
||||
|
||||
type
|
||||
TfrmLoopGenerator = class(TForm)
|
||||
optWhile: TFlatRadioButton;
|
||||
pnlWhileCondition: TPanel;
|
||||
lblWhileCondition: TLabel;
|
||||
txtWhileCondition: TFlatEdit;
|
||||
optFor: TFlatRadioButton;
|
||||
pnlForLoop: TPanel;
|
||||
lblForVariable: TLabel;
|
||||
txtVariable: TFlatEdit;
|
||||
lblForCondition: TLabel;
|
||||
txtForCondition: TFlatEdit;
|
||||
Label1: TLabel;
|
||||
txtForAction: TFlatEdit;
|
||||
cmdGenerate: TFlatButton;
|
||||
procedure txtVariableKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure txtWhileConditionKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure cmdGenerateClick(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
frmLoopGenerator: TfrmLoopGenerator;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmLoopGenerator.txtVariableKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key = #32 then
|
||||
Key := #0;
|
||||
end;
|
||||
|
||||
procedure TfrmLoopGenerator.txtWhileConditionKeyDown(Sender: TObject;
|
||||
var Key: Word; Shift: TShiftState);
|
||||
begin
|
||||
if Key = 13 then
|
||||
cmdGenerate.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmLoopGenerator.cmdGenerateClick(Sender: TObject);
|
||||
begin
|
||||
if (txtWhileCondition.Text = '') and (optWhile.Checked) then
|
||||
MessageBox(Handle, 'You forgot to enter the while condition', 'Warning', MB_ICONWARNING)
|
||||
else if (optFor.Checked) then begin
|
||||
if (txtVariable.Text = '') or (txtForCondition.Text = '') or (txtForAction.Text = '') then
|
||||
MessageBox(Handle, 'You must fill out each field to generate a FOR-loop.', 'Warning', MB_ICONWARNING)
|
||||
else
|
||||
ModalResult := mrOk;
|
||||
end
|
||||
else
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
end.
|
||||
5807
editor/editor2/UnitfrmMain.dfm
Executable file
5807
editor/editor2/UnitfrmMain.dfm
Executable file
File diff suppressed because it is too large
Load Diff
1170
editor/editor2/UnitfrmMain.pas
Executable file
1170
editor/editor2/UnitfrmMain.pas
Executable file
File diff suppressed because it is too large
Load Diff
461
editor/editor2/UnitfrmMenuMaker.pas
Executable file
461
editor/editor2/UnitfrmMenuMaker.pas
Executable file
@ -0,0 +1,461 @@
|
||||
unit UnitfrmMenuMaker;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, TFlatMemoUnit, XPStyleActnCtrls, ActnList,
|
||||
ActnMan, ToolWin, ActnCtrls, ComCtrls, CorelButton, ImgList,
|
||||
TFlatEditUnit, TFlatCheckBoxUnit;
|
||||
|
||||
type
|
||||
TfrmMenuMaker = class(TForm)
|
||||
pnlButtons: TPanel;
|
||||
cmdCancel: TCorelButton;
|
||||
ilButtons: TImageList;
|
||||
amButtons: TActionManager;
|
||||
acPaste: TAction;
|
||||
acCopy: TAction;
|
||||
acCut: TAction;
|
||||
acClear: TAction;
|
||||
acMenu: TAction;
|
||||
acGrey: TAction;
|
||||
acRed: TAction;
|
||||
acWhite: TAction;
|
||||
acYellow: TAction;
|
||||
cmdNext: TCorelButton;
|
||||
nbkPages: TNotebook;
|
||||
atbButtons: TActionToolBar;
|
||||
rtfEditor: TRichEdit;
|
||||
pnlSettings: TPanel;
|
||||
chkRegisterMenuCommand: TFlatCheckBox;
|
||||
chkAddComment: TFlatCheckBox;
|
||||
txtKeys: TFlatEdit;
|
||||
lblKeys: TLabel;
|
||||
bvlSpace: TBevel;
|
||||
lblSettings: TLabel;
|
||||
lblName: TLabel;
|
||||
txtMenuName: TFlatEdit;
|
||||
txtTime: TFlatEdit;
|
||||
chkUseTime: TFlatCheckBox;
|
||||
chkAppendOnlyMenuText: TFlatCheckBox;
|
||||
lblNote: TLabel;
|
||||
lblSettingsPlayers: TLabel;
|
||||
pnlSettingsPlayers: TPanel;
|
||||
lblMenu: TLabel;
|
||||
txtMenu: TFlatEdit;
|
||||
lblHelp: TLabel;
|
||||
chkAlive: TFlatCheckBox;
|
||||
bvlSpace2: TBevel;
|
||||
chkRegister: TFlatCheckBox;
|
||||
chkComments: TFlatCheckBox;
|
||||
chkImmunity: TFlatCheckBox;
|
||||
procedure acCopyExecute(Sender: TObject);
|
||||
procedure acCutExecute(Sender: TObject);
|
||||
procedure acPasteExecute(Sender: TObject);
|
||||
procedure acClearExecute(Sender: TObject);
|
||||
procedure acYellowExecute(Sender: TObject);
|
||||
procedure acWhiteExecute(Sender: TObject);
|
||||
procedure acRedExecute(Sender: TObject);
|
||||
procedure acGreyExecute(Sender: TObject);
|
||||
procedure txtKeysChange(Sender: TObject);
|
||||
procedure cmdCancelClick(Sender: TObject);
|
||||
procedure cmdNextClick(Sender: TObject);
|
||||
procedure rtfEditorKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure rtfEditorKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure rtfEditorMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure rtfEditorMouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure chkUseTimeClick(Sender: TObject);
|
||||
procedure txtMenuNameKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure chkAppendOnlyMenuTextClick(Sender: TObject);
|
||||
procedure txtTimeChange(Sender: TObject);
|
||||
procedure rtfEditorChange(Sender: TObject);
|
||||
procedure acMenuExecute(Sender: TObject);
|
||||
procedure lblHelpMouseEnter(Sender: TObject);
|
||||
procedure lblHelpMouseLeave(Sender: TObject);
|
||||
procedure lblHelpClick(Sender: TObject);
|
||||
private
|
||||
Editing: Boolean;
|
||||
FDefaultMenu: Boolean;
|
||||
procedure SetDefaultMenu(const Value: Boolean);
|
||||
public
|
||||
property DefaultMenu: Boolean read FDefaultMenu write SetDefaultMenu;
|
||||
function GetColoredMenu: String;
|
||||
procedure SetButton(Action: TAction);
|
||||
procedure UpdateCurColor;
|
||||
procedure Reset;
|
||||
end;
|
||||
|
||||
var
|
||||
frmMenuMaker: TfrmMenuMaker;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitAddMenu, UnitfrmSelectMenu, UnitfrmMain, UnitHowToMakePlayerMenu;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmMenuMaker.acCopyExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.CopyToClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acCutExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.CutToClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acPasteExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.PasteFromClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acClearExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.Clear;
|
||||
rtfEditor.SelAttributes.Color := clWhite;
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acYellowExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.SelAttributes.Color := clYellow;
|
||||
SetButton(acYellow);
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acWhiteExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.SelAttributes.Color := clWhite;
|
||||
SetButton(acWhite);
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acRedExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.SelAttributes.Color := clRed;
|
||||
SetButton(acRed);
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acGreyExecute(Sender: TObject);
|
||||
begin
|
||||
rtfEditor.SelAttributes.Color := clGray;
|
||||
SetButton(acGrey);
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.SetButton(Action: TAction);
|
||||
begin
|
||||
if Action <> acYellow then
|
||||
acYellow.Checked := False;
|
||||
if Action <> acWhite then
|
||||
acWhite.Checked := False;
|
||||
if Action <> acRed then
|
||||
acRed.Checked := False;
|
||||
if Action <> acGrey then
|
||||
acGrey.Checked := False;
|
||||
Action.Checked := True;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.txtKeysChange(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
StrToInt(Trim((Sender As TFlatEdit).Text));
|
||||
except
|
||||
if Sender = txtKeys then begin
|
||||
(Sender As TFlatEdit).Text := '1';
|
||||
SysUtils.Beep;
|
||||
end
|
||||
else
|
||||
(Sender As TFlatEdit).Text := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.cmdCancelClick(Sender: TObject);
|
||||
begin
|
||||
if nbkPages.PageIndex = 0 then
|
||||
ModalResult := mrCancel
|
||||
else begin
|
||||
nbkPages.PageIndex := 0;
|
||||
if not DefaultMenu then begin
|
||||
lblNote.Visible := True;
|
||||
lblHelp.Visible := True;
|
||||
end;
|
||||
cmdCancel.Caption := 'Cancel';
|
||||
cmdNext.Caption := '&Next >';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.cmdNextClick(Sender: TObject);
|
||||
function IsNumeric(eChar: Char): Boolean;
|
||||
begin
|
||||
Result := Pos(eChar, '0123456789') <> 0;
|
||||
end;
|
||||
var i: integer;
|
||||
eColoredMenu: String;
|
||||
begin
|
||||
if Editing then begin
|
||||
eColoredMenu := GetColoredMenu;
|
||||
frmMain.sciEditor.Lines[frmSelectMenu.eLines[frmSelectMenu.GetItemIndex]] := StringReplace(frmMain.sciEditor.Lines[frmSelectMenu.eLines[frmSelectMenu.GetItemIndex]], '"' + frmSelectMenu.eMenuStr[frmSelectMenu.GetItemIndex] + '"', '"' + eColoredMenu + '"', []);
|
||||
Editing := False;
|
||||
ModalResult := mrOk;
|
||||
end
|
||||
else if nbkPages.PageIndex = 0 then begin // Editor
|
||||
if DefaultMenu then begin
|
||||
txtKeys.Text := '0';
|
||||
for i := 0 to rtfEditor.Lines.Count -1 do begin
|
||||
if Length(rtfEditor.Lines[i]) <> 0 then begin
|
||||
if IsNumeric(rtfEditor.Lines[i][1]) then
|
||||
txtKeys.Text := txtKeys.Text + rtfEditor.Lines[i][1];
|
||||
end;
|
||||
end;
|
||||
if Length(txtKeys.Text) <> 1 then
|
||||
txtKeys.Text := Copy(txtKeys.Text, 2, Length(txtKeys.Text));
|
||||
nbkPages.PageIndex := 1;
|
||||
end
|
||||
else begin
|
||||
if Pos('$players', LowerCase(rtfEditor.Lines.Text)) = 0 then begin
|
||||
MessageBox(Handle, 'You forgot to set the players.', 'Warning', MB_ICONWARNING);
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (Pos('$next', LowerCase(rtfEditor.Lines.Text)) = 0) and (Pos('$back', LowerCase(rtfEditor.Lines.Text)) = 0) then
|
||||
MessageBox(Handle, 'You should set a "Next" and a "Back" key.', 'Warning', MB_ICONWARNING)
|
||||
else if Pos('$next', LowerCase(rtfEditor.Lines.Text)) = 0 then
|
||||
MessageBox(Handle, 'You should set a "Next"-key.', 'Warning', MB_ICONWARNING)
|
||||
else if Pos('$exitorback', LowerCase(rtfEditor.Lines.Text)) = 0 then
|
||||
MessageBox(Handle, 'You should set a "Back"-key.', 'Warning', MB_ICONWARNING);
|
||||
|
||||
nbkPages.PageIndex := 2;
|
||||
end;
|
||||
cmdCancel.Caption := '< &Back';
|
||||
cmdNext.Caption := 'Finish';
|
||||
end
|
||||
else if nbkPages.PageIndex = 1 then begin // Default finish
|
||||
if (txtMenuName.Text = '') and (not chkAppendOnlyMenuText.Checked) then
|
||||
MessageBox(Handle, 'Invalid menu name.', 'Warning', MB_ICONWARNING)
|
||||
else begin
|
||||
Screen.Cursor := crHourGlass;
|
||||
if AddMenu then
|
||||
ModalResult := mrOk
|
||||
else
|
||||
MessageBox(Handle, 'Menu already exists. Please choose another name.', 'Warning', MB_ICONWARNING);
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
end
|
||||
else begin // Player finish
|
||||
if (txtMenu.Text = '') then
|
||||
MessageBox(Handle, 'Invalid menu name.', 'Warning', MB_ICONWARNING)
|
||||
else begin
|
||||
if AddPlayerMenu then
|
||||
ModalResult := mrOk;
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
end;
|
||||
lblNote.Visible := False;
|
||||
lblHelp.Visible := False;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.UpdateCurColor;
|
||||
begin
|
||||
case rtfEditor.SelAttributes.Color of
|
||||
clYellow: SetButton(acYellow);
|
||||
clWhite: SetButton(acWhite);
|
||||
clRed: SetButton(acRed);
|
||||
clGray: SetButton(acGrey);
|
||||
end;
|
||||
atbButtons.RecreateControls;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.rtfEditorKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.rtfEditorKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.rtfEditorMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.rtfEditorMouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.chkUseTimeClick(Sender: TObject);
|
||||
begin
|
||||
txtTime.Enabled := chkUseTime.Checked;
|
||||
if not chkUseTime.Checked then
|
||||
txtTime.Text := '-1';
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.txtMenuNameKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Key = #32 then
|
||||
Key := #0;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.chkAppendOnlyMenuTextClick(Sender: TObject);
|
||||
begin
|
||||
lblKeys.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
txtKeys.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
chkAddComment.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
chkRegisterMenuCommand.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
chkUseTime.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
txtTime.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
lblName.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
txtMenuName.Enabled := not chkAppendOnlyMenuText.Checked;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.txtTimeChange(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
if StrToInt(txtTime.Text) < -1 then begin
|
||||
txtTime.Text := '-1';
|
||||
SysUtils.Beep;
|
||||
end;
|
||||
except
|
||||
txtTime.Text := '1000';
|
||||
SysUtils.Beep;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.rtfEditorChange(Sender: TObject);
|
||||
begin
|
||||
cmdNext.Enabled := rtfEditor.Text <> '';
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.SetDefaultMenu(const Value: Boolean);
|
||||
begin
|
||||
FDefaultMenu := Value;
|
||||
lblNote.Visible := not Value;
|
||||
lblHelp.Visible := not Value;
|
||||
acMenu.Enabled := Value;
|
||||
Editing := False;
|
||||
if Value then
|
||||
Caption := 'Menu Maker'
|
||||
else
|
||||
Caption := 'Player Menu Maker';
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.acMenuExecute(Sender: TObject);
|
||||
var eTemp: String;
|
||||
begin
|
||||
if frmSelectMenu.ShowModal = mrOk then begin
|
||||
atbButtons.RecreateControls;
|
||||
if frmSelectMenu.GetItemIndex = -1 then
|
||||
frmSelectMenu.lstMenu.Selected[0] := True;
|
||||
|
||||
DefaultMenu := True;
|
||||
Editing := True;
|
||||
rtfEditor.Clear;
|
||||
rtfEditor.SelAttributes.Color := clWhite;
|
||||
eTemp := frmSelectMenu.eMenuStr[frmSelectMenu.GetItemIndex];
|
||||
if eTemp <> '' then begin
|
||||
while Length(eTemp) <> 0 do begin
|
||||
if eTemp[1] = '\' then begin
|
||||
if Length(eTemp) <> 1 then begin
|
||||
case LowerCase(eTemp[2])[1] of
|
||||
'w': rtfEditor.SelAttributes.Color := clWhite;
|
||||
'r': rtfEditor.SelAttributes.Color := clRed;
|
||||
'd': rtfEditor.SelAttributes.Color := clGray;
|
||||
'y': rtfEditor.SelAttributes.Color := clYellow;
|
||||
end;
|
||||
end;
|
||||
Delete(eTemp, 1, 2);
|
||||
end
|
||||
else if Copy(eTemp, 1, 2) = '^n' then begin
|
||||
rtfEditor.SelText := #13#10;
|
||||
Delete(eTemp, 1, 2);
|
||||
end
|
||||
else begin
|
||||
rtfEditor.SelText := eTemp[1];
|
||||
Delete(eTemp, 1, 1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
cmdNext.Caption := 'Finish edit';
|
||||
end
|
||||
else
|
||||
atbButtons.RecreateControls;
|
||||
end;
|
||||
|
||||
function TfrmMenuMaker.GetColoredMenu: String;
|
||||
var i: integer;
|
||||
eCurColor: TColor;
|
||||
begin
|
||||
eCurColor := clWhite;
|
||||
Result := '';
|
||||
for i := 0 to Length(rtfEditor.Lines.Text) -1 do begin
|
||||
rtfEditor.SelStart := i;
|
||||
if rtfEditor.SelAttributes.Color <> eCurColor then begin
|
||||
eCurColor := rtfEditor.SelAttributes.Color;
|
||||
case eCurColor of
|
||||
clWhite : Result := Result + '\w';
|
||||
clYellow: Result := Result + '\y';
|
||||
clRed : Result := Result + '\r';
|
||||
clGray : Result := Result + '\d';
|
||||
end;
|
||||
end;
|
||||
Result := Result + rtfEditor.Lines.Text[i+1];
|
||||
end;
|
||||
rtfEditor.SelStart := 0;
|
||||
Result := StringReplace(Result, #13, '^n', [rfReplaceAll]);
|
||||
Result := StringReplace(Result, #10, '', [rfReplaceAll]);
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.Reset;
|
||||
begin
|
||||
rtfEditor.Clear;
|
||||
rtfEditor.SelAttributes.Color := clWhite;
|
||||
txtKeys.Text := '1';
|
||||
txtMenu.Clear;
|
||||
txtMenuName.Clear;
|
||||
UpdateCurColor;
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.lblHelpMouseEnter(Sender: TObject);
|
||||
begin
|
||||
lblHelp.Font.Color := clBlue;
|
||||
lblHelp.Font.Style := [fsUnderline];
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.lblHelpMouseLeave(Sender: TObject);
|
||||
begin
|
||||
lblHelp.Font.Color := clWindowText;
|
||||
lblHelp.Font.Style := [];
|
||||
end;
|
||||
|
||||
procedure TfrmMenuMaker.lblHelpClick(Sender: TObject);
|
||||
procedure Append(eText: String);
|
||||
begin
|
||||
rtfEditor.SelText := eText + #13#10;
|
||||
rtfEditor.SelStart := Length(rtfEditor.Lines.Text);
|
||||
end;
|
||||
|
||||
begin
|
||||
if frmHowToMakePlayerMenu.ShowModal = mrYes then begin
|
||||
rtfEditor.Clear;
|
||||
rtfEditor.SelAttributes.Color := clYellow;
|
||||
Append('Kick player');
|
||||
Append('');
|
||||
rtfEditor.SelAttributes.Color := clWhite;
|
||||
Append('$players(1,8,%n. %v)');
|
||||
Append('$next(9,9. Next)');
|
||||
Append('');
|
||||
Append('$exitorback(0,0. Exit,0. Back)');
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
156
editor/editor2/UnitfrmOptions.pas
Executable file
156
editor/editor2/UnitfrmOptions.pas
Executable file
@ -0,0 +1,156 @@
|
||||
unit UnitfrmOptions;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, ComCtrls, TFlatEditUnit,
|
||||
TFlatSpeedButtonUnit, TFlatCheckBoxUnit, TFlatComboBoxUnit, FileCtrl,
|
||||
TFlatTabControlUnit, TFlatRadioButtonUnit, Dialogs;
|
||||
|
||||
type
|
||||
TfrmSettings = class(TForm)
|
||||
lblSettings: TLabel;
|
||||
cmdClose: TFlatSpeedButton;
|
||||
odHalfLife: TOpenDialog;
|
||||
ftcPages: TFlatTabControl;
|
||||
nbkPages: TNotebook;
|
||||
pnlHighlighter: TPanel;
|
||||
lblComments: TLabel;
|
||||
lblDirectives: TLabel;
|
||||
lblOperators: TLabel;
|
||||
lblStrings: TLabel;
|
||||
lblKeywords: TLabel;
|
||||
lblActiveLine: TLabel;
|
||||
cboComments: TColorBox;
|
||||
cboDirectives: TColorBox;
|
||||
cboOperators: TColorBox;
|
||||
cboStrings: TColorBox;
|
||||
cboKeywords: TColorBox;
|
||||
cboActiveLine: TColorBox;
|
||||
pnlGeneralSettings: TPanel;
|
||||
lblAMXX: TLabel;
|
||||
cmdBrowseAMXX: TFlatSpeedButton;
|
||||
cmdBrowseHalfLife: TFlatSpeedButton;
|
||||
lblHalfLife: TLabel;
|
||||
cmdBrowseSave: TFlatSpeedButton;
|
||||
lblSave: TLabel;
|
||||
txtAMXXPath: TFlatEdit;
|
||||
txtHalfLife: TFlatEdit;
|
||||
txtSave: TFlatEdit;
|
||||
pnlGeneral: TPanel;
|
||||
lblFoldingStyle: TLabel;
|
||||
chkAutoComplete: TFlatCheckBox;
|
||||
chkHighlighting: TFlatCheckBox;
|
||||
cboFoldingStyle: TFlatComboBox;
|
||||
chkHints: TFlatCheckBox;
|
||||
chkAutoIndent: TFlatCheckBox;
|
||||
chkBrackets: TFlatCheckBox;
|
||||
lblHighlighter: TLabel;
|
||||
lblEditor: TLabel;
|
||||
lblDirectories: TLabel;
|
||||
lblCompilerSettings: TLabel;
|
||||
lblFTP: TLabel;
|
||||
lblMisc: TLabel;
|
||||
lblView: TLabel;
|
||||
pnlCharCompleter: TPanel;
|
||||
chkAutoCloseBrackets: TFlatCheckBox;
|
||||
chkAutoCloseQuotes: TFlatCheckBox;
|
||||
pnlCompilerSettings: TPanel;
|
||||
optWindow: TFlatRadioButton;
|
||||
optList: TFlatRadioButton;
|
||||
pnlFTP: TPanel;
|
||||
lblHost: TLabel;
|
||||
lblPort: TLabel;
|
||||
lblUser: TLabel;
|
||||
lblPassword: TLabel;
|
||||
lblStandardDir: TLabel;
|
||||
cmdCheckFTP: TFlatSpeedButton;
|
||||
txtHost: TFlatEdit;
|
||||
txtPort: TFlatEdit;
|
||||
txtUser: TFlatEdit;
|
||||
txtPassword: TFlatEdit;
|
||||
txtStandardDir: TFlatEdit;
|
||||
pnlMisc: TPanel;
|
||||
chkReload: TFlatCheckBox;
|
||||
chkAutoAddPlugins: TFlatCheckBox;
|
||||
pnlView: TPanel;
|
||||
lblCodeExplorer: TLabel;
|
||||
cboCodeExplorer: TFlatComboBox;
|
||||
chkStatusbar: TFlatCheckBox;
|
||||
lblCharCompleter: TLabel;
|
||||
procedure cmdBrowseAMXXClick(Sender: TObject);
|
||||
procedure cmdBrowseHalfLifeClick(Sender: TObject);
|
||||
procedure cmdBrowseSaveClick(Sender: TObject);
|
||||
procedure chkAutoAddPluginsMouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure ftcPagesTabChanged(Sender: TObject);
|
||||
procedure cmdCheckFTPClick(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
frmSettings: TfrmSettings;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMain;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmSettings.cmdBrowseAMXXClick(Sender: TObject);
|
||||
var eDir: String;
|
||||
begin
|
||||
if SelectDirectory('Please select your AMXX directory:', 'C:', eDir) then
|
||||
txtAMXXPath.Text := eDir;
|
||||
end;
|
||||
|
||||
procedure TfrmSettings.cmdBrowseHalfLifeClick(Sender: TObject);
|
||||
begin
|
||||
if odHalfLife.Execute then
|
||||
txtHalfLife.Text := odHalfLife.FileName;
|
||||
end;
|
||||
|
||||
procedure TfrmSettings.cmdBrowseSaveClick(Sender: TObject);
|
||||
var eDir: String;
|
||||
begin
|
||||
if SelectDirectory('Please select the directory where your files shall be saved:', 'C:', eDir) then
|
||||
txtSave.Text := eDir;
|
||||
end;
|
||||
|
||||
procedure TfrmSettings.chkAutoAddPluginsMouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if (chkAutoAddPlugins.Checked) and (Button = mbLeft) then
|
||||
MessageBox(Handle, 'Notice: This function works only with plugins which are saved in $AMXXDIR$\scripting.', 'Information', MB_ICONINFORMATION);
|
||||
end;
|
||||
|
||||
procedure TfrmSettings.ftcPagesTabChanged(Sender: TObject);
|
||||
begin
|
||||
nbkPages.PageIndex := ftcPages.ActiveTab;
|
||||
end;
|
||||
|
||||
procedure TfrmSettings.cmdCheckFTPClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
with frmMain.IdFTP do begin
|
||||
Host := txtHost.Text;
|
||||
Port := StrToInt(txtPort.Text);
|
||||
Username := txtUser.Text;
|
||||
Password := txtPassword.Text;
|
||||
try
|
||||
Connect;
|
||||
ChangeDir(txtStandardDir.Text);
|
||||
MessageBox(Handle, 'Test successfully done!', 'Information', MB_ICONINFORMATION)
|
||||
except
|
||||
on E: Exception do
|
||||
MessageBox(Handle, PChar(E.Message), 'Error', MB_ICONWARNING);
|
||||
end;
|
||||
if Connected then
|
||||
Disconnect;
|
||||
end;
|
||||
except
|
||||
MessageBox(Handle, 'Invalid FTP port.', 'Warning', MB_ICONWARNING);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
41
editor/editor2/UnitfrmSaveDialog.pas
Executable file
41
editor/editor2/UnitfrmSaveDialog.pas
Executable file
@ -0,0 +1,41 @@
|
||||
unit UnitfrmSaveDialog;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, CheckLst, TFlatSpeedButtonUnit;
|
||||
|
||||
type
|
||||
TfrmSaveDialog = class(TForm)
|
||||
lstFiles: TCheckListBox;
|
||||
shpFiles: TShape;
|
||||
cmdSave: TFlatSpeedButton;
|
||||
cmdCancel: TFlatSpeedButton;
|
||||
lblInfo: TLabel;
|
||||
procedure lstFilesClickCheck(Sender: TObject);
|
||||
public
|
||||
SaveCaption: String;
|
||||
CloseCaption: String;
|
||||
end;
|
||||
|
||||
var
|
||||
frmSaveDialog: TfrmSaveDialog;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmSaveDialog.lstFilesClickCheck(Sender: TObject);
|
||||
var i: integer;
|
||||
begin
|
||||
for i := 0 to lstFiles.Items.Count -1 do begin
|
||||
if lstFiles.Checked[i] then begin
|
||||
cmdSave.Caption := SaveCaption;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
cmdSave.Caption := CloseCaption;
|
||||
end;
|
||||
|
||||
end.
|
||||
80
editor/editor2/UnitfrmSelectMenu.pas
Executable file
80
editor/editor2/UnitfrmSelectMenu.pas
Executable file
@ -0,0 +1,80 @@
|
||||
unit UnitfrmSelectMenu;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
||||
StdCtrls, ExtCtrls, Forms, CorelButton, TFlatListBoxUnit;
|
||||
|
||||
type
|
||||
TfrmSelectMenu = class(TForm)
|
||||
cmdOK: TCorelButton;
|
||||
cmdCancel: TCorelButton;
|
||||
lblSelect: TLabel;
|
||||
lstMenu: TFlatListBox;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
public
|
||||
eMenuStr: TStringList;
|
||||
eLines: array of Integer;
|
||||
function GetItemIndex: Integer;
|
||||
end;
|
||||
|
||||
var
|
||||
frmSelectMenu: TfrmSelectMenu;
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMenuMaker, UnitfrmMain, UnitAddMenu, UnitFunc, UnitTextAnalyze;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
procedure TfrmSelectMenu.FormCreate(Sender: TObject);
|
||||
begin
|
||||
eMenuStr := TStringList.Create;
|
||||
end;
|
||||
|
||||
procedure TfrmSelectMenu.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
eMenuStr.Free;
|
||||
end;
|
||||
|
||||
procedure TfrmSelectMenu.FormShow(Sender: TObject);
|
||||
var i: integer;
|
||||
eTemp: String;
|
||||
begin
|
||||
eMenuStr.Clear;
|
||||
lstMenu.Items.Clear;
|
||||
SetLength(eLines, 0);
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
if Pos('show_menu', Trim(LowerCase(frmMain.sciEditor.Lines[i]))) = 1 then begin
|
||||
SetLength(eLines, eMenuStr.Count +1);
|
||||
eLines[eMenuStr.Count] := i;
|
||||
eTemp := frmMain.sciEditor.Lines[i];
|
||||
if CountChars(frmMain.sciEditor.Lines[i], '"') >= 4 then begin
|
||||
eMenuStr.Add(Between(eTemp, '"', '"'));
|
||||
while CountChars(eTemp, '"') > 2 do
|
||||
Delete(eTemp, 1, 1);
|
||||
lstMenu.Items.Add(Between(eTemp, '"', '"'));
|
||||
end
|
||||
else begin
|
||||
eMenuStr.Add(Between(eTemp, '"', '"'));
|
||||
lstMenu.Items.Add(Format('Unknown Menu on line %s', [IntToStr(i)]));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
cmdOK.Enabled := lstMenu.Items.Count <> 0;
|
||||
end;
|
||||
|
||||
function TfrmSelectMenu.GetItemIndex: Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := -1;
|
||||
for i := 0 to lstMenu.Items.Count -1 do begin
|
||||
if lstMenu.Selected[i] then
|
||||
Result := i;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
191
editor/editor2/UnitfrmSockets.dfm
Executable file
191
editor/editor2/UnitfrmSockets.dfm
Executable file
@ -0,0 +1,191 @@
|
||||
object frmSocketTerminal: TfrmSocketTerminal
|
||||
Left = 192
|
||||
Top = 110
|
||||
ActiveControl = rtfEnter
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Socket Terminal'
|
||||
ClientHeight = 230
|
||||
ClientWidth = 324
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FormStyle = fsStayOnTop
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlSettings: TPanel
|
||||
Left = 0
|
||||
Top = 141
|
||||
Width = 324
|
||||
Height = 89
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 2
|
||||
object lblStatusCaption: TLabel
|
||||
Left = 2
|
||||
Top = 72
|
||||
Width = 35
|
||||
Height = 13
|
||||
Caption = 'Status:'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object lblStatus: TLabel
|
||||
Left = 40
|
||||
Top = 72
|
||||
Width = 69
|
||||
Height = 13
|
||||
Caption = 'not connected'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object lblSettings: TLabel
|
||||
Left = 4
|
||||
Top = 6
|
||||
Width = 43
|
||||
Height = 13
|
||||
Caption = 'Settings:'
|
||||
end
|
||||
object pnlSettings2: TPanel
|
||||
Left = 4
|
||||
Top = 24
|
||||
Width = 311
|
||||
Height = 41
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 0
|
||||
object lblHost: TLabel
|
||||
Left = 4
|
||||
Top = 3
|
||||
Width = 26
|
||||
Height = 13
|
||||
Caption = 'Host:'
|
||||
end
|
||||
object lblPort: TLabel
|
||||
Left = 130
|
||||
Top = 3
|
||||
Width = 24
|
||||
Height = 13
|
||||
Caption = 'Port:'
|
||||
end
|
||||
object txtHost: TFlatEdit
|
||||
Left = 4
|
||||
Top = 17
|
||||
Width = 121
|
||||
Height = 19
|
||||
ColorFlat = clBtnFace
|
||||
ParentColor = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object txtPort: TFlatEdit
|
||||
Left = 130
|
||||
Top = 17
|
||||
Width = 39
|
||||
Height = 19
|
||||
ColorFlat = clBtnFace
|
||||
ParentColor = True
|
||||
TabOrder = 1
|
||||
Text = '1'
|
||||
OnChange = txtPortChange
|
||||
end
|
||||
object optUDP: TFlatRadioButton
|
||||
Left = 176
|
||||
Top = 20
|
||||
Width = 39
|
||||
Height = 17
|
||||
Caption = 'UDP'
|
||||
TabOrder = 3
|
||||
OnClick = optTCPClick
|
||||
end
|
||||
object optTCP: TFlatRadioButton
|
||||
Left = 176
|
||||
Top = 4
|
||||
Width = 35
|
||||
Height = 15
|
||||
Caption = 'TCP'
|
||||
Checked = True
|
||||
TabOrder = 2
|
||||
TabStop = True
|
||||
OnClick = optTCPClick
|
||||
end
|
||||
object cmdConnect: TFlatButton
|
||||
Left = 224
|
||||
Top = 10
|
||||
Width = 77
|
||||
Height = 21
|
||||
ColorHighLight = 8623776
|
||||
ColorShadow = 8623776
|
||||
Caption = 'Connect'
|
||||
TabOrder = 4
|
||||
OnClick = cmdConnectClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object rtfEnter: TRichEdit
|
||||
Left = 0
|
||||
Top = 121
|
||||
Width = 324
|
||||
Height = 20
|
||||
Align = alBottom
|
||||
TabOrder = 1
|
||||
WantReturns = False
|
||||
OnKeyPress = rtfEnterKeyPress
|
||||
end
|
||||
object rtfReceived: TRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 324
|
||||
Height = 121
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
end
|
||||
object IdTCPClient: TIdTCPClient
|
||||
MaxLineAction = maSplit
|
||||
OnDisconnected = IdTCPClientDisconnected
|
||||
OnConnected = IdTCPClientConnected
|
||||
Port = 0
|
||||
Left = 4
|
||||
Top = 4
|
||||
end
|
||||
object IdUDPClient: TIdUDPClient
|
||||
OnStatus = IdUDPClientStatus
|
||||
Port = 0
|
||||
Left = 4
|
||||
Top = 34
|
||||
end
|
||||
object alCopyPaste: TActionList
|
||||
Left = 4
|
||||
Top = 64
|
||||
object acCopy: TAction
|
||||
Caption = 'Copy'
|
||||
ShortCut = 16451
|
||||
OnExecute = acCopyExecute
|
||||
end
|
||||
object acPaste: TAction
|
||||
Caption = 'Paste'
|
||||
ShortCut = 16470
|
||||
OnExecute = acPasteExecute
|
||||
end
|
||||
object acUndo: TAction
|
||||
Caption = 'Undo'
|
||||
OnExecute = acUndoExecute
|
||||
end
|
||||
object acSelectAll: TAction
|
||||
Caption = 'Select all'
|
||||
OnExecute = acSelectAllExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
259
editor/editor2/UnitfrmSockets.pas
Executable file
259
editor/editor2/UnitfrmSockets.pas
Executable file
@ -0,0 +1,259 @@
|
||||
unit UnitfrmSockets;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, ComCtrls, TFlatEditUnit,
|
||||
TFlatRadioButtonUnit, TFlatButtonUnit, IdUDPBase, IdUDPClient,
|
||||
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, UnitReadThread,
|
||||
ActnList;
|
||||
|
||||
type
|
||||
TfrmSocketTerminal = class(TForm)
|
||||
pnlSettings: TPanel;
|
||||
rtfEnter: TRichEdit;
|
||||
rtfReceived: TRichEdit;
|
||||
lblStatusCaption: TLabel;
|
||||
lblStatus: TLabel;
|
||||
lblSettings: TLabel;
|
||||
pnlSettings2: TPanel;
|
||||
lblHost: TLabel;
|
||||
txtHost: TFlatEdit;
|
||||
txtPort: TFlatEdit;
|
||||
lblPort: TLabel;
|
||||
optUDP: TFlatRadioButton;
|
||||
optTCP: TFlatRadioButton;
|
||||
cmdConnect: TFlatButton;
|
||||
IdTCPClient: TIdTCPClient;
|
||||
IdUDPClient: TIdUDPClient;
|
||||
alCopyPaste: TActionList;
|
||||
acCopy: TAction;
|
||||
acPaste: TAction;
|
||||
acUndo: TAction;
|
||||
acSelectAll: TAction;
|
||||
procedure txtPortChange(Sender: TObject);
|
||||
procedure cmdConnectClick(Sender: TObject);
|
||||
procedure optTCPClick(Sender: TObject);
|
||||
procedure IdTCPClientConnected(Sender: TObject);
|
||||
procedure IdTCPClientDisconnected(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure rtfEnterKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IdUDPClientStatus(ASender: TObject; const AStatus: TIdStatus;
|
||||
const AStatusText: String);
|
||||
procedure acCopyExecute(Sender: TObject);
|
||||
procedure acPasteExecute(Sender: TObject);
|
||||
procedure acUndoExecute(Sender: TObject);
|
||||
procedure acSelectAllExecute(Sender: TObject);
|
||||
private
|
||||
ReadThread: TReadThread;
|
||||
public
|
||||
procedure Append(eText: String; eColor: TColor = clBlack);
|
||||
procedure SetStatus(eStatus: String; eColor: TColor);
|
||||
procedure OnRead(eRead: String);
|
||||
procedure EnableControls(eValue: Boolean);
|
||||
end;
|
||||
|
||||
var
|
||||
frmSocketTerminal: TfrmSocketTerminal;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmSocketTerminal.Append(eText: String; eColor: TColor);
|
||||
begin
|
||||
eText := Format('[%s] %s', [TimeToStr(Time), eText]);
|
||||
rtfReceived.SelStart := Length(rtfReceived.Lines.Text);
|
||||
rtfReceived.SelAttributes.Color := eColor;
|
||||
rtfReceived.SelText := eText + #13#10;
|
||||
rtfReceived.Perform(WM_VSCROLL, SB_BOTTOM, 0);
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.OnRead(eRead: String);
|
||||
begin
|
||||
Append(eRead, clWindowText);
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.SetStatus(eStatus: String; eColor: TColor);
|
||||
begin
|
||||
lblStatus.Caption := eStatus;
|
||||
lblStatus.Font.Color := eColor;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.txtPortChange(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
StrToInt(txtPort.Text);
|
||||
except
|
||||
txtPort.Text := '1';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.cmdConnectClick(Sender: TObject);
|
||||
begin
|
||||
if Tag = 0 then begin
|
||||
if optTCP.Checked then begin
|
||||
IdTCPClient.Host := txtHost.Text;
|
||||
IdTCPClient.Port := StrToInt(txtPort.Text);
|
||||
EnableControls(False);
|
||||
Append('Connecting to ' + txtHost.Text + ':' + txtPort.Text + '...', clHighlight);
|
||||
try
|
||||
IdTCPClient.Connect;
|
||||
ReadThread := TReadThread.Create(True);
|
||||
ReadThread.ReadTCP := True;
|
||||
ReadThread.Resume;
|
||||
except
|
||||
on E: Exception do begin
|
||||
MessageBox(Handle, PChar('Couldn''t connect to server:' + #13 + E.Message), 'Warning', MB_ICONWARNING);
|
||||
EnableControls(True);
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
IdUDPClient.Host := txtHost.Text;
|
||||
IdUDPClient.Port := StrToInt(txtPort.Text);
|
||||
EnableControls(False);
|
||||
try
|
||||
IdUDPClient.Active := True;
|
||||
ReadThread := TReadThread.Create(True);
|
||||
ReadThread.ReadTCP := False;
|
||||
ReadThread.Resume;
|
||||
SetStatus('socket active', clGreen);
|
||||
Append('Opened socket to ' + txtHost.Text + ':' + txtPort.Text + '!', clGreen);
|
||||
except
|
||||
on E: Exception do begin
|
||||
MessageBox(Handle, PChar('Couldn''t activate socket:' + #13 + E.Message), 'Warning', MB_ICONWARNING);
|
||||
EnableControls(True);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
if optTCP.Checked then begin
|
||||
Screen.Cursor := crHourGlass;
|
||||
IdTCPClient.Disconnect;
|
||||
ReadThread.Terminate;
|
||||
while Tag <> 0 do begin
|
||||
Sleep(5);
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
Screen.Cursor := crDefault;
|
||||
end
|
||||
else begin
|
||||
Screen.Cursor := crHourGlass;
|
||||
IdUDPClient.Active := False;
|
||||
ReadThread.Terminate;
|
||||
EnableControls(True);
|
||||
SetStatus('socket inactive', clRed);
|
||||
Append('Closed socket to ' + txtHost.Text + ':' + txtPort.Text + '!', clRed);
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.optTCPClick(Sender: TObject);
|
||||
begin
|
||||
if optTCP.Checked then begin
|
||||
if not IdTCPClient.Connected then
|
||||
SetStatus('not connected', clRed);
|
||||
end
|
||||
else begin
|
||||
if not IdUDPClient.Active then
|
||||
SetStatus('socket inactive', clRed);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.EnableControls(eValue: Boolean);
|
||||
begin
|
||||
txtHost.Enabled := eValue;
|
||||
txtPort.Enabled := eValue;
|
||||
lblHost.Enabled := eValue;
|
||||
lblPort.Enabled := eValue;
|
||||
optTCP.Enabled := eValue;
|
||||
optUDP.Enabled := eValue;
|
||||
if eValue then begin
|
||||
cmdConnect.Caption := 'Connect';
|
||||
Tag := 0;
|
||||
end
|
||||
else begin
|
||||
cmdConnect.Caption := 'Disconnect';
|
||||
Tag := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.IdTCPClientConnected(Sender: TObject);
|
||||
begin
|
||||
Append('Established connection to ' + txtHost.Text + ':' + txtPort.Text, clGreen);
|
||||
SetStatus('connected', clGreen);
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.IdTCPClientDisconnected(Sender: TObject);
|
||||
begin
|
||||
Append('Disconnected from ' + txtHost.Text + ':' + txtPort.Text, clMaroon);
|
||||
EnableControls(True);
|
||||
SetStatus('not connected', clRed);
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
if Tag = 1 then
|
||||
cmdConnect.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.rtfEnterKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
begin
|
||||
if Tag = 1 then begin
|
||||
if (Key = #13) and (rtfEnter.Text <> '') then begin
|
||||
if IdTCPClient.Connected then
|
||||
IdTCPClient.WriteLn(rtfEnter.Text)
|
||||
else
|
||||
IdUDPClient.Send(rtfEnter.Text);
|
||||
Append(rtfEnter.Text, clNavy);
|
||||
rtfEnter.Clear;
|
||||
Key := #0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.IdUDPClientStatus(ASender: TObject;
|
||||
const AStatus: TIdStatus; const AStatusText: String);
|
||||
begin
|
||||
Append(AStatusText, clGray);
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.acCopyExecute(Sender: TObject);
|
||||
begin
|
||||
if (ActiveControl is TRichEdit) then
|
||||
TRichEdit(ActiveControl).CopyToClipboard;
|
||||
if (ActiveControl is TFlatEdit) then
|
||||
TFlatEdit(ActiveControl).CopyToClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.acPasteExecute(Sender: TObject);
|
||||
begin
|
||||
if (ActiveControl is TRichEdit) then
|
||||
TRichEdit(ActiveControl).PasteFromClipboard;
|
||||
if (ActiveControl is TFlatEdit) then
|
||||
TFlatEdit(ActiveControl).PasteFromClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.acUndoExecute(Sender: TObject);
|
||||
begin
|
||||
if (ActiveControl is TRichEdit) then
|
||||
TRichEdit(ActiveControl).Undo;
|
||||
if (ActiveControl is TFlatEdit) then
|
||||
TFlatEdit(ActiveControl).Undo;
|
||||
end;
|
||||
|
||||
procedure TfrmSocketTerminal.acSelectAllExecute(Sender: TObject);
|
||||
begin
|
||||
if (ActiveControl is TRichEdit) then
|
||||
TRichEdit(ActiveControl).SelectAll;
|
||||
if (ActiveControl is TFlatEdit) then
|
||||
TFlatEdit(ActiveControl).SelectAll;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user