In TMainform.SetupSynEditors, check if loop editor variable really exists - which is not the case for at least one user. Fixes issue #2651.

This commit is contained in:
Ansgar Becker
2011-12-26 23:30:56 +00:00
parent d1c25d0182
commit b1a58e1ce2

View File

@@ -9309,6 +9309,9 @@ begin
BaseEditor.Options := BaseEditor.Options - [eoTabsToSpaces];
ActiveLineColor := StringToColor(GetRegValue(REGNAME_SQLCOLACTIVELINE, ColorToString(DEFAULT_SQLCOLACTIVELINE)));
for i:=0 to Editors.Count-1 do begin
// See issue #2651:
if Editors[i]=nil then
Continue;
Editor := Editors[i] as TSynMemo;
if Editor = nil then
continue;