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