git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
246 lines
6.2 KiB
Plaintext
246 lines
6.2 KiB
Plaintext
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:'
|
|
ExplicitWidth = 66
|
|
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%SCREENSIZe%.ini'
|
|
DefaultSection = 'General'
|
|
SubStorages = <
|
|
item
|
|
end
|
|
item
|
|
end>
|
|
Left = 200
|
|
Top = 87
|
|
end
|
|
object JvFormStorage1: TJvFormStorage
|
|
AppStorage = JvAppIniFileStorage1
|
|
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 = JvAppIniFileStorage1
|
|
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
|