home *** CD-ROM | disk | FTP | other *** search
- inherited EscherEdit: TEscherEdit
- Width = 744
- Height = 399
- Caption = 'Escher Edit'
- OldCreateOrder = True
- Position = poDefault
- PixelsPerInch = 96
- TextHeight = 13
- inherited Splitter1: TSplitter
- Top = 350
- Width = 736
- end
- inherited ToolBar: TToolBar
- Width = 736
- inherited btnOpen: TToolButton
- Action = ActionOk
- end
- inherited btnSaveAs: TToolButton
- Action = ActionCancel
- end
- end
- inherited ListRecords: TListView
- Top = 65
- Width = 736
- Height = 196
- Columns = <
- item
- Caption = 'Id Name'
- Width = 100
- end
- item
- Caption = 'Id'
- end
- item
- Caption = 'Version'
- Width = 70
- end
- item
- Caption = 'Size'
- end
- item
- Caption = 'Stream Ofs'
- Width = 80
- end
- item
- Caption = 'Data'
- Width = 150
- end
- item
- Caption = 'Hex'
- Width = 500
- end>
- OnGetImageIndex = ListRecordsGetImageIndex
- end
- inherited StatusBar: TStatusBar
- Top = 353
- Width = 736
- end
- object PanelVersion: TPanel [4]
- Left = 0
- Top = 38
- Width = 736
- Height = 27
- Align = alTop
- Color = clActiveCaption
- TabOrder = 3
- object Label1: TLabel
- Left = 331
- Top = 7
- Width = 122
- Height = 13
- Caption = 'Record Version/Instance:'
- Color = clActiveCaption
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clCaptionText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label2: TLabel
- Left = 14
- Top = 7
- Width = 61
- Height = 13
- Caption = 'Record Size:'
- Color = clActiveCaption
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clCaptionText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object edInstance: TEdit
- Left = 459
- Top = 3
- Width = 30
- Height = 21
- MaxLength = 2
- TabOrder = 0
- end
- object edSize: TEdit
- Left = 79
- Top = 3
- Width = 65
- Height = 21
- MaxLength = 20
- TabOrder = 1
- end
- end
- inherited edHex: TRichEdit
- Top = 261
- Width = 736
- TabOrder = 4
- end
- inherited ActionList: TActionList
- object ActionOk: TAction
- Category = 'File'
- Caption = 'Ok'
- ImageIndex = 11
- OnExecute = ActionOkExecute
- end
- object ActionCancel: TAction
- Category = 'File'
- Caption = 'Cancel'
- ImageIndex = 12
- OnExecute = ActionCancelExecute
- end
- end
- end
-