paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 22:18:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove function IntfSendsUTF8KeyPress. Was deprecated in 2011.

Browse Source 
git-svn-id: trunk@64467 -
This commit is contained in:
juha 2021-02-05 11:28:18 +00:00
parent 95b5489cff
commit d4256b2fe5
4 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/intfbaselcl.inc
View File

@ -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;

10
lcl/include/lclintf.inc
View File

@ -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;

1
lcl/include/lclintfh.inc
View File

@ -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}

4
lcl/include/wincontrol.inc
View File

@ -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