Zitat von
marabu:
...wenn mit der TRvDataSetConnection gearbeitet wird, dann kann beim Ereignis OnGetRow() auf DataSet.RecNo zugegriffen werden...
Zitat von
DeddyH:
Dann könnte man doch theoretisch mit einem Bool' schen Array of TColor und Odd(RecNo) arbeiten, oder täusche ich mich?
Jo, und das kannst du doch im BeforePrint-Ereignis der jeweiligen Reportzeile nutzen:
Delphi-Quellcode:
if Odd(DataSet.RecNo) then Zeilenfarbe=grau
else Zeilenfarbe=weiss
nur mal so als Gedanke auf den Programmierertisch geworfen...
Aif der anderen Seite: wenn alles das nicht hilft, warum dann nicht 'einfach' eine Variable (oder meintwegen auch ne Property) 'ZeilenNr' verwenden, die beim BeforePrint abgefragt wird und beim AfterPrint entsprechend incrementiert wird? ...oder über eine Boolsche Variable (oder Property) IstGrau...
Delphi-Quellcode:
procedure BeforePrint()
begin
//--Integer variante:
if Odd(ZeilenNr) then Zeie=grau
else Zeile=weiss;
//--boolesche Variante
if Istgrau then Zeilenfarbe=grau
else Zeilenfarbe = weiss
...
end;
procedure AfterPrint()
begin
//--Integer Variante:
ZeilenNr := ZeilenNr +1;
//--boolesche Variante:
//--Farbzustand umkehren
IstGrau := not Istgrau;
...
end;
Ich denke, das ist doch allemal einfacher und schneller zu handeln, als umständlich irgendeine
SQL-Proc zu kritzeln!?
