使用fastreport中条形码属性设置的问题 ( 积分: 100 )

  • 主题发起人 主题发起人 csm55
  • 开始时间 开始时间
C

csm55

Unregistered / Unconfirmed
GUEST, unregistred user!
我在frReport1中建有一个Bar1(条形码对象),现想在delphi中通过代码对该bar1进行相关属性设置(比如设置它的height,ZOOM,Rotation等),该如何设置,下面的代码只可以实现对bar1 name,Memo等属性的设置(height根本设置不了,,不知为什么)
procedure TForm1.Button1Click(Sender: TObject);
var
TBar:TfrBarCodeView;
begin
TBar:=TfrBarCodeView(frReport1.FindObject('Bar1'));
if TBar<>Nil then
begin
TBar.Memo.Text:='1234567890123' ;//height设置不了

end;
end;
请各位高手指点~~~
 
我在frReport1中建有一个Bar1(条形码对象),现想在delphi中通过代码对该bar1进行相关属性设置(比如设置它的height,ZOOM,Rotation等),该如何设置,下面的代码只可以实现对bar1 name,Memo等属性的设置(height根本设置不了,,不知为什么)
procedure TForm1.Button1Click(Sender: TObject);
var
TBar:TfrBarCodeView;
begin
TBar:=TfrBarCodeView(frReport1.FindObject('Bar1'));
if TBar<>Nil then
begin
TBar.Memo.Text:='1234567890123' ;//height设置不了

end;
end;
请各位高手指点~~~
 
高手Where??????
 
frReport中可以直接设置frVariables的高度和字体等等啊。在代码中我到没试过,应该是可以的
 
你可以先试试看啊
 
band中的对象Height估计受限于Band的高度,这可能是一个设置无效的原因
 
哈哈你用的是什么版本的FASTREPORT,如果是3.0的话可以直接设置你可以单独的把一个Band来看一下如何就是楼上所说的,
 
Bar := Tfrbarcodeview.Create;
Bar.SetBounds
(
l + strtoint(Line5_Left.text)
, t + strtoint(Line5_Top.text)
, w + strtoint(Line5_Width.text)
, h + strtoint(Line5_Height.text)
);
Bar.Param.cCheckSum := false;
Bar.Param.cShowText := false;
Bar.Param.cBarType := TfrBarcodeType(Line5_Type.Items.IndexOf(Line5_Type.text));
Bar.Param.cRatio := strtofloat(Line5_Ratio.Text);
Bar.Memo.text := Line5_Text.text;
Page.Objects.Add(Bar);
 
To:wendeyuan
大哥:小弟有点看不懂,,能给个实例吗?我试了不行啊,
 
再帮忙看看~兄弟
 
终于搞定了。。
 
后退
顶部