Hallo,
ich erzeuge eine Tabelle mit doppeltem Header mit der Option wptblCreateSubHeader.
In der Callback-Routine kommt dann zwei Mal die RowNr = -1 so daß ich da mitzähle um die zweite Headerzeile zu erkennen:
Code
//Global
var SubHeader : boolean;
procedure TWPTableCalc.KopfZelle(RowNr, ColNr: integer; par: TParagraph);
begin
if RowNr = -1 then // Header
begin
if not SubHeader then
par.settext('H1')
else
par.settext('H2');
end;
if RowNr = -2 then // Footer
begin
par.settext('F1');
end;
// zweiten Header erkennen
if ColNr = Kopfcolzahl then
SubHeader := true;
end;
Alles anzeigen
Ich bekomme eine Tabelle mit einer Headerzeile wo alle Zellen H1 haben und mit 2 Footerzeilen, die erste alles mit H2 und die zweite alles mit F1.
Ist das ein Fehler oder wie kann man das Einrichten der beiden Headerzeilen besser gestalten?
Ein Test mit wptblCreateSummaryFooter analog ergibt, wie erwartet, 2 Footerzeilen, die auch unterschieden werden können.
Ein Test mit wptblCreateSubHeader2 erzeugt wieder eine zusätzliche Footerzeile, obwohl im Callback RowNr = -1 ist.
Danke
Ciao
Stefan