ychatu17.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 49 行

unit ychatu17;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, LightSpd;

type
  TForm17 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    LightSpeed1: TLightSpeed;
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    FBitmap: TBitmap;
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

uses YchatU1;

{$R *.DFM}

procedure TForm17.Timer1Timer(Sender: TObject);
begin
If LightSpeed1.Active=True Then
 Begin
  LightSpeed1.CenterX:=round(Width/2+cos(R)*sin(R/2)*Width/10);
  LightSpeed1.CenterY:=round(Height/2+sin(R)*Height/10);
 //  R:=R+20/Height; if R>=6.28*2 then R:=0;
 End;
end;

procedure TForm17.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

end.