timeleft.pas

来自「用于开发税务票据管理的软件」· PAS 代码 · 共 33 行

unit timeleft;

interface

uses
  Classes, Controls, Forms, Gauges, StdCtrls, Buttons, CoolGauge, ExtCtrls;

type
  TfrmTimeLeft = class(TForm)
    bvlWhite: TBevel;
    bvlBlack: TBevel;
    cggTimeWhite: TCoolGauge;
    cggTimeBlack: TCoolGauge;
    lblWhiteCaption: TLabel;
    lblBlackCaption: TLabel;
    btnClose: TBitBtn;
    ggeTimeWhite: TGauge;
    ggeTimeBlack: TGauge;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTimeLeft: TfrmTimeLeft;

implementation

{$R *.DFM}

end.