pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Added TCefApplication.ShowMessageDlg property to hide the MessageDlg dialogs

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-10-05 16:03:02 +02:00
parent 92f683662c
commit 6dbaa022da
6 changed files with 181 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/uCEFApplication.pas
View File

@ -121,6 +121,7 @@ type
FMuteAudio : boolean;
FReRaiseExceptions : boolean;
FUpdateChromeVer : boolean;
FShowMessageDlg : boolean;
FChromeVersionInfo : TFileVersionInfo;
FLibHandle : THandle;
FOnRegisterCustomSchemes : TOnRegisterCustomSchemes;
@ -189,6 +190,7 @@ type
function SingleExeProcessing : boolean;
function CheckCEFLibrary : boolean;
procedure DeleteDirContents(const aDirectory : string);
procedure ShowErrorMessageDlg(const aError : string); virtual;
public
constructor Create(aUpdateChromeVer : boolean = True);
@ -243,6 +245,7 @@ type
property EnableSpeechInput : boolean read FEnableSpeechInput write FEnableSpeechInput;
property EnableGPU : boolean read FEnableGPU write FEnableGPU;
property CheckCEFFiles : boolean read FCheckCEFFiles write FCheckCEFFiles;
property ShowMessageDlg : boolean read FShowMessageDlg write FShowMessageDlg;
property ChromeMajorVer : uint16 read FChromeVersionInfo.MajorVer;
property ChromeMinorVer : uint16 read FChromeVersionInfo.MinorVer;
property ChromeRelease : uint16 read FChromeVersionInfo.Release;
@ -361,6 +364,7 @@ begin
FMuteAudio := False;
FReRaiseExceptions := False;
FLibLoaded := False;
FShowMessageDlg := True;
FUpdateChromeVer := aUpdateChromeVer;
UpdateDeviceScaleFactor;
@ -537,7 +541,7 @@ begin
else
TempString := TempString + 'The CEF framework directory doesn' + #39 +'t exist!' + CRLF + SplitLongString(FFrameworkDirPath);
MessageDlg(TempString, mtError, [mbOk], 0);
ShowErrorMessageDlg(TempString);
exit;
end;
@ -554,7 +558,7 @@ begin
else
TempString := TempString + 'The CEF resources directory doesn' + #39 +'t exist!' + CRLF + SplitLongString(FResourcesDirPath);
MessageDlg(TempString, mtError, [mbOk], 0);
ShowErrorMessageDlg(TempString);
exit;
end;
@ -571,7 +575,7 @@ begin
else
TempString := TempString + 'The CEF locales directory doesn' + #39 +'t exist!' + CRLF + SplitLongString(FLocalesDirPath);
MessageDlg(TempString, mtError, [mbOk], 0);
ShowErrorMessageDlg(TempString);
exit;
end;
@ -589,7 +593,7 @@ begin
'Use only the CEF3 binaries specified in the CEF4Delphi Readme.md file at ' +
CRLF + CEF4DELPHI_URL;
MessageDlg(TempString, mtError, [mbOk], 0);
ShowErrorMessageDlg(TempString);
end;
end;
end;
@ -760,6 +764,13 @@ begin
end;
end;
procedure TCefApplication.ShowErrorMessageDlg(const aError : string);
begin
OutputDebugMessage(aError);
if FShowMessageDlg then MessageDlg(aError, mtError, [mbOk], 0);
end;
procedure TCefApplication.Internal_OnBeforeCommandLineProcessing(const processType : ustring;
const commandLine : ICefCommandLine);
var