Class TEvolve (unit Unit1)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);

tasktray1.

procedure BugSetClick(Sender: TObject);


procedure bugstatClick(Sender: TObject);


procedure clockTimer(Sender: TObject);

draw bug

procedure Exit1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure TaskTray1Click(Sender: TObject);


procedure TrayIcon1DblClick(Sender: TObject);


procedure worldMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties

Events

Variables

About1 : TMenuItem;


BugSet : TMenuItem;


bugstat : TMenuItem;


clock : TTimer;


countstat : TPanel;


Exit1 : TMenuItem;


File1 : TMenuItem;


Help1 : TMenuItem;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


Open1 : TMenuItem;


Panel1 : TPanel;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


ScrollBox1 : TScrollBox;


Settings1 : TMenuItem;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton4 : TSpeedButton;


Stat : TLabel;


TaskTray1 : TMenuItem;


TimeShow : TPanel;


View1 : TMenuItem;


world : TImage;



Constructors


Functions


procedure About1Click(Sender: TObject);

tasktray1.checked:=not tasktray1.checked; trayicon1.active:=tasktray1.checked;


procedure BugSetClick(Sender: TObject);


procedure bugstatClick(Sender: TObject);


procedure clockTimer(Sender: TObject);

draw bug


procedure Exit1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure TaskTray1Click(Sender: TObject);


procedure TrayIcon1DblClick(Sender: TObject);


procedure worldMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties


Events


Variables


About1 : TMenuItem;


BugSet : TMenuItem;


bugstat : TMenuItem;


clock : TTimer;


countstat : TPanel;


Exit1 : TMenuItem;


File1 : TMenuItem;


Help1 : TMenuItem;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


Open1 : TMenuItem;


Panel1 : TPanel;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


ScrollBox1 : TScrollBox;


Settings1 : TMenuItem;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton4 : TSpeedButton;


Stat : TLabel;


TaskTray1 : TMenuItem;


TimeShow : TPanel;


View1 : TMenuItem;


world : TImage;