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 225 by alloc, Tue Jun 19 19:57:28 2007 UTC vs.
Revision 231 by alloc, Wed Jun 20 22:24:04 2007 UTC

#	Line 29 | Line 29 | type
29		value_viewer_context_copyashex: TMenuItem;
30		procedure NewFile(fileinfo: TFileInfo);
31
32	–	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);
#	Line 120 | Line 119 | end;
119
120
121		procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo);
123	–	begin
124	–	LoadDat(fileinfo.ID);
125	–	end;
126	–
127	–
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);
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;
143		mem := nil;
144		ConManager.Connection[ConID].LoadDatFile(fileid, TStream(mem));
#	Line 173 | Line 150 | begin
150		end
151		else
152		begin
153	<	fileid := _fileid;
153	>	fileid := -1;
154		ConID := -1;
155		Self.ClearStructViewer;
156		ClearValues;
#	Line 184 | Line 161 | end;
161
162
163
164	+
165	+	function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
166	+	ARecord: TNodeData): PVirtualNode;
167	+	var
168	+	Data: PNodeData;
169	+	begin
170	+	Result := AVST.AddChild(ANode);
171	+	Data   := AVST.GetNodeData(Result);
172	+	AVST.ValidateNode(Result, False);
173	+	Data^ := ARecord;
174	+	end;
175	+
176	+
177	+
178	+
179	+
180		function TForm_BinEdit.GetValue(datatype: Word; offset: Integer): String;
181		var
182		Data: TByteData;

Diff Legend

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