source: oup/current/Tool_BinEdit.pas @ 43

Last change on this file since 43 was 43, checked in by alloc, 17 years ago

DevTree 0.33a.
File size: 32.5 KB
Line 
1unit Tool_BinEdit;
2
3interface
4
5uses
6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7  Dialogs, Wrapgrid, StdCtrls, Grids, StrUtils, MPHexEditor, ExtCtrls, Clipbrd,
8  Data, Code_Functions, Code_DataStructures, Code_Exporters, Code_OniDataClass,
9  Menus, Math, VirtualTrees, VTHeaderPopup;
10
11type
12  TForm_BinEdit = class(TForm)
13    Splitter1: TSplitter;
14    panel_data: TPanel;
15    hex:      TMPHexEditor;
16    Splitter2: TSplitter;
17    panel_files: TPanel;
18    list:     TListBox;
19    panel_extension: TPanel;
20    lbl_filter: TLabel;
21    combo_extension: TComboBox;
22    Bevel1:   TBevel;
23    panel_imexport: TPanel;
24    btn_export: TButton;
25    btn_import: TButton;
26    opend:    TOpenDialog;
27    saved:    TSaveDialog;
28    value_viewer: TWrapGrid;
29    Splitter3: TSplitter;
30    value_viewer_context: TPopupMenu;
31    value_viewer_context_copy: TMenuItem;
32    value_viewer_context_copyashex: TMenuItem;
33    value_viewer_context_copyasdec: TMenuItem;
34    value_viewer_context_copyasfloat: TMenuItem;
35    value_viewer_context_copyasbitset: TMenuItem;
36    value_viewer_context_copyasstring: TMenuItem;
37    check_zerobyte: TCheckBox;
38    edit_filtername: TEdit;
39    check_filtername: TCheckBox;
40    VST:      TVirtualStringTree;
41    VTHPopup: TVTHeaderPopupMenu;
42    procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
43      Column: TColumnIndex);
44    procedure VSTDblClick(Sender: TObject);
45    procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree;
46      const Column: TColumnIndex; Visible: Boolean);
47    procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
48      OldPosition: Integer);
49    procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
50      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
51    procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
52    procedure LoadDat(_fileid: LongWord);
53    procedure LoadFileNames;
54    procedure check_filternameClick(Sender: TObject);
55    procedure check_zerobyteClick(Sender: TObject);
56    procedure combo_extensionClick(Sender: TObject);
57    procedure panel_extensionResize(Sender: TObject);
58    procedure listClick(Sender: TObject);
59    procedure Recreatelist;
60
61    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
62    procedure value_viewerDblClick(Sender: TObject);
63    procedure value_viewer_context_copyClick(Sender: TObject);
64    procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
65      Shift: TShiftState; X, Y: Integer);
66    procedure value_viewer_contextPopup(Sender: TObject);
67    procedure btn_importClick(Sender: TObject);
68    procedure btn_exportClick(Sender: TObject);
69    procedure panel_imexportResize(Sender: TObject);
70    function Save: Boolean;
71    procedure FormClose(Sender: TObject; var Action: TCloseAction);
72    function GetValue(datatype: Word; offset: LongWord): String;
73    procedure WriteStructureInfos; //(structinfoid:Integer);
74    procedure hexSelectionChanged(Sender: TObject);
75    procedure hexChange(Sender: TObject);
76    procedure FormResize(Sender: TObject);
77    procedure ClearStructViewer;
78    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
79    procedure FormCreate(Sender: TObject);
80    procedure ClearValues;
81    procedure WriteValues;
82    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
83    procedure listMouseDown(Sender: TObject; Button: TMouseButton;
84      Shift: TShiftState; X, Y: Integer);
85  private
86    fileid: LongWord;
87  public
88  end;
89
90var
91  Form_BinEdit: TForm_BinEdit;
92
93implementation
94
95{$R *.dfm}
96
97uses Main, Helper_ValueEdit, Tool_Rawedit;
98
99type
100  PNodeData = ^TNodeData;
101
102  TNodeData = record
103    Caption:  String;
104    Offset:   LongInt;
105    DataType: Word;
106    Value:    String;
107    Description: String;
108  end;
109
110
111
112
113function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
114  ARecord: TNodeData): PVirtualNode;
115var
116  Data: PNodeData;
117begin
118  Result := AVST.AddChild(ANode);
119  Data   := AVST.GetNodeData(Result);
120  AVST.ValidateNode(Result, False);
121  Data^ := ARecord;
122end;
123
124
125
126
127procedure TForm_BinEdit.LoadDat(_fileid: LongWord);
128var
129  i:    LongWord;
130  mem:  TMemoryStream;
131  Data: Tdata;
132begin
133  if hex.Modified then
134  begin
135    if not Save then
136    begin
137      for i := 0 to list.Count - 1 do
138      begin
139        if OniDataConnection.ExtractFileID(list.Items.Strings[i]) = fileid then
140        begin
141          list.ItemIndex := i;
142          Exit;
143        end;
144      end;
145    end;
146  end;
147  fileid := _fileid;
148  for i := 0 to list.Count - 1 do
149    if OniDataConnection.ExtractFileID(list.Items.Strings[i]) = fileid then
150    begin
151      list.ItemIndex := i;
152      Break;
153    end;
154  Self.ClearStructViewer;
155  Data := OniDataConnection.LoadDatFile(fileid);
156  if Length(Data) > 0 then
157  begin
158    mem := TMemoryStream.Create;
159    mem.Write(Data[0], Length(Data));
160    mem.Seek(0, soFromBeginning);
161    hex.LoadFromStream(mem);
162    mem.Free;
163    WriteStructureInfos;
164  end
165  else
166  begin
167    ClearValues;
168    hex.DataSize := 0;
169  end;
170end;
171
172
173
174
175procedure TForm_BinEdit.Recreatelist;
176var
177  i:    LongWord;
178  exts: TStringArray;
179begin
180  combo_extension.Items.Clear;
181  combo_extension.Items.Add('_All files_ (' + IntToStr(
182    OniDataConnection.GetFilesCount) + ')');
183  exts := OniDataConnection.GetExtensionsList;
184  for i := 0 to High(exts) do
185    combo_extension.Items.Add(exts[i]);
186  combo_extension.ItemIndex := 0;
187  combo_extensionClick(Self);
188end;
189
190
191
192
193procedure TForm_BinEdit.LoadFileNames;
194var
195  Extension: String[4];
196  no_zero_bytes: Boolean;
197  pattern: String;
198  files: TStringArray;
199  i: LongWord;
200begin
201  Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
202  no_zero_bytes := not check_zerobyte.Checked;
203  pattern := '';
204  if check_filtername.Checked then
205    pattern := edit_filtername.Text;
206  if Extension = '_All' then
207    Extension := '';
208
209  files := OniDataConnection.GetFilesList(extension, pattern, no_zero_bytes);
210  list.Items.Clear;
211  if Length(files) > 0 then
212    for i := 0 to High(files) do
213      list.Items.Add(files[i]);
214end;
215
216
217
218
219procedure TForm_BinEdit.panel_extensionResize(Sender: TObject);
220begin
221  combo_extension.Width := panel_extension.Width - 5;
222  edit_filtername.Width := panel_extension.Width - 5;
223end;
224
225
226
227
228procedure TForm_BinEdit.combo_extensionClick(Sender: TObject);
229begin
230  LoadFileNames;
231end;
232
233
234
235
236procedure TForm_BinEdit.check_zerobyteClick(Sender: TObject);
237begin
238  LoadFileNames;
239end;
240
241
242
243
244procedure TForm_BinEdit.check_filternameClick(Sender: TObject);
245begin
246  edit_filtername.Enabled := not check_filtername.Checked;
247  LoadFileNames;
248end;
249
250
251
252
253procedure TForm_BinEdit.listClick(Sender: TObject);
254begin
255  LoadDat(OniDataConnection.ExtractFileID(list.Items.Strings[list.ItemIndex]));
256end;
257
258
259
260
261procedure TForm_BinEdit.listMouseDown(Sender: TObject; Button: TMouseButton;
262  Shift: TShiftState; X, Y: Integer);
263var
264  pt: TPoint;
265begin
266  pt.X := x;
267  pt.Y := y;
268  list.ItemIndex := list.ItemAtPos(pt, true);
269  if list.ItemIndex > -1 then
270    Self.listClick(Self);
271end;
272
273function IntToBin(Value: Byte): String;
274var
275  i: Byte;
276begin
277  Result := '';
278  for i := 7 downto 0 do
279  begin
280    Result := Result + IntToStr((Value shr i) and $01);
281  end;
282end;
283
284
285
286
287function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
288var
289  Data: Tdata;
290  i:    Word;
291begin
292  case datatype of
293    1:
294      Result := IntToStr(hex.Data[offset]);
295    2:
296      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256);
297    3:
298      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256);
299    4:
300      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] *
301        256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256);
302    5:
303      Result := '0x' + IntToHex(hex.Data[offset], 2);
304    6:
305      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256, 4);
306    7:
307      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
308        hex.Data[offset + 2] * 256 * 256, 6);
309    8:
310      Result := '0x' + IntToHex(hex.Data[offset] + hex.Data[offset + 1] * 256 +
311        hex.Data[offset + 2] * 256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256, 8);
312    9:
313    begin
314      SetLength(Data, 4);
315      Data[0] := hex.Data[offset];
316      Data[1] := hex.Data[offset + 1];
317      Data[2] := hex.Data[offset + 2];
318      Data[3] := hex.Data[offset + 3];
319      Result  := FloatToStr(Decode_Float(Data));
320    end;
321    10:
322      Result := IntToBin(hex.Data[offset]);
323    11:
324      Result := '0x' + IntToHex(OniDataConnection.GetRawInfo(fileid, offset).raw_addr, 8);
325    12:
326      Result := FormatNumber(hex.Data[offset + 1] + hex.Data[offset + 2] * 256 +
327        hex.Data[offset + 3] * 256 * 256, 5, '0');
328    13:
329      Result := IntToStr(hex.Data[offset]);
330    14:
331      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256);
332    15:
333      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] * 256 * 256);
334    16:
335      Result := IntToStr(hex.Data[offset] + hex.Data[offset + 1] * 256 + hex.Data[offset + 2] *
336        256 * 256 + hex.Data[offset + 3] * 256 * 256 * 256);
337    17:
338      Result := IntToStr((hex.Data[offset + 3]) div 2);
339    100..300:
340    begin
341      Result := '';
342      for i := 1 to datatype - 100 do
343      begin
344        if hex.Data[offset + i - 1] >= 32 then
345          Result := Result + Chr(hex.Data[offset + i - 1])
346        else
347          Break;
348      end;
349    end;
350    1000..9999:
351    begin
352      Result := '';
353      for i := 1 to datatype - 1000 do
354      begin
355        if hex.Data[offset + i - 1] >= 32 then
356          Result := Result + Chr(hex.Data[offset + i - 1])
357        else
358          Result := Result + '.';
359      end;
360    end;
361    10000..65535:
362    begin
363      Result := '';
364      for i := 1 to datatype - 10000 do
365      begin
366        if hex.Data[offset + i - 1] >= 32 then
367          Result := Result + Chr(hex.Data[offset + i - 1])
368        else
369          Result := Result + '.';
370      end;
371    end;
372  end;
373end;
374
375
376
377
378procedure TForm_BinEdit.WriteStructureInfos;
379var
380  i, j:    LongWord;
381  pdata:   PNodeData;
382  Data:    TNodeData;
383  node:    PVirtualNode;
384  structs: TStructDef;
385begin
386  VST.BeginUpdate;
387  if VST.RootNodeCount = 0 then
388  begin
389    structs := LoadStructureDefinition(fileid);
390    if structs.Data then
391    begin
392      if Length(structs.Global) > 0 then
393      begin
394        for i := 0 to High(structs.Global) do
395        begin
396          Data.Caption  := structs.Global[i].Name;
397          Data.Offset   := structs.Global[i].offset;
398          Data.DataType := structs.Global[i].datatype;
399          Data.Value    := GetValue(structs.Global[i].datatype, structs.Global[i].offset);
400          Data.Description := structs.Global[i].description;
401          AddVSTEntry(VST, nil, Data);
402        end;
403      end;
404      if Length(structs.Subs) > 0 then
405      begin
406        for i := 0 to High(structs.Subs) do
407        begin
408          with structs.Subs[i] do
409          begin
410            if Length(Entries) > 0 then
411            begin
412              if Pos('#', SubName) > 0 then
413              begin
414                Data.Offset  := HexToLong(MidStr(SubName, Pos('#', SubName) + 1, 8));
415                Data.Value   :=
416                  MidStr(SubName, PosEx('#', SubName, Pos('#', SubName) + 1) + 1, 8);
417                Data.Caption := MidStr(SubName, 1, Pos('#', SubName) - 1);
418                Data.Description := SubDesc;
419              end
420              else
421              begin
422                Data.Caption := SubName;
423                Data.Description := SubDesc;
424                Data.Offset := 0;
425                Data.Value := '';
426              end;
427              Data.DataType := 0;
428              node := AddVSTEntry(VST, nil, Data);
429              Data.Description := '';
430              for j := 0 to High(Entries) do
431              begin
432                Data.Caption  := Entries[j].Name;
433                Data.Offset   := Entries[j].offset;
434                Data.DataType := Entries[j].datatype;
435                Data.Value    := GetValue(Entries[j].datatype, Entries[j].offset);
436                Data.Description := Entries[j].description;
437                AddVSTEntry(VST, node, Data);
438              end;
439            end;
440          end;
441        end;
442      end;
443    end;
444    if VST.RootNodeCount > 0 then
445      VST.FocusedNode := VST.GetFirst;
446  end
447  else
448  begin
449    Node := VST.GetFirst;
450    while Assigned(Node) do
451    begin
452      pdata := VST.GetNodeData(Node);
453      if pdata.DataType > 0 then
454        pdata.Value := GetValue(pdata.Datatype, pdata.Offset);
455      Node := VST.GetNext(Node);
456    end;
457  end;
458  VST.EndUpdate;
459end;
460
461
462
463
464procedure TForm_BinEdit.ClearValues;
465var
466  i: Byte;
467begin
468  for i := 1 to value_viewer.RowCount - 1 do
469  begin
470    value_viewer.Cells[1, i] := '';
471  end;
472end;
473
474
475
476
477procedure TForm_BinEdit.WriteValues;
478var
479  i, j:  Byte;
480  Data:  Tdata;
481  str:   String;
482  Value: LongWord;
483begin
484  for i := 1 to value_viewer.RowCount - 1 do
485  begin
486    if value_viewer.Cells[0, i] = '1 byte, unsigned' then
487    begin
488      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
489        ((hex.SelStart + 1) > hex.DataSize) then
490      begin
491        Value := hex.Data[hex.SelStart];
492        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 2);
493      end
494      else
495        value_viewer.Cells[1, i] := '';
496    end;
497    if value_viewer.Cells[0, i] = '2 bytes, unsigned' then
498    begin
499      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
500        ((hex.SelStart + 2) > hex.DataSize) then
501      begin
502        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
503        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 4);
504      end
505      else
506        value_viewer.Cells[1, i] := '';
507    end;
508    if value_viewer.Cells[0, i] = '4 bytes, unsigned' then
509    begin
510      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
511        ((hex.SelStart + 4) > hex.DataSize) then
512      begin
513        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
514          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
515        value_viewer.Cells[1, i] := IntToStr(Value) + ' / 0x' + IntToHex(Value, 8);
516      end
517      else
518        value_viewer.Cells[1, i] := '';
519    end;
520    if value_viewer.Cells[0, i] = 'Bitset' then
521    begin
522      if (hex.SelCount <= 8) then
523      begin
524        if hex.SelCount = 0 then
525        begin
526          SetLength(Data, 1);
527          Data[0] := hex.Data[hex.SelStart];
528        end
529        else
530        begin
531          SetLength(Data, hex.SelCount);
532          for j := 0 to hex.SelCount - 1 do
533            Data[j] := hex.Data[hex.SelStart + j];
534        end;
535        value_viewer.Cells[1, i] := DataToBin(Data);
536      end
537      else
538        value_viewer.Cells[1, i] := '';
539    end;
540    if value_viewer.Cells[0, i] = 'Float' then
541    begin
542      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
543        ((hex.SelStart + 4) > hex.DataSize) then
544      begin
545        SetLength(Data, 4);
546        for j := 0 to 3 do
547          Data[j] := hex.Data[hex.SelStart + j];
548        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
549      end
550      else
551        value_viewer.Cells[1, i] := '';
552    end;
553    if value_viewer.Cells[0, i] = 'Selected length' then
554    begin
555      value_viewer.Cells[1, i] := IntToStr(hex.SelCount) + ' bytes';
556    end;
557    if value_viewer.Cells[0, i] = 'String' then
558    begin
559      j   := 0;
560      str := '';
561      if hex.SelCount = 0 then
562      begin
563        while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
564        begin
565          if hex.Data[hex.selstart + j] >= 32 then
566            str := str + Char(hex.Data[hex.SelStart + j])
567          else
568            str := str + '.';
569          Inc(j);
570        end;
571      end
572      else
573      begin
574        for j := 0 to hex.SelCount - 1 do
575          if hex.Data[hex.selstart + j] >= 32 then
576            str := str + Char(hex.Data[hex.SelStart + j])
577          else if hex.Data[hex.selstart + j] > 0 then
578            str := str + '.'
579          else
580            Break;
581      end;
582      value_viewer.Cells[1, i] := str;
583    end;
584  end;
585end;
586
587
588
589
590procedure TForm_BinEdit.FormCreate(Sender: TObject);
591begin
592  Self.Caption := '';
593  fileid     := 0;
594  VST.NodeDataSize := SizeOf(TNodeData);
595  value_viewer.ColCount := 2;
596  value_viewer.RowCount := 8;
597  value_viewer.FixedRows := 1;
598  value_viewer.Cells[0, 0] := 'Type';
599  value_viewer.Cells[1, 0] := 'Value';
600  value_viewer.Cells[0, 1] := '1 byte, unsigned';
601  value_viewer.Cells[0, 2] := '2 bytes, unsigned';
602  value_viewer.Cells[0, 3] := '4 bytes, unsigned';
603  value_viewer.Cells[0, 4] := 'Bitset';
604  value_viewer.Cells[0, 5] := 'Float';
605  value_viewer.Cells[0, 6] := 'String';
606  value_viewer.Cells[0, 7] := 'Selected length';
607  value_viewer.ColWidths[0] := 100;
608  value_viewer.ColWidths[1] := value_viewer.Width - 150;
609  hex.Height := panel_data.Height - 215;
610  //
611  value_viewer.Font.Charset := AppSettings.CharSet;
612  VST.Font.Charset := AppSettings.CharSet;
613  hex.Translation := tkAsIs;
614  hex.Font.Charset := AppSettings.CharSet;
615  //
616end;
617
618
619
620
621function TForm_BinEdit.Save: Boolean;
622var
623  mem:  TMemoryStream;
624  Data: Tdata;
625  i:    LongWord;
626begin
627  case MessageBox(Self.Handle, PChar('Save changes to file ' +
628      OniDataConnection.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
629      MB_YESNOCANCEL) of
630    idYes:
631    begin
632      mem := TMemoryStream.Create;
633      hex.SaveToStream(mem);
634      mem.Seek(0, soFromBeginning);
635      SetLength(Data, mem.Size);
636      mem.Read(Data[0], mem.Size);
637      mem.Free;
638      OniDataConnection.UpdateDatFile(fileid, Data);
639      hex.Modified := False;
640      for i := 0 to hex.Datasize - 1 do
641        hex.ByteChanged[i] := False;
642      Result := True;
643    end;
644    idNo:
645      Result := True;
646    idCancel:
647    begin
648      Result := False;
649    end;
650  end;
651end;
652
653
654
655
656procedure TForm_BinEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
657begin
658  if hex.Modified then
659  begin
660    if not Save then
661      CanClose := False;
662  end;
663end;
664
665
666
667
668procedure TForm_BinEdit.ClearStructViewer;
669begin
670  VST.Clear;
671end;
672
673
674
675
676procedure TForm_BinEdit.FormResize(Sender: TObject);
677begin
678  if Self.Width >= 650 then
679  begin
680  end
681  else
682    Self.Width := 650;
683  if Self.Height >= 450 then
684  begin
685  end
686  else
687    Self.Height := 450;
688end;
689
690
691
692
693procedure TForm_BinEdit.hexChange(Sender: TObject);
694begin
695  ClearValues;
696  if hex.DataSize > 0 then
697  begin
698    WriteStructureInfos;
699    WriteValues;
700  end;
701end;
702
703
704
705
706procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
707var
708  temps: String;
709begin
710  if (Shift = [ssCtrl]) and (Key = Ord('C')) then
711  begin
712    if hex.SelCount > 0 then
713    begin
714      if hex.InCharField then
715        Clipboard.AsText := hex.SelectionAsText
716      else
717        Clipboard.AsText := hex.SelectionAsHex;
718    end;
719  end;
720  if (Shift = [ssCtrl]) and (Key = Ord('V')) then
721  begin
722{      temps:=Clipboard.AsText;
723      IF hex.SelStart+Length(temps)>hex.DataSize THEN
724        SetLength(temps, hex.DataSize-hex.SelStart);
725      hex.Sel
726      hex.SelCount:=Length(temps);
727      hex.ReplaceSelection(temps,Length(temps));
728}    end;
729end;
730
731
732
733
734procedure TForm_BinEdit.hexSelectionChanged(Sender: TObject);
735var
736  selstart: Integer;
737  node:     PVirtualNode;
738  pdata:    PNodeData;
739begin
740  if hex.DataSize > 0 then
741  begin
742    WriteValues;
743    selstart := hex.SelStart;
744    if VST.RootNodeCount > 0 then
745    begin
746      Node := VST.GetFirst;
747      while Assigned(Node) do
748      begin
749        pdata := VST.GetNodeData(Node);
750        if pdata.DataType > 0 then
751        begin
752          if ((selstart - pdata.Offset) < GetTypeDataLength(pdata.DataType)) and
753            ((selstart - pdata.Offset) >= 0) then
754          begin
755            VST.FocusedNode    := Node;
756            VST.Selected[Node] := True;
757            Break;
758          end;
759        end;
760        Node := VST.GetNext(Node);
761      end;
762    end;
763  end;
764end;
765
766
767
768
769procedure TForm_BinEdit.FormClose(Sender: TObject; var Action: TCloseAction);
770begin
771  Action := caFree;
772end;
773
774
775
776
777procedure TForm_BinEdit.panel_imexportResize(Sender: TObject);
778begin
779  btn_import.Width := panel_imexport.Width - 8;
780  btn_export.Width := panel_imexport.Width - 8;
781end;
782
783
784
785
786procedure TForm_BinEdit.btn_exportClick(Sender: TObject);
787begin
788  saved.Filter     := 'Files of matching extension (*.' + OniDataConnection.GetFileInfo(
789    fileid).Extension + ')|*.' + OniDataConnection.GetFileInfo(fileid).Extension +
790    '|All files|*.*';
791  saved.DefaultExt := OniDataConnection.GetFileInfo(fileid).Extension;
792  if saved.Execute then
793  begin
794    ExportDatFile(fileid, saved.FileName);
795  end;
796end;
797
798
799
800
801procedure TForm_BinEdit.btn_importClick(Sender: TObject);
802var
803  fs: TFileStream;
804begin
805  opend.Filter := 'Files of matching extension (*.' + OniDataConnection.GetFileInfo(
806    fileid).Extension + ')|*.' + OniDataConnection.GetFileInfo(fileid).Extension +
807    '|All files|*.*';
808  if opend.Execute then
809  begin
810    fs := TFileStream.Create(opend.FileName, fmOpenRead);
811    if fs.Size <> hex.DataSize then
812    begin
813      ShowMessage('Can''t import ' + ExtractFilename(opend.FileName) +
814        ', file has to have same size as file in .dat.' + CrLf +
815        'Size of file in .dat: ' + FormatFileSize(hex.datasize) + CrLf +
816        'Size of chosen file: ' + FormatFileSize(fs.Size));
817    end
818    else
819    begin
820      hex.LoadFromStream(fs);
821      hex.Modified := True;
822    end;
823    fs.Free;
824  end;
825end;
826
827
828
829
830procedure TForm_BinEdit.value_viewer_contextPopup(Sender: TObject);
831var
832  i: Byte;
833begin
834  for i := 0 to value_viewer_context.Items.Count - 1 do
835    value_viewer_context.Items.Items[i].Visible := False;
836  with value_viewer do
837  begin
838    if (Col = 1) and (Row > 0) and (Length(Cells[Col, Row]) > 0) then
839    begin
840      if Pos(' byte', Cells[0, Row]) = 2 then
841      begin
842        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
843        value_viewer_context.Items.Find('Copy to clipboard (as &dec)').Visible := True;
844        value_viewer_context.Items.Find('Copy to clipboard (as &hex)').Visible := True;
845      end;
846      if Pos('Float', Cells[0, Row]) = 1 then
847        value_viewer_context.Items.Find('Copy to clipboard (as &float)').Visible := True;
848      if Pos('Bitset', Cells[0, Row]) = 1 then
849        value_viewer_context.Items.Find(
850          'Copy to clipboard (as &bitset)').Visible := True;
851      if Pos('String', Cells[0, Row]) = 1 then
852        value_viewer_context.Items.Find(
853          'Copy to clipboard (as &string)').Visible := True;
854      if Pos('Selected length', Cells[0, Row]) = 1 then
855        value_viewer_context.Items.Find('Copy to &clipboard').Visible := True;
856    end;
857  end;
858end;
859
860
861
862
863procedure TForm_BinEdit.value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
864  Shift: TShiftState; X, Y: Integer);
865var
866  ACol, ARow: Integer;
867begin
868  if Button = mbRight then
869  begin
870    value_viewer.MouseToCell(x, y, ACol, ARow);
871    if ARow > 0 then
872    begin
873      value_viewer.Col := ACol;
874      value_viewer.Row := ARow;
875    end;
876  end;
877end;
878
879
880
881
882procedure TForm_BinEdit.value_viewer_context_copyClick(Sender: TObject);
883var
884  Name:  String;
885  Value: LongWord;
886begin
887  Name := TMenuItem(Sender).Name;
888  if Pos('asstring', Name) > 0 then
889  begin
890    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
891  end
892  else if Pos('asfloat', Name) > 0 then
893  begin
894    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
895  end
896  else if Pos('asbitset', Name) > 0 then
897  begin
898    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
899  end
900  else if (Pos('ashex', Name) > 0) or (Pos('asdec', Name) > 0) then
901  begin
902    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
903    begin
904      if ((hex.SelCount = 1) or (hex.SelCount = 0)) and not
905        ((hex.SelStart + 1) > hex.DataSize) then
906        Value := hex.Data[hex.SelStart];
907    end;
908    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
909    begin
910      if ((hex.SelCount = 2) or (hex.SelCount = 0)) and not
911        ((hex.SelStart + 2) > hex.DataSize) then
912        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256;
913    end;
914    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
915    begin
916      if ((hex.SelCount = 4) or (hex.SelCount = 0)) and not
917        ((hex.SelStart + 4) > hex.DataSize) then
918        Value := hex.Data[hex.SelStart] + hex.Data[hex.SelStart + 1] * 256 +
919          hex.Data[hex.SelStart + 2] * 256 * 256 + hex.Data[hex.SelStart + 3] * 256 * 256 * 256;
920    end;
921    if Pos('asdec', Name) > 0 then
922    begin
923      Clipboard.AsText := IntToStr(Value);
924    end
925    else
926    begin
927      if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
928        Clipboard.AsText := '0x' + IntToHex(Value, 2);
929      if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
930        Clipboard.AsText := '0x' + IntToHex(Value, 4);
931      if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
932        Clipboard.AsText := '0x' + IntToHex(Value, 8);
933    end;
934  end
935  else
936  begin
937    Clipboard.AsText := value_viewer.Cells[value_viewer.Col, value_viewer.Row];
938  end;
939end;
940
941
942
943
944procedure TForm_BinEdit.VSTDblClick(Sender: TObject);
945var
946  node: PVirtualNode;
947  nodedata: PNodeData;
948  id: Integer;
949begin
950  if VST.FocusedColumn = 3 then
951  begin
952    node     := VST.FocusedNode;
953    nodedata := VST.GetNodeData(node);
954
955    if not (nodedata.datatype in [11, 12]) and
956      ((nodedata.DataType < 100) or (nodedata.DataType > 300)) then
957    begin
958      Form_ValueEdit.MakeVarInput(nodedata.Caption, nodedata.offset,
959        nodedata.datatype, nodedata.Value, Self);
960    end
961    else
962    begin
963      if nodedata.DataType = 11 then
964      begin
965        if OniDataConnection.GetRawInfo(fileid, nodedata.offset).raw_size > 0 then
966        begin
967          if Form_Main.open_child('rawedit') then
968          begin
969            TForm_RawEdit(Form_Main.ActiveMDIChild).LoadRaw(
970              OniDataConnection.GetRawInfo(fileid, nodedata.offset));
971          end;
972        end;
973      end;
974      if nodedata.DataType = 12 then
975      begin
976        if (StrToInt(nodedata.Value) < OniDataConnection.GetFilesCount) and
977          (StrToInt(nodedata.Value) > 0) and
978          (StrToInt(nodedata.Value) <> fileid) then
979        begin
980          if OniDataConnection.GetFileInfo(StrToInt(nodedata.Value)).Size > 0 then
981          begin
982            if Form_Main.open_child('binedit') then
983            begin
984              TForm_BinEdit(Form_Main.ActiveMDIChild).LoadDat(StrToInt(nodedata.Value));
985            end;
986          end
987          else
988          begin
989            ShowMessage('Linked filed is a zero-byte-file');
990          end;
991        end;
992      end;
993      if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then
994      begin
995        if Form_Main.open_child('binedit') then
996        begin
997          TForm_BinEdit(Form_Main.ActiveMDIChild).edit_filtername.Text := nodedata.Value;
998          TForm_BinEdit(Form_Main.ActiveMDIChild).check_filtername.Checked := True;
999          TForm_BinEdit(Form_Main.ActiveMDIChild).check_filternameClick(Self);
1000        end;
1001      end;
1002    end;
1003
1004  end;
1005end;
1006
1007
1008
1009
1010procedure TForm_BinEdit.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
1011  Column: TColumnIndex);
1012var
1013  Data: PNodeData;
1014begin
1015  Data := VST.GetNodeData(node);
1016  if Data.DataType > 0 then
1017  begin
1018    hex.SelStart := Data.Offset;
1019    hex.SelEnd   := Data.Offset + GetTypeDataLength(Data.DataType) - 1;
1020  end
1021  else
1022  begin
1023    hex.SelStart := Data.Offset;
1024    hex.SelEnd   := Data.Offset + HexToLong(Data.Value) - 1;
1025  end;
1026end;
1027
1028
1029
1030
1031procedure TForm_BinEdit.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
1032  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
1033var
1034  Data: PNodeData;
1035begin
1036  Data     := Sender.GetNodeData(Node);
1037  CellText := '';
1038  if TextType = ttNormal then
1039  begin
1040    case Column of
1041      0:
1042        CellText := Data.Caption;
1043      1:
1044        if Data.DataType > 0 then
1045          CellText := '0x' + IntToHex(Data.Offset, 8)
1046        else if Data.Offset > 0 then
1047          CellText := '0x' + IntToHex(Data.Offset, 8);
1048      2:
1049        if Data.DataType > 0 then
1050          CellText := GetDataType(Data.DataType);
1051      3:
1052        if Data.DataType > 0 then
1053          CellText := Data.Value //GetValue(data.DataType, data.Offset)
1054        else if Length(Data.Value) > 0 then
1055          CellText := IntToStr(HexToLong(Data.Value)) + ' Bytes';
1056      4:
1057        CellText := Data.Description;
1058    end;
1059  end;
1060end;
1061
1062
1063
1064
1065procedure TForm_BinEdit.VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
1066  OldPosition: Integer);
1067begin
1068  if Sender.Columns.Items[column].Position < 1 then
1069    Sender.Columns.Items[column].Position := OldPosition;
1070end;
1071
1072
1073
1074
1075procedure TForm_BinEdit.VTHPopupColumnChange(const Sender: TBaseVirtualTree;
1076  const Column: TColumnIndex; Visible: Boolean);
1077begin
1078  if column = 0 then
1079    TVirtualStringTree(Sender).Header.Columns.Items[column].Options :=
1080      TVirtualStringTree(Sender).Header.Columns.Items[column].Options + [coVisible];
1081end;
1082
1083
1084
1085
1086procedure TForm_BinEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
1087var
1088  Data: Tdata;
1089  value_int: LongWord;
1090  value_float: Single;
1091  i: Word;
1092begin
1093  case datatype of
1094    1..4:
1095    begin
1096      value_int := StrToInt(Value);
1097      SetLength(Data, datatype);
1098      for i := 0 to datatype - 1 do
1099      begin
1100        Data[i]   := value_int mod 256;
1101        value_int := value_int div 256;
1102      end;
1103    end;
1104    5..8:
1105    begin
1106      value_int := StrToInt('$' + Value);
1107      SetLength(Data, datatype - 4);
1108      for i := 0 to datatype - 5 do
1109      begin
1110        Data[i]   := value_int mod 256;
1111        value_int := value_int div 256;
1112      end;
1113    end;
1114    9:
1115    begin
1116      value_float := StrToFloat(Value);
1117      Data := Encode_Float(value_float);
1118    end;
1119    10:
1120    begin
1121      value_int := BinToInt(Value);
1122      SetLength(Data, 1);
1123      Data[0] := value_int;
1124    end;
1125    10000..65535:
1126    begin
1127      SetLength(Data, datatype - 10000);
1128      for i := 1 to datatype - 10000 do
1129      begin
1130        if i <= Length(Value) then
1131          Data[i - 1] := Ord(Value[i])
1132        else
1133          Data[i - 1] := 0;
1134      end;
1135    end;
1136  end;
1137  for i := 0 to High(Data) do
1138  begin
1139    if hex.Data[offset + i] <> Data[i] then
1140      hex.ByteChanged[offset + i] := True;
1141    hex.Data[offset + i] := Data[i];
1142  end;
1143  hex.Modified := True;
1144  hexChange(Self);
1145  hex.Repaint;
1146end;
1147
1148
1149
1150
1151procedure TForm_BinEdit.value_viewerDblClick(Sender: TObject);
1152var
1153  offset:     LongWord;
1154  datatype:   Word;
1155  objectname: String;
1156  Value:      String;
1157begin
1158  if (value_viewer.Col = 1) and (Length(value_viewer.Cells[1, value_viewer.Row]) > 0) then
1159  begin
1160    offset := hex.SelStart;
1161    if value_viewer.Cells[0, value_viewer.Row] = '1 byte, unsigned' then
1162      datatype := 1;
1163    if value_viewer.Cells[0, value_viewer.Row] = '2 bytes, unsigned' then
1164      datatype := 2;
1165    if value_viewer.Cells[0, value_viewer.Row] = '4 bytes, unsigned' then
1166      datatype := 4;
1167    if value_viewer.Cells[0, value_viewer.Row] = 'Bitset' then
1168      datatype := 10;
1169    if value_viewer.Cells[0, value_viewer.Row] = 'Float' then
1170      datatype := 9;
1171    if value_viewer.Cells[0, value_viewer.Row] = 'Selected length' then
1172      Exit;
1173    if value_viewer.Cells[0, value_viewer.Row] = 'String' then
1174    begin
1175      if hex.SelCount > 0 then
1176        datatype := 10000 + hex.SelCount
1177      else
1178        datatype := 10000 + Length(value_viewer.Cells[1, value_viewer.Row]);
1179    end;
1180    objectname := '';
1181    Value      := GetValue(datatype, offset);
1182    Form_ValueEdit.MakeVarInput(objectname, offset, datatype, Value, Self);
1183  end;
1184end;
1185
1186
1187
1188
1189procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
1190begin
1191  if (Shift = [ssCtrl]) and (Key = 83) then
1192    if hex.Modified then
1193      if not Save then
1194        Exit;
1195end;
1196
1197
1198end.
Note: See TracBrowser for help on using the repository browser.