Z
zzhilong
Unregistered / Unconfirmed
GUEST, unregistred user!
我在FastReport的RunTime示例中试图加一个btPageHeader型的band显示一个表头,结果
预览时只能显示一行,请兄弟们指点指点。。。
程序如下:
v := TfrMemoView.Create;
// create memo
v.SetBounds(20, 20, 200, 16);
v.BandAlign := baWidth;
v.Prop['Alignment'] := frtaCenter;
// another way to access properties
v.Prop['Font.Style'] := 2;
v.Memo.Add('Your text is: [Edit1.Text]');
Page.Objects.Add(v);
//这是我加的
b := TfrBandView.Create;
b.SetBounds(0, 60, 0, 20);
b.BandType := btPageHeader;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
v := TfrMemoView.Create;
v.SetBounds(20, 60, 200, 16);
v.Memo.Add('公司');
Page.Objects.Add(v);
//就到这
b := TfrBandView.Create;
// create MasterData band
b.SetBounds(0, 80, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
// band's dataset
Page.Objects.Add(b);
v := TfrMemoView.Create;
// create data field
v.SetBounds(20, 80, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);
预览时只能显示一行,请兄弟们指点指点。。。
程序如下:
v := TfrMemoView.Create;
// create memo
v.SetBounds(20, 20, 200, 16);
v.BandAlign := baWidth;
v.Prop['Alignment'] := frtaCenter;
// another way to access properties
v.Prop['Font.Style'] := 2;
v.Memo.Add('Your text is: [Edit1.Text]');
Page.Objects.Add(v);
//这是我加的
b := TfrBandView.Create;
b.SetBounds(0, 60, 0, 20);
b.BandType := btPageHeader;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
v := TfrMemoView.Create;
v.SetBounds(20, 60, 200, 16);
v.Memo.Add('公司');
Page.Objects.Add(v);
//就到这
b := TfrBandView.Create;
// create MasterData band
b.SetBounds(0, 80, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
// band's dataset
Page.Objects.Add(b);
v := TfrMemoView.Create;
// create data field
v.SetBounds(20, 80, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);