送分：FastReport，比如当字段长7以下用15号字；以上用8号字，怎样实现？ ( 积分: 100 )

FastReport，
1：比如当字段长7以下用15号字；以上用8号字，怎样实现？
2：比如当字段a值为1时，字段b用宋体打印；字段a为2时，字段b用隶书
在线等

FastReport，
1：比如当字段长7以下用15号字；以上用8号字，怎样实现？
2：比如当字段a值为1时，字段b用宋体打印；字段a为2时，字段b用隶书
在线等

看看FastReport 的DEMO吧,里面你要的动能就有.

我还是想知道具体实现的demo模块，我找不到呀

没人知道吗？

怎样修改Fastreport新建控件的默认字体？ (50分)
分类：报表/统计图形 玩命 (2002-07-28 16:26:00)
我用fastreport中的例子作动态报表：
但生成的MEMO字体都是“Airal”“10”
怎样让系统所有的默认字体都是“宋体”“9”“GB2312”？？？

Nizvoo (2002-07-28 16:46:00)
这个可能要改改源码~~~


玩命 (2002-07-28 17:05:00)
版主：
　这个问题已经自己搞定！
　怎样能收回分？？

玩命 (2002-07-28 18:05:00)
还是不行！！！
下列程序中，如何指定MEMO的字体、字号？？？
procedure TForm1.Button1Click(Sender: TObject);
var
v: TfrView;
b: TfrBandView;
Page: TfrPage;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add;
// create page
Page := frReport1.Pages[0];
b := TfrBandView(frCreateObject(gtBand, ''));
// create MasterData band
b.SetBounds(0, 20, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);
v := frCreateObject(gtMemo, '');
// create data field
v.SetBounds(20, 20, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);
frReport1.ShowReport;
end;


玩命 (2002-07-28 19:36:00)
自己搞定！！
Nizvoo
只有你一个人回答，虽然是废话。。。但，分只有给你了。
还是要谢谢你，如今的大富翁，想找高手解决的问题太难了！常常是连回答问题的都没有

玩命 (2002-07-28 19:36:00)
接受答案了.

Nizvoo (2002-07-28 23:37:00)
对不起，一整个晚上我都同去了。我才回来没多久。所以我没来关注。
我不是高手。加上我也没有用过FastReport的，但我用过RMReport。建议你
使用www.pcjingning.com做这个的whf也是这里的富翁，你有空去他论坛转转
兴许有所发现。
你能不能把你的解决方法讲讲。好让大伙学习学习

玩命 (2002-07-29 18:37:00)
说起来简单：
TfrMemoView(v).Font.Name:='黑体';
TfrMemoView(v).Font.Size:=14;
我的工资程序快做完了，做完了发个给你！

Nizvoo (2002-07-29 20:55:00)
Nizvoo@etang.com我的信箱。

Nizvoo的回答最终被接受。

对不起，我可能没说清楚：
比如记录中有一个“品名”字段，当“品名”长7以下用15号字；以上用8号字，每条记录的“品名”长度都不同。要每条记录在打印前判断，并设置。

FastReport設計器有一個行過濾條件，在那裏想要怎麽改字體都行呀！

謝謝ldhlyh的回答，不過我不知道“行過濾條件”在哪裏呀，請指點。我是菜鳥[:I]。