Hallo zusammen!
Bei meniem ertsem Gehversuch mit Rave Reports versuche ich Inhalt eines StringGrids
mittels Customconnection zu drucken. Ich habe schon vieles aus anderen Threads lesen
können, was mir erstmal grundsätzliche Vorstellung von diesem Tool gebracht hat.
Mein problem sieht folgendermassen aus:
im StringGrid steht folgender Inhalt:
Position Vorname Nachname
-------------------------------
Pos_1 Name_1 Nachname_1
Pos_2 Name_2 Nachname_2
Pos_3 Name_3 Nachname_3
Beim Erstellen des Reports im Preview sehe ich dann 3 Seiten
jeweils mit nur einer Zeile pro Seite.
Ich habe bestimmt etwas übersehen, denn ich kann mir nicht erklären,
worum dies so zustande kommt.
hier sind meine Ereignisroutinen(*.rav und den Entwurf habe ich vorsichtshalber nochmal angehängt
):
Delphi-Quellcode:
//###########################################################################
procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
with Connection do begin
WriteField('Position', dtString, 10, '', '');
WriteField('Vorname', dtString, 10, '', '');
WriteField('Nachname', dtString, 10, '', '');
end;
end;
//###########################################################################
procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
begin
with Connection do begin
Connection.WriteStrData(MyGRD.Cells[0,RaveZeile], '');
Connection.WriteStrData(MyGRD.Cells[1,RaveZeile], '');
Connection.WriteStrData(MyGRD.Cells[2,RaveZeile], '');
end;
end;
//###########################################################################
procedure TForm1.RvCustomConnection1Next(Connection: TRvCustomConnection);
begin
inc(RaveZeile);
end;
//###########################################################################
procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
RaveZeile:=1;
connection.DataRows:=MyGRD.RowCount;
end;
Kann mir jemand helfen?
MfG. Alex