frmstat.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 36 行

{******************************************************************************}
{*                                                                            *}
{*                         Adirondack Software & Graphics                     *)
(*                                 FrmStat Unit                               *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

unit frmStat;

interface

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

type
   TfrmStatus = class( TForm )
      lblStatus: TLabel;
    Panel1: TPanel;
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frmStatus: TfrmStatus;

implementation

{$R *.DFM}

end.