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

Complete inherited commands for backward compatibility

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-06-11 20:36:14 +02:00
parent 830117e0ca
commit 062c045fa2
24 changed files with 442 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/uCEFDialogHandler.pas
View File

@@ -135,12 +135,18 @@ begin
inherited Destroy;
end;
function TCustomDialogHandler.OnFileDialog(const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; acceptFilters: TStrings; selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback): Boolean;
function TCustomDialogHandler.OnFileDialog(const browser : ICefBrowser;
mode : TCefFileDialogMode;
const title : ustring;
const defaultFilePath : ustring;
acceptFilters : TStrings;
selectedAcceptFilter : Integer;
const callback : ICefFileDialogCallback): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnFileDialog(browser, mode, title, defaultFilePath, acceptFilters, selectedAcceptFilter, callback)
else
Result := inherited;
Result := inherited OnFileDialog(browser, mode, title, defaultFilePath, acceptFilters, selectedAcceptFilter, callback);
end;
end.