[Rave] Zeilenhintergrund unterschiedlich färben (Zebramuste

[merlin17]

Hallo Frank,

der leichteste Weg geht über die kostenlose AddOn-Komponente GreenBar (www.nevrona.com/rave-AddOn-Area) .

Alternativ siehst du nachfolgend und in der dazugehörigen RAV-Datei die Lösung über die
anderen drei Wege.....


thomas, TeamNevrona

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
  Connection.DataRows := 10;
end;

procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
  Connection.WriteField('Diesel', dtInteger, 2, 'Diesel', '');
  Connection.WriteField('Dust',   dtInteger, 1, 'Dust', '');
end;

procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
begin
  Connection.WriteIntData('', Connection.DataIndex + 1);
  Connection.WriteIntData('', (Connection.DataIndex + 1) mod 2);
end;

procedure TForm1.btnExecClick(Sender: TObject);
begin
  with RVProject1 do begin
    if not Active then
      Open;

    Case rgpHow.ItemIndex of
      1: SelectReport('ReportEvents', False);
      2: SelectReport('ReportMirrorsByParam', False);
    else
      SelectReport('ReportMirrors', False);
    end;

    Execute;
  end;
end;