[Ocs-comps-commits] OCS2/Samples/VCL/Version Unit1.dfm,NONE,1.1 Unit1.pas,NONE,1.1 ver.dpr,NONE,1.1 ver.res,NONE,1.1

[Si C. <tec...@us...>]

Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Version
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Version

Added Files:
	Unit1.dfm Unit1.pas ver.dpr ver.res 
Log Message:
Initially added to source control

--- NEW FILE: ver.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: ver.dpr ---
program ver;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

--- NEW FILE: Unit1.pas ---
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OrckaVersionInfo, FileCtrl;

type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    OrckaVersionInfo1: TOrckaVersionInfo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    procedure FileListBox1Change(Sender: TObject);
    procedure OrckaVersionInfo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
  OrckaVersionInfo1.FileName := FileListBox1.FileName;
end;

procedure TForm1.OrckaVersionInfo1Change(Sender: TObject);
begin
  if OrckaVersionInfo1.HasError then
    Label25.Caption := OrckaVersionInfo1.Error
  else
    Label25.Caption := '';
  Label13.caption := OrckaVersionInfo1.CompanyName;
  Label14.caption := OrckaVersionInfo1.FileDescription;
  Label15.caption := OrckaVersionInfo1.FileVersion;
  Label16.caption := OrckaVersionInfo1.InternalName;
  Label17.caption := OrckaVersionInfo1.LegalCopyright;
  Label18.caption := OrckaVersionInfo1.OriginalFilename;
  Label19.caption := OrckaVersionInfo1.ProductName;
  Label20.caption := OrckaVersionInfo1.ProductVersion;
  Label21.caption := OrckaVersionInfo1.Version;
  Label22.caption := OrckaVersionInfo1.CharSet;
  Label23.caption := OrckaVersionInfo1.Language;
  Label24.caption := OrckaVersionInfo1.FileName;
  Label27.Caption := OrckaVersionInfo1.GetValue('Orcka');
end;

end.

--- NEW FILE: Unit1.dfm ---
(This appears to be a binary file; contents omitted.)