提词器系统(100分)

  • 主题发起人 主题发起人 林金妹
  • 开始时间 开始时间

林金妹

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好!
我正在做一个提词器系统.其中一个功能不会实现,请大家指教.问题是:如何实现使RichEdit中的文本倒立,就是实现投影的效果.谢谢!^_^
 
头朝下看[:D]。开玩笑的
 
[:D]这么好笑吗?
为什么没人正视它呢?[:(]
 
提词器是用于在播音员正前方播放播音内容.
 
视口变换可以解决你的问题,去查一下有关的API函数就可以了
 
to:Johnny_du
"视口变换"
是不是改变RichEdit控件的方向
还是在播放窗口不用RichEdit控件然后进行"视口变换"
呢???
 
不必颠倒RichEdit控件方向!
你可以这样做:首先在RichEdit中输入正常的文字;然后将RichEdit中的文字在目标控件中的Canvas中TextOut出来就可以了(当然这个控件是经过视口变换过的)。
若对“视口变换”不清楚,建议参考Win32编程有关“坐标系统和映射模式”内容。
 
显示器倒过来放不就行了吗?
 
来自:zhukewen, 时间:2006-10-11 16:11:13, ID:3593818
显示器倒过来放不就行了吗?
高手就是高手。。。。
这个方法好!!!
 
to:Johnny_du
播放窗体中的目标控件用什么比较好呢(我还是用RichEdit),还是都不用直接Form2.Canvas.TextOut(0,0,Form1.Text)。
这样的话问题就在“视口变换”的目标控件可不可以是窗体喽?
 
其实目标控件用什么都可以,比如说:用Panel或Form都可以的...
 
to:Johnny_du
好的,那我先看一下Win32编程有关“坐标系统和映射模式”内容吧[:)]
 
好!祝系统早日开发成功!^_^
 
to:Johnny_du
[:)]谢谢!再联系
 
to:Johnny_du
我看了有关“坐标系统和映射模式”内容,觉得不能实现视口变换问题,
[:(]还是我.......
你能不能帮我具体讲一下用什么函数呢[?]
谢谢了!^_^
 
试试:function SelectObject(DC:HDC;p2:HGDIOBJ):HGDIOBJ;stdcall;函数。
如果真的有困难的话我可以写个例程给你:)
 
[:)]好的,那我再试试
 
//旋转 45°:在paintbox用Textout输出的一般是水平的方向的,现在我想输出斜向的文字在
//VC的CFont中的create函数中可以有一个参数(nEscapement)设定输出字体标注行的旋转角
//度,但是在delphi中这个设定在哪?
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin

with Form1.Canvasdo
begin

Font.Name := 'Arial';
Font.Size := 24;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(20, Height div 2, 'Rotated Text!');
end;

end;


找了段代码,希望对你有帮助。大约看了一下。没怎么太看明白。
 
to:buding79
我也看过这个代码,我再试试,谢谢!^_^
 
to:Johnny_du
不好意思,我对系统要求效果理解有误.
是像纸张反面看到的效果(这次不会错了,真的抱歉).
这样还能用同样的方法解决吗[?]
我不行了,帮我写个例程吧,谢谢!
 
后退
顶部