pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: carbon - trigger selection change event, if changed via code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4624 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-04-20 03:51:06 +00:00
parent 16f014853b
commit 7ed46a00bc
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/richmemo/carbon/carbonrichmemo.pas
View File

@ -90,6 +90,9 @@ type
implementation
type
TIntCustomRichMemo = class(TCustomRichMemo);
// Notes:
// http://developer.apple.com/DOCUMENTATION/Carbon/Reference/Multilingual_Text_Engine/Reference/reference.html
@ -456,11 +459,14 @@ class procedure TCarbonWSCustomRichMemo.SetSelStart(
const ACustomEdit: TCustomEdit; NewStart: integer);
var
edit : TCarbonRichEdit;
sl : Integer;
begin
edit := GetValidRichEdit(ACustomEdit);
if Assigned(edit) then begin
edit.SetSelStart(NewStart);
TXNShowSelection( HITextViewGetTXNObject( edit.Widget ), false);
TIntCustomRichMemo(ACustomEdit).DoSelectionChange;
end;
end;
{$ENDIF}
@ -524,9 +530,6 @@ begin
CGContextFillRect(aContext, r);
end;
type
TIntCustomRichMemo = class(TCustomRichMemo);
function CarbonRichEdit_ChangeSel(ANextHandler: EventHandlerCallRef;
AEvent: EventRef;
AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}