unit1.pas

学习C_++ builder 和 delphi 时候用到的一些 有用的例子

{
softname:e_colck
authors:sjctheworld
E_mail:sjctheworld
copyright:2003/08/06
please keep down upwards information
enjoy
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls,shellapi, Menus, jpeg;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    PaintBox1: TPaintBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Image2: TImage;
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure WMSysCommand (var Msg: TWMSysCommand);
      message wm_SysCommand;

  end;

var
  Form1: TForm1;
  //
  cx,cy:integer;
  radius:integer;
  bx,by,ex,ey:integer;
  i:integer;
  angle:real;
  anglem:real;
  angleh:real;
  //sx,sy:Extended;
  sx,sy:integer;
  s:string;
  Present: TDateTime;
  Hour, Min, Sec, MSec: Word;
  bg,sl,word:boolean;

  angle_test : byte;
  timer_interval : integer;

  const
  idsyabout=100;

implementation

{$R *.DFM}

procedure TForm1.FormPaint(Sender: TObject);
begin
  //get center point
  cx:=form1.paintbox1.Width div 2;//form1.ClientWidth div 2;
  cy:=form1.paintbox1.Width div 2;//form1.ClientHeight div 2;
  //set radius
  radius:=100;
  //set begin end point
  bx:=cx-110;
  by:=cy+110;
  ex:=cx+110;
  ey:=cy-110;
  with paintbox1 do begin
  angle:=2*3.14159*(angle_test-18)/60;//angle:=2*3.14159*sec/60;
  by:=round(cy-radius*cos(angle));//round(cy-radius*cos(angle));
  bx:=round(cx+radius*sin(angle));//round(cx+radius*sin(angle));
  canvas.Pen.Width:=5;
  canvas.pen.Color:=clred;
  canvas.MoveTo(cx,cy);
  Canvas.LineTo(bx,by);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
       if( angle_test < 37 ) then
           angle_test := angle_test + 1
       else
           angle_test := 0;
       PaintBox1.Invalidate;    //paintbox1.Repaint;

       image2.Left := image2.Left+2;
       image2.Top := image2.Top+2;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //appendmenu(Getsystemmenu(handle,false),mf_separator,0,'');
  //appendmenu(Getsystemmenu(handle,false),mf_string,idsyabout,'&About...');
  DoubleBuffered:=True;
end;

procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
begin
   //if msg.CmdType = idsyabout then
   //MessageDlg('Author:sjctheworld', mtInformation,[mbOk], 0);
   // default system menu commands
   inherited;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    form1.close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if( form1.Timer1.Enabled = true ) then
    begin
        form1.Timer1.Enabled := false;
        form1.Image2.Visible := false;
    end
    else
    begin
        form1.Timer1.Enabled := true;
        form1.Image2.Visible := true;
    end

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if( timer_interval < 2200 ) then
    begin
        timer_interval := timer_interval+50
    end;
    timer1.Interval := timer_interval;
end;

end.