amxmodx/editor/editor2/UnitFunc.pas

650 lines
23 KiB
ObjectPascal
Raw Normal View History

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.