Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Сохранения TListView в виде HTML   Найти похожие ветки 

 
Progh   (2004-11-30 10:18) [0]

Нашел ф-ию которая сохраняет TListView в HTML :


function ListViewConfHTML(Listview:TListview; output:string; center: Boolean) : Boolean;
var
  i,f: Integer;
  tfile: TextFile;
begin
  try
    ForceDirectories(ExtractFilePath(output));
    AssignFile(tfile,output);
    ReWrite(tfile);
    WriteLn(tfile,"<html>");
    WriteLn(tfile,"<head>");
    WriteLn(tfile,"<title>HTML-Ansicht: "+listview.Name+"</title>");
    WriteLn(tfile,"</head>");
    WriteLn(tfile,"<table border="1" bordercolor="#000000">");
    WriteLn(tfile,"<tr>");
    for i := 0 to listview.Columns.Count - 1 do
    begin
      if center then
        WriteLn(tfile,"<td><center>"+listview.columns[i].caption+"</center></td>") else
        WriteLn(tfile,"<td>"+listview.columns[i].caption+"</td>");
    end;
    WriteLn(tfile,"</tr>");
    WriteLn(tfile,"<tr>");
    for i := 0 to listview.Items.Count-1 do
    begin
      WriteLn(tfile,"<td>"+listview.items.item[i].caption+"</td>");
      for f := 0 to listview.Columns.Count-2 do
      begin
        if listview.items.item[i].subitems[f]="" then Write(tfile,"<td>-</td>") else
          Write(tfile,"<td>"+listview.items.item[i].subitems[f]+"</td>");
      end;
      Write(tfile,"</tr>");
    end;
    WriteLn(tfile,"</table>");
    WriteLn(tfile,"</html>");
    CloseFile(tfile);
    Result := True;
  except
  Result := False;
  end;
end;

Однако данная ф-ия не сохраняет цвет строк ListView-а, как сделать чтобы в HTML-е у строк был тот же цвет что и в ListView-a?


 
TUser ©   (2004-11-30 10:21) [1]

Надо написать html таблицу и приписать цвет в тегах td


 
Progh   (2004-11-30 10:30) [2]


>  [1] TUser ©   (30.11.04 10:21)


А где взять цвет строки? Я цвета так ставлю :

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
 Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color := Cvet;
Sender.Canvas.Refresh;
end;

При этом у разних строк разные цвета, а как мне узнать цвет у строки под номером i?

И еще там цвет в шестнадцатиричной системе писать вроде надо, а как мне десятичную в шеснадцатиричную перевести?


 
TUser ©   (2004-11-30 10:38) [3]


> а как мне узнать цвет у строки под номером i?

Запоминать их при присвоении. Создай себе массив цветов и смотри там



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.064 c
1-1101835736
kaktus
2004-11-30 20:28
2004.12.12
Динамическая обраьотка событий.


6-1095166307
Ryoko
2004-09-14 16:51
2004.12.12
Подключение к IRC через Indy IdIRC


14-1101281847
dr Tr0jan
2004-11-24 10:37
2004.12.12
HASP NT, Не могу установить сабж


1-1101886141
markers
2004-12-01 10:29
2004.12.12
База данных


1-1101466977
Manfred8
2004-11-26 14:02
2004.12.12
Запрет вставки из буфера в Edit