ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/BinEdit.pas (file contents):
Revision 217 by alloc, Fri Jun 15 15:12:11 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

#	Line 1 | Line 1
1		unit BinEdit;
2	+
3		interface
4	+
5		uses
6		Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	<	Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor, StdCtrls,
8	<	Menus, VTHeaderPopup, ExtCtrls, Buttons, StrUtils, Clipbrd,
9	<	Data, TypeDefs, ConnectionManager, Template,
10	<	_BaseTemplate, _TemplateFile, _TemplateFileList;
7	>	Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor,
8	>	StdCtrls, Menus, ExtCtrls, Buttons,
9	>	Data, TypeDefs, ConnectionManager,
10	>	_TemplateFileList, VTHeaderPopup, ComCtrls;
11
12		type
13	<	TForm_BinEdit = class(TForm_ToolTemplate)
13	>	TForm_BinEdit = class(TForm_TemplateFileList)
14	>	panel_imexport: TPanel;
15	>	btn_export: TButton;
16	>	btn_import: TButton;
17		hex: TMPHexEditor;
18		Splitter2: TSplitter;
19		value_viewer: TWrapGrid;
15	–	VST: TVirtualStringTree;
20		Splitter3: TSplitter;
21	+	VST: TVirtualStringTree;
22	+	VTHPopup: TVTHeaderPopupMenu;
23		value_viewer_context: TPopupMenu;
24		value_viewer_context_copy: TMenuItem;
25		value_viewer_context_copyasdec: TMenuItem;
#	Line 21 | Line 27 | type
27		value_viewer_context_copyasbitset: TMenuItem;
28		value_viewer_context_copyasstring: TMenuItem;
29		value_viewer_context_copyashex: TMenuItem;
24	–	VTHPopup: TVTHeaderPopupMenu;
25	–	panel_imexport: TPanel;
26	–	btn_export: TButton;
27	–	btn_import: TButton;
28	–	procedure FormCreate(Sender: TObject);
30		procedure NewFile(fileinfo: TFileInfo);
31
31	–	procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
32	–	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
33	–
34	–	procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
35	–	procedure hexSelectionChanged(Sender: TObject);
36	–	procedure hexChange(Sender: TObject);
37	–
38	–	procedure LoadDat(_fileid: Integer);
32		function Save: Boolean;
33		function GetValue(datatype: Word; offset: Integer): String;
34		procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
35
36		procedure WriteStructureInfos;
37		procedure ClearStructViewer;
45	–	procedure VSTDblClick(Sender: TObject);
46	–	procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
47	–	Column: TColumnIndex);
48	–	procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree;
49	–	const Column: TColumnIndex; Visible: Boolean);
50	–	procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
51	–	OldPosition: Integer);
52	–	procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
53	–	Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
38
39		procedure ClearValues;
40		procedure WriteValues;
41	+
42	+	procedure FormCreate(Sender: TObject);
43	+	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
44	+	procedure hexChange(Sender: TObject);
45	+	procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
46	+	procedure hexSelectionChanged(Sender: TObject);
47		procedure value_viewerDblClick(Sender: TObject);
48	<	procedure value_viewer_context_copyClick(Sender: TObject);
48	>	procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
49	>	procedure value_viewer_contextPopup(Sender: TObject);
50		procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
51		Shift: TShiftState; X, Y: Integer);
52	<	procedure value_viewer_contextPopup(Sender: TObject);
52	>	procedure value_viewer_context_copyClick(Sender: TObject);
53	>	procedure VSTDblClick(Sender: TObject);
54	>	procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
55	>	Column: TColumnIndex);
56	>	procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
57	>	Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
58	>	procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
59	>	OldPosition: Integer);
60	>	procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree;
61	>	const Column: TColumnIndex; Visible: Boolean);
62		private
63		fileid: Integer;
64		ConID: Integer;
#	Line 66 | Line 66 | type
66		public
67		end;
68
69	–	var
70	–	Form_BinEdit: TForm_BinEdit;
71	–
69		implementation
73	–
74	–	uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit;
70		{$R *.dfm}
71	+	uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit, RawList,
72	+	StrUtils, Clipbrd, _TemplateFile;
73	+
74
75		type
76		PNodeData = ^TNodeData;
#	Line 119 | Line 117 | begin
117		//
118		end;
119
122	–	procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo);
123	–	begin
124	–	LoadDat(fileinfo.ID);
125	–	end;
120
121	<
128	<
129	<
130	<	function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
131	<	ARecord: TNodeData): PVirtualNode;
132	<	var
133	<	Data: PNodeData;
134	<	begin
135	<	Result := AVST.AddChild(ANode);
136	<	Data   := AVST.GetNodeData(Result);
137	<	AVST.ValidateNode(Result, False);
138	<	Data^ := ARecord;
139	<	end;
140	<
141	<
142	<
143	<
144	<	procedure TForm_BinEdit.LoadDat(_fileid: Integer);
121	>	procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo);
122		var
123		mem:  TMemoryStream;
124		begin
#	Line 156 | Line 133 | begin
133		end;
134		end;
135		end;
136	<	if _fileid >= 0 then
136	>	if fileinfo.ID >= 0 then
137		begin
138	<	fileid := _fileid;
138	>	fileid := fileinfo.ID;
139		ConID := ConnectionID;
140	<	if ConManager.Connection[ConID].ExtractFileIDOfName(filelist.Items.Strings[filelist.ItemIndex]) <> fileid then
141	<	Self.SelectFileID(ConnectionID, fileid);
140	>	//    if ConManager.Connection[ConID].ExtractFileIDOfName(filelist.Items.Strings[filelist.ItemIndex]) <> fileid then
141	>	//      Self.SelectFileID(ConnectionID, fileid);
142		Self.ClearStructViewer;
166	–	mem := nil;
167	–	ConManager.Connection[ConID].LoadDatFile(fileid, TStream(mem));
168	–	rawlist := ConManager.Connection[ConID].GetRawList(fileid);
169	–	hex.LoadFromStream(mem);
170	–	mem.Free;
143		ClearValues;
144	<	WriteStructureInfos;
144	>	mem := nil;
145	>	hex.DataSize := 0;
146	>	if fileinfo.Size > 0 then
147	>	begin
148	>	ConManager.Connection[ConID].LoadDatFile(fileid, TStream(mem));
149	>	rawlist := ConManager.Connection[ConID].GetRawList(fileid);
150	>	hex.LoadFromStream(mem);
151	>	mem.Free;
152	>	WriteStructureInfos;
153	>	end;
154		end
155		else
156		begin
157	<	fileid := _fileid;
157	>	fileid := -1;
158		ConID := -1;
159		Self.ClearStructViewer;
160		ClearValues;
#	Line 184 | Line 165 | end;
165
166
167
168	+
169	+	function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
170	+	ARecord: TNodeData): PVirtualNode;
171	+	var
172	+	Data: PNodeData;
173	+	begin
174	+	Result := AVST.AddChild(ANode);
175	+	Data   := AVST.GetNodeData(Result);
176	+	AVST.ValidateNode(Result, False);
177	+	Data^ := ARecord;
178	+	end;
179	+
180	+
181	+
182	+
183	+
184		function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
185		var
186		Data: TByteData;
#	Line 990 | Line 987 | end;
987
988
989
993	–
990		procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
991		begin
992		if (Shift = [ssCtrl]) and (Key = 83) then

Diff Legend

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