object fmCache: TfmCache Left = 289 Top = 207 ActiveControl = rgSave BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Storage Options' ClientHeight = 323 ClientWidth = 316 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object rgPurge: TGroupBox Left = 8 Top = 176 Width = 297 Height = 97 Caption = 'Purge Options' TabOrder = 2 TabStop = True object Label1: TLabel Left = 216 Top = 32 Width = 30 Height = 16 Caption = 'days' end object rbSome: TRadioButton Left = 12 Top = 32 Width = 97 Height = 17 Caption = 'Purge after' TabOrder = 0 TabStop = True OnClick = rbSomeClick end object edDays: TSpinEdit Left = 128 Top = 28 Width = 81 Height = 26 MaxLength = 2 MaxValue = 30 MinValue = 1 TabOrder = 1 Value = 7 end object rbNever: TRadioButton Left = 12 Top = 64 Width = 209 Height = 17 Caption = 'Purge when expired on server' TabOrder = 2 TabStop = True OnClick = rbNeverClick end end object bOk: TButton Left = 136 Top = 288 Width = 75 Height = 25 Caption = 'Okay' Default = True ModalResult = 1 TabOrder = 3 end object bCancel: TButton Left = 224 Top = 288 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 end object rgSave: TRadioGroup Left = 8 Top = 8 Width = 297 Height = 105 Caption = 'Save Options' Items.Strings = ( 'Save &headers only' 'Save headers and &articles' 'Save ¬hing (purge cache on exit)') TabOrder = 0 TabStop = True OnClick = rgSaveClick end object bCompact: TButton Left = 49 Top = 120 Width = 217 Height = 25 Caption = 'Compact article file' ModalResult = 6 TabOrder = 1 end end