Macro
description:"Подсветка кириллицы и пробельных символов"
area:"Editor"
key:"F3"
action:->
id=editor.GetInfo().EditorID
if not editors[id]
count,ttime0=0,0
colordata=editor.GetColor id,1,0
BackgroundColor=colordata.Color.BackgroundColor -- <= это здесь
if BackgroundColor>7
ForegroundColor=BackgroundColor-8
Colors[2][2].ForegroundColor=math.fmod BackgroundColor-3,8
Colors[2][2].BackgroundColor=math.fmod BackgroundColor-5,8
else
ForegroundColor=BackgroundColor+8
Colors[2][2].ForegroundColor=8+math.fmod BackgroundColor+5,8
Colors[2][2].BackgroundColor=8+math.fmod BackgroundColor+3,8
Colors[1][2].ForegroundColor=ForegroundColor
Colors[1][2].BackgroundColor=BackgroundColor
Editor.Set 20,1
editors[id]=
start:0
finish:0
editor.Redraw id
msgbox "count: "..count,"time: "..ttime0
else
Editor.Set 20,0
ProcessColors id,(data)->
data.start=1
data.finish=1
editors[id]=nil
editor.Redraw id
msgbox "count: "..count,"time: "..ttime0
|
