¿Por qué siempre empezamos por lo más difícil?
En la carpeta Demos de FreeReport 2.34 viene una subcarpeta "runtime" y el código es este:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DB, DBTables, FR_DSet, FR_DBSet, FR_Class, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
Table1: TTable;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
v: TfrView;
b: TfrBandView;
Page: TfrPage;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add; Page := frReport1.Pages[0];
b := TfrBandView(frCreateObject(gtBand, '')); b.SetBounds(0, 20, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
v := frCreateObject(gtMemo, ''); v.SetBounds(20, 20, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);
frReport1.ShowReport;
end;
Saludos