Экспорт строк из AdvStringGrid в html в цвете

[denisknn]

Здравствуйте!
Моя задача состоит в том, чтобы экспортировать содержимое таблицы AdvStringGrid в файл в виде строк с сохранением цвета слов как было в таблице. Цвет шрифта в ячейках таблицы прорисован в DrawCell через Canvas.Font.Color.
Пытался сделать так:

var
 c, r: integer; // колонка, строка
 color: TColor;
begin
  Memo.Clear;
  for r := 0 to Grid1.RowCount - 1 do
  begin
    for c := 0 to Grid1.ColCount - 1 do
      begin
        color:=Grid1.Canvas.Font.Color;
        Memo.Lines.Add('<font color="'+colortostring(color)+'">'+Grid1.Cells[c,r]+'</font>');
      end;
    Memo.Lines.Add(' <br>');
  end;
end;

В результате выводятся строки, и все они с цветом первой ячейки первой строки таблицы. Цвета остальных ячеек игнорируются.
У AdvStringGrid есть процедура SaveToHTML, но она тоже не раскрашивает слова, цвет которых задан через Canvas.
Как можно получить Canvas.Font.Color определенной ячейки? Или возможно есть другой способ экспорта, главное чтобы цвет шрифта строк был точно, как в таблице.

[Пепел Феникса]

дык не там цепляетесь, канва то едина для всего компонента, а не для каждой ячейки.

[denisknn]

Как же быть? Мне не обязательно в html, главное чтобы цвета сохранялись

[Пепел Феникса]

экспортировать цвета вам надо по тому же принципу как вы и красите их.

[denisknn]

Там процедура раскраски сложная. При соблюдении определенных условий, в зависимости от значений в других ячейках, текст в каждой ячейке определенный. Наверно придется красить через CellProperties, тогда придется полностью весь алгоритм окраски переписывать

[denisknn]

Пепел Феникса, спасибо за подсказку что в канве нечего ловить.
Сделал задание цвета текста в ячейке через CellProperties, и при выводе в html взял цвет текста из свойств ячейки. Всё получилось как и было задумано!