home *** CD-ROM | disk | FTP | other *** search
- 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
-