fastReport und ShowReport

[alzaimar]

Nee nee, da hast Du aber etwas missverstanden.

Die OnProgressXXXXX - Events des FastReport-Objektes sind Ereignisse, die vom FR-Objekt aufgerufen werden (wenn sie definiert sind). Klick mal auf die FR-Komponente und wechsle im Objektinspektor auf die Eregnis-Seite. Dann Doppelklick auf OnProgressStart und -wupps- bist Du im Begriff, ein benutzerdefniertes Ereignis zu schreiben.

Geht eigentlich genauso, wie ein Ereignis für einen Button zu erzeugen. Das kannst Du doch, oder?

[DevStar]

Zitat von alzaimar:

Das kannst Du doch, oder?

Ja, doch.

Aber tut sich nur nix. Warum ist das so kompliziert?

Delphi-Quellcode:

procedure TForm1.frxReport1ProgressStart(Sender: TfrxReport;
  ProgressType: TfrxProgressType; Progress: Integer);
begin
  if ProgressType = ptRunning then
    frxReport1.FileName:='c:\grundschule.rtf';
end;

[DevStar]

Und das tuts auch nicht....

Delphi-Quellcode:

procedure TfrmReports.frxReport1Progress(Sender: TfrxReport;
  ProgressType: TfrxProgressType; Progress: Integer);
var
    Min, Max, i: Integer;

begin
  with TfrxProgress do
    begin
      Min := 0;
      Max := 200;
      for i := Min to Max do
        Progress := i;
    end;
end;

[DevStar]

Hat denn jemand noch nen Tipp?

Beim Export, zeigt er jetz zwar den Dialog an, aber vorher kommt trotzdem der alte OldStyleDialog.

[DevStar]

Kann niemand ein Beispiel posten?

[DevStar]

Hallo alzaimar,

kannst Du mir nochmal helfen?

[DevStar]

Weiss sonst noch jemand was?

Arbeit überhaupt jemand mit FR oder ist der RB besser?

[DevStar]

[DevStar]

Wenn ShowProgress ein Event ist, dann vielleicht so...

Delphi-Quellcode:

procedure TfrmReports.frxReport1Progress(Sender: TfrxReport;
  ProgressType: TfrxProgressType; Progress: Integer);
var
  iMaxPages, i: integer;

begin
   frxReport1.OldStyleProgress  := false;
   frxReport1.ShowProgress      := true;
   iMaxPages                    := frxReport1.PreviewOptions.PagesInCache;
   if ProgressType = ptRunning then
     frxReport1.SetProgressMessage('Please wait.');
   for i := 0 to iMaxPages do
     Progress := i+1;
end;

Doch da tut sich auch nix.