pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases 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
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;