paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 15:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn-Cocoa: First commit which deals with Accessibility, for now just exploring

Browse Source 
git-svn-id: trunk@36069 -
This commit is contained in:
sekelsenmat 2012-03-16 08:12:36 +00:00
parent 4c122be304
commit ed33ab735e
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/interfaces/customdrawn/cocoaprivate.pas
View File

@ -84,6 +84,23 @@ type
function lclFrame: TRect; message 'lclFrame';
procedure lclSetFrame(const r: TRect); message 'lclSetFrame:';
function lclClientFrame: TRect; message 'lclClientFrame';
// Accessibility
//NSAccessibilityCategory = objccategory external (NSObject)
//function accessibilityAttributeNames: NSArray; override;
function accessibilityAttributeValue(attribute: NSString): id; override;
{function accessibilityIsAttributeSettable(attribute: NSString): Boolean; message 'accessibilityIsAttributeSettable:';
procedure accessibilitySetValue_forAttribute(value: id; attribute: NSString); message 'accessibilitySetValue:forAttribute:';
function accessibilityParameterizedAttributeNames: NSArray; message 'accessibilityParameterizedAttributeNames';
function accessibilityAttributeValue_forParameter(attribute: NSString; parameter: id): id; message 'accessibilityAttributeValue:forParameter:';
function accessibilityActionNames: NSArray; message 'accessibilityActionNames';
function accessibilityActionDescription(action: NSString): NSString; message 'accessibilityActionDescription:';
procedure accessibilityPerformAction(action: NSString); message 'accessibilityPerformAction:';
function accessibilityIsIgnored: Boolean; message 'accessibilityIsIgnored';
function accessibilityHitTest(point: NSPoint): id; message 'accessibilityHitTest:';
function accessibilityFocusedUIElement: id; message 'accessibilityFocusedUIElement';
function accessibilityIndexOfChild(child: id): NSUInteger; message 'accessibilityIndexOfChild:';
function accessibilityArrayAttributeCount(attribute: NSString): NSUInteger; message 'accessibilityArrayAttributeCount:';
function accessibilityArrayAttributeValues_index_maxCount(attribute: NSString; index: NSUInteger; maxCount: NSUInteger): NSArray; message 'accessibilityArrayAttributeValues:index:maxCount:';}
end;
procedure SetViewDefaults(AView: NSView);
@ -753,6 +770,21 @@ begin
Result.Bottom:=Round(r.size.height);
end;
function TCocoaCustomControl.accessibilityAttributeValue(attribute: NSString): id;
var
lStrAttr: String;
begin
inherited accessibilityAttributeValue(attribute);
{ lStrAttr := NSStringToString(attribute);
DebugLn('[TCocoaCustomControl.accessibilityAttributeValue] attribute='+lStrAttr);
if attribute = NSAccessibilityChildrenAttribute then
begin
DebugLn('[TCocoaCustomControl.accessibilityAttributeValue] NSAccessibilityChildrenAttribute');
end;}
end;
procedure SetViewDefaults(AView:NSView);
begin
if not Assigned(AView) then Exit;