crystal-cursor更新了

    在SF上建立项目后我自己都很怀疑是否会对该项目进行更新。最近有些闲,于是对crystal-cursor进行了第一次更新,对项目进行了少量的完善,并增加了一个新的效果。我给这个新的鼠标效果取了个中文名字“绚彩萤火”。
    在程序修改后,打算将代码更新到SF的CVS上,却一直timeout。开始以为是代理的原因,于是花了一堆的时间学习如何给CVS设置代理。在设置代理后问题依旧。无奈之下重新看了一遍SF上的CVS使用说明,发现CVS服务器地址已经变了。想起前些天SF发的通知邮件,于是再去翻阅了一下,里面说的正是此事。在更新代码后本想发布个新版本,文件发布系统又有问题了,找了半天没找到incoming文件夹。难道是我RPWT?不知道还有没有那位兄台在用SF的管理平台,得咨询一下。

    在对crystal-cursor进行修改的时候遇到了一些问题。首先就是delphi的接口。虽说delphi中的接口是自行管理对象的生命周期,但在有些情况下似乎并不是那么灵光。在crystal-cursor中我采用观察者模式来将鼠标位置的变化情况通知各个子窗口。理论上只要我将子窗口从观察者列表中移除,窗口就该释放,但事实并不是如此。关于这个问题,在网上有见到相关的介绍《接口小论》

    为了让子窗口交替出现,我需要让一个子窗口建立后先sleep在进行下一个窗口的创建,但sleep会导致主线程的阻塞,无法达到预期效果。于是我增加了一个NoBreakSleep函数。这个函数虽然简单,但效果似乎还不算太烂

procedure NoBreakSleep(aInterval: Integer);
var
  StartTime: TDateTime;
begin
  StartTime := Now;
  while ((now-StartTime)*24.0*60.0*60.0*1000.0) < aInterval do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;
end;

 

PS:

    发现真是自己的RPWT。刚才一直都是用WinSCP登陆。用WinSCP登陆是更新web站点用的。发布文件直接用FTP上去就可以了。真是太大意了。

    发布文件已经更新上去了,大家可以到我的项目站点去看看crystal-cursor

Comments are closed.