dlgabt.pas

详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...一个酒店管理系统VB+Access [学生学籍管理系统(VB+Acess).zip] - !这个是刚刚编的毕业设计,可能

//
// podms About dialog window
//
// When the form is created, it will automatically fill in the version
// information for the executable. The information is retrieved from the
// executable itself. If you need to change any of the information, e.g. if
// you want to display DLL version information, then you need to set the
// edit components on the form manually before you call ShowModal.
//
// In Delphi, to set the version information select the menu option
// Project->Options. Click on the VersionInfo tab. Make sure the tick is
// on for Include Version Information in Project. Also select Auto-increment
// build number so that the FileVersion is automatically updated whenever
// the executable is built. This allows for easy version tracking.
//
// This unit uses the following settings:
//
//     FileDescription          The name of the module, e.g. Podms Viewer
//     FileVersion              Automatically updated by Delphi IDE
//     LegalCopyright           e.g. (c) C/S Podms Ltd.
//     Comments                 e.g. This is the viewer module for Podms
//     WrittenBy                e.g. Michael J. Leaver (this is displayed
//                                   as a hint when the cursor is over the
//                                   image display on the dialog box)
//
// IMPORTANT: This information is only retrieved if the Locale ID is set
//            to the value $0809 English (British). If it is changed then
//            you need to change the PrefixString in the FillPodmsInfo
//            method. Good luck!
//
// DLL'S NOTE THAT: The version information does not seem to work for DLL's.
//                 i.e. if you put this into a DLL and call it from an
//                 executable, then the version information displayed is
//                 for the executable and not the DLL.
//
// (c) ChiconySoftware 2001
//
// When       Who      How
// ---------  ---      -------------------------------------------------------
// 2001.5.31  century  Initial version
//
unit dlgAbt;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ComCtrls;

type
  TdlgAbout = class(TForm)
    BitBtn1: TBitBtn;
    Version: TLabel;
    Copyright: TLabel;
    Panel2: TPanel;
    Bevel1: TBevel;
    Image2: TImage;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure MoreBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    OldHeight, NewHeight: Integer;
    // procedure Delay(Second, MilliSec: Word);
    { Private declarations }
  public
    { Public declarations }

  end;

//var
 // dlgAbout: TdlgAbout;

implementation

{$R *.DFM}


// Initialise with default values
procedure TdlgAbout.FormCreate(Sender: TObject);
begin

  OldHeight:= ClientHeight;
end;

procedure TdlgAbout.MoreBtnClick(Sender: TObject);
begin
  ClientHeight:= NewHeight;
end;

{procedure TdlgAbout.Delay(Second, MilliSec: Word);
var
  TimeOut: TDateTime;
begin
  TimeOut:= Now+ EncodeTime(0, Second div 60, Second mod 60, MilliSec);
  while Now< TimeOut do
    Application.ProcessMessages;
end;}

procedure TdlgAbout.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

end.