paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 17:47:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: reverting unintended change in cocoa_exta for NSTextInputClientProtocol

Browse Source 
git-svn-id: trunk@63711 -
This commit is contained in:
dmitry 2020-08-10 01:41:16 +00:00
parent d459164217
commit e66fb29c19
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/cocoa/cocoa_extra.pas
View File

@ -108,29 +108,6 @@ type
end; end;
{$endif} {$endif}
{$if FPC_FULLVERSION < 30200}
{NSTextInputClientProtocol = objcprotocol external name 'NSTextInputClient'
required
procedure insertText_replacementRange (aString: id; replacementRange: NSRange); message 'insertText:replacementRange:';
procedure doCommandBySelector (aSelector: SEL); message 'doCommandBySelector:';
procedure setMarkedText_selectedRange_replacementRange (aString: id; selectedRange: NSRange; replacementRange: NSRange); message 'setMarkedText:selectedRange:replacementRange:';
procedure unmarkText; message 'unmarkText';
function selectedRange: NSRange; message 'selectedRange';
function markedRange: NSRange; message 'markedRange';
function hasMarkedText: ObjCBOOL; message 'hasMarkedText';
function attributedSubstringForProposedRange_actualRange (aRange: NSRange; actualRange: NSRangePointer): NSAttributedString; message 'attributedSubstringForProposedRange:actualRange:';
function validAttributesForMarkedText: NSArray; message 'validAttributesForMarkedText';
function firstRectForCharacterRange_actualRange (aRange: NSRange; actualRange: NSRangePointer): NSRect; message 'firstRectForCharacterRange:actualRange:';
function characterIndexForPoint (aPoint: NSPoint): NSUInteger; message 'characterIndexForPoint:';
optional
function attributedString: NSAttributedString; message 'attributedString';
function fractionOfDistanceThroughGlyphForPoint (aPoint: NSPoint): CGFloat; message 'fractionOfDistanceThroughGlyphForPoint:';
function baselineDeltaForCharacterAtIndex (anIndex: NSUInteger): CGFloat; message 'baselineDeltaForCharacterAtIndex:';
function windowLevel: NSInteger; message 'windowLevel';
function drawsVerticallyForCharacterAtIndex (charIndex: NSUInteger): ObjCBOOL; message 'drawsVerticallyForCharacterAtIndex:'; { available in 10_6 }
end;}
{$endif}
NSEdgeInsets = packed record NSEdgeInsets = packed record
top : CGFloat; top : CGFloat;
left : CGFloat; left : CGFloat;