ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/BinEdit.pas
(Generate patch)

Comparing oup/current/Tools/BinEdit.pas (file contents):
Revision 177 by alloc, Sat May 12 13:22:11 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 21 | Line 22 | type
22      value_viewer_context_copyasstring: TMenuItem;
23      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);
29      procedure NewFile(fileinfo: TFileInfo);
30  
# Line 184 | Line 188 | function TForm_BinEdit.GetValue(datatype
188   var
189    Data: TByteData;
190    i:    Integer;
187 –  tempi: Integer;
191    floatformat: TFormatSettings;
192   begin
193    floatformat.DecimalSeparator := '.';
# Line 222 | Line 225 | begin
225      11:
226      begin
227        if Length(rawlist) > 0 then
228 +      begin
229          for i := 0 to High(rawlist) do
230            if rawlist[i].SrcOffset = offset then
231            begin
# Line 231 | Line 235 | begin
235                Result := 'unused';
236              Break;
237            end;
238 +        if i > High(rawlist) then
239 +          Result := 'unused';
240 +      end;
241      end;
242      12:
243        if hex.Data[offset] = 1 then
# Line 753 | 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 774 | 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 793 | 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)