PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Calmira/Src/SRC/FILEPROP.DFM/FILEPROP.txt

Text File | 1997-02-17 | 8.1 KB | 371 lines

object FilePropDlg: TFilePropDlg
  Left = 201
  Top = 107
  HelpContext = 52
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Properties'
  ClientHeight = 291
  ClientWidth = 342
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 100
    Top = 260
    Width = 77
    Height = 27
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 180
    Top = 260
    Width = 77
    Height = 27
    TabOrder = 1
    Kind = bkCancel
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object Notebook: TTabbedNotebook
    Left = 2
    Top = 0
    Width = 337
    Height = 257
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 2
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'General'
      object Bevel1: TBevel
        Left = 8
        Top = 10
        Width = 311
        Height = 135
        Shape = bsFrame
      end
      object Bevel2: TBevel
        Left = 8
        Top = 156
        Width = 311
        Height = 61
        Shape = bsFrame
      end
      object Label5: TLabel
        Left = 28
        Top = 148
        Width = 47
        Height = 13
        Caption = 'Attributes:'
      end
      object Notes: TNotebook
        Left = 14
        Top = 18
        Width = 297
        Height = 119
        PageIndex = 1
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'File Properties'
          object Label1: TLabel
            Left = 2
            Top = 4
            Width = 42
            Height = 13
            Caption = 'Filename'
          end
          object Label2: TLabel
            Left = 2
            Top = 28
            Width = 41
            Height = 13
            Caption = 'Location'
          end
          object Label3: TLabel
            Left = 22
            Top = 52
            Width = 20
            Height = 13
            Caption = 'Size'
          end
          object Label4: TLabel
            Left = 2
            Top = 100
            Width = 40
            Height = 13
            Caption = 'Modified'
          end
          object FilenameLab: TLabel
            Left = 58
            Top = 4
            Width = 60
            Height = 13
            Caption = 'FilenameLab'
            ParentShowHint = False
            ShowHint = False
          end
          object LocationLab: TLabel
            Left = 60
            Top = 28
            Width = 59
            Height = 13
            Caption = 'LocationLab'
          end
          object SizeLab: TLabel
            Left = 58
            Top = 52
            Width = 38
            Height = 13
            Caption = 'SizeLab'
            ParentShowHint = False
            ShowHint = False
          end
          object DateLab: TLabel
            Left = 58
            Top = 100
            Width = 41
            Height = 13
            Caption = 'DateLab'
          end
          object Label10: TLabel
            Left = 18
            Top = 76
            Width = 24
            Height = 13
            Caption = 'Type'
          end
          object TypeLab: TLabel
            Left = 58
            Top = 76
            Width = 42
            Height = 13
            Caption = 'TypeLab'
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Folder Properties'
          object Label6: TLabel
            Left = 2
            Top = 4
            Width = 58
            Height = 13
            Caption = 'Folder name'
          end
          object Foldername: TLabel
            Left = 80
            Top = 4
            Width = 55
            Height = 13
            Caption = 'Foldername'
            ParentShowHint = False
            ShowHint = True
          end
          object Label8: TLabel
            Left = 19
            Top = 28
            Width = 41
            Height = 13
            Caption = 'Location'
          end
          object FolderLoc: TLabel
            Left = 80
            Top = 28
            Width = 47
            Height = 13
            Caption = 'FolderLoc'
          end
          object Label16: TLabel
            Left = 18
            Top = 52
            Width = 42
            Height = 13
            Caption = 'Contents'
          end
          object Foldersize: TLabel
            Left = 80
            Top = 52
            Width = 67
            Height = 13
            Caption = 'FolderSizeLab'
          end
          object Label21: TLabel
            Left = 20
            Top = 76
            Width = 40
            Height = 13
            Caption = 'Modified'
          end
          object FolderDate: TLabel
            Left = 80
            Top = 76
            Width = 52
            Height = 13
            Caption = 'FolderDate'
          end
          object Label23: TLabel
            Left = 8
            Top = 100
            Width = 52
            Height = 13
            Caption = 'Deep scan'
          end
          object TotalLab: TLabel
            Left = 80
            Top = 100
            Width = 94
            Height = 13
            Cursor = -24
            Caption = 'Click here to scan...'
            OnClick = TotalLabClick
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'Multiple Item Properties'
          object Label7: TLabel
            Left = 8
            Top = 16
            Width = 45
            Height = 13
            Caption = 'Total files'
          end
          object Label9: TLabel
            Left = 8
            Top = 44
            Width = 45
            Height = 13
            Caption = 'Total size'
          end
          object Selfiles: TLabel
            Left = 94
            Top = 16
            Width = 33
            Height = 13
            Caption = 'Selfiles'
          end
          object Selsize: TLabel
            Left = 94
            Top = 44
            Width = 33
            Height = 13
            Caption = 'Selsize'
          end
        end
      end
      object ReadOnly: TCheckBox
        Left = 26
        Top = 168
        Width = 97
        Height = 17
        AllowGrayed = True
        Caption = '&Read only'
        TabOrder = 1
        OnClick = ReadOnlyClick
      end
      object Hidden: TCheckBox
        Left = 174
        Top = 168
        Width = 97
        Height = 17
        AllowGrayed = True
        Caption = '&Hidden'
        TabOrder = 2
        OnClick = ReadOnlyClick
      end
      object Archive: TCheckBox
        Left = 26
        Top = 192
        Width = 97
        Height = 17
        AllowGrayed = True
        Caption = '&Archive'
        TabOrder = 3
        OnClick = ReadOnlyClick
      end
      object System: TCheckBox
        Left = 174
        Top = 192
        Width = 97
        Height = 17
        AllowGrayed = True
        Caption = '&System'
        TabOrder = 4
        OnClick = ReadOnlyClick
      end
      object Panel1: TPanel
        Left = 272
        Top = 18
        Width = 41
        Height = 39
        BevelOuter = bvNone
        TabOrder = 5
        object ItemImage: TImage
          Left = 4
          Top = 2
          Width = 33
          Height = 33
        end
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Version Info'
      object Listbox: TListBox
        Left = 8
        Top = 26
        Width = 311
        Height = 191
        ItemHeight = 16
        Style = lbOwnerDrawFixed
        TabOrder = 0
        OnDrawItem = ListboxDrawItem
      end
      object Header: THeader
        Left = 8
        Top = 8
        Width = 311
        Height = 19
        Sections.Sections = (
          #0'100'#0'Property'
          #0'35'#0'Value')
        TabOrder = 1
        OnSized = HeaderSized
      end
    end
  end
  object HelpBtn: TBitBtn
    Left = 260
    Top = 260
    Width = 77
    Height = 27
    TabOrder = 3
    Kind = bkHelp
    Margin = 4
    Style = bsNew
    Spacing = -1
  end
end