Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 76 → Rev 75

/trunk/EditorMain.pas
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