如何实现报表中将字段竖排显示
问题点数：20、回复次数：14Top
1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-02-27 13:20:00 得分 10
有可以旋转的字体
你试试看吧
procedure TForm1.Button1Click(Sender: TObject);
var
lf: TLogFont;
tf: TFont;
begin
with Label1 do begin
Width := 137;
Height := 97;
AutoSize := False;
end;
Label1.Font.Name := '黑体'; //要用TrueType字体
Label1.Font.Size := 24;
tf := TFont.Create;
tf.Assign(Label1.Font);
GetObject(tf.Handle, SizeOf(lf), @lf);
lf.lfEscapement := 450; //旋转的角度(单位0.1度)
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Label1.Font.Assign(tf);
Label1.Font.Handle := CreateFontIndirect(lf);
Label1.Caption := #13#10#13#10'Hello';
tf.Free;
end;
Top
2 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-02-27 13:22:00 得分 0
//垂直用
lf.lfEscapement := 900; //旋转的角度(单位0.1度)
lf.lfOrientation := 900;
Top
3 楼jinchaohua（）回复于 2001-03-06 14:40:00 得分 0
但是这样显示的字是从下到上的，且倒的，请问如何设置正的？？用2700代替的话，就显示不出了...Top
4 楼jinchaohua（）回复于 2001-03-08 08:41:00 得分 0
高手呢？？Top
5 楼chenjiong（准程序员:升级中....）回复于 2001-03-08 09:19:00 得分 0
你是把字段名坚显还是把记录坚显？如果是字段名，可以用一个土办法。就是用两个以上的qrlabel,上下行共同显示一个字段名，因为用qreport做报表时字段名是要自己设的。这样不用编程，也省资源。Top
6 楼jinchaohua（）回复于 2001-03-08 09:29:00 得分 0
当然是记录的内容了，也就是把现在横的顺时针转90度。Top
7 楼wk_knife（学习ORACLE）回复于 2001-03-08 09:58:00 得分 0
在程序员大本营的光盘就有一个现成的控件。Top
8 楼chenjiong（准程序员:升级中....）回复于 2001-03-08 10:19:00 得分 0
可能也只好用控件了。Top
9 楼lwp_lwp（lwp_lwp）回复于 2001-03-08 10:47:00 得分 10
可以的，我用过一种笨方法：
用QRDBtext连上数据后，把AutoStretch=true,Autosize=false,把QRDBtext的宽度设为一个字的宽度（要慢慢调整），这样就会自动换行。然后把每个字段(QREBtext,属性都为上面所说的)都竖排起来：
DBTEXT1
DBTEXT2
DBTEXT3
......
对了，这样只能有一列，可以设QUICKrep.page.columns=n,那么就会有n列了
比较笨，不过可以试一下
Top
10 楼jinchaohua（）回复于 2001-03-08 14:17:00 得分 0
这样好象没用：（Top
11 楼jinchaohua（）回复于 2001-03-09 09:43:00 得分 0
???Top
12 楼jinchaohua（）回复于 2001-03-10 09:40:00 得分 0
?Top
13 楼jinchaohua（）回复于 2001-03-11 11:29:00 得分 0
高手呢？？？Top
14 楼skt642（）回复于 2001-05-31 18:23:00 得分 0
26825关注！Top
