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

Adds a capability for Accessibility support

Browse Source 
git-svn-id: trunk@36113 -
This commit is contained in:
sekelsenmat 2012-03-17 12:23:40 +00:00
parent c01b8ac358
commit 83f7ae1a8d
4 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/interfacebase.inc
View File

@ -100,6 +100,7 @@ begin
lcSendsUTF8KeyPress:
if IntfSendsUTF8KeyPress() then Result := LCL_CAPABILITY_YES
else Result := LCL_CAPABILITY_NO;
lcAccessibilitySupport: Result := LCL_CAPABILITY_NO;
else
Result := LCL_CAPABILITY_NO;
end;

2
lcl/include/treeview.inc
View File

@ -3070,7 +3070,7 @@ begin
// Accessibility
AccessibleDescription := rsTTreeViewAccessibilityDescription;
AccessibleRole := larTreeView;
FAccessibilityOn := True;
FAccessibilityOn := WidgetSet.GetLCLCapability(lcAccessibilitySupport) = LCL_CAPABILITY_YES;
end;
destructor TCustomTreeView.Destroy;

3
lcl/interfacebase.pp
View File

@ -85,7 +85,8 @@ type
lcReceivesLMClearCutCopyPasteReliably, // In Carbon we do not receive LM_CLEAR, CUT, COPY, PASTE, etc reliably, and this affects DB controls. See bug http://bugs.freepascal.org/view.php?id=20394
lcSendsUTF8KeyPress, // If the interface does not yet send UTF8KeyPress directly, then it will be emulated in TWinControl.CNChar
lcAllowChildControlsInNativeControls, // Utilized by LCL-CustomDrawn so that it can inject child controls in native ones
lcEmulatedMDI // used for emulating MDI on widgetsets which does not provide native MDI handling
lcEmulatedMDI, // used for emulating MDI on widgetsets which does not provide native MDI handling
lcAccessibilitySupport // Indicates that accessibility is implemented, mostly for TCustomControl descendents as native widgests should have in-built accessibility
);
{ TDialogButton }

1
lcl/interfaces/carbon/carbonobject.inc
View File

@ -1232,6 +1232,7 @@ begin
Result := LCL_CAPABILITY_NO;
lcAntialiasingEnabledByDefault:
Result := LCL_CAPABILITY_YES;
lcAccessibilitySupport: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;