655 lines
24 KiB
ObjectPascal
Executable File
655 lines
24 KiB
ObjectPascal
Executable File
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;
|
|
|
|
for i := 0 to frmSaveDialog.lstFiles.Items.Count -1 do begin
|
|
if Pos('&', frmSaveDialog.lstFiles.Items[i]) = 1 then
|
|
frmSaveDialog.lstFiles.Items[i] := Copy(frmSaveDialog.lstFiles.Items[i], 2, Length(frmSaveDialog.lstFiles.Items[i]));
|
|
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.
|