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 177 by alloc, Sat May 12 13:22:11 2007 UTC vs.
Revision 204 by alloc, Sun May 27 20:03:41 2007 UTC

#	Line 21 | Line 21 | type
21		value_viewer_context_copyasstring: TMenuItem;
22		value_viewer_context_copyashex: TMenuItem;
23		VTHPopup: TVTHeaderPopupMenu;
24	+	panel_imexport: TPanel;
25	+	btn_export: TButton;
26	+	btn_import: TButton;
27		procedure FormCreate(Sender: TObject);
28		procedure NewFile(fileinfo: TFileInfo);
29
#	Line 184 | Line 187 | function TForm_BinEdit.GetValue(datatype
187		var
188		Data: TByteData;
189		i:    Integer;
187	–	tempi: Integer;
190		floatformat: TFormatSettings;
191		begin
192		floatformat.DecimalSeparator := '.';
#	Line 222 | Line 224 | begin
224		11:
225		begin
226		if Length(rawlist) > 0 then
227	+	begin
228		for i := 0 to High(rawlist) do
229		if rawlist[i].SrcOffset = offset then
230		begin
#	Line 231 | Line 234 | begin
234		Result := 'unused';
235		Break;
236		end;
237	+	if i > High(rawlist) then
238	+	Result := 'unused';
239	+	end;
240		end;
241		12:
242		if hex.Data[offset] = 1 then

Diff Legend

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