Hallo Blup, vielen Dank für Deine Mühe,
aber ich glaube,dass ich mich sehr... anstelle.
type
TGridReport = class(TForm)
GridRep: TQuickRep;
procedure GridRepPreview(Grid : TDBGrid);
procedure GridRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure MyDetailBeforePrint({...}); // <--- müssen hier Param. rein und wenn ja, welche ? *
*
procedure TGridReport.GridRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
// dem DetailBand Ereignisbehandlung zuweisen
GridRep.Bands.DetailBand.BeforePrint := MyDetailBeforePrint({...}); // <--- müssen hier Param. rein und wenn ja, welche ?
// Error Zeile.188
end;
procedure TGridReport.MyDetailBeforePrint({...}); // müssen hier Param. rein und wenn ja, welche ?
begin
If GridReport.DetailBand.Color = clWhite THEN // error Z. 193
GridReport.DetailBand.Color := clMoneyGreen ELSE
GridReport.DetailBand.Color := clWhite;
end;
Ich schick die mal die Fehlerliste des Compilers:
[Error] DBQRGridReport.pas(188): Incompatible types: 'TQRBandBeforePrintEvent' and 'procedure, untyped pointer or untyped parameter'
[Error] DBQRGridReport.pas(193): Undeclared identifier: 'DetailBand'
[Error] DBQRGridReport.pas(193): 'THEN' expected but identifier 'Color' found