aboutpropertyfrm.pas

供水营销打印程序源码

unit AboutPropertyFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJCustomProperty, cxLookAndFeelPainters, PropStorageEh,
  StdCtrls, cxButtons, ExtCtrls, fcLabel, jpeg, JvImage, JvComponent,
  JvComputerInfo, JvaScrollText, JvHtControls, JvScrollText;

type
  TfrmPropertyAbout = class(TSJCustomPropertyForm)
    fcLabel39: TfcLabel;
    Image1: TImage;
    JvImage1: TJvImage;
    Label1: TLabel;
    Panel1: TPanel;
    labCompany: TLabel;
    Label3: TLabel;
    labComputer: TLabel;
    Label5: TLabel;
    labSystem: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    JvHTLabel1: TJvHTLabel;
    ComputerInfo: TJvComputerInfo;
    ScrollText: TJvScrollText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPropertyAbout: TfrmPropertyAbout;

implementation

{$R *.dfm}

procedure TfrmPropertyAbout.FormCreate(Sender: TObject);
begin
  inherited;
  labCompany.Caption := Computerinfo.Company;
  labComputer.Caption:= Computerinfo.ComputerName;
  labSystem.Caption  := Computerinfo.ProductName + ' Ver ' + Computerinfo.VersionNumber;
  ScrollText.Active  := True;
end;

end.