修正开源控件kcontrols不能在linux使用中文输入法的bug

kcontrols这个控件TKMemo可以使用rich功能，但有个致命问题是在linux不能使用中文输入法。
今天尝试修复这个Bug。
打开kcontrols\source\kmemo.pas
添加红色代码：

{ @abstract(This file is part of the KControls component suite for Delphi and Lazarus.)@author(Tomas Krysl)Copyright (c) 2020 Tomas Krysl<BR><BR><B>License:</B><BR>This code is licensed under BSD 3-Clause Clear License, see file License.txt or https://spdx.org/licenses/BSD-3-Clause-Clear.html.
}{$ifdef linux}
{$define WITH_GTK2_IM}
{$endif}

unit kmemo; // lowercase name because of Lazarus/Linux{$include kcontrols.inc}
{$WEAKPACKAGEUNIT ON}interface

在1817行添加红色代码行：
TKCustomMemo增加输入法消息处理：

procedure WMImeComposition (var Message: TLMessage); message LM_IM_COMPOSITION;

 

    procedure WMCut(var Msg: TLMessage); message LM_CUT;{$IFNDEF FPC}// no way to get filenames in Lazarus inside control (why??)procedure WMDropFiles(var Msg: TLMessage); message LM_DROPFILES;{$ENDIF}procedure WMEraseBkgnd(var Msg: TLMessage); message LM_ERASEBKGND;procedure WMGetDlgCode(var Msg: TLMNoParams); message LM_GETDLGCODE;procedure WMHScroll(var Msg: TLMHScroll); message LM_HSCROLL;procedure WMKillFocus(var Msg: TLMKillFocus); message LM_KILLFOCUS;procedure WMPaste(var Msg: TLMessage); message LM_PASTE;procedure WMSetFocus(var Msg: TLMSetFocus); message LM_SETFOCUS;procedure WMVScroll(var Msg: TLMVScroll); message LM_VSCROLL;{$ifdef linux}procedure WMImeComposition (var Message: TLMessage); message LM_IM_COMPOSITION;{$endif}
  protectedFCaretRect: TRect;FDragCurPos: TPoint;FDragMode: TKSizingGripPosition;FDragOrigRect: TRect;

在7121行添加红色代码：

procedure TKCustomMemo.WMVScroll(var Msg: TLMVScroll);
beginSafeSetFocus;Scroll(cScrollNoAction, Msg.ScrollCode, 0, Msg.Pos, eoScrollWindow in FOptions);
end;{$ifdef linux}
procedure TKCustomMemo.WMImeComposition (var Message: TLMessage);
var IMStr,s1,s2:string;i:integer;pos:TPoint;
beginif Message.WParam=GTK_IM_FLAG_COMMIT thenbeginIMStr:=UTF8Decode(pchar(Message.LParam)); //输入的字符if IMStr<>'' thenbeginKeyPress(IMStr[1]);InsertString(SelEnd, IMStr);pos.X:=GetSelStart+GetSelLength+utf8length(imstr);//计算添加字符串后的光标位置pos.Y:=0;//s1:=utf8copy(Edittext,1,GetSelStart);//s2:=utf8copy(editText,GetSelStart+GetSelLength+1,length(edittext));//EditText:= s1+IMStr+s2;//SetCaretPos(pos);//设置光标位置end;end;//im_context_use:=false;inherited;
end;{$endif}

{ TKMemoBlock }constructor TKMemoBlock.Create;
begininherited;FOffset := CreateEmptyPoint;FDoubleClickState := mdblNone;

修改后重新编译就可以在linux使用中文输入（fcitx）。