pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazEdit: in ParseCommandlineFilenames ask to create a file if it does not exsist.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7257 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2020-01-09 18:04:38 +00:00
parent 887e07f476
commit c9d1e05e6c
2 changed files with 40 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
applications/lazedit/main.pp
View File

@ -467,10 +467,12 @@ type
function TryMarkSelection(const Pre, Post: String): Boolean;
public
//File procedures
function AskCreateFile(const Fn: String): Boolean;
function AskFileNameOpen: String;
function AskFileNameOpenTemplate: String;
function AskFileNameSave(const Fn: String; const FileType: TEditorFileType): String;
function AskFileNameSaveTemplate: String;
function TryCreateEmptyFile(const Fn: String): Boolean;
function TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean;
function TryFileSave(Editor: TEditor; Fn: String): TIoResult;
function CloseCurrentEditor: Boolean;
@ -1600,9 +1602,26 @@ begin
S := ExpandFileNameUtf8(S); //we want full filename here, e.g. for filename in statusbar
if FileExistsUtf8(S) then
begin
if not TryFileOpen(S) then ShowError(Format(vTranslations.msgOpenError,[S]));
if not TryFileOpen(S) then
ShowError(Format(vTranslations.msgOpenError,[S]))
else
Inc(Count);
end
else ShowError(Format(vTranslations.msgFileNotFound,[S]));
else
begin
if AskCreateFile(S) then
begin
if TryCreateEmptyFile(S) then
begin
if not TryFileOpen(S) then
ShowError(Format(vTranslations.msgOpenError,[S]))
else
Inc(Count);
end
else
ShowError(Format(vTranslations.msgFileCreateError,[S]));
end;
end;
end;
end;
//Start with blank page if no files are specified on commandline
@ -1987,6 +2006,11 @@ begin
else Result := False;
end;
function TLazEditMainForm.AskCreateFile(const Fn: String): Boolean;
begin
Result := MessageDlg(AppName, Format(vTranslations.msgAskCreateFile,[Fn]), mtConfirmation, [mbYes, mbNo],0) = mrYes;
end;
@ -2062,6 +2086,15 @@ begin
else Result := EmptyStr;
end;
function TLazEditMainForm.TryCreateEmptyFile(const Fn: String): Boolean;
var
H: THandle;
begin
H := FileCreate(Fn, fmOpenWrite);
Result := H <> feInvalidHandle; //THandle(-1)
if Result then FileClose(H);
end;
function TLazEditMainForm.TryFileOpen(const Fn: String; const AsTemplate: Boolean = False): Boolean;
var
Ed: TEditor;