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

fixed some FileExists

Browse Source 
git-svn-id: trunk@23169 -
This commit is contained in:
mattias 2009-12-17 16:45:46 +00:00
parent 488b027106
commit 6ae9c66c27
5 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/aggpas/lazarus/example/unit1.pas
View File

@ -59,7 +59,7 @@ begin
// solid blue text
FontFilename:=SetDirSeparators('../../verdana.ttf');
DebugLn(['TForm1.FormCreate ',FontFilename,' ',FileExists(FontFilename)]);
DebugLn(['TForm1.FormCreate ',FontFilename,' ',FileExistsUTF8(FontFilename)]);
Font.LoadFromFile(FontFilename);
Font.Size:=18;
Font.Color:=clRed;

2
components/aggpas/lazarus/example/unit2.pas
View File

@ -55,7 +55,7 @@ begin
with AggLCLCanvas do begin
if HasFont then begin
FontFilename:=SetDirSeparators('../../verdana.ttf');
if not FileExists(FontFilename) then raise Exception.Create('file not found: '+FontFilename+' CurDir='+GetCurrentDirUTF8);
if not FileExistsUTF8(FontFilename) then raise Exception.Create('file not found: '+FontFilename+' CurDir='+GetCurrentDirUTF8);
Font.LoadFromFile(FontFilename);
Font.Size:=10;
Font.Color:=clBlack;

4
components/leakview/heaptrcview.pas
View File

@ -231,7 +231,7 @@ begin
try
ClearItems;
trvTraceInfo.Items.Clear;
if not FileExists(edtTrcFileName.Text) then Exit;
if not FileExistsUTF8(edtTrcFileName.Text) then Exit;
info := AllocHeapTraceInfo(edtTrcFileName.Text);
try
@ -332,7 +332,7 @@ procedure THeapTrcViewForm.LazarusJump(Sender: TObject; const SourceFile: string
var
nm : string;
begin
if not FileExists(SourceFile) then begin
if not FileExistsUTF8(SourceFile) then begin
nm := LazarusIDE.FindSourceFile(SourceFile, '', [fsfUseIncludePaths] );
if nm = '' then nm := SourceFile;
end else

1
ide/buildlazdialog.pas
View File

@ -681,7 +681,6 @@ begin
IDEMessagesWindow.AddMsg('Error: failed to create application bundle '+BundleDir,NewTargetDirectory,-1);
exit;
end;
//debugln(['CreateBuildLazarusOptions BundleDir exists: ',FileExists(BundleDir)]);
Result:=CreateAppBundleSymbolicLink(CurTargetFilename);
if not (Result in [mrOk,mrIgnore]) then begin
debugln(['CreateBuildLazarusOptions CreateAppBundleSymbolicLink failed']);

2
ide/lazarusmanager.pas
View File

@ -330,7 +330,7 @@ begin
end;
end;
{$IFDEF darwin}
if FileExists(FLazarusPath+'.app') then begin
if FileExistsUTF8(FLazarusPath+'.app') then begin
// start the bundle instead
FLazarusPath:=FLazarusPath+'.app/Contents/MacOS/'+ExtractFileName(FLazarusPath);
end;