paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 20:46:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

added write check

Browse Source 
git-svn-id: trunk@5223 -
This commit is contained in:
mattias 2004-02-22 18:33:03 +00:00
parent 71dd6ba928
commit 1e6a416750
3 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/definetemplates.pas
View File

@ -3206,7 +3206,8 @@ begin
+';'+Dir+'rtl'+DS+'objpas'+DS +';'+Dir+'rtl'+DS+'objpas'+DS
+';'+Dir+'rtl'+DS+'objpas'+DS+'sysutils' +';'+Dir+'rtl'+DS+'objpas'+DS+'sysutils'
+';'+Dir+'rtl'+DS+'objpas'+DS+'classes' +';'+Dir+'rtl'+DS+'objpas'+DS+'classes'
+';'+Dir+'rtl'+DS+'inc'+DS; +';'+Dir+'rtl'+DS+'inc'+DS
+';'+Dir+'rtl'+DS+'inc'+DS+'graph'+DS;
if (TargetOS<>'') and (TargetOS<>SrcOS) then if (TargetOS<>'') and (TargetOS<>SrcOS) then
s:=s+';'+Dir+'rtl'+DS+TargetOS+DS; s:=s+';'+Dir+'rtl'+DS+TargetOS+DS;
s:=s+ s:=s+

15
ide/dialogprocs.pas
View File

@ -58,7 +58,8 @@ function LoadCodeBuffer(var ACodeBuffer: TCodeBuffer; const AFilename: string;
Flags: TLoadBufferFlags): TModalResult; Flags: TLoadBufferFlags): TModalResult;
function CreateEmptyFile(const Filename: string; function CreateEmptyFile(const Filename: string;
ErrorButtons: TMsgDlgButtons): TModalResult; ErrorButtons: TMsgDlgButtons): TModalResult;
function CheckFileIsWritable(const Filename: string;
ErrorButtons: TMsgDlgButtons): TModalResult;
implementation implementation
@ -158,5 +159,17 @@ begin
Result:=mrOk; Result:=mrOk;
end; end;
function CheckFileIsWritable(const Filename: string;
ErrorButtons: TMsgDlgButtons): TModalResult;
begin
Result:=mrOk;
while not FileIsWritable(Filename) do begin
Result:=MessageDlg('File is not writable',
'Unable to write to file "'+Filename+'"',
mtError,ErrorButtons+[mbCancel],0);
if Result<>mrRetry then exit;
end;
end;
end. end.

5
ide/main.pp
View File

@ -6519,6 +6519,8 @@ begin
writeln('TMainIDE.DoConvertDelphiUnit A ',DelphiFilename); writeln('TMainIDE.DoConvertDelphiUnit A ',DelphiFilename);
Result:=CheckDelphiFileExt(DelphiFilename); Result:=CheckDelphiFileExt(DelphiFilename);
if Result<>mrOk then exit; if Result<>mrOk then exit;
Result:=CheckFileIsWritable(DelphiFilename,[mbAbort]);
if Result<>mrOk then exit;
Result:=CheckFilenameForLCLPaths(DelphiFilename); Result:=CheckFilenameForLCLPaths(DelphiFilename);
if Result<>mrOk then exit; if Result<>mrOk then exit;
// close Delphi files in editor // close Delphi files in editor
@ -10335,6 +10337,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.713 2004/02/22 18:33:03 mattias
added write check
Revision 1.712 2004/02/21 15:37:32 mattias Revision 1.712 2004/02/21 15:37:32 mattias
moved compiler options to project menu, added -CX for smartlinking moved compiler options to project menu, added -CX for smartlinking