Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/clipma/cm32.exe/CLIPMT42.EXE/0/RCDATA/TFRMLISTPROP/TFRMLISTPROP.txt

Text File | 1997-02-01 | 12.9 KB | 448 lines

object frmListProp: TfrmListProp
  Left = 138
  Top = 22
  ActiveControl = OKBtn
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Collection Properties'
  ClientHeight = 378
  ClientWidth = 385
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 82
    Top = 294
    Width = 33
    Height = 33
  end
  object Label1: TLabel
    Left = 1
    Top = 24
    Width = 68
    Height = 17
    Alignment = taRightJustify
    Caption = 'Title'
  end
  object Label4: TLabel
    Left = 8
    Top = 296
    Width = 61
    Height = 13
    Alignment = taRightJustify
    Caption = 'Icon'
  end
  object Bevel1: TBevel
    Left = 4
    Top = 336
    Width = 377
    Height = 5
    Shape = bsTopLine
  end
  object Label8: TLabel
    Left = 1
    Top = 4
    Width = 276
    Height = 13
    Caption = 'Number Of Items Currently Stored in Collection:'
  end
  object lblCount: TLabel
    Left = 284
    Top = 4
    Width = 43
    Height = 13
    Caption = '000000'
  end
  object Label9: TLabel
    Left = 6
    Top = 87
    Width = 63
    Height = 13
    Alignment = taRightJustify
    Caption = 'Positioning'
  end
  object Label10: TLabel
    Left = 41
    Top = 175
    Width = 28
    Height = 13
    Alignment = taRightJustify
    Caption = 'Data'
  end
  object Label11: TLabel
    Left = 13
    Top = 188
    Width = 56
    Height = 13
    Alignment = taRightJustify
    Caption = 'Retention'
  end
  object Label12: TLabel
    Left = 8
    Top = 296
    Width = 61
    Height = 13
    Alignment = taRightJustify
    Caption = 'Toolbar'
  end
  object imgIcon: TImage
    Tag = 49
    Left = 84
    Top = 296
    Width = 29
    Height = 29
    Hint =
      'This is the icon that shows on the toolbar, to represent this co' +
      'llection.'
    Center = True
    PopupMenu = PopMenuWhatsThis
  end
  object Label2: TLabel
    Left = 12
    Top = 51
    Width = 61
    Height = 26
    Alignment = taRightJustify
    Caption = 'Garbage Avoidance'
    WordWrap = True
  end
  object OKBtn: TBitBtn
    Left = 112
    Top = 348
    Width = 85
    Height = 27
    TabOrder = 5
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 204
    Top = 348
    Width = 85
    Height = 27
    TabOrder = 6
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 296
    Top = 348
    Width = 85
    Height = 27
    HelpContext = 82
    TabOrder = 7
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object txtCollTitle: TEdit
    Left = 76
    Top = 22
    Width = 305
    Height = 21
    Hint = 'This is the title of the collection.  It must be unique.'
    HelpContext = 322
    PopupMenu = PopMenuWhatsThis
    TabOrder = 0
    Text = 'New Collection'
    OnChange = txtCollTitleChange
  end
  object grpRetention: TGroupBox
    Left = 76
    Top = 172
    Width = 305
    Height = 117
    Caption = 'Automatically Delete Old Items:'
    TabOrder = 3
    object Label3: TLabel
      Left = 244
      Top = 56
      Width = 27
      Height = 13
      Caption = 'days'
    end
    object Label5: TLabel
      Left = 44
      Top = 24
      Width = 208
      Height = 13
      Caption = 'When the number of items exceeds: '
    end
    object Label6: TLabel
      Left = 44
      Top = 56
      Width = 154
      Height = 13
      Caption = 'When items are older than '
    end
    object Label7: TLabel
      Left = 44
      Top = 88
      Width = 232
      Height = 13
      Caption = 'Never.  I'#39'll manage the collection myself.'
    end
    object txtNumItems: TEdit
      Left = 256
      Top = 20
      Width = 33
      Height = 21
      HelpContext = 46
      TabOrder = 0
      Text = '100'
      OnChange = txtCollTitleChange
    end
    object txtNumDays: TEdit
      Left = 204
      Top = 52
      Width = 33
      Height = 21
      Enabled = False
      TabOrder = 1
      Text = '100'
      OnChange = txtCollTitleChange
    end
    object pnlToolbar: TPanel
      Left = 4
      Top = 12
      Width = 37
      Height = 100
      BevelOuter = bvNone
      PopupMenu = PopMenuWhatsThis
      TabOrder = 2
      object cmdTime: TSpeedButton
        Tag = 1
        Left = 4
        Top = 36
        Width = 29
        Height = 29
        Hint = 'Manage Collection by retaining items for X number of days.'
        GroupIndex = 1
        Glyph.Data = {
          20020000424D2002000000000000760000002800000019000000190000000100
          0400000000009001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777000000077777777777777777777777770000000777777777777
          7777777777777000000077777777777777777777777770000000777777777000
          0000777777777000000077777770007707700077777770000000777777000777
          7777000777777000000077777007777777777770777770000000777700777777
          7777777007777000000077770077777777777770077770000000777007777777
          7777777700777000000077707777777777777777707770000000777077777770
          0777777770777000000077700777777007777777007770000000777077777777
          0007777770777000000077707777777707700777707770000000777007777777
          0777777700777000000077770077777707777770077770000000777700777777
          0777777007777000000077777077077707770770777770000000777777007777
          0777700777777000000077777770007777700077777770000000777777777000
          0000777777777000000077777777777777777777777770000000777777777777
          7777777777777000000000000000000000000000000000000000000000000000
          00000000}
        OnClick = CollTypeClick
        OnMouseDown = cmdTimeMouseDown
      end
      object cmdLength: TSpeedButton
        Left = 4
        Top = 4
        Width = 29
        Height = 29
        Hint = 'Manage Collection by retaining X number of items.'
        GroupIndex = 1
        Down = True
        Glyph.Data = {
          06020000424D0602000000000000760000002800000019000000190000000100
          0400000000009001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777000000077777777777777770777777770000000777000000007
          7770E000000770000000770CCCCCCCC0770EEEEEEE077000000070CCCCCCCCC0
          70EEEEEEEEE07000000000CCCCCCCCC070EEEEEEEEE0700000000E0CCCCCCCC0
          770EEEEEEEEE000000000EE0C00000077770E0000000000000000EEE07777777
          7777077770CC000000000EEEE0777777777777770CCC000000000EEEEE007777
          77777770CCCC000000000EEEEEE077777777770CCCCC000000000EEEEEE07777
          77777770CCCC0000000070EEEEE07777777777770CC070000000770EEEE07777
          77000000700770000000770000007007770EEEE0777770000000777777770CC0
          70EEEEE077777000000077777770CCCC0EEEEEE07777700000007777770CCCCC
          0EEEEEE077777000000077777770CCCCC0EEEE00777770000000777777770CCC
          CC0EE0777777700000007777777770CCCCC0077777777000000077777777770C
          CCCC077777777000000077777777777000007777777770000000777777777777
          77777777777770000000}
        OnClick = CollTypeClick
        OnMouseDown = cmdLengthMouseDown
      end
      object cmdManual: TSpeedButton
        Tag = 2
        Left = 4
        Top = 68
        Width = 29
        Height = 29
        Hint =
          'No automatic maintenance - data stays forever, unless deleted by' +
          ' you.'
        GroupIndex = 1
        Glyph.Data = {
          20020000424D2002000000000000760000002800000019000000190000000100
          0400000000009001000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777000777777
          7770007777777000000077708077777777708077777770000000700000000000
          000000007777700000007078888888888888888007777000000070F077707777
          0777078080777000000070F7777777777777778088077000000070F777770000
          7777778088807000000070F777700FF00777008088807000000070F7770FF00F
          F077078088807000000070F7700F0880F007078088807000000070F770F08888
          0F07078088807000000070F770F088880F07078088807000000070F7700F0880
          F007078088807000000070F7770FF00FF077008088807000000070F777700FF0
          0777778088807000000070F7777700007777778088807000000070F777777777
          7777778088807000000070F0777077770777078088807000000070FFFFFFFFFF
          FFFFFF7088807000000070000000000000000000888070000000770F77777777
          777777780880700000007770F77777777777777780807000000077770F777777
          7777777778007000000077777000000000000000000770000000777777777777
          7777777777777000000000000000000000000000000000000000000000000000
          00000000}
        OnClick = CollTypeClick
        OnMouseDown = cmdManualMouseDown
      end
    end
  end
  object cmdBrowseIcon: TButton
    Left = 120
    Top = 296
    Width = 77
    Height = 29
    Hint = 'Browse for a bitmap to use as an icon.'
    HelpContext = 49
    Caption = 'Browse...'
    PopupMenu = PopMenuWhatsThis
    TabOrder = 4
    OnClick = cmdBrowseIconClick
  end
  object grpNewItemPosition: TGroupBox
    Left = 76
    Top = 88
    Width = 305
    Height = 81
    Caption = 'New Items Are Positioned'
    PopupMenu = PopMenuWhatsThis
    TabOrder = 2
    object rbOnTop: TSpeedButton
      Tag = 44
      Left = 12
      Top = 16
      Width = 220
      Height = 29
      Hint =
        'Affects Where New Items Are Placed.  (On Top is good for tempora' +
        'ry data)'
      GroupIndex = 1
      Down = True
      Caption = 'At The Top of the Collection'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        0000333333333333000033333333333333333333333333330000333333333333
        0000333333333333333333333333333300003333333333330000333333333333
        333333333333333300003333333C333300003333333CC33333333CCCCCCCCCC3
        99993CCCCCCCCCC399993333333CC33333333333333C33333333}
      Margin = 4
      OnClick = txtCollTitleChange
      OnMouseDown = cmdToolbarMouseDown
    end
    object rbOnBottom: TSpeedButton
      Tag = 45
      Left = 12
      Top = 48
      Width = 220
      Height = 29
      Hint =
        'Affects Where New Items Are Placed.  (On Bottom is good for perm' +
        'anent collections, because items stay in the same position)'
      GroupIndex = 1
      Caption = 'At The Bottom of the Collection'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333C3333
        33333333333CC33333333CCCCCCCCCC399993CCCCCCCCCC399993333333CC333
        33333333333C3333000033333333333300003333333333333333333333333333
        0000333333333333000033333333333333333333333333330000333333333333
        0000333333333333333333333333333300003333333333330000}
      Margin = 4
      OnClick = txtCollTitleChange
      OnMouseDown = cmdToolbarMouseDown
    end
  end
  object GroupBox1: TGroupBox
    Left = 76
    Top = 48
    Width = 305
    Height = 37
    Caption = 'When this collection is active, new clips go'
    TabOrder = 1
    object rbAcceptNewClips: TRadioButton
      Left = 8
      Top = 16
      Width = 149
      Height = 17
      HelpContext = 98
      Caption = 'Into This Collection'
      PopupMenu = PopMenuWhatsThis
      TabOrder = 0
      OnClick = txtCollTitleChange
    end
    object rbDontAcceptNewClips: TRadioButton
      Left = 192
      Top = 16
      Width = 105
      Height = 17
      HelpContext = 98
      Caption = 'Elsewhere'
      PopupMenu = frmClipMate.PopMenuWhatsThis
      TabOrder = 1
      OnClick = txtCollTitleChange
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Bitmap files|*.BMP'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 256
    Top = 296
  end
  object AdrockFormPosition1: TAdrockFormPosition
    Version = '1.40b'
    SectionName = 'SaveFrmCollProp'
    IniFile = 'clipmt40.ini'
    WriteWhenLoaded = False
    SaveDefaultDetails = False
    RestoreStyle = rsPositionOnly
    Left = 8
    Top = 344
  end
  object PopMenuWhatsThis: TPopupMenu
    Left = 308
    Top = 296
    object mnuWhatsThis: TMenuItem
      Caption = 'What'#39's This?'
      ShortCut = 0
      OnClick = mnuWhatsThisClick
    end
  end
end