PDF-Datei aus dem Inhalt eines VirtualStringTree erzeugen

**Jens Hartmann**

Wie?

Also bei mir fehlt der Titel...

slHTML.Add('<title>hartmann uebach Nachrichtentechnik GmbH</title>');

**Mithrandir**

Du meinst, der Titel wird im Browser nicht angezeigt? Im angehängeten HTML-Dokument steht das jedenfalls drinne, und ich habe bei mir auch einen Titel. Deswegen verstehe ich gerade nicht so ganz, wo das Problem ist...

Nutze übrigens den Firefox...

**Jens Hartmann**

Du hast recht, bei mir ist der Titel auch vorhanden. (Internet Explorer). Das Problem, liegt darin, das ich nicht den Titel der Seite programmieren will, sondern eine schöne große farblich hinterlegte Seitenüberschrift.

Und das bekomme ich nicht hin.

Gruß Jens

**Luckie**

Die Seitenüberschrift mus sinnerhalb des body-Tags sein:

markieren

Code:

			<html>

  <head>

    <title>Seitentitel in der Caption des Browsers</title>

  </head>

  <body>

    <h1>Seitenüberschrift auf der Seite</h1>

  </body>

</html>

**Jens Hartmann**

Das habe ich jetzt so hinbekommen. Aber warum aktiviert Delphi mir die Styles nicht. Ich habe hier mal versucht die Überschrift zu unterstreichen. Geht aber leider nicht.

Hier mal der Code...

markieren

Delphi-Quellcode:

			  slHTML.Add('<style type="text/css">.unterstrich {text-decoration: underline;}</style>');

  slHTML.Add('</head>');

  slHTML.Add('<body>');

  slHTML.Add('<p class="unterstrich">');

  slHTML.Add('<h1>Firma hartmann & uebach Nachrichtentechnik GmbH</h1>');

  slHTML.Add('</p>');

Gruß Jens

**Jens Hartmann**

Hallo nochmal,

ich bekomme es einfach nicht hin die Klassen(Stylesheets) in meine HTML Seite zu implementieren. Ich habe jetzt folgende css Datei im Programmordner eingebunden.

markieren

Code:

			.Stoerung      { background-color : #ff0000; } 

.Einbruch { background-color : #00FF00; } 

.Sabotage    { background-color : #0000ff; } 

.Scharf     { background-color : #999999; }

Diese Datei, lese ich ja wenn ich das verstanden habe in folgender Zeile ein...

markieren

Delphi-Quellcode:

			  slHTML.Add('<link rel="stylesheet" type="text/css" href="VST.css"');

  slHTML.Add('</head>');

Was ich allerdings jetzt nicht versteh, wie nutze ich diese Sheets jetzt...

Über folgende Codezeilen, lese ich die Tabelle in meinem HTML Seite ein. Jetzt müsste ja bei gewissen Ereigniss die entsprechenden Hntergrundfarben zugewiesen werden. Kann mir jemand sagen, wie das geht.

Danke schon mal

Gruß Jens

Hallo,

Du nutzt die Stylesheets garnicht, sondern der Browser. In der Form, wie Du es momentan implementiert hast, muss die CSS-Datei im gleichen Verzeichnis liegen, wie die HTML-Datei.

Mit z. B.

markieren

Code:

<tr class="Stoerung"><td>irgendeintext</td></tr>

sollte jetzt die entsprechende Zeile im Browser die Hintergrundfarbe für Störungen erhalten, hier also ein kräftiges rot.

**Jens Hartmann**

Hallo,

also das mit der css-Datei klappt jetzt. Leider bekomme ich es aber nicht hin, das sich meine ganze Zeile färbt. Ich möchte ja, die Zeile Färben, wo in dem Feld Ereignis...

markieren

Delphi-Quellcode:

			    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Ereignis').AsString);

    slHTML.Add('</td>');

das entsprechende Wort vorhanden ist. Ich habe jetzt schon verschiedene Varianten versucht, allerdings klappt das alles nicht.

wo muss ich den folgende Zeile einfügen...
slHTML.Add('<tr class="Stoerung"><td>Stoerung</td></tr>'); Hier mal die Schleife mit der ich die Tabelle fülle...

zusammenfalten · markieren

Delphi-Quellcode:

			  for i := 0 to QryHTML.RecordCount do

    begin

    slHTML.Add('<tr>');

    slHTML.Add('<td>');

    slHTML.Add(IntToStr(QryHTML.FieldByName('ID').AsInteger));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(IntToStr(QryHTML.FieldByName('LfdNr').AsInteger));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(DateToStr(QryHTML.FieldByName('Datum').AsDateTime));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(DateToStr(QryHTML.FieldByName('Uhrzeit').AsDateTime));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Ereignis').AsString);

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Teilnehmer').AsString);

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Bereich').AsString);

    slHTML.Add('</td>');

    slHTML.Add('</tr>');

    QryHTML.Next;

    end;

Gruß Jens

Hallo,

diese Zeile muss variabel sein:slHTML.Add('<tr>'); Das tr muss die für die Zeile entsprechende Klasse enthalten.slHTML.Add('<tr class="' + VariabelMitDemEreignisnamen + "'>'); Das könnte z. B. so aussehen:slHTML.Add('<tr class="' + QryHTML.FieldByName('Ereignis').AsString + "'>'); sofern die Spalte Ereignis eine Bezeichnung enthält, die mit den von Dir im Stylesheet definierten Klassen übereinstimmt.

**Jens Hartmann**

Genial,

jetzt funktioniert es. Jetzt habe ich das auch verstanden. Jetzt brauche ich nur noch diverse Ereignisse und Farben in der CSS-Datei eintragen und schon geht das. Geil, Danke....

Hier mal die Lösung....

zusammenfalten · markieren

Delphi-Quellcode:

			  for i := 0 to QryHTML.RecordCount do

    begin

    slHTML.Add('<tr class="' + QryHTML.FieldByName('Ereignis').AsString + '">');

    slHTML.Add('<td>');

    slHTML.Add(IntToStr(QryHTML.FieldByName('ID').AsInteger));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(IntToStr(QryHTML.FieldByName('LfdNr').AsInteger));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(DateToStr(QryHTML.FieldByName('Datum').AsDateTime));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(DateToStr(QryHTML.FieldByName('Uhrzeit').AsDateTime));

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Ereignis').AsString);

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Teilnehmer').AsString);

    slHTML.Add('</td>');

    slHTML.Add('<td>');

    slHTML.Add(QryHTML.FieldByName('Bereich').AsString);

    slHTML.Add('</td>');

    slHTML.Add('</tr>');

    QryHTML.Next;

    end;

Gruß Jens

PDF-Datei aus dem Inhalt eines VirtualStringTree erzeugen

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge

Forumregeln

Jens Hartmann Registriert seit: 11. Jan 2009 Ort: Wilnsdorf 1.439 Beiträge Delphi XE2 Professional	#41 Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge 24. Apr 2009, 22:08 Wie? Also bei mir fehlt der Titel... slHTML.Add('<title>hartmann uebach Nachrichtentechnik GmbH</title>'); Jens Hartmann Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#44 Re: PDF-Datei aus dem Inhalt eines VirtualStringTree erzeuge 26. Apr 2009, 13:55 Die Seitenüberschrift mus sinnerhalb des body-Tags sein: markieren Code: <html> <head> <title>Seitentitel in der Caption des Browsers</title> </head> <body> <h1>Seitenüberschrift auf der Seite</h1> </body> </html> Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat