Цвет выделения

[TaLadno]

Сообщение от ДралсяСошибками

TaLadnoПо поводу ЛС, Вам нужно изменить цвет выделения?

Та ладно, и таки да, по поводу ЛС...

Сообщение от TaLadno

Приветствую!

http://www.programmersforum.ru/showt...ht=THtmlViewer

Как разобрались то?

Спросил не просто так, а потому что вы в своей же теме повертели на вертеле всех, у кого такие же "проблемы"...
Думал может сподвигнет написать тут же

// Да простит меня Уткин за резкость
(*Для остальных модеров - не обязательно клеить сообщения, ибо не одно и то же*)

[ДралсяСошибками]

HtmlViewer-115-r472
модуль HTMLSubs

if Inverted then
        begin
          SetBkMode(Canvas.Handle, Opaque);
          Canvas.Brush.Color := Canvas.Font.Color; // тут
          Canvas.Brush.Style := bsSolid;
          if FO.TheFont.bgColor = clNone then
          begin
            Color := ThemedColor(Canvas.Font.Color{$ifdef has_StyleElements},seFont in Document.StyleElements{$endif});
            Canvas.Font.Color := Color xor $FFFFFF; // и тут
          end
          else
            Canvas.Font.Color := ThemedColor(FO.TheFont.bgColor{$ifdef has_StyleElements},seFont in Document.StyleElements{$endif});
        end