andrestudio писал(а):
В коде даже не нашёл процедуры на точку doSetSelect, чёрт знает как работаетОна в WinList
procedure THIWinList._work_doSetSelect;
begin
Control.Selection := ToString(_Data);
end;
Она универсальная для всех компонентов этого класса. И как вы туда цвет собрались пропихивать