字体旋转(100分)

S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在QUICKREP中将QLABEL中的汉字旋转180度,然后打印!
 
R

rsw

Unregistered / Unconfirmed
GUEST, unregistred user!
到delphi俱乐部的控件仓库中找控件
http://shrw.chn.net
 
S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
Hi,rsw
Thanks a lot!
I found it in the URL, but I can notdo
wnload it!
Could you e-mail it or help me in another way?
And could you tell me wether it can be used in Quickrep?
Thanks again!

Urgent!
Sheller
 
B

barton

Unregistered / Unconfirmed
GUEST, unregistred user!
你非要用QR,那不行
 
S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
barton, What should Ido
?
Thanks a lot!
Sheller
 
B

barton

Unregistered / Unconfirmed
GUEST, unregistred user!
用王寒松的EReport呀?它的Cell以LogFont设置字体,你有机会将字体
以1/10度的误差转换。
 
S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
Barton,
我不知道LOGFONT,也不知道如何设置!
您好人做到底,在给我说明一下!
多谢!
Shricom
 
H

huizhang

Unregistered / Unconfirmed
GUEST, unregistred user!
QR的旋转Label可以继承于QR的Printable类自己做, 不过没有资料做起来很累.
 
B

barton

Unregistered / Unconfirmed
GUEST, unregistred user!
EReport已被我改得面目全非,在我的EReport里可以随意控制,即使是在打印
预览中也可以改字体。如果你已知该单元格的行号和列号(Row和Col),按下列
步骤:
1.修改EReport,最省事的方法是:
a.将TReportLine的FCells移到public下;
b.将TReportRunTime的FLineList移到public下;
最完善的方法是不改动字段的位置,而在public下加入两个相应的属性,并
写相应的私有函数(只需读取);
2.在用户程序中加入以下程式:
....
var MyLogFont: TLogFont;
begin
...
MyLogFont := TReportLine(ReportRunTime1.FLineList[Row]).FCells[Col].LogFont;
MyLogFont.lfOrientation := 1800;
TReportLine(ReportRunTime1.FLineList[Row]).FCells[Col].LogFont := MyLogFont;
...
ReportRunTime1.Print;
end;
3.当然其实你可以修改编辑器,加入字体旋转的功能,也非常简单。这样你的
模板文件中的字体就是旋转的了。还有不满意我可以将我的编辑器发给你(没
有原来的编辑器花哨,但确方便,不依赖任何控件)。
 
S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
Barton,
多谢!
请将编辑器E-MAIL 给我!
Shricom
 
S

shricom

Unregistered / Unconfirmed
GUEST, unregistred user!
Barton,
我在修改ereport后编辑时,发现无法编译,缺少fdr_toolbar,fdr_common,RXCtrls,
我也不知道为啥!
还是请将编辑器E-MAIL给我吧!!!
急!
Shricom
 
顶部