paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 11:59:28 +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;
lLazAXRole: TLazAccessibilityRole;
lCurAccessibleObject: TLazAccessibleObject;
Command: HICommandExtended;
EventKind: UInt32;
// array
@ -503,7 +504,9 @@ begin
lArray := CFArrayCreateMutable(kCFAllocatorDefault, lCount, @kCFTypeArrayCallBacks);
for i := 0 to lCount - 1 do
begin
lElement := AXUIElementRef(lInputAccessibleObject.Handle);
lCurAccessibleObject := lInputAccessibleObject.GetChildAccessibleObject(i);
if lCurAccessibleObject = nil then Continue;
lElement := AXUIElementRef(lCurAccessibleObject.Handle);
if lElement <> nil then
CFArrayAppendValue(lArray, lElement);
end;
@ -518,8 +521,8 @@ begin
begin
if not (lLazControl is TCustomControl) then Exit;
{$ifdef CarbonUseCocoaAll}
SetEventParameter(AEvent, kEventParamAccessibleAttributeParameter, typeCFStringRef,
SizeOf(CFStringRef), @NSAccessibilityHorizontalOrientationValue);
SetEventParameter(AEvent, kEventParamAccessibleAttributeValue, typeCFStringRef,
SizeOf(CFStringRef), @NSAccessibilityVerticalOrientationValue);
Result := noErr;
{$endif}
end