194,7 → 194,6 |
procedure Theme_Dark; |
function IsThemeDark: boolean; |
function MarkUpLineReference(cont: string): string; |
procedure SaveToFile(filename: string); |
end; |
|
var |
305,7 → 304,7 |
procedure TForm1.ActionSaveExecute(Sender: TObject); |
begin |
RightTrimAll; |
SaveToFile(GetScrapFile); |
SynEdit1.Lines.SaveToFile(GetScrapFile); |
SynEdit1.Modified := false; |
RefreshModifySign; |
if SynEdit1.CanFocus then SynEdit1.SetFocus; |
1049,19 → 1048,6 |
end; |
end; |
|
procedure TForm1.SaveToFile(filename: string); |
var |
sl: TStringList; |
begin |
sl := TStringList.Create; |
try |
sl.Assign(SynEdit1.Lines); |
sl.SaveToFile(filename); // Save without BOM! |
finally |
sl.Free; |
end; |
end; |
|
procedure TForm1.StartCodeExplorer; |
begin |
codeExplorer := TRunCodeExplorer.Create(true); |
1119,7 → 1105,7 |
case MessageDlg(Format('File %s does not exist. Create it?', [result]), mtConfirmation, mbYesNoCancel, 0) of |
mrYes: |
try |
SaveToFile(result); |
SynEdit1.Lines.SaveToFile(result); |
except |
on E: Exception do |
begin |
1195,7 → 1181,7 |
try |
// Try saving the file; check if we have permissions |
//SynEdit1.Lines.Clear; |
SaveToFile(result); |
SynEdit1.Lines.SaveToFile(result); |
except |
on E: Exception do |
begin |