home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 200
- Top = 112
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Options - Current Collection'
- ClientHeight = 240
- ClientWidth = 315
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object RadioGroup1: TRadioGroup
- Left = 33
- Top = 19
- Width = 249
- Height = 113
- Caption = 'Storing items'
- TabOrder = 0
- end
- object RadioButton1: TRadioButton
- Left = 48
- Top = 51
- Width = 97
- Height = 17
- Hint = 'Keeps all items in the collection - safe collection.'
- Caption = 'keep all items'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object RadioButton2: TRadioButton
- Left = 48
- Top = 75
- Width = 153
- Height = 17
- Hint =
- 'By default, Clipboard Pile keeps only the newest 100 items in ea' +
- 'ch collection.'#13#10'Redundant items are deleted whenever the collect' +
- 'ion is loaded.'
- Caption = 'keep up to items'
- Checked = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- TabStop = True
- end
- object Edit1: TEdit
- Left = 125
- Top = 72
- Width = 32
- Height = 21
- Hint =
- 'By default, Clipboard Pile keeps only the newest 100 items in ea' +
- 'ch collection.'#13#10'Redundant items are deleted whenever the collect' +
- 'ion is loaded.'
- MaxLength = 4
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Text = '100'
- OnExit = Edit1Exit
- end
- object RadioButton3: TRadioButton
- Left = 48
- Top = 99
- Width = 201
- Height = 17
- Hint =
- 'Select this option if you want only the newest items in the coll' +
- 'ection.'#13#10'Redundant items are deleted whenever the collection is ' +
- 'loaded.'
- Caption = 'delete items older than days'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object Edit2: TEdit
- Left = 179
- Top = 96
- Width = 32
- Height = 21
- Hint =
- 'Select this option if you want only the newest items in the coll' +
- 'ection.'#13#10'Redundant items are deleted whenever the collection is ' +
- 'loaded.'
- MaxLength = 3
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- Text = '10'
- OnExit = Edit2Exit
- end
- object CheckBox1: TCheckBox
- Left = 32
- Top = 155
- Width = 129
- Height = 17
- Hint =
- 'Check this option if you want that Clipboard Pile stores duplica' +
- 'te items.'
- Caption = 'Allow d&uplicate items'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object Button1: TButton
- Left = 31
- Top = 198
- Width = 78
- Height = 23
- Caption = '&OK'
- ModalResult = 1
- TabOrder = 7
- end
- object Button2: TButton
- Left = 119
- Top = 198
- Width = 78
- Height = 23
- Caption = 'C&ancel'
- ModalResult = 2
- TabOrder = 8
- end
- object Button3: TButton
- Left = 207
- Top = 198
- Width = 78
- Height = 23
- Hint =
- 'Click here if you want to restore default settings - these are ' +
- #13#10'recommended settings (Click OK to save changes).'
- Caption = '&Defaults'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = Button3Click
- end
- object RxGradientCaption1: TRxGradientCaption
- Captions = <>
- DefaultFont = False
- FormCaption = 'Options - Current Collection'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Federation'
- Font.Style = [fsBold]
- StartColor = clBlue
- Left = 192
- Top = 152
- end
- object FormStorage1: TFormStorage
- Options = []
- StoredProps.Strings = (
- 'RadioButton1.Checked'
- 'RadioButton2.Checked'
- 'RadioButton3.Checked'
- 'Edit1.Text'
- 'Edit2.Text'
- 'CheckBox1.Checked')
- Left = 224
- Top = 152
- end
- object KTop1: TKTop
- Left = 256
- Top = 152
- end
- end
-