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