Class TfrmFileProperties (unit FileProp)

Inherits from

TForm

Revision history: V1.0.0 1997 Jan 16 Add version information page V1.0.2 1997 Jan 19 Add more code for getting the Icon, using code from Borland's Resource Explorer example V1.0.4 1997 Feb 12 Handle zero 64-bit date/time as "unknown" V1.0.6 1997 Mar 01 Add Compressed Size and Compression Attribute V1.0.8 1997 Mar 22 Derive Icon using ShellAPI function - Win95/NT only V1.0.10 1997 Mar 28 Remove references to Borland's Resource Explorer units V1.0.12 1997 May 16 Make starting tab the "General" one Display error message if the file isn't found V1.1.0 1997 May 18 Version for Delphi 3.0 Correct failing to hide compression attributes after one compressed file has been displayed

Constructors



Functions

procedure btnOKClick(Sender: TObject);


procedure chkArchiveClick(Sender: TObject);


procedure chkCompressedClick(Sender: TObject);


procedure chkHiddenClick(Sender: TObject);


procedure chkReadOnlyClick(Sender: TObject);


procedure chkSystemClick(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure lbxNamesClick(Sender: TObject);

now look at all the attributes and set the check boxes appropriately

Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


btnOK : TButton;


chkArchive : TCheckBox;


chkCompressed : TCheckBox;


chkHidden : TCheckBox;


chkReadOnly : TCheckBox;


chkSystem : TCheckBox;


grpOtherVersionInformation : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblAccessed : TLabel;


lblCompressedSize : TLabel;


lblCompressedSizeCaption : TLabel;


lblCreated : TLabel;


lblDOSName : TLabel;


lblFileDescription : TLabel;


lblFileVersion : TLabel;


lblLegalCopyright : TLabel;


lblLocation : TLabel;


lblModified : TLabel;


lblName : TLabel;


lblSize : TLabel;


lblType : TLabel;


lbxNames : TListBox;


memValues : TMemo;


PageControl1 : TPageControl;


pnlError : TPanel;


tabGeneral : TTabSheet;


tabVersion : TTabSheet;


filename : string;

Public declarations

attr_archive : boolean;


attr_compressed : boolean;


attr_hidden : boolean;


attr_readonly : boolean;


attr_system : boolean;


hIcon : THandle;


value_list : TStringList;

Private declarations


Constructors


Functions


procedure btnOKClick(Sender: TObject);


procedure chkArchiveClick(Sender: TObject);


procedure chkCompressedClick(Sender: TObject);


procedure chkHiddenClick(Sender: TObject);


procedure chkReadOnlyClick(Sender: TObject);


procedure chkSystemClick(Sender: TObject);


procedure FormHide(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure lbxNamesClick(Sender: TObject);

now look at all the attributes and set the check boxes appropriately


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


btnOK : TButton;


chkArchive : TCheckBox;


chkCompressed : TCheckBox;


chkHidden : TCheckBox;


chkReadOnly : TCheckBox;


chkSystem : TCheckBox;


grpOtherVersionInformation : TGroupBox;


Image1 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblAccessed : TLabel;


lblCompressedSize : TLabel;


lblCompressedSizeCaption : TLabel;


lblCreated : TLabel;


lblDOSName : TLabel;


lblFileDescription : TLabel;


lblFileVersion : TLabel;


lblLegalCopyright : TLabel;


lblLocation : TLabel;


lblModified : TLabel;


lblName : TLabel;


lblSize : TLabel;


lblType : TLabel;


lbxNames : TListBox;


memValues : TMemo;


PageControl1 : TPageControl;


pnlError : TPanel;


tabGeneral : TTabSheet;


tabVersion : TTabSheet;


filename : string;

Public declarations


attr_archive : boolean;


attr_compressed : boolean;


attr_hidden : boolean;


attr_readonly : boolean;


attr_system : boolean;


hIcon : THandle;


value_list : TStringList;

Private declarations