倒计时应用定制化开发
先说个伤心的事情，深圳某9年码农2周前失业了。在家待业，面试也懒得参加，坐吃山空。
有鉴于此，突然想起读书那会参加了一些竞赛活动，每个参赛选手需要在给定的时间内做一篇全英文演讲。
倒计时30秒的时候开始有声音提醒，时间到了之后，会弹出一个演讲结束图片。
总结一下需求：
1，倒计时开始按钮，和退出应用按钮，以及对应鼠标特效
2，倒计时用两种方式显示：#MM:SS， #倒计时秒数
3，倒计时结束后，弹出结束图片和对应提示声音
4，倒计时参数，图片可以在配置文件自定义
5，全屏显示，窗体可拖动
大家懂的，依然是面向百度编程，Pascal和Delphi还是在9年前读书那会玩过，现在已经没啥印象了。
最开始用Lazarus撸了一个版本，发现不规则图片显示效果不太行，遂用Delphi重新撸了一个版本。
图片和按钮都是自己用photoshop绘制，画的不太好，大伙将就看看，也可以在配置文件修改对应图片。
项目代码结构
setting为配置文件
配置文件
动画效果如下
老规矩，祭出界面代码，Delphi不太熟，代码写的比较乱，勿喷。
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
jpeg,pngimage, Vcl.StdCtrls;
type
TForm1 = class(TForm)
imgstop: TImage;
imgstart: TImage;
imgclose: TImage;
lbl: TLabel;
lbl2: TLabel;
timercountdown: TTimer;
timertimeout: TTimer;
lbltime: TLabel;
timertime: TTimer;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure imgcloseClick(Sender: TObject);
procedure imgstartClick(Sender: TObject);
procedure timercountdownTimer(Sender: TObject);
procedure timertimeoutTimer(Sender: TObject);
procedure imgcloseMouseEnter(Sender: TObject);
procedure imgcloseMouseLeave(Sender: TObject);
procedure imgstartMouseLeave(Sender: TObject);
procedure imgstartMouseEnter(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure timertimeTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure InitImages;
procedure MakeFullScreen;
function ConvertIntToTimeParts(const value: Integer):string;
procedure ResizeControls;
end;
var
Form1: TForm1;
picstop, picstart, picstartover, picclose,piccloseover: TPngImage;
countdown, timeout: integer;
config: tstrings;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//
config:=tstringlist.Create;
config.LoadFromFile('setting');
//
countdown := StrToInt(config.Values['countdown']) ;
timeout:= StrToInt(config.Values['due_timeout']) ;
//
MakeFullScreen;
ResizeControls;
initimages;
end;
procedure TForm1.FormDblClick(Sender: TObject);
begin
self.MakeFullScreen;
self.ResizeControls;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
postmessage(handle, WM_SYSCOMMAND, SC_MOVE+1,0);
end;
procedure TForm1.imgcloseClick(Sender: TObject);
begin
self.Close;
end;
procedure TForm1.imgcloseMouseEnter(Sender: TObject);
begin
imgclose.Picture.Assign(piccloseover);
end;
procedure TForm1.imgcloseMouseLeave(Sender: TObject);
begin
imgclose.Picture.Assign(picclose);
end;
procedure TForm1.imgstartClick(Sender: TObject);
begin
countdown := StrToInt(config.Values['countdown']) ;
timeout:= StrToInt(config.Values['due_timeout']) ;
//
self.timercountdown.Enabled:= not self.timercountdown.Enabled;
self.timertimeout.Enabled:=false;
lbl.Caption:=inttostr(countdown);
lbl2.Caption:= ConvertIntToTimeParts(countdown);
lbl.Font.Color:=clBlack;
end;
procedure TForm1.imgstartMouseEnter(Sender: TObject);
begin
imgstart.Picture.Assign(picstartover);
end;
procedure TForm1.imgstartMouseLeave(Sender: TObject);
begin
imgstart.Picture.Assign(picstart);
end;
procedure TForm1.InitImages;
var
bmp: TBitmap;
jpg: TJpegImage;
datadir:string;
begin
datadir:=config.Values['data_dir'];
// init stop
picstop:=TPngImage.Create;
picstop.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_stop']]));
imgstop.Stretch:=true;
imgstop.Visible:=false;
imgstop.Transparent:=true;
imgstop.Picture.Assign(picstop);
imgstop.Left:=(self.Width-imgstop.width) div 2;
imgstop.Top:=(self.Height-imgstop.height) div 2;
imgstop.BringToFront;
// init start
picstart:=TPngImage.Create;
picstart.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_start']]));
picstartover:=TPngImage.Create;
picstartover.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_start_over']]));
imgstart.Stretch:=true;
imgstart.Picture.Assign(picstart);
imgstart.Left:=self.Width-imgstart.Width-10;
imgstart.Top:=imgclose.Top+imgclose.Height+60;
// init close
picclose:=TPngImage.Create;
picclose.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_close']]));
piccloseover:=TPngImage.Create;
piccloseover.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_close_over']]));
imgclose.Stretch:=true;
imgclose.Picture.Assign(picclose);
imgclose.Left:=imgstart.Left;
imgclose.top:=50;
// init bg
jpg:=TJpegImage.Create;
jpg.LoadFromFile(Format('%s/%s',[datadir,config.Values['bg_main']]));
bmp:=TBitmap.Create;
bmp.Assign(jpg);
self.Brush.Bitmap := bmp;
jpg.Free;
// init labels
lbl.Caption:=inttostr(countdown);
lbl2.Caption:= ConvertIntToTimeParts(countdown);
end;
function TForm1.ConvertIntToTimeParts(const value: Integer):string;
var
min, sec: string;
begin
min := inttostr(value div 60);
sec := inttostr(value mod 60);
Result := stringofchar('0',2-length(min)) + min + ':'
+ stringofchar('0',2-length(sec)) + sec;
end;
procedure TForm1.MakeFullScreen;
begin
//覆盖任务栏
Self.BorderStyle := bsNone;
Self.Left := 0;
Self.Top := 0;
Self.Width := Screen.Width;
Self.Height := Screen.Height;
end;
procedure TForm1.ResizeControls;
begin
lbl.Caption:=inttostr(countdown);
lbl2.Caption:= ConvertIntToTimeParts(countdown);
//
lbl.Left:=(Self.Width-lbl.Width) div 2;
lbl.Top:=(Self.Height-lbl.Height) div 2;
{}
lbl2.Left:=(Self.Width-lbl2.Width) div 2;
lbl2.Top:=(Self.Height-2*lbl.Height-lbl2.Height) div 2;
//
lbltime.Caption:=FormatDateTime('yyyy-mm-dd HH:MM:SS', now);
lbltime.Left:=self.Width-lbltime.Width-10;
lbltime.Top:=1;
end;
procedure TForm1.timercountdownTimer(Sender: TObject);
begin
countdown := countdown-1;
lbl.Caption:= inttostr(countdown);
lbl2.Caption:= ConvertIntToTimeParts(countdown);
//
if countdown<=0 then
begin
self.timercountdown.Enabled:=False;
self.timertimeout.Enabled:=true;
imgStop.visible:=true;
end
else if (countdown=30) or (countdown<=10) then
begin
lbl.Font.Color:=clRed;
MessageBeep(MB_OK);
end
end;
procedure TForm1.timertimeoutTimer(Sender: TObject);
begin
timeout := timeout-1;
if timeout<=0 then
begin
self.timertimeout.Enabled:=false;
imgstop.visible:=false;
end;
end;
procedure TForm1.timertimeTimer(Sender: TObject);
begin
self.lbltime.Caption:=FormatDateTime('yyyy-mm-dd HH:MM:SS', now);
end;
end.
