object ResFileView: TResFileView Left = 361 Top = 225 Width = 175 Height = 222 Caption = 'ResFileView' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild Menu = ResMenu PopupMenu = LocalMenu Position = poDefaultPosOnly Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Tree: TTreeView Left = 0 Top = 0 Width = 167 Height = 176 Indent = 19 OnEditing = TreeEditing OnEdited = TreeEdited Align = alClient ParentColor = False TabOrder = 0 OnDblClick = TreeDblClick end object SaveDialog: TSaveDialog DefaultExt = 'res' FileEditStyle = fsEdit Filter = 'Resource files (*.res)|*.res|All files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Left = 72 Top = 24 end object ResMenu: TMainMenu Left = 48 Top = 72 object ResourceMenu: TMenuItem Caption = '&Resource' GroupIndex = 2 ShortCut = 0 OnClick = ResourceMenuClick object ResNewItem: TMenuItem Caption = '&New' ShortCut = 0 object ResNewBitmapItem: TMenuItem Caption = '&Bitmap' ShortCut = 0 OnClick = CreateNewBitmap end object ResNewIconItem: TMenuItem Caption = '&Icon' ShortCut = 0 OnClick = CreateNewIcon end object ResNewCursorItem: TMenuItem Caption = '&Cursor' ShortCut = 0 OnClick = CreateNewCursor end end object N1: TMenuItem Caption = '-' ShortCut = 0 end object ResEditItem: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = ResourceEdit end object ResRenameItem: TMenuItem Caption = '&Rename' ShortCut = 0 OnClick = ResourceRename end object ResDeleteItem: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = ResourceDelete end end end object LocalMenu: TPopupMenu OnPopup = ResourceMenuClick Left = 96 Top = 104 object LocalNewItem: TMenuItem Caption = '&New' ShortCut = 0 object LocalNewBitmapItem: TMenuItem Caption = '&Bitmap' ShortCut = 0 OnClick = CreateNewBitmap end object LocalNewIconItem: TMenuItem Caption = '&Icon' ShortCut = 0 OnClick = CreateNewIcon end object LocalNewCursorItem: TMenuItem Caption = '&Cursor' ShortCut = 0 OnClick = CreateNewCursor end end object N2: TMenuItem Caption = '-' ShortCut = 0 end object LocalEditItem: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = ResourceEdit end object LocalRenameItem: TMenuItem Caption = '&Rename' ShortCut = 0 OnClick = ResourceRename end object LocalDeleteItem: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = ResourceDelete end end end