Orion9
 
  
 
  | 
		
			
				 Posted: Fri Nov 22, 2024 18:07    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | sa wrote: | 	 		  | Может, имеет смысл отлавливать в буфере значение -1 для возврата к стандартному цвету? | 	  
 
Хорошая идея    Всего лишь нужно изменить строку:
 
 	  | Code: | 	 		  if clip >= 0 and clip <= max and not (clip = last) then  | 	  
 
И зменить ноль на -1. Само значение можно посылать в бУфер по-разному, например через кнопку. Код функции будет несложным - главное не забыть проверить, что отслеживание уже активно и проинформировать в обоих случаях:
 
 	  | Code: | 	 		  Func SetDefaultColor()
 
   if BACKDROP_THREAD > 0 then
 
      ClipPut("-1")
 
      ShowBackHint("Установлен цвет по-умолчанию для " & CF_NAME)
 
   else
 
      ShowHint("Отслеживание цвета не запущено")
 
   endif   
 
EndFunc  | 	  
 
 
Loopback
 
Прошло больше суток, как отключил WinScriptAdv, падений ТС больше пока не было. Но еще рано делать выводы, хотя, может быть, проблема была как-то связана с ним или даже тем багом в коде с установкой глобальной переменной некорректного значения, который заметил sa. Я сейчас посмотрю, к чему это могло привести, вполне возможно, что дело было как раз в этом. | 
			 
		  |