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

Victory! TTreeView is finally accessible in LCL-Carbon via VoiceOver =)

Browse Source 
git-svn-id: trunk@34834 -
This commit is contained in:
sekelsenmat 2012-01-21 12:13:30 +00:00
parent edf146fe37
commit c090ec3d8b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/carbon/carbonprivatecontrol.inc
View File

@ -194,6 +194,7 @@ var
// //
lLazControl: TControl; lLazControl: TControl;
lLazAXRole: TLazAccessibilityRole; lLazAXRole: TLazAccessibilityRole;
lCurAccessibleObject: TLazAccessibleObject;
Command: HICommandExtended; Command: HICommandExtended;
EventKind: UInt32; EventKind: UInt32;
// array // array
@ -503,7 +504,9 @@ begin
lArray := CFArrayCreateMutable(kCFAllocatorDefault, lCount, @kCFTypeArrayCallBacks); lArray := CFArrayCreateMutable(kCFAllocatorDefault, lCount, @kCFTypeArrayCallBacks);
for i := 0 to lCount - 1 do for i := 0 to lCount - 1 do
begin begin
lElement := AXUIElementRef(lInputAccessibleObject.Handle); lCurAccessibleObject := lInputAccessibleObject.GetChildAccessibleObject(i);
if lCurAccessibleObject = nil then Continue;
lElement := AXUIElementRef(lCurAccessibleObject.Handle);
if lElement <> nil then if lElement <> nil then
CFArrayAppendValue(lArray, lElement); CFArrayAppendValue(lArray, lElement);
end; end;
@ -518,8 +521,8 @@ begin
begin begin
if not (lLazControl is TCustomControl) then Exit; if not (lLazControl is TCustomControl) then Exit;
{$ifdef CarbonUseCocoaAll} {$ifdef CarbonUseCocoaAll}
SetEventParameter(AEvent, kEventParamAccessibleAttributeParameter, typeCFStringRef, SetEventParameter(AEvent, kEventParamAccessibleAttributeValue, typeCFStringRef,
SizeOf(CFStringRef), @NSAccessibilityHorizontalOrientationValue); SizeOf(CFStringRef), @NSAccessibilityVerticalOrientationValue);
Result := noErr; Result := noErr;
{$endif} {$endif}
end end