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

Text File | 1997-02-17 | 10.9 KB | 463 lines

object FileSysPropDlg: TFileSysPropDlg
  Left = 202
  Top = 103
  HelpContext = 53
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'File System Properties'
  ClientHeight = 335
  ClientWidth = 316
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 76
    Top = 304
    Width = 77
    Height = 27
    TabOrder = 1
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 156
    Top = 304
    Width = 77
    Height = 27
    TabOrder = 2
    Kind = bkCancel
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object Notebook: TTabbedNotebook
    Left = 2
    Top = 0
    Width = 313
    Height = 301
    PageIndex = 2
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'General'
      object Bevel3: TBevel
        Left = 10
        Top = 86
        Width = 283
        Height = 173
        Shape = bsFrame
      end
      object Label8: TLabel
        Left = 20
        Top = 100
        Width = 153
        Height = 13
        Caption = 'Search these file &types for icons:'
        FocusControl = IconEdit
      end
      object Label1: TLabel
        Left = 20
        Top = 114
        Width = 240
        Height = 13
        Caption = '(Enter a list of file extensions, separated by spaces)'
      end
      object Label11: TLabel
        Left = 24
        Top = 226
        Width = 165
        Height = 13
        Caption = 'Filter for new &windows (normally *.*)'
        FocusControl = FilterEdit
      end
      object Label12: TLabel
        Left = 22
        Top = 164
        Width = 203
        Height = 13
        Caption = 'Folder where &user defined icons are stored:'
        FocusControl = IconPathEdit
      end
      object Sorting: TRadioGroup
        Left = 10
        Top = 10
        Width = 283
        Height = 67
        Caption = 'Default sorting:'
        Columns = 2
        Items.Strings = (
          'Sort by &extension'
          'Sort by &filename'
          '&Largest files first'
          '&Newest files first')
        TabOrder = 0
      end
      object IconEdit: TEdit
        Left = 22
        Top = 132
        Width = 259
        Height = 20
        Cursor = crIBeam
        CharCase = ecUpperCase
        MaxLength = 31
        TabOrder = 1
      end
      object FilterEdit: TEdit
        Left = 200
        Top = 222
        Width = 79
        Height = 20
        TabOrder = 3
      end
      object IconPathEdit: TEdit
        Left = 22
        Top = 180
        Width = 259
        Height = 20
        Hint = 'Double click to select folder'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnDblClick = IconPathEditDblClick
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Details'
      object Bevel1: TBevel
        Left = 10
        Top = 126
        Width = 283
        Height = 133
        Shape = bsFrame
      end
      object Bevel2: TBevel
        Left = 10
        Top = 10
        Width = 283
        Height = 101
        ParentShowHint = False
        Shape = bsFrame
        ShowHint = False
      end
      object Label2: TLabel
        Left = 40
        Top = 52
        Width = 121
        Height = 13
        Caption = '&Delay before hints appear'
        FocusControl = sbDelay
      end
      object Label3: TLabel
        Left = 40
        Top = 92
        Width = 58
        Height = 13
        Caption = '0.5 seconds'
      end
      object Label4: TLabel
        Left = 234
        Top = 90
        Width = 49
        Height = 13
        Caption = '3 seconds'
      end
      object Label5: TLabel
        Left = 18
        Top = 4
        Width = 41
        Height = 13
        Caption = 'File hints'
      end
      object Label6: TLabel
        Left = 18
        Top = 120
        Width = 58
        Height = 13
        Caption = 'Descriptions'
      end
      object rbDOSFilenames: TRadioButton
        Left = 22
        Top = 142
        Width = 209
        Height = 17
        Caption = 'Use only normal &MS-DOS filenames'
        TabOrder = 2
        OnClick = rb4DOSDescClick
      end
      object rb4DOSDesc: TRadioButton
        Left = 22
        Top = 170
        Width = 219
        Height = 17
        Caption = 'Use &4DOS compatible file descriptions'
        TabOrder = 3
        OnClick = rb4DOSDescClick
      end
      object DescPanel: TPanel
        Left = 32
        Top = 190
        Width = 255
        Height = 61
        BevelOuter = bvNone
        TabOrder = 4
        object Label10: TLabel
          Left = 26
          Top = 42
          Width = 215
          Height = 13
          Caption = 'used at the same time to process files (slower)'
        end
        object cbDescCaptions: TCheckBox
          Left = 8
          Top = 2
          Width = 241
          Height = 17
          Caption = 'Display descriptions as icon &captions'
          TabOrder = 0
        end
        object cbSimul4DOS: TCheckBox
          Left = 8
          Top = 26
          Width = 235
          Height = 17
          Caption = '&Keep up to date while 4DOS sessions are'
          TabOrder = 1
        end
      end
      object cbFileHints: TCheckBox
        Left = 22
        Top = 26
        Width = 257
        Height = 17
        Caption = '&Popup file details when cursor is left over an icon'
        TabOrder = 0
      end
      object sbDelay: TScrollBar
        Left = 40
        Top = 70
        Width = 237
        Height = 17
        LargeChange = 30
        Max = 3000
        Min = 500
        Position = 500
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Options'
      object Label7: TLabel
        Left = 10
        Top = 8
        Width = 158
        Height = 13
        Caption = 'Ask for &confirmation before:'
        FocusControl = ConfirmList
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 10
        Top = 138
        Width = 130
        Height = 13
        Caption = '&Miscellaneous options:'
        FocusControl = MiscList
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ConfirmList: TCheckList
        Left = 10
        Top = 24
        Width = 283
        Height = 102
        Color = clBtnFace
        IntegralHeight = True
        ItemHeight = 20
        Items.Strings = (
          'Starting a copy operation'
          'Starting a move operation'
          'Starting a delete operation'
          'Copying a file'
          'Moving a file'
          'Deleting a file'
          'Replacing a file'
          'Deleting or moving a protected file'
          'Copying a folder'
          'Moving a folder'
          'Deleting a folder'
          'Assigning a filename for a new alias')
        TabOrder = 0
      end
      object MiscList: TCheckList
        Left = 10
        Top = 156
        Width = 283
        Height = 102
        Color = clBtnFace
        IntegralHeight = True
        ItemHeight = 20
        Items.Strings = (
          'Allow files to be copied in the background'
          'Show hidden and system files in new windows'
          'Display items as a list for all new windows'
          'Allow files to be dropped into program icons'
          'Display file version information in Properties dialog'
          'Display icons next to filenames in Find dialog'
          'Refresh windows re-opened by from elsewhere'
          'Display arrow symbols next to aliases'
          'Show descriptions (if available) in popup hints'
          'Show date in popup hints'
          'Show time in popup hints'
          'Show file attributes in popup hints')
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Utilities'
      object Bevel4: TBevel
        Left = 10
        Top = 12
        Width = 283
        Height = 209
        Shape = bsFrame
      end
      object Label13: TLabel
        Left = 22
        Top = 32
        Width = 176
        Height = 13
        Caption = 'Choose &Inspect from the object menu'
        FocusControl = InspectEdit
      end
      object Label14: TLabel
        Left = 20
        Top = 76
        Width = 231
        Height = 13
        Caption = '&Double click on a file with no associated program'
        FocusControl = DefaultEdit
      end
      object Label15: TLabel
        Left = 20
        Top = 124
        Width = 191
        Height = 13
        Caption = 'Choose &Undelete from the window menu'
        FocusControl = UndelEdit
      end
      object Label16: TLabel
        Left = 20
        Top = 170
        Width = 213
        Height = 13
        Caption = '&Click on the icon in the Disk Properties dialog'
        FocusControl = DiskEdit
      end
      object Label17: TLabel
        Left = 22
        Top = 6
        Width = 123
        Height = 13
        Caption = 'Programs to run when you'
      end
      object InspectEdit: TEdit
        Left = 22
        Top = 48
        Width = 259
        Height = 20
        Cursor = crIBeam
        Hint = 'Double click to select program'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = InspectEditDblClick
      end
      object DefaultEdit: TEdit
        Left = 22
        Top = 92
        Width = 259
        Height = 20
        Cursor = crIBeam
        Hint = 'Double click to select program'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnDblClick = InspectEditDblClick
      end
      object UndelEdit: TEdit
        Left = 22
        Top = 140
        Width = 259
        Height = 20
        Cursor = crIBeam
        Hint = 'Double click to select program'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnDblClick = InspectEditDblClick
      end
      object DiskEdit: TEdit
        Left = 22
        Top = 186
        Width = 259
        Height = 20
        Cursor = crIBeam
        Hint = 'Double click to select program'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnDblClick = InspectEditDblClick
      end
    end
  end
  object HelpBtn: TBitBtn
    Left = 236
    Top = 304
    Width = 77
    Height = 27
    TabOrder = 3
    Kind = bkHelp
    Margin = 4
    Style = bsNew
    Spacing = -1
  end
  object OpenDialog: TOpenDialog
    Filter = 'Programs|*.com;*.exe;*.bat;*.pif|All files|*.*'
    Left = 4
    Top = 302
  end
end