为什么在时钟里加入移动语句文字抖动! (100分)

S

scacy

Unregistered / Unconfirmed
GUEST, unregistred user!
字幕滚动的时候总感觉抖动(哆嗦)很不舒服,怎么处理.我快疯了!真的很讨厌!是不是是不是和
时钟的频率有关,还是与刷新率有关,如何处理才能达到理想的效果呢>?期待各位大虾的帮助!必谢!
我感觉就是与时钟有关系可是不知道怎么解决!恳请各位赐教!
 
兄弟:你用的是不是delphi6呀!
画图用的Canvars是PlayForm的吗?举例来说,如果在你的PlayForm上放了一个
TPanle,在Tpanle上放了一个Timage,图象是画在Timage的canvas上,那么你就应该将
Tpanle的doublebuffered:=true!
Ok,Good Luck!
 
谢谢 vecm的建议不过我还有一个小问题不能解决可否请您不吝赐教我的文字上下移动时好像还有一点间断性的跳跃比如每隔一秒
就上跳一下(很微弱,不过感觉得出来)这是怎么回事?骄人的眼睛好不舒服!
 
用Canvas,就不会出现抖动了。
var
Form1: TForm1;
x,tt,l,h:integer;
pic:TRect;
map:TBitmap;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=image1.Height+10;
tt:=x+80;
form1.repaint;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x-1;
tt:=tt-1;
if x<-160 then
x:=image1.height+10;
tt:=x+170;
image1.Canvas.font.size:=24;
image1.Canvas.Font.color:=clBlue;
image1.Canvas.TextOut(20,x,'零售管理系统1.0版');
image1.Canvas.font.size:=14;
image1.Canvas.font.color:=clAqua;
image1.Canvas.TextOut(90,x+50,'程序设计: WindFancy');
end;
 
顶部