diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index efd361330c..e025d1a736 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -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;