 |
 |
 |
 |
 |
|
Antwort
|
|
Registriert seit: 1. Jul 2003 347 Beiträge Delphi 2007 Professional |
#1
Listview - Html-Datei
12. Okt 2003, 18:45
mit dem sourcecode unten generiere ich aus einem listview eine html datei.
ich würde gerne zwei unterschiedliche zeilenfarben für die tabelle verwenden. auch würde ich gerne individuelle TD-Width verwenden (momentan sind alle <TD width=100>) wer hat mag mir dabei helfen?  http://www.fusshoeller.com/screens/tabelle.jpg
Delphi-Quellcode:
function ListViewtoHTML(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>Termine</title>'); WriteLn(tfile,'<STYLE type=text/css>'); WriteLn(tfile,'<!--'); WriteLn(tfile,'.tabelle {'); WriteLn(tfile,'font-family: Verdana, Arial, Helvetica, sans-serif;'); WriteLn(tfile,'font-size: 12px;'); WriteLn(tfile,'font-style: normal;'); WriteLn(tfile,'line-height: normal;'); WriteLn(tfile,'font-weight: normal;'); WriteLn(tfile,'font-variant: normal;'); WriteLn(tfile,'}'); WriteLn(tfile,'--> '); WriteLn(tfile,'</STYLE>'); WriteLn(tfile,'</head>'); WriteLn(tfile,'<BODY text=#000000 vLink=#333333 aLink=#333333 link=#333333 bgColor=#e1e1e1>'); WriteLn(tfile,'<TABLE class=tabelle cellPadding=4 width="100%" border=0>'); WriteLn(tfile,' <tr bgcolor="lightgrey"> '); for i := 0 to listview.Columns.Count - 1 do begin if center then WriteLn(tfile,'<TD width=100>[b]<left>'+listview.columns[i].caption+'[/b]</td>') else WriteLn(tfile,'<td>[b]'+listview.columns[i].caption+'[/b]</td>'); end; WriteLn(tfile,'</tr>'); WriteLn(tfile,' <tr bgcolor="#ffffff">'); 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; |
Zitat
|
|
Registriert seit: 28. Aug 2002 Ort: Oldenburg 3.513 Beiträge Turbo Delphi für .NET |
#2
Re: Listview - Html-Datei
12. Okt 2003, 19:40
Alexander
|
|
Zitat
|
|
Registriert seit: 1. Jul 2003 347 Beiträge Delphi 2007 Professional |
#3
Re: Listview - Html-Datei
12. Okt 2003, 20:02
|
|
Zitat
|
Registriert seit: 4. Nov 2002 Ort: Witten 1.335 Beiträge Delphi 6 Personal |
#4
Re: Listview - Html-Datei
12. Okt 2003, 20:20
Höh? Der Modulo von 1 ist doch immer 0 oder irre ich mich da?
Christian "phlux" Arndt
|
|
Zitat
|
|
Registriert seit: 1. Jul 2003 347 Beiträge Delphi 2007 Professional |
#5
Re: Listview - Html-Datei
12. Okt 2003, 20:28
jepp..
 hast recht, nur kriege ich es damit auch nicht gebacken, ist wohl grundlegend was falsch
|
|
Zitat
|
|
Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32 |
#6
Re: Listview - Html-Datei
12. Okt 2003, 20:35
|
|
Zitat
|
|
Registriert seit: 1. Jul 2003 347 Beiträge Delphi 2007 Professional |
#7
Re: Listview - Html-Datei
12. Okt 2003, 20:42
habs
|
|
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Linear-Darstellung
