Index: oup/rewrite/Tools/BinEdit.dfm
===================================================================
--- oup/rewrite/Tools/BinEdit.dfm	(revision 101)
+++ 	(revision )
@@ -1,227 +1,0 @@
-inherited Form_BinEdit: TForm_BinEdit
-  Caption = 'BinEdit'
-  KeyPreview = True
-  OnCloseQuery = FormCloseQuery
-  OnKeyUp = FormKeyUp
-  ExplicitWidth = 500
-  ExplicitHeight = 450
-  PixelsPerInch = 96
-  TextHeight = 13
-  inherited content: TPanel
-    object Splitter2: TSplitter
-      Left = 0
-      Top = 209
-      Width = 283
-      Height = 9
-      Cursor = crVSplit
-      Align = alTop
-      AutoSnap = False
-      Beveled = True
-      MinSize = 40
-      ExplicitWidth = 425
-    end
-    object Splitter3: TSplitter
-      Left = 0
-      Top = 318
-      Width = 283
-      Height = 8
-      Cursor = crVSplit
-      Align = alBottom
-      AutoSnap = False
-      Beveled = True
-      MinSize = 40
-      ExplicitLeft = -9
-      ExplicitTop = 430
-      ExplicitWidth = 425
-    end
-    object hex: TMPHexEditor
-      Left = 0
-      Top = 0
-      Width = 283
-      Height = 209
-      Cursor = crIBeam
-      Align = alTop
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = 'Courier'
-      Font.Style = []
-      OnKeyUp = hexKeyUp
-      ParentFont = False
-      TabOrder = 0
-      BytesPerRow = 16
-      Translation = tkASCII
-      OffsetFormat = '6!10:0x|'
-      Colors.Background = clWindow
-      Colors.ChangedBackground = clWindow
-      Colors.ChangedText = clRed
-      Colors.CursorFrame = clNavy
-      Colors.Offset = clBlack
-      Colors.OddColumn = clBlue
-      Colors.EvenColumn = clNavy
-      Colors.CurrentOffsetBackground = clBtnShadow
-      Colors.OffsetBackGround = clBtnFace
-      Colors.CurrentOffset = clBtnHighlight
-      Colors.Grid = clBtnFace
-      Colors.NonFocusCursorFrame = clAqua
-      Colors.ActiveFieldBackground = clWindow
-      FocusFrame = True
-      NoSizeChange = True
-      AllowInsertMode = False
-      DrawGridLines = False
-      Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
-      OnChange = hexChange
-      ShowPositionIfNotFocused = True
-      OnSelectionChanged = hexSelectionChanged
-    end
-    object value_viewer: TWrapGrid
-      Left = 0
-      Top = 218
-      Width = 283
-      Height = 100
-      Align = alClient
-      ColCount = 1
-      DefaultColWidth = 80
-      DefaultRowHeight = 18
-      FixedCols = 0
-      RowCount = 8
-      FixedRows = 0
-      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
-      PopupMenu = value_viewer_context
-      ScrollBars = ssVertical
-      TabOrder = 1
-      OnDblClick = value_viewerDblClick
-      OnMouseDown = value_viewerMouseDown
-    end
-    object VST: TVirtualStringTree
-      Left = 0
-      Top = 326
-      Width = 283
-      Height = 97
-      Align = alBottom
-      AnimationDuration = 0
-      AutoExpandDelay = 300
-      BiDiMode = bdLeftToRight
-      Colors.UnfocusedSelectionColor = clGradientActiveCaption
-      Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
-      Ctl3D = True
-      DragOperations = []
-      DrawSelectionMode = smBlendedRectangle
-      EditDelay = 200
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      Header.AutoSizeIndex = 0
-      Header.Font.Charset = DEFAULT_CHARSET
-      Header.Font.Color = clWindowText
-      Header.Font.Height = -11
-      Header.Font.Name = 'Tahoma'
-      Header.Font.Style = []
-      Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
-      Header.PopupMenu = VTHPopup
-      Header.Style = hsFlatButtons
-      HintAnimation = hatNone
-      HintMode = hmTooltip
-      Indent = 14
-      ParentBiDiMode = False
-      ParentCtl3D = False
-      ParentFont = False
-      ParentShowHint = False
-      ShowHint = True
-      TabOrder = 2
-      TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
-      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
-      TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
-      OnDblClick = VSTDblClick
-      OnFocusChanged = VSTFocusChanged
-      OnGetText = VSTGetText
-      OnHeaderDragged = VSTHeaderDragged
-      Columns = <
-        item
-          MaxWidth = 300
-          MinWidth = 100
-          Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 0
-          Spacing = 20
-          Width = 150
-          WideText = 'Name'
-          WideHint = 'Name of the item.'
-        end
-        item
-          MaxWidth = 110
-          MinWidth = 80
-          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 1
-          Spacing = 20
-          Width = 85
-          WideText = 'Offset'
-          WideHint = 'Offset of the data-item.'
-        end
-        item
-          MaxWidth = 110
-          MinWidth = 75
-          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 2
-          Width = 75
-          WideText = 'Type'
-          WideHint = 'Data type of the item.'
-        end
-        item
-          MaxWidth = 250
-          MinWidth = 80
-          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 3
-          Width = 100
-          WideText = 'Value'
-          WideHint = 'Value of the item.'
-        end
-        item
-          MaxWidth = 400
-          MinWidth = 80
-          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 4
-          Width = 400
-          WideText = 'Description'
-        end>
-      WideDefaultText = ''
-    end
-  end
-  object value_viewer_context: TPopupMenu [3]
-    AutoHotkeys = maManual
-    AutoLineReduction = maManual
-    OnPopup = value_viewer_contextPopup
-    Left = 280
-    Top = 232
-    object value_viewer_context_copy: TMenuItem
-      Caption = 'Copy to &clipboard'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasdec: TMenuItem
-      Caption = 'Copy to clipboard (as &dec)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasfloat: TMenuItem
-      Caption = 'Copy to clipboard (as &float)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasbitset: TMenuItem
-      Caption = 'Copy to clipboard (as &bitset)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasstring: TMenuItem
-      Caption = 'Copy to clipboard (as &string)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyashex: TMenuItem
-      Caption = 'Copy to clipboard (as &hex)'
-      OnClick = value_viewer_context_copyClick
-    end
-  end
-  object VTHPopup: TVTHeaderPopupMenu [4]
-    OnColumnChange = VTHPopupColumnChange
-    Left = 272
-    Top = 376
-  end
-end
Index: oup/rewrite/Tools/BinEdit.pas
===================================================================
--- oup/rewrite/Tools/BinEdit.pas	(revision 101)
+++ 	(revision )
@@ -1,999 +1,0 @@
-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, {Functions, DataStructures, Exporters,} Buttons;
-
-type
-  TForm_BinEdit = class(TForm_ToolTemplate)
-    hex: TMPHexEditor;
-    Splitter2: TSplitter;
-    value_viewer: TWrapGrid;
-    VST: TVirtualStringTree;
-    Splitter3: TSplitter;
-    value_viewer_context: TPopupMenu;
-    value_viewer_context_copy: TMenuItem;
-    value_viewer_context_copyasdec: TMenuItem;
-    value_viewer_context_copyasfloat: TMenuItem;
-    value_viewer_context_copyasbitset: TMenuItem;
-    value_viewer_context_copyasstring: TMenuItem;
-    value_viewer_context_copyashex: TMenuItem;
-    VTHPopup: TVTHeaderPopupMenu;
-    procedure FormCreate(Sender: TObject);
-    procedure NewFile(fileinfo: TFileInfo);
-
-    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-
-    procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure hexSelectionChanged(Sender: TObject);
-    procedure hexChange(Sender: TObject);
-
-    procedure LoadDat(_fileid: Integer);
-    function Save: Boolean;
-    function GetValue(datatype: Word; offset: LongWord): String;
-    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
-
-    procedure WriteStructureInfos;
-    procedure ClearStructViewer;
-    procedure VSTDblClick(Sender: TObject);
-    procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
-      Column: TColumnIndex);
-    procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree;
-      const Column: TColumnIndex; Visible: Boolean);
-    procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
-      OldPosition: Integer);
-    procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
-      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
-
-    procedure ClearValues;
-    procedure WriteValues;
-    procedure value_viewerDblClick(Sender: TObject);
-    procedure value_viewer_context_copyClick(Sender: TObject);
-    procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure value_viewer_contextPopup(Sender: TObject);
-  private
-    con: Integer;
-    fileid: Integer;
-  public
-  end;
-
-var
-  Form_BinEdit: TForm_BinEdit;
-
-implementation
-
-uses {Helper_ValueEdit, }Main, RawEdit;
-{$R *.dfm}
-
-type
-  PNodeData = ^TNodeData;
-
-  TNodeData = record
-    Caption:  String;
-    Offset:   LongInt;
-    DataType: Word;
-    Value:    String;
-    Description: String;
-  end;
-
-
-
-procedure TForm_BinEdit.FormCreate(Sender: TObject);
-begin
-  inherited;
-  Self.OnNewFileSelected := NewFile;
-
-  Self.Caption := '';
-  fileid     := 0;
-  VST.NodeDataSize := SizeOf(TNodeData);
-  value_viewer.ColCount := 2;
-  value_viewer.RowCount := 8;
-  value_viewer.FixedRows := 1;
-  value_viewer.FixedCols := 1;
-  value_viewer.Cells[0, 0] := 'Type';
-  value_viewer.Cells[1, 0] := 'Value';
-  value_viewer.Cells[0, 1] := '1 byte, unsigned';
-  value_viewer.Cells[0, 2] := '2 bytes, unsigned';
-  value_viewer.Cells[0, 3] := '4 bytes, unsigned';
-  value_viewer.Cells[0, 4] := 'Bitset';
-  value_viewer.Cells[0, 5] := 'Float';
-  value_viewer.Cells[0, 6] := 'String';
-  value_viewer.Cells[0, 7] := 'Selected length';
-  value_viewer.ColWidths[0] := 120;
-  value_viewer.ColWidths[1] := 1000;
-//  hex.Height := content.Height - 215;
-  //
-  value_viewer.Font.Charset := AppSettings.CharSet;
-  VST.Font.Charset := AppSettings.CharSet;
-  hex.Translation := tkAsIs;
-  hex.Font.Charset := AppSettings.CharSet;
-  //
-end;
-
-procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo);
-begin
-  LoadDat(fileinfo.ID);
-end;
-
-
-
-
-function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
-  ARecord: TNodeData): PVirtualNode;
-var
-  Data: PNodeData;
-begin
-  Result := AVST.AddChild(ANode);
-  Data   := AVST.GetNodeData(Result);
-  AVST.ValidateNode(Result, False);
-  Data^ := ARecord;
-end;
-
-
-
-
-procedure TForm_BinEdit.LoadDat(_fileid: Integer);
-var
-  mem:  TMemoryStream;
-  Data: TByteData;
-begin
-  if con <> nil then
-  begin
-    if hex.Modified then
-    begin
-      if not Save then
-      begin
-        Self.SelectFileID(Connection, fileid);
-        Exit;
-      end;
-    end;
-  end;
-  if _fileid >= 0 then
-  begin
-    fileid := _fileid;
-    con := Connection;
-    if con.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]) <> fileid then
-      Self.SelectFileID(Connection, fileid);
-    Self.ClearStructViewer;
-    Data := con.LoadDatFile(fileid);
-    if Length(Data) > 0 then
-    begin
-      mem := TMemoryStream.Create;
-      mem.Write(Data[0], Length(Data));
-      mem.Seek(0, soFromBeginning);
-      hex.LoadFromStream(mem);
-      mem.Free;
-      WriteStructureInfos;
-    end
-    else
-    begin
-      ClearValues;
-      hex.DataSize := 0;
-    end;
-  end
-  else
-  begin
-    fileid := _fileid;
-    con := nil;
-    Self.ClearStructViewer;
-    ClearValues;
-    hex.DataSize := 0;
-  end;
-end;
-
-
-
-
-function IntToBin(Value: Byte): String;
-var
-  i: Byte;
-begin
-  Result := '';
-  for i := 7 downto 0 do
-  begin
-    Result := Result + IntToStr((Value shr i) and $01);
-  end;
-end;
-
-
-
-
-function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
-var
-  Data: Tdata;
-  i:    Word;
-  floatformat: TFormatSettings;
-begin
-  floatformat.DecimalSeparator := '.';
-  case datatype of
-    1:
-      Result := IntToStr(hex.Data[offset]);
-    2:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256);
-    3:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256);
-    4:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] *
-        256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256);
-    5:
-      Result := '0x' + IntToHex(hex.Data[offset], 2);
-    6:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256, 4);
-    7:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
-        hex.Data[offset + 2] * 256 * 256, 6);
-    8:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
-        hex.Data[offset + 2] * 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256, 8);
-    9:
-    begin
-      SetLength(Data, 4);
-      Data[0] := hex.Data[offset];
-      Data[1] := hex.Data[offset + 1];
-      Data[2] := hex.Data[offset + 2];
-      Data[3] := hex.Data[offset + 3];
-      Result  := FloatToStr(Decode_Float(Data), floatformat);
-    end;
-    10:
-      Result := IntToBin(hex.Data[offset]);
-    11:
-      Result := '0x' + IntToHex(con.GetRawInfo(fileid, offset).raw_addr, 8);
-    12:
-      Result := FormatNumber(hex.Data[offset + 1] + hex.Data[offset + 2] * 256 +
-        hex.Data[offset + 3] * 256 * 256, 5, '0');
-    13:
-      Result := IntToStr(hex.Data[offset]);
-    14:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256);
-    15:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256);
-    16:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] *
-        256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256);
-    17:
-      Result := IntToStr((hex.Data[offset + 3]) div 2);
-    100..300:
-    begin
-      Result := '';
-      for i := 1 to datatype - 100 do
-      begin
-        if hex.Data[offset + i - 1] >= 32 then
-          Result := Result + Chr(hex.Data[offset + i - 1])
-        else
-          Break;
-      end;
-    end;
-    1000..9999:
-    begin
-      Result := '';
-      for i := 1 to datatype - 1000 do
-      begin
-        if hex.Data[offset + i - 1] >= 32 then
-          Result := Result + Chr(hex.Data[offset + i - 1])
-        else
-          Result := Result + '.';
-      end;
-    end;
-    10000..65535:
-    begin
-      Result := '';
-      for i := 1 to datatype - 10000 do
-      begin
-        if hex.Data[offset + i - 1] >= 32 then
-          Result := Result + Chr(hex.Data[offset + i - 1])
-        else
-          Result := Result + '.';
-      end;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.WriteStructureInfos;
-var
-  i, j:    LongWord;
-  pdata:   PNodeData;
-  Data:    TNodeData;
-  node:    PVirtualNode;
-  structs: TStructDef;
-begin
-  VST.BeginUpdate;
-  if VST.RootNodeCount = 0 then
-  begin
-    structs := LoadStructureDefinition(con, fileid);
-    if structs.Data then
-    begin
-      if Length(structs.Global) > 0 then
-      begin
-        for i := 0 to High(structs.Global) do
-        begin
-          Data.Caption  := structs.Global[i].Name;
-          Data.Offset   := structs.Global[i].offset;
-          Data.DataType := structs.Global[i].datatype;
-          Data.Value    := GetValue(structs.Global[i].datatype, structs.Global[i].offset);
-          Data.Description := structs.Global[i].description;
-          AddVSTEntry(VST, nil, Data);
-        end;
-      end;
-      if Length(structs.Subs) > 0 then
-      begin
-        for i := 0 to High(structs.Subs) do
-        begin
-          with structs.Subs[i] do
-          begin
-            if Length(Entries) > 0 then
-            begin
-              if Pos('#', SubName) > 0 then
-              begin
-                Data.Offset  := HexToLong(MidStr(SubName, Pos('#', SubName) + 1, 8));
-                Data.Value   :=
-                  MidStr(SubName, PosEx('#', SubName, Pos('#', SubName) + 1) + 1, 8);
-                Data.Caption := MidStr(SubName, 1, Pos('#', SubName) - 1);
-                Data.Description := SubDesc;
-              end
-              else
-              begin
-                Data.Caption := SubName;
-                Data.Description := SubDesc;
-                Data.Offset := 0;
-                Data.Value := '';
-              end;
-              Data.DataType := 0;
-              node := AddVSTEntry(VST, nil, Data);
-              Data.Description := '';
-              for j := 0 to High(Entries) do
-              begin
-                Data.Caption  := Entries[j].Name;
-                Data.Offset   := Entries[j].offset;
-                Data.DataType := Entries[j].datatype;
-                Data.Value    := GetValue(Entries[j].datatype, Entries[j].offset);
-                Data.Description := Entries[j].description;
-                AddVSTEntry(VST, node, Data);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if VST.RootNodeCount > 0 then
-      VST.FocusedNode := VST.GetFirst;
-  end
-  else
-  begin
-    Node := VST.GetFirst;
-    while Assigned(Node) do
-    begin
-      pdata := VST.GetNodeData(Node);
-      if pdata.DataType > 0 then
-        pdata.Value := GetValue(pdata.Datatype, pdata.Offset);
-      Node := VST.GetNext(Node);
-    end;
-  end;
-  VST.EndUpdate;
-end;
-
-
-
-
-procedure TForm_BinEdit.ClearValues;
-var
-  i: Byte;
-begin
-  for i := 1 to value_viewer.RowCount - 1 do
-  begin
-    value_viewer.Cells[1, i] := '';
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.WriteValues;
-var
-  i, j:  Integer;
-  Data:  Tdata;
-  str:   String;
-  Value: LongWord;
-  floatformat: TFormatSettings;
-begin
-  floatformat.DecimalSeparator := '.';
-  for i := 1 to value_viewer.RowCount - 1 do
-  begin
-    if value_viewer.Cells[0, i] = '1 byte, unsigned' then
-    begin
-      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 1) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart];
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 2);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = '2 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 2) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 4);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = '4 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
-          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 8);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Bitset' then
-    begin
-      if (hex.SelCount <= 8) then
-      begin
-        if hex.SelCount = 0 then
-        begin
-          SetLength(Data, 1);
-          Data[0] := hex.Data[hex.SelStart];
-        end
-        else
-        begin
-          SetLength(Data, hex.SelCount);
-          for j := 0 to hex.SelCount - 1 do
-            Data[j] := hex.Data[hex.SelStart + j];
-        end;
-        value_viewer.Cells[1, i] := DataToBin(Data);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Float' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-      begin
-        SetLength(Data, 4);
-        for j := 0 to 3 do
-          Data[j] := hex.Data[hex.SelStart + j];
-        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Selected length' then
-    begin
-      value_viewer.Cells[1, i] := IntToStr(hex.SelCount) + ' bytes';
-    end;
-    if value_viewer.Cells[0, i] = 'String' then
-    begin
-      j   := 0;
-      str := '';
-      if hex.SelCount = 0 then
-      begin
-        while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
-        begin
-          if hex.Data[hex.selstart + j] >= 32 then
-            str := str + Char(hex.Data[hex.SelStart + j])
-          else
-            str := str + '.';
-          Inc(j);
-        end;
-      end
-      else
-      begin
-        for j := 0 to hex.SelCount - 1 do
-          if hex.Data[hex.selstart + j] >= 32 then
-            str := str + Char(hex.Data[hex.SelStart + j])
-          else if hex.Data[hex.selstart + j] > 0 then
-            str := str + '.'
-          else
-            Break;
-      end;
-      value_viewer.Cells[1, i] := str;
-    end;
-  end;
-end;
-
-
-
-
-function TForm_BinEdit.Save: Boolean;
-var
-  mem:  TMemoryStream;
-  Data: Tdata;
-  i:    LongWord;
-begin
-  case MessageBox(Self.Handle, PChar('Save changes to file ' +
-      con.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
-      MB_YESNOCANCEL) of
-    idYes:
-    begin
-      mem := TMemoryStream.Create;
-      hex.SaveToStream(mem);
-      mem.Seek(0, soFromBeginning);
-      SetLength(Data, mem.Size);
-      mem.Read(Data[0], mem.Size);
-      mem.Free;
-      con.UpdateDatFile(fileid, Data);
-      hex.Modified := False;
-      for i := 0 to hex.Datasize - 1 do
-        hex.ByteChanged[i] := False;
-      Result := True;
-    end;
-    idNo:
-      Result := True;
-    idCancel:
-    begin
-      Result := False;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  if hex.Modified then
-  begin
-    if not Save then
-      CanClose := False;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.ClearStructViewer;
-begin
-  VST.Clear;
-end;
-
-
-
-
-
-
-procedure TForm_BinEdit.hexChange(Sender: TObject);
-begin
-  ClearValues;
-  if hex.DataSize > 0 then
-  begin
-    WriteStructureInfos;
-    WriteValues;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-//var
-//  temps: String;
-begin
-  if (Shift = [ssCtrl]) and (Key = Ord('C')) then
-  begin
-    if hex.SelCount > 0 then
-    begin
-      if hex.InCharField then
-        Clipboard.AsText := hex.SelectionAsText
-      else
-        Clipboard.AsText := hex.SelectionAsHex;
-    end;
-  end;
-  if (Shift = [ssCtrl]) and (Key = Ord('V')) then
-  begin
-{      temps:=Clipboard.AsText;
-      IF hex.SelStart+Length(temps)>hex.DataSize THEN
-        SetLength(temps, hex.DataSize-hex.SelStart);
-      hex.Sel
-      hex.SelCount:=Length(temps);
-      hex.ReplaceSelection(temps,Length(temps));
-}    end;
-end;
-
-
-
-
-procedure TForm_BinEdit.hexSelectionChanged(Sender: TObject);
-var
-  selstart: Integer;
-  node:     PVirtualNode;
-  pdata:    PNodeData;
-begin
-  if hex.DataSize > 0 then
-  begin
-    WriteValues;
-    selstart := hex.SelStart;
-    if VST.RootNodeCount > 0 then
-    begin
-      Node := VST.GetFirst;
-      while Assigned(Node) do
-      begin
-        pdata := VST.GetNodeData(Node);
-        if pdata.DataType > 0 then
-        begin
-          if ((selstart - pdata.Offset) < GetTypeDataLength(pdata.DataType)) and
-            ((selstart - pdata.Offset) >= 0) then
-          begin
-            VST.FocusedNode    := Node;
-            VST.Selected[Node] := True;
-            Break;
-          end;
-        end;
-        Node := VST.GetNext(Node);
-      end;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.value_viewer_contextPopup(Sender: TObject);
-var
-  i: Byte;
-begin
-  for i := 0 to value_viewer_context.Items.Count - 1 do
-    value_viewer_context.Items.Items[i].Visible := False;
-  with value_viewer do
-  begin
-    if (Col = 1) and (Row > 0) and (Length(Cells[Col, Row]) > 0) then
-    begin
-      if Pos(' byte', Cells[0, Row]) = 2 then
-      begin
-        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
-        value_viewer_context.Items.Find('Copy to clipboard (as &dec)').Visible := True;
-        value_viewer_context.Items.Find('Copy to clipboard (as &hex)').Visible := True;
-      end;
-      if Pos('Float', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find('Copy to clipboard (as &float)').Visible := True;
-      if Pos('Bitset', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find(
-          'Copy to clipboard (as &bitset)').Visible := True;
-      if Pos('String', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find(
-          'Copy to clipboard (as &string)').Visible := True;
-      if Pos('Selected length', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-var
-  ACol, ARow: Integer;
-begin
-  if Button = mbRight then
-  begin
-    value_viewer.MouseToCell(x, y, ACol, ARow);
-    if ARow > 0 then
-    begin
-      value_viewer.Col := ACol;
-      value_viewer.Row := ARow;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.value_viewer_context_copyClick(Sender: TObject);
-var
-  Name:  String;
-  Value: LongWord;
-begin
-  Name := TMenuItem(Sender).Name;
-  if Pos('asstring', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if Pos('asfloat', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if Pos('asbitset', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if (Pos('ashex', Name) > 0) or (Pos('asdec', Name) > 0) then
-  begin
-    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-    begin
-      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 1) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart];
-    end;
-    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 2) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
-    end;
-    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
-          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
-    end;
-    if Pos('asdec', Name) > 0 then
-    begin
-      Clipboard.AsText := IntToStr(Value);
-    end
-    else
-    begin
-      if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 2);
-      if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 4);
-      if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 8);
-    end;
-  end
-  else
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.VSTDblClick(Sender: TObject);
-var
-  node: PVirtualNode;
-  nodedata: PNodeData;
-  form: TForm_ToolTemplate;
-begin
-  if VST.FocusedColumn = 3 then
-  begin
-    node     := VST.FocusedNode;
-    nodedata := VST.GetNodeData(node);
-
-    if not (nodedata.datatype in [11, 12]) and
-      ((nodedata.DataType < 100) or (nodedata.DataType > 300)) then
-    begin
-      Form_ValueEdit.MakeVarInput(nodedata.Caption, nodedata.offset,
-        nodedata.datatype, nodedata.Value, Self);
-    end
-    else
-    begin
-      if nodedata.DataType = 11 then
-      begin
-        if con.GetRawInfo(fileid, nodedata.offset).raw_size > 0 then
-          Form_Main.open_child('rawedit', Connection, fileid);
-      end;
-      if nodedata.DataType = 12 then
-      begin
-        if (StrToInt(nodedata.Value) < con.GetFilesCount) and
-          (StrToInt(nodedata.Value) > 0) and
-          (StrToInt(nodedata.Value) <> fileid) then
-        begin
-          if con.GetFileInfo(StrToInt(nodedata.Value)).Size > 0 then
-            Form_Main.open_child('binedit', Connection, StrToInt(nodedata.Value))
-          else
-            ShowMessage('Linked filed is a zero-byte-file');
-        end;
-      end;
-      if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then
-      begin
-        form := Form_Main.open_child('binedit', Connection, -1);
-        if Assigned(form) then
-          form.SetFileFilters(nodedata.Value, '', False);
-      end;
-    end;
-
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
-  Column: TColumnIndex);
-var
-  Data: PNodeData;
-begin
-  Data := VST.GetNodeData(node);
-  if Data.DataType > 0 then
-  begin
-    hex.SelStart := Data.Offset;
-    hex.SelEnd   := Data.Offset + GetTypeDataLength(Data.DataType) - 1;
-  end
-  else
-  begin
-    hex.SelStart := Data.Offset;
-    hex.SelEnd   := Data.Offset + HexToLong(Data.Value) - 1;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
-  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
-var
-  Data: PNodeData;
-begin
-  Data     := Sender.GetNodeData(Node);
-  CellText := '';
-  if TextType = ttNormal then
-  begin
-    case Column of
-      0:
-        CellText := Data.Caption;
-      1:
-        if Data.DataType > 0 then
-          CellText := '0x' + IntToHex(Data.Offset, 8)
-        else if Data.Offset > 0 then
-          CellText := '0x' + IntToHex(Data.Offset, 8);
-      2:
-        if Data.DataType > 0 then
-          CellText := GetDataType(Data.DataType);
-      3:
-        if Data.DataType > 0 then
-          CellText := Data.Value //GetValue(data.DataType, data.Offset)
-        else if Length(Data.Value) > 0 then
-          CellText := IntToStr(HexToLong(Data.Value)) + ' Bytes';
-      4:
-        CellText := Data.Description;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
-  OldPosition: Integer);
-begin
-  if Sender.Columns.Items[column].Position < 1 then
-    Sender.Columns.Items[column].Position := OldPosition;
-end;
-
-
-
-
-procedure TForm_BinEdit.VTHPopupColumnChange(const Sender: TBaseVirtualTree;
-  const Column: TColumnIndex; Visible: Boolean);
-begin
-  if column = 0 then
-    TVirtualStringTree(Sender).Header.Columns.Items[column].Options :=
-      TVirtualStringTree(Sender).Header.Columns.Items[column].Options + [coVisible];
-end;
-
-
-
-
-procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
-var
-  Data: Tdata;
-  value_int: LongWord;
-  value_float: Single;
-  i: Word;
-begin
-  case datatype of
-    1..4:
-    begin
-      value_int := StrToInt(Value);
-      SetLength(Data, datatype);
-      for i := 0 to datatype - 1 do
-      begin
-        Data[i]   := value_int mod 256;
-        value_int := value_int div 256;
-      end;
-    end;
-    5..8:
-    begin
-      value_int := StrToInt('$' + Value);
-      SetLength(Data, datatype - 4);
-      for i := 0 to datatype - 5 do
-      begin
-        Data[i]   := value_int mod 256;
-        value_int := value_int div 256;
-      end;
-    end;
-    9:
-    begin
-      value_float := StrToFloat(Value);
-      Data := Encode_Float(value_float);
-    end;
-    10:
-    begin
-      value_int := BinToInt(Value);
-      SetLength(Data, 1);
-      Data[0] := value_int;
-    end;
-    10000..65535:
-    begin
-      SetLength(Data, datatype - 10000);
-      for i := 1 to datatype - 10000 do
-      begin
-        if i <= Length(Value) then
-          Data[i - 1] := Ord(Value[i])
-        else
-          Data[i - 1] := 0;
-      end;
-    end;
-  end;
-  for i := 0 to High(Data) do
-  begin
-    if hex.Data[offset + i] <> Data[i] then
-      hex.ByteChanged[offset + i] := True;
-    hex.Data[offset + i] := Data[i];
-  end;
-  hex.Modified := True;
-  hexChange(Self);
-  hex.Repaint;
-end;
-
-
-
-
-procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
-var
-  offset:     LongWord;
-  datatype:   Word;
-  objectname: String;
-  Value:      String;
-begin
-  if (value_viewer.Col = 1) and (Length(value_viewer.Cells[1, value_viewer.Row]) > 0) then
-  begin
-    offset := hex.SelStart;
-    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-      datatype := 1;
-    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-      datatype := 2;
-    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-      datatype := 4;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Bitset' then
-      datatype := 10;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Float' then
-      datatype := 9;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Selected length' then
-      Exit;
-    if value_viewer.Cells[0, value_viewer.Row] = 'String' then
-    begin
-      if hex.SelCount > 0 then
-        datatype := 10000 + hex.SelCount
-      else
-        datatype := 10000 + Length(value_viewer.Cells[1, value_viewer.Row]);
-    end;
-    objectname := '';
-    Value      := GetValue(datatype, offset);
-    Form_ValueEdit.MakeVarInput(objectname, offset, datatype, Value, Self);
-  end;
-end;
-
-
-
-
-procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-begin
-  if (Shift = [ssCtrl]) and (Key = 83) then
-    if hex.Modified then
-      if not Save then
-        Exit;
-end;
-
-
-begin
-  AddToolListEntry('binedit', 'Binary .dat-Editor', '');
-end.
Index: oup/rewrite/Tools/RawEdit.dfm
===================================================================
--- oup/rewrite/Tools/RawEdit.dfm	(revision 101)
+++ 	(revision )
@@ -1,199 +1,0 @@
-inherited Form_RawEdit: TForm_RawEdit
-  Caption = 'RawEdit'
-  KeyPreview = True
-  OnCloseQuery = FormCloseQuery
-  OnKeyUp = FormKeyUp
-  ExplicitWidth = 500
-  ExplicitHeight = 450
-  PixelsPerInch = 96
-  TextHeight = 13
-  inherited panel_files: TPanel
-    object Splitter4: TSplitter [0]
-      Left = 0
-      Top = 205
-      Width = 200
-      Height = 8
-      Cursor = crVSplit
-      Align = alBottom
-      AutoSnap = False
-      Beveled = True
-      MinSize = 150
-      ExplicitLeft = 3
-      ExplicitTop = 89
-    end
-    inherited filelist: TListBox
-      Height = 52
-      ExplicitHeight = 52
-    end
-    object panel_imexport: TPanel
-      Left = 0
-      Top = 363
-      Width = 200
-      Height = 60
-      Align = alBottom
-      BevelOuter = bvNone
-      TabOrder = 3
-      DesignSize = (
-        200
-        60)
-      object btn_export: TButton
-        Left = 4
-        Top = 4
-        Width = 190
-        Height = 25
-        Anchors = [akLeft, akTop, akRight]
-        Caption = 'Export to file...'
-        TabOrder = 0
-        OnClick = btn_exportClick
-      end
-      object btn_import: TButton
-        Left = 4
-        Top = 32
-        Width = 190
-        Height = 25
-        Anchors = [akLeft, akTop, akRight]
-        Caption = 'Import from file...'
-        TabOrder = 1
-        OnClick = btn_importClick
-      end
-    end
-    object GroupBox1: TGroupBox
-      Left = 0
-      Top = 213
-      Width = 200
-      Height = 150
-      Align = alBottom
-      Caption = '2. Select .dat-link-offset'
-      TabOrder = 2
-      object list_offset: TListBox
-        Left = 2
-        Top = 15
-        Width = 196
-        Height = 133
-        Align = alClient
-        ItemHeight = 13
-        TabOrder = 0
-        OnClick = list_offsetClick
-      end
-    end
-  end
-  inherited content: TPanel
-    object Splitter2: TSplitter
-      Left = 0
-      Top = 300
-      Width = 283
-      Height = 9
-      Cursor = crVSplit
-      Align = alTop
-      AutoSnap = False
-      Beveled = True
-      MinSize = 40
-      ExplicitTop = 414
-    end
-    object hex: TMPHexEditor
-      Left = 0
-      Top = 0
-      Width = 283
-      Height = 300
-      Cursor = crIBeam
-      Align = alTop
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = 'Courier'
-      Font.Style = []
-      OnKeyUp = hexKeyUp
-      ParentFont = False
-      TabOrder = 0
-      BytesPerRow = 16
-      Translation = tkAsIs
-      OffsetFormat = '6!10:0x|'
-      Colors.Background = clWindow
-      Colors.ChangedBackground = clWindow
-      Colors.ChangedText = clRed
-      Colors.CursorFrame = clNavy
-      Colors.Offset = clBlack
-      Colors.OddColumn = clBlue
-      Colors.EvenColumn = clNavy
-      Colors.CurrentOffsetBackground = clBtnShadow
-      Colors.OffsetBackGround = clBtnFace
-      Colors.CurrentOffset = clBtnHighlight
-      Colors.Grid = clBtnFace
-      Colors.NonFocusCursorFrame = clAqua
-      Colors.ActiveFieldBackground = clWindow
-      FocusFrame = True
-      NoSizeChange = True
-      AllowInsertMode = False
-      DrawGridLines = False
-      Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
-      OnChange = hexChange
-      ShowPositionIfNotFocused = True
-      OnSelectionChanged = hexSelectionChanged
-    end
-    object value_viewer: TWrapGrid
-      Left = 0
-      Top = 309
-      Width = 283
-      Height = 114
-      Align = alClient
-      ColCount = 2
-      DefaultColWidth = 80
-      DefaultRowHeight = 18
-      FixedCols = 0
-      RowCount = 8
-      FixedRows = 0
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
-      ParentFont = False
-      PopupMenu = value_viewer_context
-      ScrollBars = ssVertical
-      TabOrder = 1
-      OnDblClick = value_viewerDblClick
-      OnMouseDown = value_viewerMouseDown
-    end
-  end
-  object value_viewer_context: TPopupMenu [3]
-    AutoHotkeys = maManual
-    OnPopup = value_viewer_contextPopup
-    Left = 368
-    Top = 264
-    object value_viewer_context_copy: TMenuItem
-      Caption = 'Copy to &clipboard'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasdec: TMenuItem
-      Caption = 'Copy to clipboard (as &dec)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasfloat: TMenuItem
-      Caption = 'Copy to clipboard (as &float)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasbitset: TMenuItem
-      Caption = 'Copy to clipboard (as &bitset)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyasstring: TMenuItem
-      Caption = 'Copy to clipboard (as &string)'
-      OnClick = value_viewer_context_copyClick
-    end
-    object value_viewer_context_copyashex: TMenuItem
-      Caption = 'Copy to clipboard (as &hex)'
-      OnClick = value_viewer_context_copyClick
-    end
-  end
-  object opend: TOpenDialog [4]
-    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
-    Left = 128
-    Top = 256
-  end
-  object saved: TSaveDialog [5]
-    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
-    Left = 128
-    Top = 280
-  end
-end
Index: oup/rewrite/Tools/RawEdit.pas
===================================================================
--- oup/rewrite/Tools/RawEdit.pas	(revision 101)
+++ 	(revision )
@@ -1,822 +1,0 @@
-unit RawEdit;
-interface
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, Template, StdCtrls, ExtCtrls, Menus, Grids, Wrapgrid,
-  MPHexEditor, Clipbrd, StrUtils, TypeDefs,
-  Data, Functions, DatStructureLoader, ConnectionManager, Buttons;
-
-type
-  TForm_RawEdit = class(TForm_ToolTemplate)
-    Splitter4: TSplitter;
-    panel_imexport: TPanel;
-    btn_export: TButton;
-    btn_import: TButton;
-    GroupBox1: TGroupBox;
-    list_offset: TListBox;
-    hex: TMPHexEditor;
-    Splitter2: TSplitter;
-    value_viewer: TWrapGrid;
-    value_viewer_context: TPopupMenu;
-    value_viewer_context_copy: TMenuItem;
-    value_viewer_context_copyasdec: TMenuItem;
-    value_viewer_context_copyasfloat: TMenuItem;
-    value_viewer_context_copyasbitset: TMenuItem;
-    value_viewer_context_copyasstring: TMenuItem;
-    value_viewer_context_copyashex: TMenuItem;
-    opend: TOpenDialog;
-    saved: TSaveDialog;
-    procedure list_offsetClick(Sender: TObject);
-    procedure NewFile(fileinfo: TFileInfo);
-    procedure LoadRaw(raw_info: TRawDataInfo);
-    function Save: Boolean;
-
-    procedure btn_importClick(Sender: TObject);
-    procedure btn_exportClick(Sender: TObject);
-
-    procedure FormCreate(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-
-    function GetValue(datatype: Word; offset: LongWord): String;
-    procedure ClearValues;
-    procedure WriteValues;
-    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
-
-    procedure value_viewerDblClick(Sender: TObject);
-    procedure value_viewer_context_copyClick(Sender: TObject);
-    procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure value_viewer_contextPopup(Sender: TObject);
-
-    procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure hexSelectionChanged(Sender: TObject);
-    procedure hexChange(Sender: TObject);
-  private
-    fileid:     Integer;
-    dat_offset: LongWord;
-    fileid_opened, dat_offset_opened: Integer;
-  public
-  end;
-
-var
-  Form_RawEdit: TForm_RawEdit;
-
-implementation
-{$R *.dfm}
-uses Main, Helper_ValueEdit;
-
-procedure TForm_RawEdit.NewFile(fileinfo: TFileInfo);
-var
-  offsets: TRawList;
-  i: Integer;
-begin
-  if fileinfo.ID >= 0 then
-  begin
-    if hex.Modified then
-      if not Save then
-        Exit;
-    ClearValues;
-    hex.DataSize := 0;
-    fileid := fileinfo.ID;
-    list_offset.Enabled := False;
-    if fileinfo.size > 0 then
-    begin
-      offsets := Connection.GetRawList(fileid);
-      list_offset.Items.Clear;
-      if Length(offsets) > 0 then
-        for i := 0 to High(offsets) do
-          list_offset.Items.Add('0x' + IntToHex(offsets[i].src_offset, 8) +
-                ', ' + IntToStr(offsets[i].raw_size) + ' bytes');
-      list_offset.Enabled := True;
-    end;
-  end
-  else
-  begin
-    ClearValues;
-    hex.DataSize := 0;
-    fileid := -1;
-    list_offset.Items.Clear;
-  end;
-end;
-
-procedure TForm_RawEdit.LoadRaw(raw_info: TRawInfo);
-var
-  i:    LongWord;
-  Data: Tdata;
-begin
-  if hex.Modified then
-  begin
-    if not Save then
-    begin
-      Exit;
-    end;
-  end;
-  if list_offset.Count = 0 then
-  begin
-    for i := 0 to filelist.Count - 1 do
-    begin
-      if Connection.ExtractFileID(filelist.Items.Strings[i]) = raw_info.src_id then
-      begin
-        filelist.ItemIndex := i;
-        listClick(Self);
-        Break;
-      end;
-    end;
-    for i := 0 to list_offset.Count - 1 do
-    begin
-      if MidStr(list_offset.Items.Strings[i], 3, 8) = IntToHex(raw_info.src_offset, 8) then
-      begin
-        list_offset.ItemIndex := i;
-        Break;
-      end;
-    end;
-  end;
-  SetLength(Data, raw_info.raw_size);
-  Connection.LoadRawFile(raw_info.src_id, raw_info.src_offset, @Data[0]);
-  if Length(Data) > 0 then
-  begin
-    hex.DataSize := 0;
-    hex.DataSize := raw_info.raw_size;
-    for i := 0 to High(Data) do
-      hex.Data[i] := Data[i];
-    //WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
-    //      structs.Height:=structs.RowCount*20;
-    //      IF structs.Height>120 THEN structs.Height:=120;
-    hexSelectionChanged(Self);
-    fileid_opened     := raw_info.src_id;
-    dat_offset_opened := raw_info.src_offset;
-    hex.Modified      := False;
-  end
-  else
-  begin
-    ClearValues;
-    hex.DataSize := 0;
-  end;
-end;
-
-
-
-
-
-
-procedure TForm_RawEdit.list_offsetClick(Sender: TObject);
-begin
-  ClearValues;
-  dat_offset := StrToInt('$' + MidStr(
-    list_offset.Items.Strings[list_offset.ItemIndex], 3, 8));
-  LoadRaw(Connection.GetRawInfo(fileid, dat_offset));
-end;
-
-
-
-
-function IntToBin(Value: Byte): String;
-var
-  i: Byte;
-begin
-  Result := '';
-  for i := 7 downto 0 do
-  begin
-    Result := Result + IntToStr((Value shr i) and $01);
-  end;
-end;
-
-
-
-
-function TForm_RawEdit.GetValue(datatype: Word; offset: LongWord): String;
-var
-  Data: Tdata;
-  i:    Word;
-  floatformat: TFormatSettings;
-begin
-  floatformat.DecimalSeparator := '.';
-  case datatype of
-    1:
-      Result := IntToStr(hex.Data[offset]);
-    2:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256);
-    3:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256);
-    4:
-      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] *
-        256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256);
-    5:
-      Result := '0x' + IntToHex(hex.Data[offset], 2);
-    6:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256, 4);
-    7:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
-        hex.Data[offset + 2] * 256 * 256, 6);
-    8:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
-        hex.Data[offset + 2] * 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256, 8);
-    9:
-    begin
-      SetLength(Data, 4);
-      Data[0] := hex.Data[offset];
-      Data[1] := hex.Data[offset + 1];
-      Data[2] := hex.Data[offset + 2];
-      Data[3] := hex.Data[offset + 3];
-      Result  := FloatToStr(Decode_Float(Data), floatformat);
-    end;
-    10:
-      Result := IntToBin(hex.Data[offset]);
-    11:
-      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
-        hex.Data[offset + 2] * 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256, 8);
-    10000..65535:
-    begin
-      Result := '';
-      for i := 1 to datatype - 10000 do
-      begin
-        if hex.Data[offset + i - 1] >= 32 then
-          Result := Result + Chr(hex.Data[offset + i - 1])
-        else
-          Result := Result + '.';
-      end;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.ClearValues;
-var
-  i: Byte;
-begin
-  for i := 1 to value_viewer.RowCount - 1 do
-  begin
-    value_viewer.Cells[1, i] := '';
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.WriteValues;
-var
-  i, j:  Integer;
-  Data:  Tdata;
-  str:   String;
-  Value: LongWord;
-  floatformat: TFormatSettings;
-begin
-  floatformat.DecimalSeparator := '.';
-  for i := 1 to value_viewer.RowCount - 1 do
-  begin
-    if value_viewer.Cells[0, i] = '1 byte, unsigned' then
-    begin
-      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 1) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart];
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 2);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = '2 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 2) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 4);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = '4 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-      begin
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
-          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
-        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 8);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Bitset' then
-    begin
-      if (hex.SelCount <= 8) then
-      begin
-        if hex.SelCount = 0 then
-        begin
-          SetLength(Data, 1);
-          Data[0] := hex.Data[hex.SelStart];
-        end
-        else
-        begin
-          SetLength(Data, hex.SelCount);
-          for j := 0 to hex.SelCount - 1 do
-            Data[j] := hex.Data[hex.SelStart + j];
-        end;
-        value_viewer.Cells[1, i] := DataToBin(Data);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Float' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-      begin
-        SetLength(Data, 4);
-        for j := 0 to 3 do
-          Data[j] := hex.Data[hex.SelStart + j];
-        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
-      end
-      else
-        value_viewer.Cells[1, i] := '';
-    end;
-    if value_viewer.Cells[0, i] = 'Selected length' then
-    begin
-      value_viewer.Cells[1, i] := IntToStr(hex.SelCount) + ' bytes';
-    end;
-    if value_viewer.Cells[0, i] = 'String' then
-    begin
-      j   := 0;
-      str := '';
-      if hex.SelCount = 0 then
-      begin
-        while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
-        begin
-          if hex.Data[hex.selstart + j] >= 32 then
-            str := str + Char(hex.Data[hex.SelStart + j])
-          else
-            str := str + '.';
-          Inc(j);
-        end;
-      end
-      else
-      begin
-        for j := 0 to hex.SelCount - 1 do
-          if hex.Data[hex.selstart + j] >= 32 then
-            str := str + Char(hex.Data[hex.SelStart + j])
-          else if hex.Data[hex.selstart + j] > 0 then
-            str := str + '.'
-          else
-            Break;
-      end;
-      value_viewer.Cells[1, i] := str;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.FormCreate(Sender: TObject);
-var
-  i:     LongWord;
-  exts: String;
-begin
-  inherited;
-  Self.OnNewFileSelected := Self.NewFile;
-
-  exts := '';
-  if Length(RawListHandlers) > 0 then
-  begin
-    for i := 0 to High(RawListHandlers) do
-      if Length(exts) > 0 then
-        exts := exts + ',' + RawListHandlers[i].Ext
-      else
-        exts := RawListHandlers[i].Ext;
-  end;
-  Self.AllowedExts := exts;
-
-  Self.Caption := '';
-  fileid     := -1;
-
-{
-  value_viewer.ColCount := 2;
-  value_viewer.RowCount := 8;
-}
-  value_viewer.FixedRows := 1;
-  value_viewer.FixedCols := 1;
-  value_viewer.Cells[0, 0] := 'Type';
-  value_viewer.Cells[1, 0] := 'Value';
-  value_viewer.Cells[0, 1] := '1 byte, unsigned';
-  value_viewer.Cells[0, 2] := '2 bytes, unsigned';
-  value_viewer.Cells[0, 3] := '4 bytes, unsigned';
-  value_viewer.Cells[0, 4] := 'Bitset';
-  value_viewer.Cells[0, 5] := 'Float';
-  value_viewer.Cells[0, 6] := 'String';
-  value_viewer.Cells[0, 7] := 'Selected length';
-  value_viewer.ColWidths[0] := 125;
-  value_viewer.ColWidths[1] := 1000;
-  //
-  value_viewer.Font.Charset := AppSettings.CharSet;
-  //
-end;
-
-
-
-
-function TForm_RawEdit.Save: Boolean;
-var
-  mem:  TMemoryStream;
-  Data: Tdata;
-  i:    LongWord;
-begin
-  case MessageBox(Self.Handle, PChar('Save changes to .raw-part of file ' +
-      Connection.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
-      MB_YESNOCANCEL) of
-    idYes:
-    begin
-      mem := TMemoryStream.Create;
-      hex.SaveToStream(mem);
-      mem.Seek(0, soFromBeginning);
-      SetLength(Data, mem.Size);
-      mem.Read(Data[0], mem.Size);
-      mem.Free;
-      Connection.UpdateRawFile(fileid_opened, dat_offset_opened,
-        Length(Data), @Data[0]);
-      hex.Modified := False;
-      for i := 0 to hex.Datasize - 1 do
-        hex.ByteChanged[i] := False;
-      Result := True;
-    end;
-    idNo:
-      Result := True;
-    idCancel:
-    begin
-      Result := False;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  if hex.Modified then
-  begin
-    if not Save then
-      CanClose := False;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.hexChange(Sender: TObject);
-begin
-  ClearValues;
-  if hex.DataSize > 0 then
-  begin
-{      WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
-      WriteValues;
-}    end;
-end;
-
-
-
-
-procedure TForm_RawEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-//var
-//  temps: String;
-begin
-  if (Shift = [ssCtrl]) and (Key = Ord('C')) then
-  begin
-    if hex.SelCount > 0 then
-    begin
-      if hex.InCharField then
-        Clipboard.AsText := hex.SelectionAsText
-      else
-        Clipboard.AsText := hex.SelectionAsHex;
-    end;
-  end;
-  if (Shift = [ssCtrl]) and (Key = Ord('V')) then
-  begin
-{      temps:=Clipboard.AsText;
-      IF hex.SelStart+Length(temps)>hex.DataSize THEN
-        SetLength(temps, hex.DataSize-hex.SelStart);
-      hex.Sel
-      hex.SelCount:=Length(temps);
-      hex.ReplaceSelection(temps,Length(temps));
-}    end;
-end;
-
-
-
-
-procedure TForm_RawEdit.hexSelectionChanged(Sender: TObject);
-//var
-//  selstart: Integer;
-//  i, j:     Word;
-begin
-{    FOR i:=1 TO structs.RowCount-1 DO BEGIN
-      FOR j:=0 TO structs.ColCount-1 DO BEGIN
-        structs.CellColors[j,i]:=clWhite;
-        structs.CellFontColors[j,i]:=clBlack;
-      END;
-    END;
-}    if hex.DataSize > 0 then
-  begin
-{      selstart:=hex.SelStart;
-      IF GetStructureInfoId(GetFileInfo(fileid).Extension)>=0 THEN BEGIN
-        WITH structure_infos[GetStructureInfoId(GetFileInfo(fileid).Extension)] DO BEGIN
-          FOR i:=0 TO High(entries) DO BEGIN
-            IF ((selstart-entries[i].offset)<GetTypeDataLength(entries[i].datatype)) AND ((selstart-entries[i].offset)>=0) THEN BEGIN
-              FOR j:=0 TO structs.ColCount-1 DO BEGIN
-                structs.CellColors[j,i+1]:=clBlue;
-                structs.CellFontColors[j,i+1]:=clWhite;
-              END;
-              structs.Row:=i+1;
-            END;
-          END;
-        END;
-      END;
-}      WriteValues;
-  end;
-end;
-
-
-
-
-
-procedure TForm_RawEdit.btn_exportClick(Sender: TObject);
-var
-  fs: TFileStream;
-begin
-  saved.Filter     := 'Files of matching extension (*.' + Connection.GetFileInfo(
-    fileid).Extension + ')|*.' + Connection.GetFileInfo(fileid).Extension +
-    '|All files|*.*';
-  saved.DefaultExt := Connection.GetFileInfo(fileid).Extension;
-  if saved.Execute then
-  begin
-    fs := TFileStream.Create(saved.FileName, fmCreate);
-    hex.SaveToStream(fs);
-    fs.Free;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.btn_importClick(Sender: TObject);
-var
-//  Data: Tdata;
-  fs:   TFileStream;
-begin
-  opend.Filter := 'Files of matching extension (*.' + Connection.GetFileInfo(
-    fileid).Extension + ')|*.' + Connection.GetFileInfo(fileid).Extension +
-    '|All files|*.*';
-  if opend.Execute then
-  begin
-    fs := TFileStream.Create(opend.FileName, fmOpenRead);
-    if fs.Size <> hex.DataSize then
-    begin
-      ShowMessage('Can''t import ' + ExtractFilename(opend.FileName) +
-        ', file has to have same size as file in .dat.' + CrLf +
-        'Size of file in .dat: ' + FormatFileSize(hex.datasize) + CrLf +
-        'Size of chosen file: ' + FormatFileSize(fs.Size));
-    end
-    else
-    begin
-      hex.LoadFromStream(fs);
-      hex.Modified := True;
-    end;
-    fs.Free;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.value_viewer_contextPopup(Sender: TObject);
-var
-  i: Byte;
-begin
-  for i := 0 to value_viewer_context.Items.Count - 1 do
-    value_viewer_context.Items.Items[i].Visible := False;
-  with value_viewer do
-  begin
-    if (Col = 1) and (Row > 0) and (Length(Cells[Col, Row]) > 0) then
-    begin
-      if Pos(' byte', Cells[0, Row]) = 2 then
-      begin
-        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
-        value_viewer_context.Items.Find('Copy to clipboard (as &dec)').Visible := True;
-        value_viewer_context.Items.Find('Copy to clipboard (as &hex)').Visible := True;
-      end;
-      if Pos('Float', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find('Copy to clipboard (as &float)').Visible := True;
-      if Pos('Bitset', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find(
-          'Copy to clipboard (as &bitset)').Visible := True;
-      if Pos('String', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find(
-          'Copy to clipboard (as &string)').Visible := True;
-      if Pos('Selected length', Cells[0, Row]) = 1 then
-        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-var
-  ACol, ARow: Integer;
-begin
-  if Button = mbRight then
-  begin
-    value_viewer.MouseToCell(x, y, ACol, ARow);
-    if ARow > 0 then
-    begin
-      value_viewer.Col := ACol;
-      value_viewer.Row := ARow;
-    end;
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.value_viewer_context_copyClick(Sender: TObject);
-var
-//  i:     Byte;
-  Name:  String;
-  Value: LongWord;
-begin
-  Name := TMenuItem(Sender).Name;
-  if Pos('asstring', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if Pos('asfloat', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if Pos('asbitset', Name) > 0 then
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end
-  else if (Pos('ashex', Name) > 0) or (Pos('asdec', Name) > 0) then
-  begin
-    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-    begin
-      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 1) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart];
-    end;
-    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 2) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
-    end;
-    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-    begin
-      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
-        ((hex.SelStart + 4) > hex.DataSize) then
-        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
-          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
-    end;
-    if Pos('asdec', Name) > 0 then
-    begin
-      Clipboard.AsText := IntToStr(Value);
-    end
-    else
-    begin
-      if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 2);
-      if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 4);
-      if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-        Clipboard.AsText := '0x' + IntToHex(Value, 8);
-    end;
-  end
-  else
-  begin
-    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
-var
-  Data: Tdata;
-  value_int: LongWord;
-  value_float: Single;
-  i: Word;
-begin
-  case datatype of
-    1..4:
-    begin
-      value_int := StrToInt(Value);
-      SetLength(Data, datatype);
-      for i := 0 to datatype - 1 do
-      begin
-        Data[i]   := value_int mod 256;
-        value_int := value_int div 256;
-      end;
-    end;
-    5..8:
-    begin
-      value_int := StrToInt('$' + Value);
-      SetLength(Data, datatype - 4);
-      for i := 0 to datatype - 5 do
-      begin
-        Data[i]   := value_int mod 256;
-        value_int := value_int div 256;
-      end;
-    end;
-    9:
-    begin
-      value_float := StrToFloat(Value);
-      Data := Encode_Float(value_float);
-    end;
-    10:
-    begin
-      value_int := BinToInt(Value);
-      SetLength(Data, 1);
-      Data[0] := value_int;
-    end;
-    10000..65535:
-    begin
-      SetLength(Data, datatype - 10000);
-      for i := 1 to datatype - 10000 do
-      begin
-        if i <= Length(Value) then
-          Data[i - 1] := Ord(Value[i])
-        else
-          Data[i - 1] := 0;
-      end;
-    end;
-  end;
-  for i := 0 to High(Data) do
-  begin
-    if hex.Data[offset + i] <> Data[i] then
-      hex.ByteChanged[offset + i] := True;
-    hex.Data[offset + i] := Data[i];
-  end;
-  hex.Modified := True;
-  hexChange(Self);
-  hex.Repaint;
-end;
-
-
-
-
-procedure TForm_RawEdit.value_viewerDblClick(Sender: TObject);
-var
-  offset:     LongWord;
-  datatype:   Word;
-  objectname: String;
-  Value:      String;
-begin
-  if (value_viewer.Col = 1) and (Length(value_viewer.Cells[1, value_viewer.Row]) > 0) then
-  begin
-    offset := hex.SelStart;
-    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
-      datatype := 1;
-    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
-      datatype := 2;
-    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
-      datatype := 4;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Bitset' then
-      datatype := 10;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Float' then
-      datatype := 9;
-    if value_viewer.Cells[0, value_viewer.Row] = 'Selected length' then
-      Exit;
-    if value_viewer.Cells[0, value_viewer.Row] = 'String' then
-    begin
-      if hex.SelCount > 0 then
-        datatype := 10000 + hex.SelCount
-      else
-        datatype := 10000 + Length(value_viewer.Cells[1, value_viewer.Row]);
-    end;
-    objectname := '';
-    Value      := GetValue(datatype, offset);
-    Form_ValueEdit.MakeVarInput(objectname, offset, datatype, Value, Self);
-  end;
-end;
-
-
-
-
-procedure TForm_RawEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-begin
-  if (Shift = [ssCtrl]) and (Key = 83) then
-    if hex.Modified then
-      if not Save then
-        Exit;
-end;
-
-begin
-  AddToolListEntry('rawedit', 'Binary .raw-Editor', '');
-end.