PDF-Datei aus dem Inhalt eines VirtualStringTree erzeugen

[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...

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...

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