source: oup/current/Tools/BinEdit.pas@ 111

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