PC World 1999 October/PCWorld_1999-10_cd1.bin/Hardware/Drivers/INIed/ainife.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1999-04-22 | 6KB | 267 lines

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 = {<image000.ico>}
  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