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 216 by alloc, Sun May 27 20:03:41 2007 UTC vs.
Revision 217 by alloc, Fri Jun 15 15:12:11 2007 UTC

#	Line 2 | Line 2 | unit BinEdit;
2		interface
3		uses
4		Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	<	Dialogs, Template, StdCtrls, ExtCtrls, VirtualTrees, Grids, Wrapgrid,
6	<	MPHexEditor, VTHeaderPopup, Menus, StrUtils, Clipbrd,
7	<	Data, TypeDefs, ConnectionManager, Buttons;
5	>	Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor, StdCtrls,
6	>	Menus, VTHeaderPopup, ExtCtrls, Buttons, StrUtils, Clipbrd,
7	>	Data, TypeDefs, ConnectionManager, Template,
8	>	_BaseTemplate, _TemplateFile, _TemplateFileList;
9
10		type
11		TForm_BinEdit = class(TForm_ToolTemplate)
#	Line 759 | Line 760 | var
760		node: PVirtualNode;
761		nodedata: PNodeData;
762		rawinfo: TRawDataInfo;
763	<	form: TForm_ToolTemplate;
763	>	form: TForm_TemplateFileList;
764		begin
765		if VST.FocusedColumn = 3 then
766		begin
#	Line 780 | Line 781 | begin
781		if rawinfo.RawSize > 0 then
782		begin
783		form := nil;
784	<	form := Form_Main.open_child('rawedit', ConID, fileid);
784	>	form := TForm_TemplateFileList(Form_Main.open_child('rawedit', ConID, fileid));
785		if Assigned(form) then
786		TForm_RawEdit(form).LoadRaw(rawinfo);
787		end;
#	Line 799 | Line 800 | begin
800		end;
801		if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then
802		begin
803	<	form := Form_Main.open_child('binedit', ConID, -1);
803	>	form := TForm_TemplateFileList(Form_Main.open_child('binedit', ConID));
804		if Assigned(form) then
805		form.SetFileFilters(nodedata.Value, '', False);
806		end;

Diff Legend

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