paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:10:20 +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: lcSendsUTF8KeyPress:
if IntfSendsUTF8KeyPress() then Result := LCL_CAPABILITY_YES if IntfSendsUTF8KeyPress() then Result := LCL_CAPABILITY_YES
else Result := LCL_CAPABILITY_NO; else Result := LCL_CAPABILITY_NO;
lcAccessibilitySupport: Result := LCL_CAPABILITY_NO;
else else
Result := LCL_CAPABILITY_NO; Result := LCL_CAPABILITY_NO;
end; end;

2
lcl/include/treeview.inc
View File

@ -3070,7 +3070,7 @@ begin
// Accessibility // Accessibility
AccessibleDescription := rsTTreeViewAccessibilityDescription; AccessibleDescription := rsTTreeViewAccessibilityDescription;
AccessibleRole := larTreeView; AccessibleRole := larTreeView;
FAccessibilityOn := True; FAccessibilityOn := WidgetSet.GetLCLCapability(lcAccessibilitySupport) = LCL_CAPABILITY_YES;
end; end;
destructor TCustomTreeView.Destroy; 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 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 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 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 } { TDialogButton }

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

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