Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-15 15:55:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Removed unnecessary PChar casts

Browse Source
This commit is contained in:
Salvador Diaz Fau 2017-04-27 08:33:22 +02:00
parent ca993f6003
commit 24b745dbc3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
source/uCEFApplication.pas
View File

@ -504,7 +504,7 @@ procedure TCefApplication.SetFrameworkDirPath(const aValue : ustring);
begin
if (length(aValue) > 0) and DirectoryExists(aValue) then
begin
if CustomPathIsRelative(PChar(aValue)) then
if CustomPathIsRelative(aValue) then
FFrameworkDirPath := ExtractFilePath(ParamStr(0)) + aValue
else
FFrameworkDirPath := aValue;
@ -519,7 +519,7 @@ procedure TCefApplication.SetResourcesDirPath(const aValue : ustring);
begin
if (length(aValue) > 0) and DirectoryExists(aValue) then
begin
if CustomPathIsRelative(PChar(aValue)) then
if CustomPathIsRelative(aValue) then
FResourcesDirPath := ExtractFilePath(ParamStr(0)) + aValue
else
FResourcesDirPath := aValue;
@ -532,7 +532,7 @@ procedure TCefApplication.SetLocalesDirPath(const aValue : ustring);
begin
if (length(aValue) > 0) and DirectoryExists(aValue) then
begin
if CustomPathIsRelative(PChar(aValue)) then
if CustomPathIsRelative(aValue) then
FLocalesDirPath := ExtractFilePath(ParamStr(0)) + aValue
else
FLocalesDirPath := aValue;

4
source/uCEFMiscFunctions.pas
View File

@ -612,7 +612,7 @@ begin
if DirectoryExists(aResourcesDirPath) then
begin
TempDir := IncludeTrailingPathDelimiter(aResourcesDirPath);
if CustomPathIsRelative(PChar(TempDir)) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
if CustomPathIsRelative(TempDir) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
end
else
exit;
@ -646,7 +646,7 @@ begin
if DirectoryExists(aFrameworkDirPath) then
begin
TempDir := IncludeTrailingPathDelimiter(aFrameworkDirPath);
if CustomPathIsRelative(PChar(TempDir)) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
if CustomPathIsRelative(TempDir) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
end
else
exit;