B
Babylon5
Unregistered / Unconfirmed
GUEST, unregistred user!
例如下面的代码片断:
var
mvDataHead : array of TfrMemoView;
begin
// blah blah blah blah,有关设置
// ----------------------------------------
// 下面设置有关的属性
mvDataHead[ i ] := TfrMemoView.Create;
mvDataHead[ i ].Name := 'mvHeader' + IntToStr( i );
mvDataHead[ i ].SetBounds( FLeftMargin + CurrentCol, BandHeadTop,
FColWidths[ i ], 26 );
mvDataHead[ i ].Font.Name := '宋体';
mvDataHead[ i ].Font.Size := 12;
mvDataHead[ i ].Font.Style := [ fsBold ];
mvDataHead[ i ].FrameTyp := 15;
mvDataHead[ i ].Alignment := frtaCenter + frtaMiddle;
mvDataHead[ i ].Memo.Text := FDataSet.Fields[ i ].FieldName;
// 下面这条是无法通过的,代码自动完成中根本就没有 WordWarp 这个属性,编译自然也通不过
mvDataHead[ i ].WordWarp := True;
// 但是,我把这个动态生成的报表另存到一个 .frf 文件中,
// 然后再用 FR 打开,在 FR 的属性检测器里面可以设置其 wordwrap 属性
var
mvDataHead : array of TfrMemoView;
begin
// blah blah blah blah,有关设置
// ----------------------------------------
// 下面设置有关的属性
mvDataHead[ i ] := TfrMemoView.Create;
mvDataHead[ i ].Name := 'mvHeader' + IntToStr( i );
mvDataHead[ i ].SetBounds( FLeftMargin + CurrentCol, BandHeadTop,
FColWidths[ i ], 26 );
mvDataHead[ i ].Font.Name := '宋体';
mvDataHead[ i ].Font.Size := 12;
mvDataHead[ i ].Font.Style := [ fsBold ];
mvDataHead[ i ].FrameTyp := 15;
mvDataHead[ i ].Alignment := frtaCenter + frtaMiddle;
mvDataHead[ i ].Memo.Text := FDataSet.Fields[ i ].FieldName;
// 下面这条是无法通过的,代码自动完成中根本就没有 WordWarp 这个属性,编译自然也通不过
mvDataHead[ i ].WordWarp := True;
// 但是,我把这个动态生成的报表另存到一个 .frf 文件中,
// 然后再用 FR 打开,在 FR 的属性检测器里面可以设置其 wordwrap 属性