paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 03:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: improve init in TCocoaFullControlEdit

Browse Source
This commit is contained in:
rich2014 2024-08-29 00:42:22 +08:00
parent 168de1d7fb
commit ce91d6cb54
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoafullcontroledit.pas
View File

@ -80,6 +80,8 @@ type
imeHandler: ICocoaIMEControl;
lwHandler: ICocoaLookupWord;
public
function initWithFrame(frameRect: NSRect): id; override;
procedure keyDown(theEvent: NSEvent); override;
procedure mouseDown(event: NSEvent); override;
procedure mouseUp(event: NSEvent); override;
@ -135,6 +137,12 @@ end;
{ TCocoaFullControlEdit }
function TCocoaFullControlEdit.initWithFrame(frameRect: NSRect): id;
begin
Result:=inherited initWithFrame(frameRect);
self.unmarkText;
end;
{
for IME Key Down:
Key step for IME (such as Chinese/Japanese/Korean and DeadKeys)

1
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -2001,7 +2001,6 @@ begin
lcl := TLCLFullControlEditCallback.Create(ctrl, AWinControl);
TCocoaFullControlEdit(ctrl).imeHandler:= imeHandler;
TCocoaFullControlEdit(ctrl).lwHandler:= getControlLWHandler(AWinControl);
TCocoaFullControlEdit(ctrl).unmarkText;
end
else
begin