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

Added Delphi 10.3 Rio support

Browse Source 
Added ComponentPlatformsAttribute to all the components to provide platform-specific run-time information.
This commit is contained in:
Salvador Díaz Fau
2018-12-09 11:11:59 +01:00
parent fbe8ecaedd
commit 665a578001
160 changed files with 5904 additions and 429 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
demos/MDIBrowser/uMainForm.pas
View File

@ -70,8 +70,9 @@ type
procedure FormShow(Sender: TObject);
private
// Variables to control when can we destroy the form safely
FCanClose : boolean; // Set to True when all the child forms are closed
FClosing : boolean; // Set to True in the CloseQuery event.
FCanClose : boolean; // Set to True when all the child forms are closed
FClosing : boolean; // Set to True in the CloseQuery event.
FBrowserCount : integer;
procedure CreateMDIChild(const Name: string);
procedure CloseAllChildForms;
@ -85,6 +86,7 @@ type
function CloseQuery: Boolean; override;
property ChildClosing : boolean read GetChildClosing;
property BrowserCount : integer read FBrowserCount;
end;
var
@ -158,13 +160,15 @@ end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
FCanClose := False;
FClosing := False;
FCanClose := False;
FClosing := False;
FBrowserCount := 0;
end;
procedure TMainForm.NewBtnClick(Sender: TObject);
begin
CreateMDIChild('ChildForm' + IntToStr(MDIChildCount + 1));
inc(FBrowserCount);
CreateMDIChild('ChildForm' + IntToStr(FBrowserCount));
end;
procedure TMainForm.ExitBtnClick(Sender: TObject);