unit Display1;

interface

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

type
  TFrm_Display1 = class(TForm)
    Panel1: TPanel;
    LB1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Display1: TFrm_Display1;

implementation

uses sys_global ;

{$R *.dfm}

function GetHourMinuteSec(M: Dword): string ;   //BjCat
var
  h, n, s: Dword ;
begin
  h := m div 3600;
  n := (m - h*3600) div 60 ;
  s := m-h*3600-n*60 ;
  result := intTostr(h)+'小時'+intTostr(n)+'分鐘'+intTostr(s)+'秒'
end ;

function GetHourMinute(M: integer): string ;
var
  h, n: integer ;
begin
  h := m div 60 ;
  n := m mod 60 ;
  result := intTostr(h)+'小時'+intTostr(n)+'分鐘'
end ;

procedure TFrm_Display1.Timer1Timer(Sender: TObject);
var
//BjCat  x: real ;
  tm: Dword ;
begin
  Timer1.Enabled := false ;
  if m_ICtype = '5' then  begin
    LB1.Caption := '余額: 0 元' ;
    exit ;
  end;

  if m_ICtype <> '4' then begin
//BjCat    LB1.Caption := '余額:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
    LB1.Caption := '已用金額:' + floatTostrf((m_StMoney-m_ICMoney),ffnumber,6,2)+'元, ' + '剩余金額:' + floatTostrf(m_ICMoney,ffnumber,6,2)+'元, ' ;
//BjCat    x := (m_montime/60000)*m_ICMoney/m_Rate ;
//BjCat    LB1.Caption := LB1.Caption + '余時:' + GetHourMinute(Trunc(X)+1) ;
    tm := (GetTickCount div 1000) - m_StartMin ;
    LB1.Caption := LB1.Caption + #13 + '已上機的時間:' + GetHourMinuteSec(tm) ;

  end
  else
    begin
    LB1.Caption := '余時:' + GetHourMinute(Trunc(m_ICMoney)) ;
    end;
  Timer1.Interval := 1500 ;
  Timer1.Enabled := true ;
end;

procedure TFrm_Display1.FormActivate(Sender: TObject);
begin
  Timer1.enabled := true ;
  Frm_Display1.top := 0 ;
  Frm_Display1.Left := Screen.Width -Frm_display1.Width-150 ;
end;
procedure TFrm_Display1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = 115)  and ([ssalt] = shift) then
    key := 0 ;
end;

end.