pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +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 begin
if (length(aValue) > 0) and DirectoryExists(aValue) then if (length(aValue) > 0) and DirectoryExists(aValue) then
begin begin
if CustomPathIsRelative(PChar(aValue)) then if CustomPathIsRelative(aValue) then
FFrameworkDirPath := ExtractFilePath(ParamStr(0)) + aValue FFrameworkDirPath := ExtractFilePath(ParamStr(0)) + aValue
else else
FFrameworkDirPath := aValue; FFrameworkDirPath := aValue;
@ -519,7 +519,7 @@ procedure TCefApplication.SetResourcesDirPath(const aValue : ustring);
begin begin
if (length(aValue) > 0) and DirectoryExists(aValue) then if (length(aValue) > 0) and DirectoryExists(aValue) then
begin begin
if CustomPathIsRelative(PChar(aValue)) then if CustomPathIsRelative(aValue) then
FResourcesDirPath := ExtractFilePath(ParamStr(0)) + aValue FResourcesDirPath := ExtractFilePath(ParamStr(0)) + aValue
else else
FResourcesDirPath := aValue; FResourcesDirPath := aValue;
@ -532,7 +532,7 @@ procedure TCefApplication.SetLocalesDirPath(const aValue : ustring);
begin begin
if (length(aValue) > 0) and DirectoryExists(aValue) then if (length(aValue) > 0) and DirectoryExists(aValue) then
begin begin
if CustomPathIsRelative(PChar(aValue)) then if CustomPathIsRelative(aValue) then
FLocalesDirPath := ExtractFilePath(ParamStr(0)) + aValue FLocalesDirPath := ExtractFilePath(ParamStr(0)) + aValue
else else
FLocalesDirPath := aValue; FLocalesDirPath := aValue;

4
source/uCEFMiscFunctions.pas
View File

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