--- oup/current/Tools/BinEdit.pas 2007/05/27 20:03:41 204 +++ oup/current/Tools/BinEdit.pas 2007/06/15 15:12:11 217 @@ -2,9 +2,10 @@ unit BinEdit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, Template, StdCtrls, ExtCtrls, VirtualTrees, Grids, Wrapgrid, - MPHexEditor, VTHeaderPopup, Menus, StrUtils, Clipbrd, - Data, TypeDefs, ConnectionManager, Buttons; + Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor, StdCtrls, + Menus, VTHeaderPopup, ExtCtrls, Buttons, StrUtils, Clipbrd, + Data, TypeDefs, ConnectionManager, Template, + _BaseTemplate, _TemplateFile, _TemplateFileList; type TForm_BinEdit = class(TForm_ToolTemplate) @@ -759,7 +760,7 @@ var node: PVirtualNode; nodedata: PNodeData; rawinfo: TRawDataInfo; - form: TForm_ToolTemplate; + form: TForm_TemplateFileList; begin if VST.FocusedColumn = 3 then begin @@ -780,7 +781,7 @@ begin if rawinfo.RawSize > 0 then begin form := nil; - form := Form_Main.open_child('rawedit', ConID, fileid); + form := TForm_TemplateFileList(Form_Main.open_child('rawedit', ConID, fileid)); if Assigned(form) then TForm_RawEdit(form).LoadRaw(rawinfo); end; @@ -799,7 +800,7 @@ begin end; if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then begin - form := Form_Main.open_child('binedit', ConID, -1); + form := TForm_TemplateFileList(Form_Main.open_child('binedit', ConID)); if Assigned(form) then form.SetFileFilters(nodedata.Value, '', False); end;