From d4256b2fe53635a6c49b1a1262711d6902bc49a2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 5 Feb 2021 11:28:18 +0000
Subject: [PATCH] LCL: Remove function IntfSendsUTF8KeyPress. Was deprecated in
 2011.

git-svn-id: trunk@64467 -
---
 lcl/include/intfbaselcl.inc |  5 -----
 lcl/include/lclintf.inc     | 10 ----------
 lcl/include/lclintfh.inc    |  1 -
 lcl/include/wincontrol.inc  |  4 ++--
 4 files changed, 2 insertions(+), 18 deletions(-)

diff --git a/lcl/include/intfbaselcl.inc b/lcl/include/intfbaselcl.inc
index 5e7c5378a8..d4401fd76c 100644
--- a/lcl/include/intfbaselcl.inc
+++ b/lcl/include/intfbaselcl.inc
@@ -465,11 +465,6 @@ begin
   Result:=false;
 end;
 
-function TWidgetSet.IntfSendsUTF8KeyPress: Boolean;
-begin
-  Result := GetLCLCapability(lcSendsUTF8KeyPress) = LCL_CAPABILITY_YES;
-end;
-
 function TWidgetSet.InvalidateFrame(aHandle: HWND; ARect: pRect;
   bErase: Boolean; BorderWidth: integer): Boolean;
 
diff --git a/lcl/include/lclintf.inc b/lcl/include/lclintf.inc
index 88799c0c16..31bd8e375e 100644
--- a/lcl/include/lclintf.inc
+++ b/lcl/include/lclintf.inc
@@ -317,16 +317,6 @@ begin
   Result := WidgetSet.GetWindowRelativePosition(Handle,Left,Top);
 end;
 
-{------------------------------------------------------------------------------
-  function IntfSendsUTF8KeyPress: Boolean;
-
-  Returns true if interface sends UTF8 KeyPress notifications.
-------------------------------------------------------------------------------}
-function IntfSendsUTF8KeyPress: Boolean;
-begin
-  Result := WidgetSet.IntfSendsUTF8KeyPress{%H-};
-end;
-
 {------------------------------------------------------------------------------
   function InvalidateFrame(aHandle: HWND; ARect: pRect; bErase: Boolean;
     BorderWidth: integer): Boolean;
diff --git a/lcl/include/lclintfh.inc b/lcl/include/lclintfh.inc
index 185fdc39f9..0e73dffc8a 100644
--- a/lcl/include/lclintfh.inc
+++ b/lcl/include/lclintfh.inc
@@ -82,7 +82,6 @@ function GetScrollBarSize(Handle: HWND; SBStyle: Integer): integer; {$IFDEF IF_B
 function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetWindowRelativePosition(Handle : hwnd; var Left, Top: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
-function IntfSendsUTF8KeyPress: Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF} deprecated;
 function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function IsMobilePlatform: Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 975556f875..07d22a49bf 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -7265,7 +7265,7 @@ procedure TWinControl.CNChar(var Message: TLMKeyUp);
 var
   c: TUTF8Char;
 begin
-  //debugln('TWinControl.CNChar B ',DbgSName(Self),' ',dbgs(Message.CharCode),' ',dbgs(IntfSendsUTF8KeyPress));
+  //debugln('TWinControl.CNChar B ',DbgSName(Self),' ',dbgs(Message.CharCode));
   if Widgetset.GetLCLCapability(lcSendsUTF8KeyPress) = LCL_CAPABILITY_NO then
   begin
     // current interface does not (yet) send UTF8 key press notifications -> emulate
@@ -7290,7 +7290,7 @@ begin
   end;
 
   {$ifdef VerboseKeyboard}
-    debugln('TWinControl.CNChar A ',DbgSName(Self),' ',dbgs(Message.CharCode),' ',dbgs(IntfSendsUTF8KeyPress));
+    debugln('TWinControl.CNChar A ',DbgSName(Self),' ',dbgs(Message.CharCode));
   {$endif}
 
   if DoKeyPress(Message) then