object MainForm: TMainForm Left = 179 Top = 143 Width = 544 Height = 378 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = mmnMain Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object splMain: TRzSplitter Left = 0 Top = 0 Width = 536 Height = 313 BorderInner = fsNone BorderWidth = 0 BorderSides = [sdLeft, sdTop, sdRight, sdBottom] Position = 190 Percent = 36 UpperLeft.BorderColor = clBtnFace UpperLeft.BorderInner = fsNone UpperLeft.BorderOuter = fsNone UpperLeft.BorderWidth = 0 UpperLeft.Color = clBtnFace UpperLeft.Visible = True LowerRight.BorderColor = clBtnFace LowerRight.BorderInner = fsNone LowerRight.BorderOuter = fsNone LowerRight.BorderWidth = 0 LowerRight.Color = clBtnFace LowerRight.Visible = True Align = alClient TabOrder = 0 BarSize = ( 190 0 194 313) UpperLeftControls = ( lbSection) LowerRightControls = ( lvKV) object lbSection: TListBox Left = 0 Top = 0 Width = 190 Height = 313 Hint = 'Section list, right click to popup menu' Align = alClient ItemHeight = 13 ParentShowHint = False PopupMenu = ppmSection ShowHint = True Sorted = True TabOrder = 0 OnClick = lbSectionClick OnDblClick = lbSectionDblClick end object lvKV: TListView Left = 0 Top = 0 Width = 342 Height = 313 Hint = 'Key and Value list' Align = alClient OnDblClick = lvKVDblClick Columns = < item Caption = 'Key' Width = 150 end item Caption = 'Value' Width = 150 end> ReadOnly = True RowSelect = True ParentShowHint = False ShowHint = True PopupMenu = ppmKV SortType = stText TabOrder = 0 ViewStyle = vsReport end end object sbMain: TStatusBar Left = 0 Top = 313 Width = 536 Height = 19 Panels = < item Text = 'Author: Sony Arianto Kurniawan' Width = 50 end> SimplePanel = False SizeGrip = False end object mmnMain: TMainMenu Left = 264 Top = 272 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' OnClick = New1Click end object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click end object mnSave: TMenuItem Caption = '&Save' Enabled = False ShortCut = 16467 OnClick = mnSaveClick end object mnSaveAs: TMenuItem Caption = 'Save &As...' Enabled = False OnClick = mnSaveAsClick end object mnClose: TMenuItem Caption = '&Close' Enabled = False OnClick = mnCloseClick end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end object Special1: TMenuItem Caption = '&Special' object Openwinini1: TMenuItem Caption = 'Open &win.ini' OnClick = Openwinini1Click end object Opensystemini1: TMenuItem Caption = 'Open &system.ini' OnClick = Opensystemini1Click end end object Help1: TMenuItem Caption = '&Help' object Content1: TMenuItem Caption = '&Content' OnClick = Content1Click end object N4: TMenuItem Caption = '-' end object ContactAuthor1: TMenuItem Caption = 'Contact A&uthor' OnClick = ContactAuthor1Click end object AriTechDevelopmentIndonesiaWeb1: TMenuItem Caption = 'AriTech &Development Indonesia Home Page' OnClick = AriTechDevelopmentIndonesiaWeb1Click end object AriTechINIFileEditorWeb1: TMenuItem Caption = 'Ari&Tech INI File Editor Home Page' OnClick = AriTechINIFileEditorWeb1Click end object N1: TMenuItem Caption = '-' end object About1: TMenuItem Caption = '&About' OnClick = About1Click end end end object odINI: TOpenDialog DefaultExt = 'ini' Filter = 'INI Files (*.ini)|*.ini' Title = 'Open INI File' Left = 203 Top = 272 end object ppmSection: TPopupMenu OnPopup = ppmSectionPopup Left = 299 Top = 272 object mnAddSection: TMenuItem Caption = 'Add New Section' OnClick = mnAddSectionClick end object mnDelSection: TMenuItem Caption = 'Delete Section' OnClick = mnDelSectionClick end object mnRenSection: TMenuItem Caption = 'Rename Section' OnClick = mnRenSectionClick end end object ppmKV: TPopupMenu OnPopup = ppmKVPopup Left = 330 Top = 272 object mnAddKey: TMenuItem Caption = 'Add New Key' OnClick = mnAddKeyClick end object mnDelKey: TMenuItem Caption = 'Delete Key' OnClick = mnDelKeyClick end object mnRenKey: TMenuItem Caption = 'Rename Key' OnClick = mnRenKeyClick end object N3: TMenuItem Caption = '-' end object mnRenValue: TMenuItem Caption = 'Modify Value' OnClick = mnRenValueClick end end object sdINI: TSaveDialog DefaultExt = 'ini' Filter = 'INI Files (*.ini)|*.ini' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Title = 'Save INI file as...' Left = 234 Top = 272 end object acMain: TATAppConfig Author = 'Sony Arianto Kurniawan of AriTech Development Indonesia [Decembe' + 'r,1998]' DefaultConfig.Strings = ( '[settings]' 'width=500' 'height=375' 'splpos=190') Left = 362 Top = 272 end object sviMain: TATSysVerInfo Author = 'Sony Arianto K of AriTech Development [June,1998]' WinDir = 'C:\W95' WinSysDir = 'C:\W95\SYSTEM' WinMajorVersion = 4 WinMinorVersion = 0 WinBuildNumber = 950 WinPlatform = 'Windows 95' Left = 394 Top = 272 end end