Index: oup/current/Tools/RawEdit.dfm =================================================================== --- oup/current/Tools/RawEdit.dfm (revision 68) +++ oup/current/Tools/RawEdit.dfm (revision 68) @@ -0,0 +1,199 @@ +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 = 76 + ExplicitHeight = 76 + 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 + OnResize = panel_contentResize + 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 = 1 + 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 + 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/current/Tools/RawEdit.pas =================================================================== --- oup/current/Tools/RawEdit.pas (revision 68) +++ oup/current/Tools/RawEdit.pas (revision 68) @@ -0,0 +1,818 @@ +unit RawEdit; +interface +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, Template, StdCtrls, ExtCtrls, Menus, Grids, Wrapgrid, + MPHexEditor, Clipbrd, StrUtils, + Data, Functions, DataStructures, Exporters, OniDataClass, 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: TRawInfo); + 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); + + procedure panel_contentResize(Sender: TObject); + + 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: LongWord; + 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 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 := OniDataConnection.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; + +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 OniDataConnection.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); + OniDataConnection.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); +var + i: LongWord; + raw_info: TRawInfo; +begin + ClearValues; + dat_offset := StrToInt('$' + MidStr( + list_offset.Items.Strings[list_offset.ItemIndex], 3, 8)); + LoadRaw(OniDataConnection.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; +begin + 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)); + 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: Byte; + Data: Tdata; + str: String; + Value: LongWord; +begin + 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)); + 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.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] := 100; + // + 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 ' + + OniDataConnection.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; + OniDataConnection.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.panel_contentResize(Sender: TObject); +begin +// value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28; +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)=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 (*.' + OniDataConnection.GetFileInfo( + fileid).Extension + ')|*.' + OniDataConnection.GetFileInfo(fileid).Extension + + '|All files|*.*'; + saved.DefaultExt := OniDataConnection.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 (*.' + OniDataConnection.GetFileInfo( + fileid).Extension + ')|*.' + OniDataConnection.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.