East make Tray Icon in delphi
源代码在线查看： jvappstoragebasemainfrmu.dfm
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
