paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: improve Lookup Word in TCocoaFullControlEdit.attributedSubstringForProposedRange_actualRange()

Browse Source
This commit is contained in:
rich2014 2024-08-29 23:52:44 +08:00
parent 9297084337
commit d59051c6f5
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -460,6 +460,16 @@ var
attribs.release;
end;
procedure setActualRange;
begin
if aRange.location >= (LW_LOCATION_BASE/2) then begin
actualRange^:= LWParamsToRange( params );
end else begin
actualRange^.location:= aRange.location;
actualRange^.length:= textWord.length;
end
end;
begin
Result:= nil;
@ -468,7 +478,7 @@ begin
initParams;
initTextWord;
actualRange^:= LWParamsToRange( params );
setActualRange;
Result:= getAttributeWord;
end;