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
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
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
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
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