[46] | 1 | 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, OniDataClass, Functions, DataStructures, Exporters, Buttons; |
---|
| 8 | |
---|
| 9 | type |
---|
| 10 | TForm_BinEdit = class(TForm_ToolTemplate) |
---|
| 11 | hex: TMPHexEditor; |
---|
| 12 | Splitter2: TSplitter; |
---|
| 13 | value_viewer: TWrapGrid; |
---|
| 14 | VST: TVirtualStringTree; |
---|
| 15 | Splitter3: TSplitter; |
---|
| 16 | value_viewer_context: TPopupMenu; |
---|
| 17 | value_viewer_context_copy: TMenuItem; |
---|
| 18 | value_viewer_context_copyasdec: TMenuItem; |
---|
| 19 | value_viewer_context_copyasfloat: TMenuItem; |
---|
| 20 | value_viewer_context_copyasbitset: TMenuItem; |
---|
| 21 | value_viewer_context_copyasstring: TMenuItem; |
---|
| 22 | value_viewer_context_copyashex: TMenuItem; |
---|
| 23 | VTHPopup: TVTHeaderPopupMenu; |
---|
| 24 | procedure FormCreate(Sender: TObject); |
---|
| 25 | procedure NewFile(fileinfo: TFileInfo); |
---|
| 26 | |
---|
| 27 | procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); |
---|
| 28 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
---|
| 29 | |
---|
| 30 | procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); |
---|
| 31 | procedure hexSelectionChanged(Sender: TObject); |
---|
| 32 | procedure hexChange(Sender: TObject); |
---|
| 33 | |
---|
[92] | 34 | procedure LoadDat(_fileid: Integer); |
---|
[46] | 35 | function Save: Boolean; |
---|
| 36 | function GetValue(datatype: Word; offset: LongWord): String; |
---|
| 37 | procedure SetNewValue(datatype: Word; offset: LongWord; Value: String); |
---|
| 38 | |
---|
| 39 | procedure WriteStructureInfos; |
---|
| 40 | procedure ClearStructViewer; |
---|
| 41 | procedure VSTDblClick(Sender: TObject); |
---|
| 42 | procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; |
---|
| 43 | Column: TColumnIndex); |
---|
| 44 | procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree; |
---|
| 45 | const Column: TColumnIndex; Visible: Boolean); |
---|
| 46 | procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex; |
---|
| 47 | OldPosition: Integer); |
---|
| 48 | procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; |
---|
| 49 | Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString); |
---|
| 50 | |
---|
| 51 | procedure ClearValues; |
---|
| 52 | procedure WriteValues; |
---|
| 53 | procedure value_viewerDblClick(Sender: TObject); |
---|
| 54 | procedure value_viewer_context_copyClick(Sender: TObject); |
---|
| 55 | procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton; |
---|
| 56 | Shift: TShiftState; X, Y: Integer); |
---|
| 57 | procedure value_viewer_contextPopup(Sender: TObject); |
---|
| 58 | private |
---|
[92] | 59 | con: TOniData; |
---|
[87] | 60 | fileid: Integer; |
---|
[46] | 61 | public |
---|
| 62 | end; |
---|
| 63 | |
---|
| 64 | var |
---|
| 65 | Form_BinEdit: TForm_BinEdit; |
---|
| 66 | |
---|
| 67 | implementation |
---|
| 68 | |
---|
| 69 | uses Helper_ValueEdit, Main, RawEdit; |
---|
| 70 | {$R *.dfm} |
---|
| 71 | |
---|
| 72 | type |
---|
| 73 | PNodeData = ^TNodeData; |
---|
| 74 | |
---|
| 75 | TNodeData = record |
---|
| 76 | Caption: String; |
---|
| 77 | Offset: LongInt; |
---|
| 78 | DataType: Word; |
---|
| 79 | Value: String; |
---|
| 80 | Description: String; |
---|
| 81 | end; |
---|
| 82 | |
---|
| 83 | |
---|
| 84 | |
---|
| 85 | procedure TForm_BinEdit.FormCreate(Sender: TObject); |
---|
| 86 | begin |
---|
| 87 | inherited; |
---|
| 88 | Self.OnNewFileSelected := NewFile; |
---|
| 89 | |
---|
| 90 | Self.Caption := ''; |
---|
| 91 | fileid := 0; |
---|
| 92 | VST.NodeDataSize := SizeOf(TNodeData); |
---|
| 93 | value_viewer.ColCount := 2; |
---|
| 94 | value_viewer.RowCount := 8; |
---|
| 95 | value_viewer.FixedRows := 1; |
---|
[92] | 96 | value_viewer.FixedCols := 1; |
---|
[46] | 97 | value_viewer.Cells[0, 0] := 'Type'; |
---|
| 98 | value_viewer.Cells[1, 0] := 'Value'; |
---|
| 99 | value_viewer.Cells[0, 1] := '1 byte, unsigned'; |
---|
| 100 | value_viewer.Cells[0, 2] := '2 bytes, unsigned'; |
---|
| 101 | value_viewer.Cells[0, 3] := '4 bytes, unsigned'; |
---|
| 102 | value_viewer.Cells[0, 4] := 'Bitset'; |
---|
| 103 | value_viewer.Cells[0, 5] := 'Float'; |
---|
| 104 | value_viewer.Cells[0, 6] := 'String'; |
---|
| 105 | value_viewer.Cells[0, 7] := 'Selected length'; |
---|
[92] | 106 | value_viewer.ColWidths[0] := 120; |
---|
| 107 | value_viewer.ColWidths[1] := 1000; |
---|
[46] | 108 | // hex.Height := content.Height - 215; |
---|
| 109 | // |
---|
| 110 | value_viewer.Font.Charset := AppSettings.CharSet; |
---|
| 111 | VST.Font.Charset := AppSettings.CharSet; |
---|
| 112 | hex.Translation := tkAsIs; |
---|
| 113 | hex.Font.Charset := AppSettings.CharSet; |
---|
| 114 | // |
---|
| 115 | end; |
---|
| 116 | |
---|
| 117 | procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo); |
---|
| 118 | begin |
---|
| 119 | LoadDat(fileinfo.ID); |
---|
| 120 | end; |
---|
| 121 | |
---|
| 122 | |
---|
| 123 | |
---|
| 124 | |
---|
| 125 | function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; |
---|
| 126 | ARecord: TNodeData): PVirtualNode; |
---|
| 127 | var |
---|
| 128 | Data: PNodeData; |
---|
| 129 | begin |
---|
| 130 | Result := AVST.AddChild(ANode); |
---|
| 131 | Data := AVST.GetNodeData(Result); |
---|
| 132 | AVST.ValidateNode(Result, False); |
---|
| 133 | Data^ := ARecord; |
---|
| 134 | end; |
---|
| 135 | |
---|
| 136 | |
---|
| 137 | |
---|
| 138 | |
---|
[92] | 139 | procedure TForm_BinEdit.LoadDat(_fileid: Integer); |
---|
[46] | 140 | var |
---|
| 141 | mem: TMemoryStream; |
---|
| 142 | Data: Tdata; |
---|
| 143 | begin |
---|
[92] | 144 | if con <> nil then |
---|
[46] | 145 | begin |
---|
[92] | 146 | if hex.Modified then |
---|
[46] | 147 | begin |
---|
[92] | 148 | if not Save then |
---|
| 149 | begin |
---|
| 150 | Self.SelectFileID(Connection, fileid); |
---|
| 151 | Exit; |
---|
| 152 | end; |
---|
[46] | 153 | end; |
---|
| 154 | end; |
---|
[92] | 155 | if _fileid >= 0 then |
---|
[46] | 156 | begin |
---|
[92] | 157 | fileid := _fileid; |
---|
| 158 | con := Connection; |
---|
| 159 | if con.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]) <> fileid then |
---|
| 160 | Self.SelectFileID(Connection, fileid); |
---|
| 161 | Self.ClearStructViewer; |
---|
| 162 | Data := con.LoadDatFile(fileid); |
---|
| 163 | if Length(Data) > 0 then |
---|
| 164 | begin |
---|
| 165 | mem := TMemoryStream.Create; |
---|
| 166 | mem.Write(Data[0], Length(Data)); |
---|
| 167 | mem.Seek(0, soFromBeginning); |
---|
| 168 | hex.LoadFromStream(mem); |
---|
| 169 | mem.Free; |
---|
| 170 | WriteStructureInfos; |
---|
| 171 | end |
---|
| 172 | else |
---|
| 173 | begin |
---|
| 174 | ClearValues; |
---|
| 175 | hex.DataSize := 0; |
---|
| 176 | end; |
---|
[46] | 177 | end |
---|
| 178 | else |
---|
| 179 | begin |
---|
[92] | 180 | fileid := _fileid; |
---|
| 181 | con := nil; |
---|
| 182 | Self.ClearStructViewer; |
---|
[46] | 183 | ClearValues; |
---|
| 184 | hex.DataSize := 0; |
---|
| 185 | end; |
---|
| 186 | end; |
---|
| 187 | |
---|
| 188 | |
---|
| 189 | |
---|
| 190 | |
---|
| 191 | function IntToBin(Value: Byte): String; |
---|
| 192 | var |
---|
| 193 | i: Byte; |
---|
| 194 | begin |
---|
| 195 | Result := ''; |
---|
| 196 | for i := 7 downto 0 do |
---|
| 197 | begin |
---|
| 198 | Result := Result + IntToStr((Value shr i) and $01); |
---|
| 199 | end; |
---|
| 200 | end; |
---|
| 201 | |
---|
| 202 | |
---|
| 203 | |
---|
| 204 | |
---|
| 205 | function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String; |
---|
| 206 | var |
---|
| 207 | Data: Tdata; |
---|
| 208 | i: Word; |
---|
[75] | 209 | floatformat: TFormatSettings; |
---|
[46] | 210 | begin |
---|
[75] | 211 | floatformat.DecimalSeparator := '.'; |
---|
[46] | 212 | case datatype of |
---|
| 213 | 1: |
---|
| 214 | Result := IntToStr(hex.Data[offset]); |
---|
| 215 | 2: |
---|
| 216 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256); |
---|
| 217 | 3: |
---|
| 218 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256); |
---|
| 219 | 4: |
---|
| 220 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * |
---|
| 221 | 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256); |
---|
| 222 | 5: |
---|
| 223 | Result := '0x' + IntToHex(hex.Data[offset], 2); |
---|
| 224 | 6: |
---|
| 225 | Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256, 4); |
---|
| 226 | 7: |
---|
| 227 | Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 + |
---|
| 228 | hex.Data[offset + 2] * 256 * 256, 6); |
---|
| 229 | 8: |
---|
| 230 | Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 + |
---|
| 231 | hex.Data[offset + 2] * 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256, 8); |
---|
| 232 | 9: |
---|
| 233 | begin |
---|
| 234 | SetLength(Data, 4); |
---|
| 235 | Data[0] := hex.Data[offset]; |
---|
| 236 | Data[1] := hex.Data[offset + 1]; |
---|
| 237 | Data[2] := hex.Data[offset + 2]; |
---|
| 238 | Data[3] := hex.Data[offset + 3]; |
---|
[75] | 239 | Result := FloatToStr(Decode_Float(Data), floatformat); |
---|
[46] | 240 | end; |
---|
| 241 | 10: |
---|
| 242 | Result := IntToBin(hex.Data[offset]); |
---|
| 243 | 11: |
---|
[92] | 244 | Result := '0x' + IntToHex(con.GetRawInfo(fileid, offset).raw_addr, 8); |
---|
[46] | 245 | 12: |
---|
| 246 | Result := FormatNumber(hex.Data[offset + 1] + hex.Data[offset + 2] * 256 + |
---|
| 247 | hex.Data[offset + 3] * 256 * 256, 5, '0'); |
---|
| 248 | 13: |
---|
| 249 | Result := IntToStr(hex.Data[offset]); |
---|
| 250 | 14: |
---|
| 251 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256); |
---|
| 252 | 15: |
---|
| 253 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256); |
---|
| 254 | 16: |
---|
| 255 | Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * |
---|
| 256 | 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256); |
---|
| 257 | 17: |
---|
| 258 | Result := IntToStr((hex.Data[offset + 3]) div 2); |
---|
| 259 | 100..300: |
---|
| 260 | begin |
---|
| 261 | Result := ''; |
---|
| 262 | for i := 1 to datatype - 100 do |
---|
| 263 | begin |
---|
| 264 | if hex.Data[offset + i - 1] >= 32 then |
---|
| 265 | Result := Result + Chr(hex.Data[offset + i - 1]) |
---|
| 266 | else |
---|
| 267 | Break; |
---|
| 268 | end; |
---|
| 269 | end; |
---|
| 270 | 1000..9999: |
---|
| 271 | begin |
---|
| 272 | Result := ''; |
---|
| 273 | for i := 1 to datatype - 1000 do |
---|
| 274 | begin |
---|
| 275 | if hex.Data[offset + i - 1] >= 32 then |
---|
| 276 | Result := Result + Chr(hex.Data[offset + i - 1]) |
---|
| 277 | else |
---|
| 278 | Result := Result + '.'; |
---|
| 279 | end; |
---|
| 280 | end; |
---|
| 281 | 10000..65535: |
---|
| 282 | begin |
---|
| 283 | Result := ''; |
---|
| 284 | for i := 1 to datatype - 10000 do |
---|
| 285 | begin |
---|
| 286 | if hex.Data[offset + i - 1] >= 32 then |
---|
| 287 | Result := Result + Chr(hex.Data[offset + i - 1]) |
---|
| 288 | else |
---|
| 289 | Result := Result + '.'; |
---|
| 290 | end; |
---|
| 291 | end; |
---|
| 292 | end; |
---|
| 293 | end; |
---|
| 294 | |
---|
| 295 | |
---|
| 296 | |
---|
| 297 | |
---|
| 298 | procedure TForm_BinEdit.WriteStructureInfos; |
---|
| 299 | var |
---|
| 300 | i, j: LongWord; |
---|
| 301 | pdata: PNodeData; |
---|
| 302 | Data: TNodeData; |
---|
| 303 | node: PVirtualNode; |
---|
| 304 | structs: TStructDef; |
---|
| 305 | begin |
---|
| 306 | VST.BeginUpdate; |
---|
| 307 | if VST.RootNodeCount = 0 then |
---|
| 308 | begin |
---|
[92] | 309 | structs := LoadStructureDefinition(con, fileid); |
---|
[46] | 310 | if structs.Data then |
---|
| 311 | begin |
---|
| 312 | if Length(structs.Global) > 0 then |
---|
| 313 | begin |
---|
| 314 | for i := 0 to High(structs.Global) do |
---|
| 315 | begin |
---|
| 316 | Data.Caption := structs.Global[i].Name; |
---|
| 317 | Data.Offset := structs.Global[i].offset; |
---|
| 318 | Data.DataType := structs.Global[i].datatype; |
---|
| 319 | Data.Value := GetValue(structs.Global[i].datatype, structs.Global[i].offset); |
---|
| 320 | Data.Description := structs.Global[i].description; |
---|
| 321 | AddVSTEntry(VST, nil, Data); |
---|
| 322 | end; |
---|
| 323 | end; |
---|
| 324 | if Length(structs.Subs) > 0 then |
---|
| 325 | begin |
---|
| 326 | for i := 0 to High(structs.Subs) do |
---|
| 327 | begin |
---|
| 328 | with structs.Subs[i] do |
---|
| 329 | begin |
---|
| 330 | if Length(Entries) > 0 then |
---|
| 331 | begin |
---|
| 332 | if Pos('#', SubName) > 0 then |
---|
| 333 | begin |
---|
| 334 | Data.Offset := HexToLong(MidStr(SubName, Pos('#', SubName) + 1, 8)); |
---|
| 335 | Data.Value := |
---|
| 336 | MidStr(SubName, PosEx('#', SubName, Pos('#', SubName) + 1) + 1, 8); |
---|
| 337 | Data.Caption := MidStr(SubName, 1, Pos('#', SubName) - 1); |
---|
| 338 | Data.Description := SubDesc; |
---|
| 339 | end |
---|
| 340 | else |
---|
| 341 | begin |
---|
| 342 | Data.Caption := SubName; |
---|
| 343 | Data.Description := SubDesc; |
---|
| 344 | Data.Offset := 0; |
---|
| 345 | Data.Value := ''; |
---|
| 346 | end; |
---|
| 347 | Data.DataType := 0; |
---|
| 348 | node := AddVSTEntry(VST, nil, Data); |
---|
| 349 | Data.Description := ''; |
---|
| 350 | for j := 0 to High(Entries) do |
---|
| 351 | begin |
---|
| 352 | Data.Caption := Entries[j].Name; |
---|
| 353 | Data.Offset := Entries[j].offset; |
---|
| 354 | Data.DataType := Entries[j].datatype; |
---|
| 355 | Data.Value := GetValue(Entries[j].datatype, Entries[j].offset); |
---|
| 356 | Data.Description := Entries[j].description; |
---|
| 357 | AddVSTEntry(VST, node, Data); |
---|
| 358 | end; |
---|
| 359 | end; |
---|
| 360 | end; |
---|
| 361 | end; |
---|
| 362 | end; |
---|
| 363 | end; |
---|
| 364 | if VST.RootNodeCount > 0 then |
---|
| 365 | VST.FocusedNode := VST.GetFirst; |
---|
| 366 | end |
---|
| 367 | else |
---|
| 368 | begin |
---|
| 369 | Node := VST.GetFirst; |
---|
| 370 | while Assigned(Node) do |
---|
| 371 | begin |
---|
| 372 | pdata := VST.GetNodeData(Node); |
---|
| 373 | if pdata.DataType > 0 then |
---|
| 374 | pdata.Value := GetValue(pdata.Datatype, pdata.Offset); |
---|
| 375 | Node := VST.GetNext(Node); |
---|
| 376 | end; |
---|
| 377 | end; |
---|
| 378 | VST.EndUpdate; |
---|
| 379 | end; |
---|
| 380 | |
---|
| 381 | |
---|
| 382 | |
---|
| 383 | |
---|
| 384 | procedure TForm_BinEdit.ClearValues; |
---|
| 385 | var |
---|
| 386 | i: Byte; |
---|
| 387 | begin |
---|
| 388 | for i := 1 to value_viewer.RowCount - 1 do |
---|
| 389 | begin |
---|
| 390 | value_viewer.Cells[1, i] := ''; |
---|
| 391 | end; |
---|
| 392 | end; |
---|
| 393 | |
---|
| 394 | |
---|
| 395 | |
---|
| 396 | |
---|
| 397 | procedure TForm_BinEdit.WriteValues; |
---|
| 398 | var |
---|
| 399 | i, j: Byte; |
---|
| 400 | Data: Tdata; |
---|
| 401 | str: String; |
---|
| 402 | Value: LongWord; |
---|
[75] | 403 | floatformat: TFormatSettings; |
---|
[46] | 404 | begin |
---|
[75] | 405 | floatformat.DecimalSeparator := '.'; |
---|
[46] | 406 | for i := 1 to value_viewer.RowCount - 1 do |
---|
| 407 | begin |
---|
| 408 | if value_viewer.Cells[0, i] = '1 byte, unsigned' then |
---|
| 409 | begin |
---|
| 410 | if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not |
---|
| 411 | ((hex.SelStart + 1) > hex.DataSize) then |
---|
| 412 | begin |
---|
| 413 | Value := hex.Data[hex.SelStart]; |
---|
| 414 | value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 2); |
---|
| 415 | end |
---|
| 416 | else |
---|
| 417 | value_viewer.Cells[1, i] := ''; |
---|
| 418 | end; |
---|
| 419 | if value_viewer.Cells[0, i] = '2 bytes, unsigned' then |
---|
| 420 | begin |
---|
| 421 | if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not |
---|
| 422 | ((hex.SelStart + 2) > hex.DataSize) then |
---|
| 423 | begin |
---|
| 424 | Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256; |
---|
| 425 | value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 4); |
---|
| 426 | end |
---|
| 427 | else |
---|
| 428 | value_viewer.Cells[1, i] := ''; |
---|
| 429 | end; |
---|
| 430 | if value_viewer.Cells[0, i] = '4 bytes, unsigned' then |
---|
| 431 | begin |
---|
| 432 | if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not |
---|
| 433 | ((hex.SelStart + 4) > hex.DataSize) then |
---|
| 434 | begin |
---|
| 435 | Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 + |
---|
| 436 | hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256; |
---|
| 437 | value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 8); |
---|
| 438 | end |
---|
| 439 | else |
---|
| 440 | value_viewer.Cells[1, i] := ''; |
---|
| 441 | end; |
---|
| 442 | if value_viewer.Cells[0, i] = 'Bitset' then |
---|
| 443 | begin |
---|
| 444 | if (hex.SelCount <= 8) then |
---|
| 445 | begin |
---|
| 446 | if hex.SelCount = 0 then |
---|
| 447 | begin |
---|
| 448 | SetLength(Data, 1); |
---|
| 449 | Data[0] := hex.Data[hex.SelStart]; |
---|
| 450 | end |
---|
| 451 | else |
---|
| 452 | begin |
---|
| 453 | SetLength(Data, hex.SelCount); |
---|
| 454 | for j := 0 to hex.SelCount - 1 do |
---|
| 455 | Data[j] := hex.Data[hex.SelStart + j]; |
---|
| 456 | end; |
---|
| 457 | value_viewer.Cells[1, i] := DataToBin(Data); |
---|
| 458 | end |
---|
| 459 | else |
---|
| 460 | value_viewer.Cells[1, i] := ''; |
---|
| 461 | end; |
---|
| 462 | if value_viewer.Cells[0, i] = 'Float' then |
---|
| 463 | begin |
---|
| 464 | if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not |
---|
| 465 | ((hex.SelStart + 4) > hex.DataSize) then |
---|
| 466 | begin |
---|
| 467 | SetLength(Data, 4); |
---|
| 468 | for j := 0 to 3 do |
---|
| 469 | Data[j] := hex.Data[hex.SelStart + j]; |
---|
[75] | 470 | value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat); |
---|
[46] | 471 | end |
---|
| 472 | else |
---|
| 473 | value_viewer.Cells[1, i] := ''; |
---|
| 474 | end; |
---|
| 475 | if value_viewer.Cells[0, i] = 'Selected length' then |
---|
| 476 | begin |
---|
| 477 | value_viewer.Cells[1, i] := IntToStr(hex.SelCount) + ' bytes'; |
---|
| 478 | end; |
---|
| 479 | if value_viewer.Cells[0, i] = 'String' then |
---|
| 480 | begin |
---|
| 481 | j := 0; |
---|
| 482 | str := ''; |
---|
| 483 | if hex.SelCount = 0 then |
---|
| 484 | begin |
---|
| 485 | while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do |
---|
| 486 | begin |
---|
| 487 | if hex.Data[hex.selstart + j] >= 32 then |
---|
| 488 | str := str + Char(hex.Data[hex.SelStart + j]) |
---|
| 489 | else |
---|
| 490 | str := str + '.'; |
---|
| 491 | Inc(j); |
---|
| 492 | end; |
---|
| 493 | end |
---|
| 494 | else |
---|
| 495 | begin |
---|
| 496 | for j := 0 to hex.SelCount - 1 do |
---|
| 497 | if hex.Data[hex.selstart + j] >= 32 then |
---|
| 498 | str := str + Char(hex.Data[hex.SelStart + j]) |
---|
| 499 | else if hex.Data[hex.selstart + j] > 0 then |
---|
| 500 | str := str + '.' |
---|
| 501 | else |
---|
| 502 | Break; |
---|
| 503 | end; |
---|
| 504 | value_viewer.Cells[1, i] := str; |
---|
| 505 | end; |
---|
| 506 | end; |
---|
| 507 | end; |
---|
| 508 | |
---|
| 509 | |
---|
| 510 | |
---|
| 511 | |
---|
| 512 | function TForm_BinEdit.Save: Boolean; |
---|
| 513 | var |
---|
| 514 | mem: TMemoryStream; |
---|
| 515 | Data: Tdata; |
---|
| 516 | i: LongWord; |
---|
| 517 | begin |
---|
| 518 | case MessageBox(Self.Handle, PChar('Save changes to file ' + |
---|
[92] | 519 | con.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'), |
---|
[46] | 520 | MB_YESNOCANCEL) of |
---|
| 521 | idYes: |
---|
| 522 | begin |
---|
| 523 | mem := TMemoryStream.Create; |
---|
| 524 | hex.SaveToStream(mem); |
---|
| 525 | mem.Seek(0, soFromBeginning); |
---|
| 526 | SetLength(Data, mem.Size); |
---|
| 527 | mem.Read(Data[0], mem.Size); |
---|
| 528 | mem.Free; |
---|
[92] | 529 | con.UpdateDatFile(fileid, Data); |
---|
[46] | 530 | hex.Modified := False; |
---|
| 531 | for i := 0 to hex.Datasize - 1 do |
---|
| 532 | hex.ByteChanged[i] := False; |
---|
| 533 | Result := True; |
---|
| 534 | end; |
---|
| 535 | idNo: |
---|
| 536 | Result := True; |
---|
| 537 | idCancel: |
---|
| 538 | begin |
---|
| 539 | Result := False; |
---|
| 540 | end; |
---|
| 541 | end; |
---|
| 542 | end; |
---|
| 543 | |
---|
| 544 | |
---|
| 545 | |
---|
| 546 | |
---|
| 547 | procedure TForm_BinEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
---|
| 548 | begin |
---|
| 549 | if hex.Modified then |
---|
| 550 | begin |
---|
| 551 | if not Save then |
---|
| 552 | CanClose := False; |
---|
| 553 | end; |
---|
| 554 | end; |
---|
| 555 | |
---|
| 556 | |
---|
| 557 | |
---|
| 558 | |
---|
| 559 | procedure TForm_BinEdit.ClearStructViewer; |
---|
| 560 | begin |
---|
| 561 | VST.Clear; |
---|
| 562 | end; |
---|
| 563 | |
---|
| 564 | |
---|
| 565 | |
---|
| 566 | |
---|
| 567 | |
---|
| 568 | |
---|
| 569 | procedure TForm_BinEdit.hexChange(Sender: TObject); |
---|
| 570 | begin |
---|
| 571 | ClearValues; |
---|
| 572 | if hex.DataSize > 0 then |
---|
| 573 | begin |
---|
| 574 | WriteStructureInfos; |
---|
| 575 | WriteValues; |
---|
| 576 | end; |
---|
| 577 | end; |
---|
| 578 | |
---|
| 579 | |
---|
| 580 | |
---|
| 581 | |
---|
| 582 | procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); |
---|
[75] | 583 | //var |
---|
| 584 | // temps: String; |
---|
[46] | 585 | begin |
---|
| 586 | if (Shift = [ssCtrl]) and (Key = Ord('C')) then |
---|
| 587 | begin |
---|
| 588 | if hex.SelCount > 0 then |
---|
| 589 | begin |
---|
| 590 | if hex.InCharField then |
---|
| 591 | Clipboard.AsText := hex.SelectionAsText |
---|
| 592 | else |
---|
| 593 | Clipboard.AsText := hex.SelectionAsHex; |
---|
| 594 | end; |
---|
| 595 | end; |
---|
| 596 | if (Shift = [ssCtrl]) and (Key = Ord('V')) then |
---|
| 597 | begin |
---|
| 598 | { temps:=Clipboard.AsText; |
---|
| 599 | IF hex.SelStart+Length(temps)>hex.DataSize THEN |
---|
| 600 | SetLength(temps, hex.DataSize-hex.SelStart); |
---|
| 601 | hex.Sel |
---|
| 602 | hex.SelCount:=Length(temps); |
---|
| 603 | hex.ReplaceSelection(temps,Length(temps)); |
---|
| 604 | } end; |
---|
| 605 | end; |
---|
| 606 | |
---|
| 607 | |
---|
| 608 | |
---|
| 609 | |
---|
| 610 | procedure TForm_BinEdit.hexSelectionChanged(Sender: TObject); |
---|
| 611 | var |
---|
| 612 | selstart: Integer; |
---|
| 613 | node: PVirtualNode; |
---|
| 614 | pdata: PNodeData; |
---|
| 615 | begin |
---|
| 616 | if hex.DataSize > 0 then |
---|
| 617 | begin |
---|
| 618 | WriteValues; |
---|
| 619 | selstart := hex.SelStart; |
---|
| 620 | if VST.RootNodeCount > 0 then |
---|
| 621 | begin |
---|
| 622 | Node := VST.GetFirst; |
---|
| 623 | while Assigned(Node) do |
---|
| 624 | begin |
---|
| 625 | pdata := VST.GetNodeData(Node); |
---|
| 626 | if pdata.DataType > 0 then |
---|
| 627 | begin |
---|
| 628 | if ((selstart - pdata.Offset) < GetTypeDataLength(pdata.DataType)) and |
---|
| 629 | ((selstart - pdata.Offset) >= 0) then |
---|
| 630 | begin |
---|
| 631 | VST.FocusedNode := Node; |
---|
| 632 | VST.Selected[Node] := True; |
---|
| 633 | Break; |
---|
| 634 | end; |
---|
| 635 | end; |
---|
| 636 | Node := VST.GetNext(Node); |
---|
| 637 | end; |
---|
| 638 | end; |
---|
| 639 | end; |
---|
| 640 | end; |
---|
| 641 | |
---|
| 642 | |
---|
| 643 | |
---|
| 644 | |
---|
| 645 | procedure TForm_BinEdit.value_viewer_contextPopup(Sender: TObject); |
---|
| 646 | var |
---|
| 647 | i: Byte; |
---|
| 648 | begin |
---|
| 649 | for i := 0 to value_viewer_context.Items.Count - 1 do |
---|
| 650 | value_viewer_context.Items.Items[i].Visible := False; |
---|
| 651 | with value_viewer do |
---|
| 652 | begin |
---|
| 653 | if (Col = 1) and (Row > 0) and (Length(Cells[Col, Row]) > 0) then |
---|
| 654 | begin |
---|
| 655 | if Pos(' byte', Cells[0, Row]) = 2 then |
---|
| 656 | begin |
---|
| 657 | value_viewer_context.Items.Find('Copy to &clipboard').Visible := True; |
---|
| 658 | value_viewer_context.Items.Find('Copy to clipboard (as &dec)').Visible := True; |
---|
| 659 | value_viewer_context.Items.Find('Copy to clipboard (as &hex)').Visible := True; |
---|
| 660 | end; |
---|
| 661 | if Pos('Float', Cells[0, Row]) = 1 then |
---|
| 662 | value_viewer_context.Items.Find('Copy to clipboard (as &float)').Visible := True; |
---|
| 663 | if Pos('Bitset', Cells[0, Row]) = 1 then |
---|
| 664 | value_viewer_context.Items.Find( |
---|
| 665 | 'Copy to clipboard (as &bitset)').Visible := True; |
---|
| 666 | if Pos('String', Cells[0, Row]) = 1 then |
---|
| 667 | value_viewer_context.Items.Find( |
---|
| 668 | 'Copy to clipboard (as &string)').Visible := True; |
---|
| 669 | if Pos('Selected length', Cells[0, Row]) = 1 then |
---|
| 670 | value_viewer_context.Items.Find('Copy to &clipboard').Visible := True; |
---|
| 671 | end; |
---|
| 672 | end; |
---|
| 673 | end; |
---|
| 674 | |
---|
| 675 | |
---|
| 676 | |
---|
| 677 | |
---|
| 678 | procedure TForm_BinEdit.value_viewerMouseDown(Sender: TObject; Button: TMouseButton; |
---|
| 679 | Shift: TShiftState; X, Y: Integer); |
---|
| 680 | var |
---|
| 681 | ACol, ARow: Integer; |
---|
| 682 | begin |
---|
| 683 | if Button = mbRight then |
---|
| 684 | begin |
---|
| 685 | value_viewer.MouseToCell(x, y, ACol, ARow); |
---|
| 686 | if ARow > 0 then |
---|
| 687 | begin |
---|
| 688 | value_viewer.Col := ACol; |
---|
| 689 | value_viewer.Row := ARow; |
---|
| 690 | end; |
---|
| 691 | end; |
---|
| 692 | end; |
---|
| 693 | |
---|
| 694 | |
---|
| 695 | |
---|
| 696 | |
---|
| 697 | procedure TForm_BinEdit.value_viewer_context_copyClick(Sender: TObject); |
---|
| 698 | var |
---|
| 699 | Name: String; |
---|
| 700 | Value: LongWord; |
---|
| 701 | begin |
---|
| 702 | Name := TMenuItem(Sender).Name; |
---|
| 703 | if Pos('asstring', Name) > 0 then |
---|
| 704 | begin |
---|
| 705 | Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row]; |
---|
| 706 | end |
---|
| 707 | else if Pos('asfloat', Name) > 0 then |
---|
| 708 | begin |
---|
| 709 | Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row]; |
---|
| 710 | end |
---|
| 711 | else if Pos('asbitset', Name) > 0 then |
---|
| 712 | begin |
---|
| 713 | Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row]; |
---|
| 714 | end |
---|
| 715 | else if (Pos('ashex', Name) > 0) or (Pos('asdec', Name) > 0) then |
---|
| 716 | begin |
---|
| 717 | if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then |
---|
| 718 | begin |
---|
| 719 | if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not |
---|
| 720 | ((hex.SelStart + 1) > hex.DataSize) then |
---|
| 721 | Value := hex.Data[hex.SelStart]; |
---|
| 722 | end; |
---|
| 723 | if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then |
---|
| 724 | begin |
---|
| 725 | if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not |
---|
| 726 | ((hex.SelStart + 2) > hex.DataSize) then |
---|
| 727 | Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256; |
---|
| 728 | end; |
---|
| 729 | if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then |
---|
| 730 | begin |
---|
| 731 | if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not |
---|
| 732 | ((hex.SelStart + 4) > hex.DataSize) then |
---|
| 733 | Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 + |
---|
| 734 | hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256; |
---|
| 735 | end; |
---|
| 736 | if Pos('asdec', Name) > 0 then |
---|
| 737 | begin |
---|
| 738 | Clipboard.AsText := IntToStr(Value); |
---|
| 739 | end |
---|
| 740 | else |
---|
| 741 | begin |
---|
| 742 | if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then |
---|
| 743 | Clipboard.AsText := '0x' + IntToHex(Value, 2); |
---|
| 744 | if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then |
---|
| 745 | Clipboard.AsText := '0x' + IntToHex(Value, 4); |
---|
| 746 | if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then |
---|
| 747 | Clipboard.AsText := '0x' + IntToHex(Value, 8); |
---|
| 748 | end; |
---|
| 749 | end |
---|
| 750 | else |
---|
| 751 | begin |
---|
| 752 | Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row]; |
---|
| 753 | end; |
---|
| 754 | end; |
---|
| 755 | |
---|
| 756 | |
---|
| 757 | |
---|
| 758 | |
---|
| 759 | procedure TForm_BinEdit.VSTDblClick(Sender: TObject); |
---|
| 760 | var |
---|
| 761 | node: PVirtualNode; |
---|
| 762 | nodedata: PNodeData; |
---|
| 763 | form: TForm_ToolTemplate; |
---|
| 764 | begin |
---|
| 765 | if VST.FocusedColumn = 3 then |
---|
| 766 | begin |
---|
| 767 | node := VST.FocusedNode; |
---|
| 768 | nodedata := VST.GetNodeData(node); |
---|
| 769 | |
---|
| 770 | if not (nodedata.datatype in [11, 12]) and |
---|
| 771 | ((nodedata.DataType < 100) or (nodedata.DataType > 300)) then |
---|
| 772 | begin |
---|
| 773 | Form_ValueEdit.MakeVarInput(nodedata.Caption, nodedata.offset, |
---|
| 774 | nodedata.datatype, nodedata.Value, Self); |
---|
| 775 | end |
---|
| 776 | else |
---|
| 777 | begin |
---|
| 778 | if nodedata.DataType = 11 then |
---|
| 779 | begin |
---|
[92] | 780 | if con.GetRawInfo(fileid, nodedata.offset).raw_size > 0 then |
---|
| 781 | Form_Main.open_child('rawedit', Connection, fileid); |
---|
[46] | 782 | end; |
---|
| 783 | if nodedata.DataType = 12 then |
---|
| 784 | begin |
---|
[92] | 785 | if (StrToInt(nodedata.Value) < con.GetFilesCount) and |
---|
[46] | 786 | (StrToInt(nodedata.Value) > 0) and |
---|
| 787 | (StrToInt(nodedata.Value) <> fileid) then |
---|
| 788 | begin |
---|
[92] | 789 | if con.GetFileInfo(StrToInt(nodedata.Value)).Size > 0 then |
---|
| 790 | Form_Main.open_child('binedit', Connection, StrToInt(nodedata.Value)) |
---|
[46] | 791 | else |
---|
| 792 | ShowMessage('Linked filed is a zero-byte-file'); |
---|
| 793 | end; |
---|
| 794 | end; |
---|
| 795 | if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then |
---|
| 796 | begin |
---|
[92] | 797 | form := Form_Main.open_child('binedit', Connection, -1); |
---|
[46] | 798 | if Assigned(form) then |
---|
| 799 | form.SetFileFilters(nodedata.Value, '', False); |
---|
| 800 | end; |
---|
| 801 | end; |
---|
| 802 | |
---|
| 803 | end; |
---|
| 804 | end; |
---|
| 805 | |
---|
| 806 | |
---|
| 807 | |
---|
| 808 | |
---|
| 809 | procedure TForm_BinEdit.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; |
---|
| 810 | Column: TColumnIndex); |
---|
| 811 | var |
---|
| 812 | Data: PNodeData; |
---|
| 813 | begin |
---|
| 814 | Data := VST.GetNodeData(node); |
---|
| 815 | if Data.DataType > 0 then |
---|
| 816 | begin |
---|
| 817 | hex.SelStart := Data.Offset; |
---|
| 818 | hex.SelEnd := Data.Offset + GetTypeDataLength(Data.DataType) - 1; |
---|
| 819 | end |
---|
| 820 | else |
---|
| 821 | begin |
---|
| 822 | hex.SelStart := Data.Offset; |
---|
| 823 | hex.SelEnd := Data.Offset + HexToLong(Data.Value) - 1; |
---|
| 824 | end; |
---|
| 825 | end; |
---|
| 826 | |
---|
| 827 | |
---|
| 828 | |
---|
| 829 | |
---|
| 830 | procedure TForm_BinEdit.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; |
---|
| 831 | Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString); |
---|
| 832 | var |
---|
| 833 | Data: PNodeData; |
---|
| 834 | begin |
---|
| 835 | Data := Sender.GetNodeData(Node); |
---|
| 836 | CellText := ''; |
---|
| 837 | if TextType = ttNormal then |
---|
| 838 | begin |
---|
| 839 | case Column of |
---|
| 840 | 0: |
---|
| 841 | CellText := Data.Caption; |
---|
| 842 | 1: |
---|
| 843 | if Data.DataType > 0 then |
---|
| 844 | CellText := '0x' + IntToHex(Data.Offset, 8) |
---|
| 845 | else if Data.Offset > 0 then |
---|
| 846 | CellText := '0x' + IntToHex(Data.Offset, 8); |
---|
| 847 | 2: |
---|
| 848 | if Data.DataType > 0 then |
---|
| 849 | CellText := GetDataType(Data.DataType); |
---|
| 850 | 3: |
---|
| 851 | if Data.DataType > 0 then |
---|
| 852 | CellText := Data.Value //GetValue(data.DataType, data.Offset) |
---|
| 853 | else if Length(Data.Value) > 0 then |
---|
| 854 | CellText := IntToStr(HexToLong(Data.Value)) + ' Bytes'; |
---|
| 855 | 4: |
---|
| 856 | CellText := Data.Description; |
---|
| 857 | end; |
---|
| 858 | end; |
---|
| 859 | end; |
---|
| 860 | |
---|
| 861 | |
---|
| 862 | |
---|
| 863 | |
---|
| 864 | procedure TForm_BinEdit.VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex; |
---|
| 865 | OldPosition: Integer); |
---|
| 866 | begin |
---|
| 867 | if Sender.Columns.Items[column].Position < 1 then |
---|
| 868 | Sender.Columns.Items[column].Position := OldPosition; |
---|
| 869 | end; |
---|
| 870 | |
---|
| 871 | |
---|
| 872 | |
---|
| 873 | |
---|
| 874 | procedure TForm_BinEdit.VTHPopupColumnChange(const Sender: TBaseVirtualTree; |
---|
| 875 | const Column: TColumnIndex; Visible: Boolean); |
---|
| 876 | begin |
---|
| 877 | if column = 0 then |
---|
| 878 | TVirtualStringTree(Sender).Header.Columns.Items[column].Options := |
---|
| 879 | TVirtualStringTree(Sender).Header.Columns.Items[column].Options + [coVisible]; |
---|
| 880 | end; |
---|
| 881 | |
---|
| 882 | |
---|
| 883 | |
---|
| 884 | |
---|
| 885 | procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String); |
---|
| 886 | var |
---|
| 887 | Data: Tdata; |
---|
| 888 | value_int: LongWord; |
---|
| 889 | value_float: Single; |
---|
| 890 | i: Word; |
---|
| 891 | begin |
---|
| 892 | case datatype of |
---|
| 893 | 1..4: |
---|
| 894 | begin |
---|
| 895 | value_int := StrToInt(Value); |
---|
| 896 | SetLength(Data, datatype); |
---|
| 897 | for i := 0 to datatype - 1 do |
---|
| 898 | begin |
---|
| 899 | Data[i] := value_int mod 256; |
---|
| 900 | value_int := value_int div 256; |
---|
| 901 | end; |
---|
| 902 | end; |
---|
| 903 | 5..8: |
---|
| 904 | begin |
---|
| 905 | value_int := StrToInt('$' + Value); |
---|
| 906 | SetLength(Data, datatype - 4); |
---|
| 907 | for i := 0 to datatype - 5 do |
---|
| 908 | begin |
---|
| 909 | Data[i] := value_int mod 256; |
---|
| 910 | value_int := value_int div 256; |
---|
| 911 | end; |
---|
| 912 | end; |
---|
| 913 | 9: |
---|
| 914 | begin |
---|
| 915 | value_float := StrToFloat(Value); |
---|
| 916 | Data := Encode_Float(value_float); |
---|
| 917 | end; |
---|
| 918 | 10: |
---|
| 919 | begin |
---|
| 920 | value_int := BinToInt(Value); |
---|
| 921 | SetLength(Data, 1); |
---|
| 922 | Data[0] := value_int; |
---|
| 923 | end; |
---|
| 924 | 10000..65535: |
---|
| 925 | begin |
---|
| 926 | SetLength(Data, datatype - 10000); |
---|
| 927 | for i := 1 to datatype - 10000 do |
---|
| 928 | begin |
---|
| 929 | if i <= Length(Value) then |
---|
| 930 | Data[i - 1] := Ord(Value[i]) |
---|
| 931 | else |
---|
| 932 | Data[i - 1] := 0; |
---|
| 933 | end; |
---|
| 934 | end; |
---|
| 935 | end; |
---|
| 936 | for i := 0 to High(Data) do |
---|
| 937 | begin |
---|
| 938 | if hex.Data[offset + i] <> Data[i] then |
---|
| 939 | hex.ByteChanged[offset + i] := True; |
---|
| 940 | hex.Data[offset + i] := Data[i]; |
---|
| 941 | end; |
---|
| 942 | hex.Modified := True; |
---|
| 943 | hexChange(Self); |
---|
| 944 | hex.Repaint; |
---|
| 945 | end; |
---|
| 946 | |
---|
| 947 | |
---|
| 948 | |
---|
| 949 | |
---|
| 950 | procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject); |
---|
| 951 | var |
---|
| 952 | offset: LongWord; |
---|
| 953 | datatype: Word; |
---|
| 954 | objectname: String; |
---|
| 955 | Value: String; |
---|
| 956 | begin |
---|
| 957 | if (value_viewer.Col = 1) and (Length(value_viewer.Cells[1, value_viewer.Row]) > 0) then |
---|
| 958 | begin |
---|
| 959 | offset := hex.SelStart; |
---|
| 960 | if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then |
---|
| 961 | datatype := 1; |
---|
| 962 | if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then |
---|
| 963 | datatype := 2; |
---|
| 964 | if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then |
---|
| 965 | datatype := 4; |
---|
| 966 | if value_viewer.Cells[0, value_viewer.Row] = 'Bitset' then |
---|
| 967 | datatype := 10; |
---|
| 968 | if value_viewer.Cells[0, value_viewer.Row] = 'Float' then |
---|
| 969 | datatype := 9; |
---|
| 970 | if value_viewer.Cells[0, value_viewer.Row] = 'Selected length' then |
---|
| 971 | Exit; |
---|
| 972 | if value_viewer.Cells[0, value_viewer.Row] = 'String' then |
---|
| 973 | begin |
---|
| 974 | if hex.SelCount > 0 then |
---|
| 975 | datatype := 10000 + hex.SelCount |
---|
| 976 | else |
---|
| 977 | datatype := 10000 + Length(value_viewer.Cells[1, value_viewer.Row]); |
---|
| 978 | end; |
---|
| 979 | objectname := ''; |
---|
| 980 | Value := GetValue(datatype, offset); |
---|
| 981 | Form_ValueEdit.MakeVarInput(objectname, offset, datatype, Value, Self); |
---|
| 982 | end; |
---|
| 983 | end; |
---|
| 984 | |
---|
| 985 | |
---|
| 986 | |
---|
| 987 | |
---|
| 988 | procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); |
---|
| 989 | begin |
---|
| 990 | if (Shift = [ssCtrl]) and (Key = 83) then |
---|
| 991 | if hex.Modified then |
---|
| 992 | if not Save then |
---|
| 993 | Exit; |
---|
| 994 | end; |
---|
| 995 | |
---|
| 996 | |
---|
| 997 | begin |
---|
| 998 | AddToolListEntry('binedit', 'Binary .dat-Editor', ''); |
---|
| 999 | end. |
---|