Сохранения 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?

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

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

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

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