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

Removes the special accessible description in some IDE controls, improves a little the Carbon accessibility

Browse Source 
git-svn-id: trunk@35242 -
This commit is contained in:
sekelsenmat 2012-02-08 18:40:45 +00:00
parent 781176276f
commit c63e24b53b
26 changed files with 124 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/initialsetupdlgs.pas
View File

@ -894,9 +894,6 @@ begin
FPCSrcDirLabel.Caption:=Format(
lisTheSourcesOfTheFreePascalPackagesAreRequiredForBro, [SetDirSeparators('rtl'
+'/linux/system.pp')]);
PropertiesTreeView.AccessibleDescription := lisInitialSetupDialogTreeViewAccessibleDescription;
PropertiesPageControl.AccessibleDescription := lisInitialSetupDialogPageControlAccessibleDescription;
end;
procedure TInitialSetupDialog.CompilerComboBoxChange(Sender: TObject);

2
ide/lazarusidestrconsts.pas
View File

@ -5455,8 +5455,6 @@ resourcestring
lisDebuggerFeedbackLess = 'Less';
lisDebuggerFeedbackMore = 'More';
lisDebuggerFeedbackOk = 'OK';
lisInitialSetupDialogTreeViewAccessibleDescription = 'List to select the visible properties page';
lisInitialSetupDialogPageControlAccessibleDescription = 'Tab control to select the visible properties page';
// breakpointgroups
dbgBreakGroupDlgCaptionEnable = 'Select Groups';

3
lcl/include/customnotebook.inc
View File

