You've already forked lazarus-ccr
4bd9b0fd4b
Component V 0.1.2.0 Demo V 0.1.2.0 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5487 8e941d3f-bd1b-0410-a28a-d453659cc2b4
349 lines
8.2 KiB
Plaintext
349 lines
8.2 KiB
Plaintext
object mainform: Tmainform
|
|
Left = 874
|
|
Height = 327
|
|
Top = 158
|
|
Width = 469
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'mainform'
|
|
ClientHeight = 307
|
|
ClientWidth = 469
|
|
Menu = MainMenu1
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.7'
|
|
object lbl_Section: TLabel
|
|
Left = 8
|
|
Height = 15
|
|
Top = 88
|
|
Width = 74
|
|
Caption = 'Section Name'
|
|
ParentColor = False
|
|
end
|
|
object edt_Section: TEdit
|
|
Left = 88
|
|
Height = 23
|
|
Top = 88
|
|
Width = 195
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Text = 'TestSection'
|
|
end
|
|
object lbl_Ident: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 116
|
|
Width = 51
|
|
Caption = 'Test Ident'
|
|
ParentColor = False
|
|
end
|
|
object edt_Ident: TEdit
|
|
Left = 88
|
|
Height = 23
|
|
Top = 116
|
|
Width = 195
|
|
TabOrder = 1
|
|
Text = 'Password'
|
|
end
|
|
object lbl_Value: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 144
|
|
Width = 55
|
|
Caption = 'Test String'
|
|
ParentColor = False
|
|
end
|
|
object edt_Value: TEdit
|
|
Left = 88
|
|
Height = 23
|
|
Top = 144
|
|
Width = 195
|
|
TabOrder = 2
|
|
Text = 'mypassword'
|
|
end
|
|
object cmd_Close: TBitBtn
|
|
Left = 368
|
|
Height = 26
|
|
Top = 263
|
|
Width = 75
|
|
AutoSize = True
|
|
DefaultCaption = True
|
|
Kind = bkClose
|
|
ModalResult = 11
|
|
OnClick = mnu_fileCloseClick
|
|
TabOrder = 3
|
|
end
|
|
object lbl_Integer: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 172
|
|
Width = 61
|
|
Caption = 'Test Integer'
|
|
ParentColor = False
|
|
end
|
|
object edt_Integer: TEdit
|
|
Left = 88
|
|
Height = 23
|
|
Top = 172
|
|
Width = 195
|
|
OnEditingDone = edt_IntegerEditingDone
|
|
TabOrder = 4
|
|
Text = '12345'
|
|
end
|
|
object cmd_ShowINI: TButton
|
|
Left = 16
|
|
Height = 25
|
|
Top = 264
|
|
Width = 186
|
|
Caption = 'Show/Edit INI'
|
|
OnClick = cmd_ShowINIClick
|
|
TabOrder = 5
|
|
end
|
|
object rg_Encryption: TRadioGroup
|
|
Left = 16
|
|
Height = 58
|
|
Top = 200
|
|
Width = 76
|
|
AutoFill = True
|
|
AutoSize = True
|
|
Caption = 'Encryption'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 38
|
|
ClientWidth = 72
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'On'
|
|
'Off'
|
|
)
|
|
OnSelectionChanged = rg_EncryptionSelectionChanged
|
|
TabOrder = 6
|
|
end
|
|
object rg_SectionHashing: TRadioGroup
|
|
Left = 96
|
|
Height = 58
|
|
Top = 200
|
|
Width = 105
|
|
AutoFill = True
|
|
AutoSize = True
|
|
Caption = 'Section Hashing'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 38
|
|
ClientWidth = 101
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'On'
|
|
'Off'
|
|
)
|
|
OnSelectionChanged = rg_SectionHashingSelectionChanged
|
|
TabOrder = 7
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 304
|
|
Height = 163
|
|
Top = 8
|
|
Width = 139
|
|
AutoSize = True
|
|
Caption = 'Section Tests'
|
|
ChildSizing.VerticalSpacing = 5
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 143
|
|
ClientWidth = 135
|
|
TabOrder = 8
|
|
object cmd_WriteSection: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 0
|
|
Width = 135
|
|
AutoSize = True
|
|
Caption = 'Write Whole Section'
|
|
OnClick = cmd_WriteSectionClick
|
|
TabOrder = 0
|
|
end
|
|
object cmd_ReadSectionValues: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 30
|
|
Width = 135
|
|
AutoSize = True
|
|
Caption = 'Read Whole Section'
|
|
OnClick = cmd_ReadSectionValuesClick
|
|
TabOrder = 1
|
|
end
|
|
object cmd_VerifySectionValues: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 60
|
|
Width = 135
|
|
AutoSize = True
|
|
Caption = 'Verify Whole Section'
|
|
OnClick = cmd_VerifySectionValuesClick
|
|
TabOrder = 2
|
|
end
|
|
object cmd_EraseSection: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 90
|
|
Width = 135
|
|
AutoSize = True
|
|
Caption = 'Erase Whole Section'
|
|
OnClick = cmd_EraseSectionClick
|
|
TabOrder = 3
|
|
end
|
|
object cmb_Sections: TComboBox
|
|
Left = 0
|
|
Height = 23
|
|
Top = 120
|
|
Width = 135
|
|
ItemHeight = 15
|
|
OnSelect = cmb_SectionsSelect
|
|
Style = csDropDownList
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object Grp_DefaultValueTests: TGroupBox
|
|
Left = 16
|
|
Height = 70
|
|
Top = 8
|
|
Width = 284
|
|
AutoSize = True
|
|
Caption = 'Default Value Tests'
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 50
|
|
ClientWidth = 280
|
|
TabOrder = 9
|
|
object cmd_Write: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 0
|
|
Width = 91
|
|
AutoSize = True
|
|
Caption = 'Write Values'
|
|
OnClick = cmd_WriteClick
|
|
TabOrder = 0
|
|
end
|
|
object cmd_Read: TButton
|
|
Left = 91
|
|
Height = 25
|
|
Top = 0
|
|
Width = 96
|
|
AutoSize = True
|
|
Caption = 'Read Values'
|
|
OnClick = cmd_ReadClick
|
|
TabOrder = 1
|
|
end
|
|
object cmd_Verify: TButton
|
|
Left = 187
|
|
Height = 25
|
|
Top = 0
|
|
Width = 93
|
|
AutoSize = True
|
|
Caption = 'Verify Values'
|
|
OnClick = cmd_VerifyClick
|
|
TabOrder = 2
|
|
end
|
|
object cmd_ValueExists: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 25
|
|
Width = 91
|
|
AutoSize = True
|
|
Caption = 'Values Exist'
|
|
OnClick = cmd_ValueExistsClick
|
|
TabOrder = 3
|
|
end
|
|
object cmd_DeleteValue: TButton
|
|
Left = 91
|
|
Height = 25
|
|
Top = 25
|
|
Width = 96
|
|
AutoSize = True
|
|
Caption = 'Delete Values'
|
|
OnClick = cmd_DeleteValueClick
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object grp_convert: TGroupBox
|
|
Left = 304
|
|
Height = 45
|
|
Top = 176
|
|
Width = 133
|
|
AutoSize = True
|
|
Caption = 'Upgrade existing INI'
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 25
|
|
ClientWidth = 129
|
|
TabOrder = 10
|
|
object cmd_convertToCryptini: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 0
|
|
Width = 129
|
|
AutoSize = True
|
|
Caption = 'Convert to CryptINI'
|
|
OnClick = cmd_convertToCryptiniClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 432
|
|
object mnu_file: TMenuItem
|
|
Caption = '&File'
|
|
object mnu_fileClose: TMenuItem
|
|
Caption = 'E&xit'
|
|
OnClick = mnu_fileCloseClick
|
|
end
|
|
end
|
|
object mnu_options: TMenuItem
|
|
Caption = '&Options'
|
|
object mnu_optionsEncryptionKey: TMenuItem
|
|
Caption = 'Integer En&cryption key...'
|
|
OnClick = mnu_optionsEncryptionKeyClick
|
|
end
|
|
object mnu_optionsEncryptINIFile: TMenuItem
|
|
Caption = 'Encrypt INI file'
|
|
OnClick = mnu_optionsEncryptINIFileClick
|
|
end
|
|
object mnu_optionsDecryptINIFile: TMenuItem
|
|
Caption = 'Decrypt INI file'
|
|
OnClick = mnu_optionsDecryptINIFileClick
|
|
end
|
|
end
|
|
object mnu_help: TMenuItem
|
|
Caption = '&Help'
|
|
object mnu_helpHelp: TMenuItem
|
|
Caption = 'Help'
|
|
OnClick = mnu_helpHelpClick
|
|
end
|
|
object mnu_helpAbout: TMenuItem
|
|
Caption = '&About..'
|
|
OnClick = mnu_helpAboutClick
|
|
end
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Title = 'Open existing INI file'
|
|
Filter = 'INI file|*.ini|Any File|*.*'
|
|
Options = [ofReadOnly, ofNoTestFileCreate, ofEnableSizing, ofViewDetail]
|
|
Left = 384
|
|
Top = 8
|
|
end
|
|
end
|