Hallo,
kennt hier vielleicht jemand ein Code-Beispiel wo gezeigt wird, wie man Vorraussetzungen für einen RaveReport schafft, ohne die Komponenten auf eine Form/Frame zu ziehen ???
Die Komponenten und deren Eigenschaften möchte ich per Code erstellen.
Mein Beispiel ist noch unvollständig und soll zeigen worauf ich hinaus will.
Ausserdem wird der Fehler "Class TRvProject not found" angezeigt.
Für Ratschläge und Beispiele wäre ich sehr dankbar.
Oliver
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls,
RvClass, RvCSStd, RpDefine, RpRender, RpRenderCanvas, RpRenderPreview, RpBase,
RpFiler, RpRenderPDF, ToolWin, Buttons, Formulardaten, ImgList, RpSystem,
RpRave;
type
TFrameProtokoll = class(TFrame)
private
RvSystem1: TRvSystem;
RavProtokoll: TRvProject;
RvNDRWriter1: TRvNDRWriter;
RvRenderPreview1: TRvRenderPreview;
RvRenderPDF1: TRvRenderPDF;
public
constructor Erzeugen(FDaten: TFormulardaten; Owner: TWinControl);
destructor Destroy; override;
end;
implementation
uses
FormularwesenRes, RaveReport;
{$R *.dfm}
constructor TFrameProtokoll.Erzeugen(FDaten: TFormulardaten; Owner: TWinControl);
begin
RvSystem1 := TRvSystem.Create(self);
RavProtokoll := TRvProject.Create(self);
RvNDRWriter1 := TRvNDRWriter.Create(self);
RvRenderPreview1 := TRvRenderPreview.Create(self);
RvRenderPDF1 := TRvRenderPDF.Create(self);
end;
destructor TFrameProtokoll.Destroy;
begin
FreeAndNil(RvSystem1);
FreeAndNil(RavErstgespraech);
FreeAndNil(RvNDRWriter1);
FreeAndNil(RvRenderPreview1);
FreeAndNil(RvRenderPDF1);
inherited;
end;