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

Starts minimal accessibility info for SynEdit

Browse Source 
git-svn-id: trunk@35100 -
This commit is contained in:
sekelsenmat 2012-02-02 21:32:07 +00:00
parent d1b6d6ed3b
commit b8ee1aed53
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -1999,6 +1999,11 @@ begin
fScrollTimer.Enabled := False;
fScrollTimer.Interval := 100;
fScrollTimer.OnTimer := {$IFDEF FPC}@{$ENDIF}ScrollTimerHandler;
// Accessibility
AccessibleRole := larTextEditorMultiline;
AccessibleValue := Self.Text;
AccessibleDescription := 'source code editor';
end;
function TCustomSynEdit.GetChildOwner: TComponent;