ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/RawEdit.pas

Comparing oup/current/Tools/RawEdit.pas (file contents):
Revision 180 by alloc, Thu May 17 15:08:29 2007 UTC vs.
Revision 223 by alloc, Mon Jun 18 14:23:58 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 144 | Line 145 | begin
145
146		rawinfo := ConManager.Connection[ConnectionID].GetRawInfo(fileid, datoffset);
147
148	<	mem := nil;
149	<	ConManager.Connection[ConnectionID].LoadRawFile(rawinfo.SrcID, rawinfo.SrcOffset, TStream(mem));
150	<	hex.LoadFromStream(mem);
151	<	ClearValues;
152	<	hexSelectionChanged(Self);
148	>	if rawinfo.RawSize > 0 then
149	>	begin
150	>	mem := nil;
151	>	ConManager.Connection[ConnectionID].LoadRawFile(rawinfo.SrcID, rawinfo.SrcOffset, TStream(mem));
152	>	hex.LoadFromStream(mem);
153	>	ClearValues;
154	>	hexSelectionChanged(Self);
155	>	end
156	>	else
157	>	begin
158	>	hex.DataSize := 0;
159	>	ClearValues;
160	>	end;
161		end;
162
163
#	Line 811 | Line 820 | end;
820
821		begin
822		AddToolListEntry('rawedit', 'Binary .raw-Editor', '');
823	<	end.
823	>	end.
824	>
825	>

Diff Legend

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