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

Fixed accented characters issue in web pages

Browse Source
This commit is contained in:
Salvador Díaz Fau
2020-04-23 12:32:52 +02:00
parent fd50565420
commit 22b59eae73
14 changed files with 178 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
demos/Delphi_FMX/FMXTabbedOSRBrowser/uBrowserTab.pas
View File

@ -70,6 +70,8 @@ type
procedure HandleSYSCHAR(const aMessage : TMsg);
procedure HandleSYSKEYDOWN(const aMessage : TMsg);
procedure HandleSYSKEYUP(const aMessage : TMsg);
procedure HandleKEYDOWN(const aMessage : TMsg);
procedure HandleKEYUP(const aMessage : TMsg);
function HandlePOINTER(const aMessage : TMsg) : boolean;
function PostFormMessage(aMsg : cardinal; aWParam : WPARAM = 0; aLParam : LPARAM = 0) : boolean;
{$ENDIF}
@ -189,6 +191,18 @@ begin
FBrowserFrame.HandleSYSKEYUP(aMessage);
end;
procedure TBrowserTab.HandleKEYDOWN(const aMessage : TMsg);
begin
if (FBrowserFrame <> nil) then
FBrowserFrame.HandleKEYDOWN(aMessage);
end;
procedure TBrowserTab.HandleKEYUP(const aMessage : TMsg);
begin
if (FBrowserFrame <> nil) then
FBrowserFrame.HandleKEYUP(aMessage);
end;
function TBrowserTab.HandlePOINTER(const aMessage : TMsg) : boolean;
begin
Result := (FBrowserFrame <> nil) and