ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/RawEdit.pas
(Generate patch)

Comparing oup/current/Tools/RawEdit.pas (file contents):
Revision 180 by alloc, Thu May 17 15:08:29 2007 UTC vs.
Revision 221 by alloc, Mon Jun 18 14:20:33 2007 UTC

# Line 1 | Line 1
1   unit RawEdit;
2 +
3   interface
4 +
5   uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 <  Dialogs, Template, StdCtrls, ExtCtrls, Menus, Grids, Wrapgrid,
8 <  MPHexEditor, Clipbrd, StrUtils, TypeDefs,
7 <  Data, Functions, DatStructureLoader, ConnectionManager, Buttons;
7 >  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls,
8 >  TypeDefs, Grids, Wrapgrid, MPHexEditor;
9  
10   type
11 <  TForm_RawEdit = class(TForm_ToolTemplate)
11 <    Splitter4: TSplitter;
11 >  TForm_RawEdit = class(TForm_TemplateFileList)
12      panel_imexport: TPanel;
13      btn_export: TButton;
14      btn_import: TButton;
15      GroupBox1: TGroupBox;
16      list_offset: TListBox;
17 +    Splitter4: TSplitter;
18 +    opend: TOpenDialog;
19 +    saved: TSaveDialog;
20      hex: TMPHexEditor;
18 –    Splitter2: TSplitter;
21      value_viewer: TWrapGrid;
22 +    Splitter2: TSplitter;
23      value_viewer_context: TPopupMenu;
24      value_viewer_context_copy: TMenuItem;
25      value_viewer_context_copyasdec: TMenuItem;
# Line 24 | Line 27 | type
27      value_viewer_context_copyasbitset: TMenuItem;
28      value_viewer_context_copyasstring: TMenuItem;
29      value_viewer_context_copyashex: TMenuItem;
27 –    opend: TOpenDialog;
28 –    saved: TSaveDialog;
30      procedure list_offsetClick(Sender: TObject);
31      procedure NewFile(fileinfo: TFileInfo);
32      procedure LoadRaw(raw_info: TRawDataInfo);
# Line 57 | Line 58 | type
58    public
59    end;
60  
60 – var
61 –  Form_RawEdit: TForm_RawEdit;
61  
62   implementation
63   {$R *.dfm}
64 < uses Main, ValueEdit, RawList;
64 > uses
65 >  _TemplateFile, ValueEdit, ConnectionManager, StrUtils, Functions, RawList,
66 >  Data, Clipbrd;
67  
68   procedure TForm_RawEdit.NewFile(fileinfo: TFileInfo);
69   var
# Line 811 | Line 812 | end;
812  
813   begin
814    AddToolListEntry('rawedit', 'Binary .raw-Editor', '');
815 < end.
815 > end.
816 >
817 >

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)