pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-12-04 09:26:52 +02:00
Code Issues Actions Releases Activity

Fix FMX demos compilation failures with Delphi 10 Seattle and XE7

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-03-06 15:08:17 +01:00
parent 376606779a
commit 0172c6e1e3
3 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demos/FMXExternalPumpBrowser/uFMXApplicationService.pas
View File

@ -106,7 +106,11 @@ end;
function TFMXApplicationService.GetVersionString: string; function TFMXApplicationService.GetVersionString: string;
begin begin
{$IFDEF DELPHI22_UP}
Result := OldFMXApplicationService.GetVersionString; Result := OldFMXApplicationService.GetVersionString;
{$ELSE DELPHI22_UP}
Result := 'unsupported yet';
{$ENDIF DELPHI22_UP}
end; end;
procedure TFMXApplicationService.Run; procedure TFMXApplicationService.Run;

11
demos/FMXToolBoxBrowser/uChildForm.pas
View File

@ -136,18 +136,9 @@ begin
end; end;
procedure TChildForm.ResizeChild; procedure TChildForm.ResizeChild;
var
TempRect : System.Types.TRect;
begin begin
if (FMXWindowParent <> nil) then if (FMXWindowParent <> nil) then
begin FMXWindowParent.SetBounds(0, 0, ClientWidth - 1, ClientHeight - 1);
TempRect.Top := 0;
TempRect.Left := 0;
TempRect.Right := ClientWidth - 1;
TempRect.Bottom := ClientHeight - 1;
FMXWindowParent.SetBounds(TempRect);
end;
end; end;
procedure TChildForm.FMXChromium1AfterCreated(Sender: TObject; const browser: ICefBrowser); procedure TChildForm.FMXChromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);

4
demos/FMXToolBoxBrowser/uFMXApplicationService.pas
View File

@ -107,7 +107,11 @@ end;
function TFMXApplicationService.GetVersionString: string; function TFMXApplicationService.GetVersionString: string;
begin begin
{$IFDEF DELPHI22_UP}
Result := OldFMXApplicationService.GetVersionString; Result := OldFMXApplicationService.GetVersionString;
{$ELSE DELPHI22_UP}
Result := 'unsupported yet';
{$ENDIF DELPHI22_UP}
end; end;
procedure TFMXApplicationService.Run; procedure TFMXApplicationService.Run;