If it hooks ExtTextOut, then the color settings will most likely make a
difference.
Each time the color (or text style, e.g. bold) changes, the Editor
interrupts the output, and makes a new call. Also colors change, when
the caret moves, so there is constant redrawing.
I attached a file editoroptions.xml
It has (almost) all colors black and white. Selected text will be bold.
While lazarus is not running, put this file into: (replacing username
with your name / make a backup of the old file)
C:\Users\username\AppData\Local\lazarus\editoroptions.xml
This file also overrides keyboard shortcuts, and mouse settings (in case
you changed any of them).
On 07/10/2017 15:46, Lubos Pintes via Lazarus wrote:
Hello and thank for info. NVDA uses screen scraping, it hooks Windows
API like ExtTextOut, TextOut, etc. This rarely works well, and it is
used as a last chance when everything else fails.
Also there is an OCR, but it is only for static things, i.e. take a
snapshot of window and OCR it. So for example an inaccessible
installer can be used quite well, but something as dynamic as edit
text area cannot, at least now.
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<EditorOptions Version="11">
<Display DoNotWarnForFont="DejaVu Sans Mono" ExtraLineSpacing="0" MarkupCurrentWordTime="500" MarkupCurrentWordFullLen="2" MarkupCurrentWordNoKeyword="True" EditorFont="DejaVu Sans Mono" EditorFontSize="9">
<MarkupCurrentWord Time="500"/>
</Display>
<Color Version="11">
<LangObjectPascal Version="11">
<ColorScheme Value="Default"/>
<SchemeDefault>
<ahaBracketMatch Background="clYellow" FrameColor="clBtnShadow"/>
<ahaFoldedCode Background="clYellow" Foreground="clNone" FrameColor="clMaroon" UseSchemeGlobals="False"/>
<ahaHighlightAll Background="clNone" UseSchemeGlobals="False"/>
<ahaIncrementalSearch Background="clNone" Foreground="clNone" UseSchemeGlobals="False"/>
<ahaLineHighlight UseSchemeGlobals="False"/>
<ahaLineNumber Background="15000804" UseSchemeGlobals="False"/>
<ahaHighlightWord Background="clNone" FrameColor="clNone" UseSchemeGlobals="False"/>
<ahaRightMargin UseSchemeGlobals="False"/>
<ahaSyncroEditCur FrameColor="clRed" UseSchemeGlobals="False" Background="clWhite"/>
<ahaSyncroEditOther FrameColor="clSilver" UseSchemeGlobals="False"/>
<ahaSyncroEditSync Background="clWhite" FrameColor="clFuchsia" UseSchemeGlobals="False"/>
<ahaSyncroEditArea Background="13364594" UseSchemeGlobals="False" BackAlpha="128"/>
<Space FrameEdges="sfeLeft" UseSchemeGlobals="False"/>
<Number Foreground="clNone"/>
<String Foreground="clNone" ForePriority="6999"/>
<Symbol Foreground="clNone"/>
<Comment Foreground="clNone" FrameStyle="slsDashed" Style="fsItalic"/>
<Assembler Foreground="clNone"/>
<Directive Foreground="clNone" Style=""/>
<Case_label Style="fsItalic"/>
<Reserved_word Style=""/>
</SchemeDefault>
<SchemeTwilight>
<ahaRightMargin Foreground="clBtnFace" UseSchemeGlobals="False"/>
</SchemeTwilight>
<SchemeOcean>
<ahaRightMargin Foreground="clBtnFace" UseSchemeGlobals="False"/>
</SchemeOcean>
<SchemePascal_Classic>
<ahaRightMargin Foreground="clBtnFace" UseSchemeGlobals="False"/>
</SchemePascal_Classic>
<SchemeMy_own_color_scheme>
<String Background="15066597"/>
<Comment Foreground="clGray"/>
<Assembler Foreground="4079166"/>
<Directive Style="fsBold" Foreground="clGray"/>
<ahaDefault Background="clWhite" UseSchemeGlobals="False"/>
<Reserved_word Style="fsBold"/>
</SchemeMy_own_color_scheme>
<FileExtensions Value="pp;pas;inc;lpr;lrs;dpr;dpk;fpd;iss"/>
</LangObjectPascal>
<LangHTML_document Version="11">
<SchemeDefault>
<Matching_Brackets>
<BackgroundColor Value="16776960"/>
</Matching_Brackets>
<ahaIncrementalSearch Background="clAqua" UseSchemeGlobals="False"/>
<ahaRightMargin Foreground="clBtnFace" UseSchemeGlobals="False"/>
<Asp Background="clAqua" UseSchemeGlobals="False"/>
<CDATA Style="fsItalic"/>
<Comment Background="clYellow" UseSchemeGlobals="False"/>
<Escape_ampersand Foreground="clOlive" UseSchemeGlobals="False"/>
</SchemeDefault>
<ColorScheme Value="Default"/>
</LangHTML_document>
<LangC__ Version="11">
<ColorScheme Value="Default"/>
<SchemeDefault>
<Assembler Background="clSkyBlue" Foreground="clPurple" Style="fsItalic" UseSchemeGlobals="False"/>
</SchemeDefault>
</LangC__>
<LangXML_document Version="11">
<SchemeDefault>
<ahaRightMargin Foreground="clBtnFace" UseSchemeGlobals="False"/>
<Comment Style="fsItalic" UseSchemeGlobals="False"/>
<Element_Name Style="" UseSchemeGlobals="False"/>
<Attribute_Name Foreground="clNone" UseSchemeGlobals="False"/>
<Attribute_Value Style="" UseSchemeGlobals="False"/>
</SchemeDefault>
</LangXML_document>
<LangSQL Version="5">
<ColorScheme Value="Default"/>
</LangSQL>
<Lang Version="5"/>
<Globals Version="11">
<SchemeDefault>
<ahaCodeFoldingTree FrameColor="clMaroon"/>
<ahaErrorLine Background="8698879" Foreground="clNone"/>
<ahaEnabledBreakpoint Foreground="clNone" Background="clNone"/>
<ahaInvalidBreakpoint Foreground="clNone"/>
<ahaUnknownBreakpoint Foreground="clNone"/>
<ahaDisabledBreakpoint Foreground="clNone" Background="clNone"/>
<ahaSpecialVisibleChars Foreground="clMedGray" FrameStyle="slsDotted"/>
<ahaNestedHeaderHint Background="clSkyBlue" FrameColor="clPurple"/>
<ahaLineHighlight Background="clMoneyGreen"/>
<ahaExecutionPoint Background="5855577"/>
<ahaIfDefNodeActive FrameStyle="slsDashed"/>
<ahaIfDefNodeInactive FrameStyle="slsDotted" FrameEdges="sfeBottom" ForeAlpha="165" Foreground="clSilver"/>
<ahaIfDefNodeTmpActive FrameColor="47545" Style="fsUnderline"/>
<ahaIfDefBlockTmpActive Background="clYellow" BackAlpha="20"/>
<ahaFoldedCodeLine FrameColor="clMaroon" FrameEdges="sfeBottom"/>
<ahaHiddenCodeLine FrameColor="clMaroon" FrameStyle="slsDashed" FrameEdges="sfeBottom"/>
<ahaIfDefBlockActive FrameEdges="sfeBottom"/>
<ahaIfDefBlockInactive FrameEdges="sfeBottom"/>
<ahaMouseLink Foreground="clNone" FrameColor="clNone"/>
<ahaTextBlock Background="clNone" Foreground="clNone" Style="fsBold,fsUnderline"/>
<ahaWordGroup FrameColor="clNone"/>
<ahaTopInfoHint Background="clNone" Foreground="clNone" FrameColor="clNone"/>
<ahaBracketMatch Style=""/>
</SchemeDefault>
<SchemeMy_own_color_scheme>
<ahaDefault Background="clWhite"/>
</SchemeMy_own_color_scheme>
</Globals>
<LangCascading_style_sheets Version="7">
<SchemeDefault>
<Key Foreground="clNavy"/>
<Number Foreground="clRed"/>
<Comment Foreground="clMaroon"/>
<Identifier Foreground="clPurple"/>
</SchemeDefault>
</LangCascading_style_sheets>
</Color>
<CodeTools AutoDelayInMSec="500" AutoBlockCompletion="False" CompletionLongLineHintInMSec="403" CompletionLongLineHintTypeCompletionLongLineHintType="sclpExtendHalfLeft" CodeTemplateFileName="B:\laz_configs\lazarus_latest\lazarus.dci" AutoDisplayFuncPrototypes="False"/>
<General>
<Editor TabWidth="2" DropFiles="True" KeepCaretX="True" TabPosition="tpTop" EnhanceEndKey="True" AutoHideCursor="True" EnhanceHomeKey="True" ShowScrollHint="True" ScrollByOneLess="True" ShowTabCloseButtons="False" SpaceTrimType="LeaveLine" UndoLimit="32766" SmartTabs="False" HideSingleTabInWindow="True" ScrollPastEol="False" BracketHighlight="False"/>
</General>
<DividerDraw>
<LangObjectPascal>
<TypeProc>
<MaxDepth Value="2"/>
<NestColor Value="14737632"/>
<TopColor Value="16711935"/>
</TypeProc>
<TypeGStruct>
<NestColor Value="-2147483622"/>
<TopColor Value="128"/>
</TypeGStruct>
<TypeGVar>
<TopColor Value="-2147483622"/>
</TypeGVar>
<TypeSect>
<TopColor Value="0"/>
</TypeSect>
<TypeLVar>
<TopColor Value="-2147483647"/>
<NestColor Value="-2147483647"/>
</TypeLVar>
<TypeLStruct>
<TopColor Value="-2147483619"/>
<NestColor Value="-2147483619"/>
</TypeLStruct>
<TypeBegin>
<TopColor Value="8421376"/>
<NestColor Value="8388736"/>
</TypeBegin>
<TypeUses>
<MaxDepth Value="1"/>
</TypeUses>
</LangObjectPascal>
</DividerDraw>
</EditorOptions>
</CONFIG>
--
_______________________________________________
Lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
