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

denisknn

Дата 27.2.2012, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.2.2012

Репутация: нет
Всего: нет

Здравствуйте!
Моя задача состоит в том, чтобы экспортировать содержимое таблицы 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

Дата 28.2.2012, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.2.2012

Репутация: нет
Всего: нет

Уже решено. Оказывается через канву этого не сделать. Сделал раскраску шрифта через CellProperties и теперь SaveToHTML сохраняет все к цвете.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »