diff --git a/demos/SimpleFMXBrowser/uFMXApplicationService.pas b/demos/SimpleFMXBrowser/uFMXApplicationService.pas index cdb4f091..01fdafd0 100644 --- a/demos/SimpleFMXBrowser/uFMXApplicationService.pas +++ b/demos/SimpleFMXBrowser/uFMXApplicationService.pas @@ -107,7 +107,11 @@ end; function TFMXApplicationService.GetVersionString: string; begin + {$IFDEF DELPHI22_UP} Result := OldFMXApplicationService.GetVersionString; + {$ELSE DELPHI22_UP} + Result := 'unsupported yet'; + {$ENDIF DELPHI22_UP} end; procedure TFMXApplicationService.Run; diff --git a/demos/SimpleFMXBrowser/uSimpleFMXBrowser.pas b/demos/SimpleFMXBrowser/uSimpleFMXBrowser.pas index 58f9c419..de122575 100644 --- a/demos/SimpleFMXBrowser/uSimpleFMXBrowser.pas +++ b/demos/SimpleFMXBrowser/uSimpleFMXBrowser.pas @@ -207,18 +207,9 @@ begin end; procedure TSimpleFMXBrowserFrm.ResizeChild; -var - TempRect : System.Types.TRect; begin if (FMXWindowParent <> nil) then - begin - TempRect.Top := round(AddressPnl.Height); - TempRect.Left := 0; - TempRect.Right := ClientWidth - 1; - TempRect.Bottom := ClientHeight - 1; - - FMXWindowParent.SetBounds(TempRect); - end; + FMXWindowParent.SetBounds(0, round(AddressPnl.Height), ClientWidth - 1, ClientHeight - 1); end; procedure TSimpleFMXBrowserFrm.CreateFMXWindowParent; diff --git a/source/uFMXChromium.pas b/source/uFMXChromium.pas index 69b1d942..121dabd5 100644 --- a/source/uFMXChromium.pas +++ b/source/uFMXChromium.pas @@ -49,7 +49,7 @@ uses {$IFDEF MSWINDOWS} WinApi.Windows, WinApi.Messages, {$ENDIF} - FMX.Types, FMX.Platform, FMX.Controls, FMX.Forms, + FMX.Types, FMX.Platform, FMX.Forms, uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFMiscFunctions, uCEFClient, uCEFConstants, uCEFTask, uCEFChromiumEvents, uCEFChromiumOptions, uCEFChromiumFontOptions, uCEFPDFPrintOptions;