jvappstoragebasemainfrmu.dfm

jvcl driver development envionment

object JvAppStorageBaseMainFrm: TJvAppStorageBaseMainFrm
  Left = 321
  Top = 227
  BorderStyle = bsDialog
  Caption = 'App Storage Demo'
  ClientHeight = 361
  ClientWidth = 376
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 342
    Width = 376
    Height = 19
    Panels = <>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 376
    Height = 342
    Align = alClient
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 374
      Height = 137
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 55
        Height = 13
        Caption = 'Stored Edit:'
      end
      object RadioButton1: TRadioButton
        Left = 64
        Top = 34
        Width = 113
        Height = 17
        Caption = 'RadioButton1'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 64
        Top = 50
        Width = 113
        Height = 17
        Caption = 'RadioButton2'
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 64
        Top = 66
        Width = 113
        Height = 17
        Caption = 'RadioButton3'
        TabOrder = 2
      end
      object CheckBox1: TCheckBox
        Left = 64
        Top = 88
        Width = 97
        Height = 17
        Caption = 'CheckBox1'
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
      object Edit1: TEdit
        Left = 64
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 4
        Text = 'Some Value'
      end
      object CheckBox2: TCheckBox
        Left = 64
        Top = 104
        Width = 97
        Height = 17
        Caption = 'CheckBox2'
        TabOrder = 5
      end
      object TrackBar1: TTrackBar
        Left = 240
        Top = 32
        Width = 121
        Height = 24
        TabOrder = 6
        ThumbLength = 15
      end
      object DateTimePicker1: TDateTimePicker
        Left = 248
        Top = 64
        Width = 116
        Height = 21
        Date = 38114.956064340300000000
        Time = 38114.956064340300000000
        TabOrder = 7
      end
      object Button1: TButton
        Left = 240
        Top = 96
        Width = 129
        Height = 25
        Caption = 'Open Dialog'
        TabOrder = 8
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 138
      Width = 374
      Height = 203
      Align = alClient
      BevelOuter = bvSpace
      Caption = 'Panel3'
      TabOrder = 1
      object Label2: TLabel
        Left = 1
        Top = 1
        Width = 372
        Height = 13
        Align = alTop
        Caption = 'Stored Memo:'
      end
      object Memo2: TMemo
        Left = 1
        Top = 14
        Width = 372
        Height = 188
        Align = alClient
        Color = clInfoBk
        Lines.Strings = (
          ' The goal of appstorage components is to provide quick and'
          ' easy storage of published properties of objects. In a word:'
          ' Persistence. AppStorage components can be use a number'
          ' of storage vehicles such as INIFiles, the Registry, or even'
          ' XML.'
          ''
          ' Of particular use, and the focus of this demo is the'
          ' descendent TjvFormStorage which when double clicked on'
          ' reveals the properties of the components on the form.'
          ' This makes it an ideal choice for quick and painless'
          ' persistence of values on a form. Great for configuration'
          ' dialogs and per-user settings between sessions. (such'
          ' as storing the directory of the last opened file) ')
        TabOrder = 0
      end
    end
  end
  object JvAppIniFileStorage1: TJvAppIniFileStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    FileName = 'FilenameRequired.ini'
    DefaultSection = 'General'
    SubStorages = <
      item
      end
      item
      end>
    Left = 200
    Top = 87
  end
  object JvFormStorage1: TJvFormStorage
    AppStorage = JvAppRegistryStorage1
    AppStoragePath = 'Test\'
    StoredProps.Strings = (
      'Option1.Checked'
      'YetAnotherOption1.Checked'
      'AnotherOptiopn1.Checked'
      'RadioButton1.Checked'
      'RadioButton2.Checked'
      'RadioButton3.Checked'
      'DateTimePicker1.Date'
      'Edit1.Text'
      'OpenDialog1.InitialDir'
      'OpenDialog1.FileName'
      'TrackBar1.Position'
      'Memo2.Lines')
    StoredValues = <
      item
        Name = 'Name'
      end
      item
        Name = 'TestBoolean'
        Value = False
      end>
    Left = 200
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 138
    Top = 163
    object Option1: TMenuItem
      Caption = 'Option'
      OnClick = YetAnotherOption1Click
    end
    object AnotherOptiopn1: TMenuItem
      Caption = 'Another Option'
      Checked = True
      OnClick = YetAnotherOption1Click
    end
    object YetAnotherOption1: TMenuItem
      Caption = 'Yet Another Option'
      OnClick = YetAnotherOption1Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 200
    Top = 8
  end
  object JvFormStorageSelectList1: TJvFormStorageSelectList
    AppStorage = JvAppRegistryStorage1
    SelectPath = 'something'
    FormStorage = JvFormStorage1
    Left = 393
    Top = 18
  end
  object JvAppRegistryStorage1: TJvAppRegistryStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    StorageOptions.BooleanAsString = False
    Root = 'Software\JVCL\Examples\Appstorage Sample1'
    SubStorages = <>
    Left = 206
    Top = 131
  end
end