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

richmemo: carbon - implementing selection change event. The only way seems possible, by tracking selection before and after mouse/keyboard event. Todo: check if the event is fired, if selection is changed by code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-04-20 03:37:36 +00:00
parent 180a5c96c9
commit 16f014853b
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -524,6 +524,30 @@ begin
CGContextFillRect(aContext, r);
end;
type
TIntCustomRichMemo = class(TCustomRichMemo);
function CarbonRichEdit_ChangeSel(ANextHandler: EventHandlerCallRef;
AEvent: EventRef;
AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}
var
sofs, eofs: TXNOffset;
sofs2, eofs2: TXNOffset;
begin
// selection before
TXNGetSelection( HITextViewGetTXNObject(AWidget.Widget), sofs, eofs);
Result := CallNextEventHandler(ANextHandler, AEvent);
// selection after
TXNGetSelection( HITextViewGetTXNObject(AWidget.Widget), sofs2, eofs2);
// seems like something has changed!
// Sorry, for the direct access!
if (sofs<>sofs2) or (eofs<>eofs2) then
TIntCustomRichMemo( AWidget.LCLObject ).DoSelectionChange;
end;
function CarbonRichEdit_Draw(ANextHandler: EventHandlerCallRef;
AEvent: EventRef;
AWidget: TCarbonWidget): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}
@ -542,6 +566,7 @@ end;
procedure TCarbonRichEdit.RegisterEvents;
var
TmpSpec: EventTypeSpec;
TmpSpecArr: array [0..2] of EventTypeSpec;
begin
inherited RegisterEvents;
@ -553,6 +578,15 @@ begin
1, @TmpSpec, Pointer(Self), nil);
end;
// It's unclear, if there's a better way for tracking change of selection
TmpSpecArr[0]:=MakeEventSpec(kEventClassKeyboard, kEventRawKeyRepeat); // by keyboard
TmpSpecArr[1]:=MakeEventSpec(kEventClassKeyboard, kEventRawKeyDown);
TmpSpecArr[2]:=MakeEventSpec(kEventClassControl, kEventControlTrack); // by mouse
InstallControlEventHandler(Widget,
RegisterEventHandler(@CarbonRichEdit_ChangeSel),
3, @TmpSpecArr, Pointer(Self), nil);
target :=HIViewGetEventTarget(Widget);
end;