| Class TfrmFileProperties (unit FileProp) |
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);| 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;
attr_archive : boolean;
attr_compressed : boolean;
attr_hidden : boolean;
attr_readonly : boolean;
attr_system : boolean;
hIcon : THandle;
value_list : TStringList;| 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