@ -224,6 +224,9 @@ begin
ShowTabs := True;
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, CX, CY);
// Accessibility
AccessibleDescription := rsTCustomTabControlAccessibilityDescription;
AccessibleRole := larTabControl;
end;
{------------------------------------------------------------------------------

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

@ -342,8 +342,11 @@ begin
// AXStaticText
if lLazAXRole in larAXStaticTextRoles then
begin
lOutputStr := CFSTR('AXValue');
CFArrayAppendValue(lInputMutableArray, lOutputStr);
if lLazAXRole = larResizeGrip then
begin
lOutputStr := CFSTR('AXValue');
CFArrayAppendValue(lInputMutableArray, lOutputStr);
end;
lOutputStr := CFSTR('AXStringForRange');
CFArrayAppendValue(lInputMutableArray, lOutputStr);
lOutputStr := CFSTR('AXAttributedStringForRange');
@ -439,7 +442,7 @@ begin
larResizeGrip: lAXRole := CFSTR('AXStaticText'); // VoiceOver cannot handle AXHandle in Mac 10.6, so we fallback to AXStaticText
larScrollBar: lAXRole := CFSTR('AXScrollBar');
larSpinner: lAXRole := CFSTR('AXIncrementor');
larTabControl: lAXRole := CFSTR('AXTabGroup');
larTabControl: lAXRole := CFSTR('AXTabGroup'); // Note that here we represent the tabsheet actually
larTextEditorMultiline: lAXRole := CFSTR('AXTextArea');
larTextEditorSingleline: lAXRole := CFSTR('AXTextField');
larTrackBar: lAXRole := CFSTR('AXSlider');
@ -472,8 +475,12 @@ begin
begin
if not (lLazControl is TCustomControl) then Exit;
if lLazControl is TCustomForm then Exit;
if (lInputID64 = 0) then Exit;
CreateCFString(lInputAccessibleObject.AccessibleValue, lOutputStr);
if (lInputID64 = 0) and (not (lLazAXRole = larResizeGrip)) then Exit;
// Hack around the lack of support for AXHandle in VoiceOver
if lLazAXRole = larResizeGrip then
CreateCFString(lInputAccessibleObject.AccessibleDescription, lOutputStr)
else
CreateCFString(lInputAccessibleObject.AccessibleValue, lOutputStr);
SetEventParameter(AEvent, kEventParamAccessibleAttributeValue, typeCFStringRef,
SizeOf(CFStringRef), @lOutputStr);
FreeCFString(lOutputStr);

6
lcl/languages/lclstrconsts.ca.po
View File

@ -1219,6 +1219,10 @@ msgstr " mida "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1238,7 +1242,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.cs.po
View File

@ -1217,6 +1217,10 @@ msgstr " velikost "
msgid "Sky Blue"
msgstr "Nebeská modrá"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Hluboká zelenomodrá"
@ -1236,7 +1240,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.de.po
View File

@ -1218,6 +1218,10 @@ msgstr " Größe "
msgid "Sky Blue"
msgstr "Himmelblau"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Türkiss"
@ -1237,7 +1241,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.es.po
View File

@ -1217,6 +1217,10 @@ msgstr " tamaño "
msgid "Sky Blue"
msgstr "Cielo azul"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Turquesa"
@ -1236,7 +1240,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.fi.po
View File

@ -1200,6 +1200,10 @@ msgstr " koko "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1219,7 +1223,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.fr.po
View File

@ -1223,6 +1223,10 @@ msgstr " taille"
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1242,7 +1246,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.he.po
View File

@ -1214,6 +1214,10 @@ msgstr "גודל"
msgid "Sky Blue"
msgstr "כחול שמיים"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "כחלחל ירקרק"
@ -1233,7 +1237,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.id.po
View File

@ -1220,6 +1220,10 @@ msgstr " ukuran "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1239,7 +1243,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.it.po
View File

@ -1222,6 +1222,10 @@ msgstr " ampiezza "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Ocra"
@ -1241,7 +1245,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.lt.po
View File

@ -1221,6 +1221,10 @@ msgstr " dydis "
msgid "Sky Blue"
msgstr "Dangaus žydrumo"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Tamsiai žydra"
@ -1240,7 +1244,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.nl.po
View File

@ -1217,6 +1217,10 @@ msgstr " afmeting "
msgid "Sky Blue"
msgstr "Hemelsblauw"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Blauwachtig groen (teal)"
@ -1236,7 +1240,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.no.po
View File

@ -1225,6 +1225,10 @@ msgstr " størrelse"
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1244,7 +1248,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.pl.po
View File

@ -1213,6 +1213,10 @@ msgstr " rozmiar "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1232,7 +1236,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.po
View File

@ -1198,6 +1198,10 @@ msgstr ""
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1217,7 +1221,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.pt.po
View File

@ -1218,6 +1218,10 @@ msgstr " tamanho "
msgid "Sky Blue"
msgstr "Azul Celeste"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Verde Musgo"
@ -1237,7 +1241,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.pt_BR.po
View File

@ -1212,6 +1212,10 @@ msgstr " tamanho "
msgid "Sky Blue"
msgstr "Azul Celeste"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Verde Musgo"
@ -1231,7 +1235,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

8
lcl/languages/lclstrconsts.ru.po
View File

@ -1222,6 +1222,10 @@ msgstr " размер "
msgid "Sky Blue"
msgstr "Голубой"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Бирюзовый"
@ -1240,8 +1244,10 @@ msgid "Panel"
msgstr "Панель"
#: lclstrconsts.rstsplitteraccessibilitydescription
#, fuzzy
#| msgid "A grip to control how much size to give the left and right parts of an area"
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr "Захват для управления соотношением размеров областей слева и справа"
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.sk.po
View File

@ -1222,6 +1222,10 @@ msgstr "..veľkosť "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1241,7 +1245,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.tr.po
View File

@ -1219,6 +1219,10 @@ msgstr " boyut "
msgid "Sky Blue"
msgstr ""
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr ""
@ -1238,7 +1242,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.uk.po
View File

@ -1209,6 +1209,10 @@ msgstr " розмір "
msgid "Sky Blue"
msgstr "Небесно-синій"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "Синьо-зелений"
@ -1228,7 +1232,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

6
lcl/languages/lclstrconsts.zh_CN.po
View File

@ -1222,6 +1222,10 @@ msgstr "大小"
msgid "Sky Blue"
msgstr "天蓝"
#: lclstrconsts.rstcustomtabcontrolaccessibilitydescription
msgid "A control with tabs"
msgstr ""
#: lclstrconsts.rstealcolorcaption
msgid "Teal"
msgstr "青"
@ -1241,7 +1245,7 @@ msgstr ""
#: lclstrconsts.rstsplitteraccessibilitydescription
msgctxt "lclstrconsts.rstsplitteraccessibilitydescription"
msgid "A grip to control how much size to give the left and right parts of an area"
msgid "A grip to control how much size to give two parts of an area"
msgstr ""
#: lclstrconsts.rsttreeviewaccessibilitydescription

3
lcl/lclstrconsts.pas
View File

@ -503,7 +503,8 @@ resourceString
// Accessibility
rsTTreeViewAccessibilityDescription = 'A tree of items';
rsTPanelAccessibilityDescription = 'Panel';
rsTSplitterAccessibilityDescription = 'A grip to control how much size to give the left and right parts of an area';
rsTSplitterAccessibilityDescription = 'A grip to control how much size to give two parts of an area';
rsTCustomTabControlAccessibilityDescription = 'A control with tabs';
implementation