releases/0.22a/Unit8_binedit.pas

UNIT Unit8_binedit;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Wrapgrid, StdCtrls, Grids, StrUtils, MPHexEditor, ExtCtrls,
  Unit3_data, Unit2_functions, Unit9_data_structures, Unit4_exporters;

TYPE
  TForm8 = Class(TForm)
    Splitter1: TSplitter;
    panel_data: TPanel;
    hex: TMPHexEditor;
    Splitter2: TSplitter;
    structs: TWrapGrid;
    panel_files: TPanel;
    list: TListBox;
    panel_extension: TPanel;
    lbl_filter: TLabel;
    combo_extension: TComboBox;
    Bevel1: TBevel;
    panel_imexport: TPanel;
    btn_export: TButton;
    btn_import: TButton;
    opend: TOpenDialog;
    saved: TSaveDialog;
    value_viewer: TWrapGrid;
    Splitter3: TSplitter;
{    PROCEDURE structsGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
    PROCEDURE structsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
    PROCEDURE structsKeyPress(Sender: TObject; var Key: Char);
}    PROCEDURE FormActivate(Sender: TObject);
    PROCEDURE btn_importClick(Sender: TObject);
    PROCEDURE btn_exportClick(Sender: TObject);
    PROCEDURE panel_imexportResize(Sender: TObject);
    FUNCTION Save:Boolean;
    PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
    PROCEDURE combo_extensionClick(Sender: TObject);
    PROCEDURE panel_extensionResize(Sender: TObject);
    FUNCTION GetValue(datatype:Word; offset:LongWord):String;
    PROCEDURE WriteStructureInfos(structinfoid:Integer);
    PROCEDURE hexSelectionChanged(Sender: TObject);
    PROCEDURE hexChange(Sender: TObject);
    PROCEDURE panel_dataResize(Sender: TObject);
    PROCEDURE structsClick(Sender: TObject);
    PROCEDURE FormResize(Sender: TObject);
    PROCEDURE ClearStructViewer;
    PROCEDURE listClick(Sender: TObject);
    PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE Recreatelist;
    PROCEDURE ClearValues;
    PROCEDURE WriteValues;
  PRIVATE
  PUBLIC
  END;

VAR
  Form8: TForm8;

IMPLEMENTATION
{$R *.dfm}
USES Unit1_main;
VAR
  fileid:LongWord;

FUNCTION IntToBin(value:Byte):String;
  VAR i:Byte;
  BEGIN
    Result:='';
    FOR i:=7 DOWNTO 0 DO BEGIN
      Result:=Result+IntToStr((value SHR i) AND $01);
    END;
  END;

FUNCTION TForm8.GetValue(datatype:Word; offset:LongWord):String;
  VAR
    data:Tdata;
    i:Word;
  BEGIN
    CASE datatype OF
      1: Result:=IntToStr(hex.data[offset]);
      2: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]*256);
      3: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]*256+hex.data[offset+2]*256*256);
      4: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]*256+hex.data[offset+2]*256*256+hex.data[offset+3]*256*256*256);
      5: Result:='0x'+IntToHex(hex.data[offset],2);
      6: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]*256,4);
      7: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]*256+hex.data[offset+2]*256*256,6);
      8: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]*256+hex.data[offset+2]*256*256+hex.data[offset+3]*256*256*256,8);
      9: BEGIN
          SetLength(data,4);
          data[0]:=hex.data[offset];
          data[1]:=hex.data[offset+1];
          data[2]:=hex.data[offset+2];
          data[3]:=hex.data[offset+3];
          Result:=FloatToStr(Decode_Float(data));
        END;
      10: Result:=IntToBin(hex.data[offset]);
      10000..65535: BEGIN
          Result:='';
          FOR i:=1 TO datatype-10000 DO BEGIN
            IF hex.Data[offset+i-1]>=32 THEN
              Result:=Result+Chr(hex.Data[offset+i-1])
            ELSE
              Result:=Result+'.';
          END;
        END;
    END;
  END;

PROCEDURE TForm8.WriteStructureInfos(structinfoid:Integer);
  VAR
    i:Byte;
  BEGIN
    IF structinfoid>=0 THEN BEGIN
      structs.Enabled:=True;
      WITH structure_infos[structinfoid] DO BEGIN
        Self.structs.RowCount:=Length(entries)+1;
        FOR i:=1 TO Length(entries) DO BEGIN
          Self.structs.Cells[0,i]:=entries[i-1].name;
          Self.structs.Cells[1,i]:='0x'+IntToHex(entries[i-1].offset,6);
          Self.structs.Cells[2,i]:=GetDataType(entries[i-1].datatype);
          IF entries[i-1].datatype>10000 THEN
            Self.structs.Cells[3,i]:='*String*#HINT:'+GetValue(entries[i-1].datatype,entries[i-1].offset)+'#'
          ELSE
            Self.structs.Cells[3,i]:=GetValue(entries[i-1].datatype,entries[i-1].offset);
          Self.structs.Cells[4,i]:=entries[i-1].description;
        END;
      END;
    END;
  END;

PROCEDURE TForm8.ClearValues;
  VAR
    i:Byte;
  BEGIN
    FOR i:=1 TO value_viewer.RowCount-1 DO BEGIN
      value_viewer.Cells[1,i]:='';
    END;
  END;

PROCEDURE TForm8.WriteValues;
  VAR
    i,j:Byte;
    data:Tdata;
    str:String;
  BEGIN
    FOR i:=1 TO value_viewer.RowCount-1 DO BEGIN
      IF value_viewer.Cells[0,i]='1 byte, unsigned' THEN BEGIN
        IF (hex.SelCount=1) OR (hex.SelCount=0) THEN
          value_viewer.Cells[1,i]:=IntToStr(hex.Data[hex.SelStart])
        ELSE
          value_viewer.Cells[1,i]:='';
      END;
      IF value_viewer.Cells[0,i]='2 bytes, unsigned' THEN BEGIN
        IF (hex.SelCount=2) OR (hex.SelCount=0) THEN
          value_viewer.Cells[1,i]:=IntToStr( hex.Data[hex.SelStart]+hex.Data[hex.SelStart+1]*256 )
        ELSE
          value_viewer.Cells[1,i]:='';
      END;
      IF value_viewer.Cells[0,i]='4 bytes, unsigned' THEN BEGIN
        IF (hex.SelCount=4) OR (hex.SelCount=0) THEN
          value_viewer.Cells[1,i]:=IntToStr( hex.Data[hex.SelStart]+hex.Data[hex.SelStart+1]*256+hex.Data[hex.SelStart+2]*256*256+hex.Data[hex.SelStart+3]*256*256*256 )
        ELSE
          value_viewer.Cells[1,i]:='';
      END;
      IF value_viewer.Cells[0,i]='Bitset' THEN BEGIN
        IF (hex.SelCount<=8) THEN BEGIN
          IF hex.SelCount=0 THEN BEGIN
            SetLength(data,1);
            data[0]:=hex.Data[hex.SelStart];
          END ELSE BEGIN
            SetLength(data,hex.SelCount);
            FOR j:=0 TO hex.SelCount-1 DO
              data[j]:=hex.Data[hex.SelStart+j];
          END;
          value_viewer.Cells[1,i]:=DataToBin(data);
        END ELSE
          value_viewer.Cells[1,i]:='';
      END;
      IF value_viewer.Cells[0,i]='Float' THEN BEGIN
        IF (hex.SelCount=4) OR (hex.SelCount=0) THEN BEGIN
          SetLength(data,4);
          FOR j:=0 TO 3 DO
            data[j]:=hex.Data[hex.SelStart+j];
          value_viewer.Cells[1,i]:=FloatToStr(Decode_Float(data));
        END ELSE
          value_viewer.Cells[1,i]:='';
      END;
      IF value_viewer.Cells[0,i]='Selected length' THEN BEGIN
        value_viewer.Cells[1,i]:=IntToStr(hex.SelCount)+' bytes';
      END;
      IF value_viewer.Cells[0,i]='String' THEN BEGIN
        j:=0;
        str:='';
        IF hex.SelCount=0 THEN BEGIN
          WHILE hex.Data[hex.SelStart+j]>0 DO BEGIN
            str:=str+Char(hex.Data[hex.SelStart+j]);
            Inc(j);
          END;
        END ELSE BEGIN
          FOR j:=1 TO hex.SelCount DO
            str:=str+Char(hex.Data[hex.SelStart+j-1]);
        END;
        value_viewer.Cells[1,i]:=str;
      END;
    END;
  END;

PROCEDURE TForm8.Recreatelist;
  VAR
    i:LongWord;
    exts:TStringList;
  BEGIN
    combo_extension.Items.Clear;
    combo_extension.Items.Add('_All files_ ('{+IntToStr(dat_header.Files)}+')');
    exts:=GetExtensionsList;
    FOR i:=0 TO High(exts) DO
      combo_extension.Items.Add(exts[i]);
    combo_extension.ItemIndex:=0;
    combo_extensionClick(Self);
  END;

PROCEDURE TForm8.FormCreate(Sender: TObject);
  BEGIN
    Self.Caption:='';
    fileid:=0;
    structs.ColCount:=5;
    structs.RowCount:=2;
    structs.FixedRows:=1;
    structs.Cells[0,0]:='Name';
    structs.Cells[1,0]:='Offset';
    structs.Cells[2,0]:='Type';
    structs.Cells[3,0]:='Value';
    structs.Cells[4,0]:='Description';
    structs.ColWidths[0]:=75;
    structs.ColWidths[1]:=60;
    structs.ColWidths[2]:=75;
    structs.ColWidths[3]:=75;
    value_viewer.ColCount:=2;
    value_viewer.RowCount:=8;
    value_viewer.FixedRows:=1;
    value_viewer.Cells[0,0]:='Type';
    value_viewer.Cells[1,0]:='Value';
    value_viewer.Cells[0,1]:='1 byte, unsigned';
    value_viewer.Cells[0,2]:='2 bytes, unsigned';
    value_viewer.Cells[0,3]:='4 bytes, unsigned';
    value_viewer.Cells[0,4]:='Bitset';
    value_viewer.Cells[0,5]:='Float';
    value_viewer.Cells[0,6]:='String';
    value_viewer.Cells[0,7]:='Selected length';
    value_viewer.ColWidths[0]:=100;
    Self.panel_dataResize(Self);
  END;

FUNCTION TForm8.Save:Boolean;
  VAR
    mem:TMemoryStream;
    data:Tdata;
  BEGIN
    CASE MessageBox(Self.Handle,PChar('Save changes to file '+GetFileInfo(fileid).FileName+'?'),PChar('Data changed...'),MB_YESNOCANCEL) OF
      IDYES: BEGIN
          mem:=TMemoryStream.Create;
          hex.SaveToStream(mem);
          mem.Seek(0,soFromBeginning);
          SetLength(data,mem.Size);
          mem.Read(data[0],mem.Size);
          mem.Free;
          UpdateDatFile(fileid,data);
          Result:=True;
        END;
      IDNO: Result:=True;
      IDCANCEL: BEGIN
          Result:=False;
        END;
    END;
  END;

PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  BEGIN
    IF hex.Modified THEN BEGIN
      IF NOT Save THEN CanClose:=False;
    END;
  END;

PROCEDURE TForm8.listClick(Sender: TObject);
  VAR
    mem:TMemoryStream;
    data:Tdata;
    i:LongWord;
  BEGIN
    IF hex.Modified THEN BEGIN
      IF NOT Save THEN BEGIN
        FOR i:=0 TO list.Count-1 DO BEGIN
          IF StrToInt(MidStr(list.Items.Strings[i],1,5))=fileid THEN BEGIN
            list.ItemIndex:=i;
            Exit;
          END;
        END;
      END;
    END;
    Self.ClearStructViewer;
    fileid:=StrToInt(MidStr(list.Items.Strings[list.ItemIndex],1,5));
    data:=LoadDatFile(fileid);
    IF Length(data)>0 THEN BEGIN
      mem:=TMemoryStream.Create;
      mem.Write(data[0],Length(data));
      mem.Seek(0,soFromBeginning);
      hex.LoadFromStream(mem);
      mem.Free;
      WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
    END;
  END;

PROCEDURE TForm8.ClearStructViewer;
  VAR
    x:Word;
  BEGIN
    structs.RowCount:=2;
    FOR x:=0 TO structs.ColCount-1 DO structs.Cells[x,1]:='';
    structs.Enabled:=False;
  END;

PROCEDURE TForm8.FormResize(Sender: TObject);
  BEGIN
    IF Self.Width>=650 THEN BEGIN
    END ELSE Self.Width:=650;
    IF Self.Height>=450 THEN BEGIN
    END ELSE Self.Height:=450;
  END;

PROCEDURE TForm8.structsClick(Sender: TObject);
  VAR
    offset:LongWord;
    length:Byte;
  BEGIN
    IF structs.Row>0 THEN BEGIN
      offset:=structure_infos[GetStructureInfoId(GetFileInfo(fileid).extension)].entries[structs.Row-1].offset;
      length:=GetTypeDataLength(structure_infos[GetStructureInfoId(GetFileInfo(fileid).extension)].entries[structs.Row-1].datatype);
      hex.SelStart:=offset;
      hex.SelEnd:=offset+length-1;
{      IF structs.Cells[structs.Col,0]='Value' THEN
        IF structure_infos[GetStructureInfoId(dat_files[fileid].Extension)].entries[structs.Row-1].datatype<=10 THEN
          structs.Options:=structs.Options+[goEditing]
      ELSE
        structs.Options:=structs.Options-[goEditing];
}    END;
  END;

PROCEDURE TForm8.panel_dataResize(Sender: TObject);
  BEGIN
    structs.ColWidths[4]:=structs.Width-structs.ColWidths[0]-structs.ColWidths[1]-structs.ColWidths[2]-structs.ColWidths[3]-28;
    value_viewer.ColWidths[1]:=value_viewer.Width-value_viewer.ColWidths[0]-28;
  END;

PROCEDURE TForm8.hexChange(Sender: TObject);
  BEGIN
    ClearValues;
    IF hex.DataSize>0 THEN BEGIN
      WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
      WriteValues;
    END;
  END;

PROCEDURE TForm8.hexSelectionChanged(Sender: TObject);
  VAR
    selstart:Integer;
    i,j:Word;
  BEGIN
    FOR i:=1 TO structs.RowCount-1 DO BEGIN
      FOR j:=0 TO structs.ColCount-1 DO BEGIN
        structs.CellColors[j,i]:=clWhite;
        structs.CellFontColors[j,i]:=clBlack;
      END;
    END;
    IF hex.DataSize>0 THEN BEGIN
      selstart:=hex.SelStart;
      IF GetStructureInfoId(GetFileInfo(fileid).Extension)>=0 THEN BEGIN
        WITH structure_infos[GetStructureInfoId(GetFileInfo(fileid).Extension)] DO BEGIN
          FOR i:=0 TO High(entries) DO BEGIN
            IF ((selstart-entries[i].offset)<GetTypeDataLength(entries[i].datatype)) AND ((selstart-entries[i].offset)>=0) THEN BEGIN
              FOR j:=0 TO structs.ColCount-1 DO BEGIN
                structs.CellColors[j,i+1]:=clBlue;
                structs.CellFontColors[j,i+1]:=clWhite;
              END;
              structs.Row:=i+1;
            END;
          END;
        END;
      END;
      WriteValues;
    END;
  END;

PROCEDURE TForm8.panel_extensionResize(Sender: TObject);
  BEGIN
    combo_extension.Width:=panel_extension.Width-5;
  END;

PROCEDURE TForm8.combo_extensionClick(Sender: TObject);
  VAR
    Extension:String[4];
    files:TStringList;
    i:LongWord;
  BEGIN
    Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
    list.Items.Clear;
    IF Extension='_All' THEN
      files:=GetFilesList('','',True)
    ELSE
      files:=GetFilesList(extension,'',True);
    IF Length(files)>0 THEN
      FOR i:=0 TO High(files) DO
        list.Items.Add(files[i]);
  END;

PROCEDURE TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
  BEGIN
    Action:=caFree;
    Form1.close_window(Self.Name);
  END;

PROCEDURE TForm8.panel_imexportResize(Sender: TObject);
  BEGIN
    btn_import.Width:=panel_imexport.Width-8;
    btn_export.Width:=panel_imexport.Width-8;
  END;

PROCEDURE TForm8.btn_exportClick(Sender: TObject);
  BEGIN
    saved.Filter:='Files of matching extension (*.'+GetFileInfo(fileid).Extension+')|*.'+dat_files[fileid].Extension+'|All files|*.*';
    saved.DefaultExt:=GetFileInfo(fileid).Extension;
    IF saved.Execute THEN BEGIN
      ExportDatFile(fileid,saved.FileName);
    END;
  END;

PROCEDURE TForm8.btn_importClick(Sender: TObject);
  VAR
    data:Tdata;
    fs:TFileStream;
  BEGIN
    opend.Filter:='Files of matching extension (*.'+GetFileInfo(fileid).Extension+')|*.'+dat_files[fileid].Extension+'|All files|*.*';
    IF opend.Execute THEN BEGIN
      fs:=TFileStream.Create(opend.FileName,fmOpenRead);
      IF fs.Size<>hex.DataSize THEN BEGIN
        ShowMessage('Can''t import '+ExtractFilename(opend.FileName)+
                    ', file has to have same size as file in .dat.'+CrLf+
                    'Size of file in .dat: '+FormatFileSize(hex.datasize)+CrLf+
                    'Size of chosen file: '+FormatFileSize(fs.Size));
      END ELSE BEGIN
{        SetLength(data,fs.Size);
        fs.Read(data[0],fs.Size);
        fs.Free;
        fs:=TFileStream.Create(dat_filename,fmOpenReadWrite);
        fs.Seek(dat_files[fileid].dataddr,soFromBeginning);
        fs.Write(data[0],Length(data));
}      END;
      fs.Free;
      listClick(Self);
    END;
  END;

PROCEDURE TForm8.FormActivate(Sender: TObject);
  BEGIN
    Form1.SetActiveWindow(Self.Name);
  END;
{
PROCEDURE TForm8.structsKeyPress(Sender: TObject; VAR Key: Char);
  VAR
    dt:Byte;
  BEGIN
    IF structs.EditorMode THEN BEGIN
      dt:=structure_infos[GetStructureInfoId(dat_files[fileid].Extension)].entries[structs.Row-1].datatype;
      CASE dt OF
        1..4: BEGIN
                IF NOT (Key IN [#8,#13,#27,'0'..'9']) THEN Key:=#0;
              END;
        5..8: BEGIN
                IF NOT (Key IN [#8,#13,#27,'0'..'9','A'..'F','a'..'f']) THEN Key:=#0;
                IF Key IN ['a'..'f'] THEN Key:=UpCase(Key);
                IF NOT (Key IN [#8,#13,#27]) AND ( Length(structs.Cells[structs.Col,structs.Row])>=2*(dt-4) ) THEN Key:=#0;
              END;
        9:    BEGIN
                IF (Key IN ['.']) AND (Pos('.',structs.Cells[structs.Col,structs.Row])>0) THEN Key:=#0;
                IF NOT (Key IN [#8,#13,#27,'0'..'9','.','-']) THEN Key:=#0;
              END;
        10:   BEGIN
                IF NOT (Key IN [#8,#13,#27,'0'..'1']) THEN Key:=#0;
                IF NOT (Key IN [#8,#13,#27]) AND ( Length(structs.Cells[structs.Col,structs.Row])>=8 ) THEN Key:=#0;
              END;
      END;
    END;
  END;

PROCEDURE TForm8.structsSetEditText(Sender: TObject; ACol, ARow: Integer; CONST Value: string);
  BEGIN
    IF NOT TWrapGrid(Sender).EditorMode THEN
      ShowMessage('['+IntToStr(ACol)+'|'+IntToStr(ARow)+']='+Value);
  END;

PROCEDURE TForm8.structsGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
  BEGIN
    IF structs.EditorMode THEN
      ShowMessage('EditorMode - '+Value)
    ELSE
      ShowMessage('NOT EditorMode - '+Value);
  END;
}
END.
Revision:	22
Committed:	Sat Aug 26 19:12:54 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	17247 byte(s)
Log Message:
#	Content
1	UNIT Unit8_binedit;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, Wrapgrid, StdCtrls, Grids, StrUtils, MPHexEditor, ExtCtrls,
6	Unit3_data, Unit2_functions, Unit9_data_structures, Unit4_exporters;
7
8	TYPE
9	TForm8 = Class(TForm)
10	Splitter1: TSplitter;
11	panel_data: TPanel;
12	hex: TMPHexEditor;
13	Splitter2: TSplitter;
14	structs: TWrapGrid;
15	panel_files: TPanel;
16	list: TListBox;
17	panel_extension: TPanel;
18	lbl_filter: TLabel;
19	combo_extension: TComboBox;
20	Bevel1: TBevel;
21	panel_imexport: TPanel;
22	btn_export: TButton;
23	btn_import: TButton;
24	opend: TOpenDialog;
25	saved: TSaveDialog;
26	value_viewer: TWrapGrid;
27	Splitter3: TSplitter;
28	{ PROCEDURE structsGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
29	PROCEDURE structsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
30	PROCEDURE structsKeyPress(Sender: TObject; var Key: Char);
31	} PROCEDURE FormActivate(Sender: TObject);
32	PROCEDURE btn_importClick(Sender: TObject);
33	PROCEDURE btn_exportClick(Sender: TObject);
34	PROCEDURE panel_imexportResize(Sender: TObject);
35	FUNCTION Save:Boolean;
36	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
37	PROCEDURE combo_extensionClick(Sender: TObject);
38	PROCEDURE panel_extensionResize(Sender: TObject);
39	FUNCTION GetValue(datatype:Word; offset:LongWord):String;
40	PROCEDURE WriteStructureInfos(structinfoid:Integer);
41	PROCEDURE hexSelectionChanged(Sender: TObject);
42	PROCEDURE hexChange(Sender: TObject);
43	PROCEDURE panel_dataResize(Sender: TObject);
44	PROCEDURE structsClick(Sender: TObject);
45	PROCEDURE FormResize(Sender: TObject);
46	PROCEDURE ClearStructViewer;
47	PROCEDURE listClick(Sender: TObject);
48	PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
49	PROCEDURE FormCreate(Sender: TObject);
50	PROCEDURE Recreatelist;
51	PROCEDURE ClearValues;
52	PROCEDURE WriteValues;
53	PRIVATE
54	PUBLIC
55	END;
56
57	VAR
58	Form8: TForm8;
59
60	IMPLEMENTATION
61	{$R *.dfm}
62	USES Unit1_main;
63	VAR
64	fileid:LongWord;
65
66	FUNCTION IntToBin(value:Byte):String;
67	VAR i:Byte;
68	BEGIN
69	Result:='';
70	FOR i:=7 DOWNTO 0 DO BEGIN
71	Result:=Result+IntToStr((value SHR i) AND $01);
72	END;
73	END;
74
75	FUNCTION TForm8.GetValue(datatype:Word; offset:LongWord):String;
76	VAR
77	data:Tdata;
78	i:Word;
79	BEGIN
80	CASE datatype OF
81	1: Result:=IntToStr(hex.data[offset]);
82	2: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]*256);
83	3: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]256+hex.data[offset+2]256*256);
84	4: Result:=IntToStr(hex.data[offset]+hex.data[offset+1]256+hex.data[offset+2]256256+hex.data[offset+3]256256256);
85	5: Result:='0x'+IntToHex(hex.data[offset],2);
86	6: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]*256,4);
87	7: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]256+hex.data[offset+2]256*256,6);
88	8: Result:='0x'+IntToHex(hex.data[offset]+hex.data[offset+1]256+hex.data[offset+2]256256+hex.data[offset+3]256256256,8);
89	9: BEGIN
90	SetLength(data,4);
91	data[0]:=hex.data[offset];
92	data[1]:=hex.data[offset+1];
93	data[2]:=hex.data[offset+2];
94	data[3]:=hex.data[offset+3];
95	Result:=FloatToStr(Decode_Float(data));
96	END;
97	10: Result:=IntToBin(hex.data[offset]);
98	10000..65535: BEGIN
99	Result:='';
100	FOR i:=1 TO datatype-10000 DO BEGIN
101	IF hex.Data[offset+i-1]>=32 THEN
102	Result:=Result+Chr(hex.Data[offset+i-1])
103	ELSE
104	Result:=Result+'.';
105	END;
106	END;
107	END;
108	END;
109
110	PROCEDURE TForm8.WriteStructureInfos(structinfoid:Integer);
111	VAR
112	i:Byte;
113	BEGIN
114	IF structinfoid>=0 THEN BEGIN
115	structs.Enabled:=True;
116	WITH structure_infos[structinfoid] DO BEGIN
117	Self.structs.RowCount:=Length(entries)+1;
118	FOR i:=1 TO Length(entries) DO BEGIN
119	Self.structs.Cells[0,i]:=entries[i-1].name;
120	Self.structs.Cells[1,i]:='0x'+IntToHex(entries[i-1].offset,6);
121	Self.structs.Cells[2,i]:=GetDataType(entries[i-1].datatype);
122	IF entries[i-1].datatype>10000 THEN
123	Self.structs.Cells[3,i]:='String#HINT:'+GetValue(entries[i-1].datatype,entries[i-1].offset)+'#'
124	ELSE
125	Self.structs.Cells[3,i]:=GetValue(entries[i-1].datatype,entries[i-1].offset);
126	Self.structs.Cells[4,i]:=entries[i-1].description;
127	END;
128	END;
129	END;
130	END;
131
132	PROCEDURE TForm8.ClearValues;
133	VAR
134	i:Byte;
135	BEGIN
136	FOR i:=1 TO value_viewer.RowCount-1 DO BEGIN
137	value_viewer.Cells[1,i]:='';
138	END;
139	END;
140
141	PROCEDURE TForm8.WriteValues;
142	VAR
143	i,j:Byte;
144	data:Tdata;
145	str:String;
146	BEGIN
147	FOR i:=1 TO value_viewer.RowCount-1 DO BEGIN
148	IF value_viewer.Cells[0,i]='1 byte, unsigned' THEN BEGIN
149	IF (hex.SelCount=1) OR (hex.SelCount=0) THEN
150	value_viewer.Cells[1,i]:=IntToStr(hex.Data[hex.SelStart])
151	ELSE
152	value_viewer.Cells[1,i]:='';
153	END;
154	IF value_viewer.Cells[0,i]='2 bytes, unsigned' THEN BEGIN
155	IF (hex.SelCount=2) OR (hex.SelCount=0) THEN
156	value_viewer.Cells[1,i]:=IntToStr( hex.Data[hex.SelStart]+hex.Data[hex.SelStart+1]*256 )
157	ELSE
158	value_viewer.Cells[1,i]:='';
159	END;
160	IF value_viewer.Cells[0,i]='4 bytes, unsigned' THEN BEGIN
161	IF (hex.SelCount=4) OR (hex.SelCount=0) THEN
162	value_viewer.Cells[1,i]:=IntToStr( hex.Data[hex.SelStart]+hex.Data[hex.SelStart+1]256+hex.Data[hex.SelStart+2]256256+hex.Data[hex.SelStart+3]256256256 )
163	ELSE
164	value_viewer.Cells[1,i]:='';
165	END;
166	IF value_viewer.Cells[0,i]='Bitset' THEN BEGIN
167	IF (hex.SelCount<=8) THEN BEGIN
168	IF hex.SelCount=0 THEN BEGIN
169	SetLength(data,1);
170	data[0]:=hex.Data[hex.SelStart];
171	END ELSE BEGIN
172	SetLength(data,hex.SelCount);
173	FOR j:=0 TO hex.SelCount-1 DO
174	data[j]:=hex.Data[hex.SelStart+j];
175	END;
176	value_viewer.Cells[1,i]:=DataToBin(data);
177	END ELSE
178	value_viewer.Cells[1,i]:='';
179	END;
180	IF value_viewer.Cells[0,i]='Float' THEN BEGIN
181	IF (hex.SelCount=4) OR (hex.SelCount=0) THEN BEGIN
182	SetLength(data,4);
183	FOR j:=0 TO 3 DO
184	data[j]:=hex.Data[hex.SelStart+j];
185	value_viewer.Cells[1,i]:=FloatToStr(Decode_Float(data));
186	END ELSE
187	value_viewer.Cells[1,i]:='';
188	END;
189	IF value_viewer.Cells[0,i]='Selected length' THEN BEGIN
190	value_viewer.Cells[1,i]:=IntToStr(hex.SelCount)+' bytes';
191	END;
192	IF value_viewer.Cells[0,i]='String' THEN BEGIN
193	j:=0;
194	str:='';
195	IF hex.SelCount=0 THEN BEGIN
196	WHILE hex.Data[hex.SelStart+j]>0 DO BEGIN
197	str:=str+Char(hex.Data[hex.SelStart+j]);
198	Inc(j);
199	END;
200	END ELSE BEGIN
201	FOR j:=1 TO hex.SelCount DO
202	str:=str+Char(hex.Data[hex.SelStart+j-1]);
203	END;
204	value_viewer.Cells[1,i]:=str;
205	END;
206	END;
207	END;
208
209	PROCEDURE TForm8.Recreatelist;
210	VAR
211	i:LongWord;
212	exts:TStringList;
213	BEGIN
214	combo_extension.Items.Clear;
215	combo_extension.Items.Add('_All files_ ('{+IntToStr(dat_header.Files)}+')');
216	exts:=GetExtensionsList;
217	FOR i:=0 TO High(exts) DO
218	combo_extension.Items.Add(exts[i]);
219	combo_extension.ItemIndex:=0;
220	combo_extensionClick(Self);
221	END;
222
223	PROCEDURE TForm8.FormCreate(Sender: TObject);
224	BEGIN
225	Self.Caption:='';
226	fileid:=0;
227	structs.ColCount:=5;
228	structs.RowCount:=2;
229	structs.FixedRows:=1;
230	structs.Cells[0,0]:='Name';
231	structs.Cells[1,0]:='Offset';
232	structs.Cells[2,0]:='Type';
233	structs.Cells[3,0]:='Value';
234	structs.Cells[4,0]:='Description';
235	structs.ColWidths[0]:=75;
236	structs.ColWidths[1]:=60;
237	structs.ColWidths[2]:=75;
238	structs.ColWidths[3]:=75;
239	value_viewer.ColCount:=2;
240	value_viewer.RowCount:=8;
241	value_viewer.FixedRows:=1;
242	value_viewer.Cells[0,0]:='Type';
243	value_viewer.Cells[1,0]:='Value';
244	value_viewer.Cells[0,1]:='1 byte, unsigned';
245	value_viewer.Cells[0,2]:='2 bytes, unsigned';
246	value_viewer.Cells[0,3]:='4 bytes, unsigned';
247	value_viewer.Cells[0,4]:='Bitset';
248	value_viewer.Cells[0,5]:='Float';
249	value_viewer.Cells[0,6]:='String';
250	value_viewer.Cells[0,7]:='Selected length';
251	value_viewer.ColWidths[0]:=100;
252	Self.panel_dataResize(Self);
253	END;
254
255	FUNCTION TForm8.Save:Boolean;
256	VAR
257	mem:TMemoryStream;
258	data:Tdata;
259	BEGIN
260	CASE MessageBox(Self.Handle,PChar('Save changes to file '+GetFileInfo(fileid).FileName+'?'),PChar('Data changed...'),MB_YESNOCANCEL) OF
261	IDYES: BEGIN
262	mem:=TMemoryStream.Create;
263	hex.SaveToStream(mem);
264	mem.Seek(0,soFromBeginning);
265	SetLength(data,mem.Size);
266	mem.Read(data[0],mem.Size);
267	mem.Free;
268	UpdateDatFile(fileid,data);
269	Result:=True;
270	END;
271	IDNO: Result:=True;
272	IDCANCEL: BEGIN
273	Result:=False;
274	END;
275	END;
276	END;
277
278	PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
279	BEGIN
280	IF hex.Modified THEN BEGIN
281	IF NOT Save THEN CanClose:=False;
282	END;
283	END;
284
285	PROCEDURE TForm8.listClick(Sender: TObject);
286	VAR
287	mem:TMemoryStream;
288	data:Tdata;
289	i:LongWord;
290	BEGIN
291	IF hex.Modified THEN BEGIN
292	IF NOT Save THEN BEGIN
293	FOR i:=0 TO list.Count-1 DO BEGIN
294	IF StrToInt(MidStr(list.Items.Strings[i],1,5))=fileid THEN BEGIN
295	list.ItemIndex:=i;
296	Exit;
297	END;
298	END;
299	END;
300	END;
301	Self.ClearStructViewer;
302	fileid:=StrToInt(MidStr(list.Items.Strings[list.ItemIndex],1,5));
303	data:=LoadDatFile(fileid);
304	IF Length(data)>0 THEN BEGIN
305	mem:=TMemoryStream.Create;
306	mem.Write(data[0],Length(data));
307	mem.Seek(0,soFromBeginning);
308	hex.LoadFromStream(mem);
309	mem.Free;
310	WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
311	END;
312	END;
313
314	PROCEDURE TForm8.ClearStructViewer;
315	VAR
316	x:Word;
317	BEGIN
318	structs.RowCount:=2;
319	FOR x:=0 TO structs.ColCount-1 DO structs.Cells[x,1]:='';
320	structs.Enabled:=False;
321	END;
322
323	PROCEDURE TForm8.FormResize(Sender: TObject);
324	BEGIN
325	IF Self.Width>=650 THEN BEGIN
326	END ELSE Self.Width:=650;
327	IF Self.Height>=450 THEN BEGIN
328	END ELSE Self.Height:=450;
329	END;
330
331	PROCEDURE TForm8.structsClick(Sender: TObject);
332	VAR
333	offset:LongWord;
334	length:Byte;
335	BEGIN
336	IF structs.Row>0 THEN BEGIN
337	offset:=structure_infos[GetStructureInfoId(GetFileInfo(fileid).extension)].entries[structs.Row-1].offset;
338	length:=GetTypeDataLength(structure_infos[GetStructureInfoId(GetFileInfo(fileid).extension)].entries[structs.Row-1].datatype);
339	hex.SelStart:=offset;
340	hex.SelEnd:=offset+length-1;
341	{ IF structs.Cells[structs.Col,0]='Value' THEN
342	IF structure_infos[GetStructureInfoId(dat_files[fileid].Extension)].entries[structs.Row-1].datatype<=10 THEN
343	structs.Options:=structs.Options+[goEditing]
344	ELSE
345	structs.Options:=structs.Options-[goEditing];
346	} END;
347	END;
348
349	PROCEDURE TForm8.panel_dataResize(Sender: TObject);
350	BEGIN
351	structs.ColWidths[4]:=structs.Width-structs.ColWidths[0]-structs.ColWidths[1]-structs.ColWidths[2]-structs.ColWidths[3]-28;
352	value_viewer.ColWidths[1]:=value_viewer.Width-value_viewer.ColWidths[0]-28;
353	END;
354
355	PROCEDURE TForm8.hexChange(Sender: TObject);
356	BEGIN
357	ClearValues;
358	IF hex.DataSize>0 THEN BEGIN
359	WriteStructureInfos(GetStructureInfoId(GetFileInfo(fileid).Extension));
360	WriteValues;
361	END;
362	END;
363
364	PROCEDURE TForm8.hexSelectionChanged(Sender: TObject);
365	VAR
366	selstart:Integer;
367	i,j:Word;
368	BEGIN
369	FOR i:=1 TO structs.RowCount-1 DO BEGIN
370	FOR j:=0 TO structs.ColCount-1 DO BEGIN
371	structs.CellColors[j,i]:=clWhite;
372	structs.CellFontColors[j,i]:=clBlack;
373	END;
374	END;
375	IF hex.DataSize>0 THEN BEGIN
376	selstart:=hex.SelStart;
377	IF GetStructureInfoId(GetFileInfo(fileid).Extension)>=0 THEN BEGIN
378	WITH structure_infos[GetStructureInfoId(GetFileInfo(fileid).Extension)] DO BEGIN
379	FOR i:=0 TO High(entries) DO BEGIN
380	IF ((selstart-entries[i].offset)<GetTypeDataLength(entries[i].datatype)) AND ((selstart-entries[i].offset)>=0) THEN BEGIN
381	FOR j:=0 TO structs.ColCount-1 DO BEGIN
382	structs.CellColors[j,i+1]:=clBlue;
383	structs.CellFontColors[j,i+1]:=clWhite;
384	END;
385	structs.Row:=i+1;
386	END;
387	END;
388	END;
389	END;
390	WriteValues;
391	END;
392	END;
393
394	PROCEDURE TForm8.panel_extensionResize(Sender: TObject);
395	BEGIN
396	combo_extension.Width:=panel_extension.Width-5;
397	END;
398
399	PROCEDURE TForm8.combo_extensionClick(Sender: TObject);
400	VAR
401	Extension:String[4];
402	files:TStringList;
403	i:LongWord;
404	BEGIN
405	Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
406	list.Items.Clear;
407	IF Extension='_All' THEN
408	files:=GetFilesList('','',True)
409	ELSE
410	files:=GetFilesList(extension,'',True);
411	IF Length(files)>0 THEN
412	FOR i:=0 TO High(files) DO
413	list.Items.Add(files[i]);
414	END;
415
416	PROCEDURE TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
417	BEGIN
418	Action:=caFree;
419	Form1.close_window(Self.Name);
420	END;
421
422	PROCEDURE TForm8.panel_imexportResize(Sender: TObject);
423	BEGIN
424	btn_import.Width:=panel_imexport.Width-8;
425	btn_export.Width:=panel_imexport.Width-8;
426	END;
427
428	PROCEDURE TForm8.btn_exportClick(Sender: TObject);
429	BEGIN
430	saved.Filter:='Files of matching extension (.'+GetFileInfo(fileid).Extension+')\|.'+dat_files[fileid].Extension+'\|All files\|.';
431	saved.DefaultExt:=GetFileInfo(fileid).Extension;
432	IF saved.Execute THEN BEGIN
433	ExportDatFile(fileid,saved.FileName);
434	END;
435	END;
436
437	PROCEDURE TForm8.btn_importClick(Sender: TObject);
438	VAR
439	data:Tdata;
440	fs:TFileStream;
441	BEGIN
442	opend.Filter:='Files of matching extension (.'+GetFileInfo(fileid).Extension+')\|.'+dat_files[fileid].Extension+'\|All files\|.';
443	IF opend.Execute THEN BEGIN
444	fs:=TFileStream.Create(opend.FileName,fmOpenRead);
445	IF fs.Size<>hex.DataSize THEN BEGIN
446	ShowMessage('Can''t import '+ExtractFilename(opend.FileName)+
447	', file has to have same size as file in .dat.'+CrLf+
448	'Size of file in .dat: '+FormatFileSize(hex.datasize)+CrLf+
449	'Size of chosen file: '+FormatFileSize(fs.Size));
450	END ELSE BEGIN
451	{ SetLength(data,fs.Size);
452	fs.Read(data[0],fs.Size);
453	fs.Free;
454	fs:=TFileStream.Create(dat_filename,fmOpenReadWrite);
455	fs.Seek(dat_files[fileid].dataddr,soFromBeginning);
456	fs.Write(data[0],Length(data));
457	} END;
458	fs.Free;
459	listClick(Self);
460	END;
461	END;
462
463	PROCEDURE TForm8.FormActivate(Sender: TObject);
464	BEGIN
465	Form1.SetActiveWindow(Self.Name);
466	END;
467	{
468	PROCEDURE TForm8.structsKeyPress(Sender: TObject; VAR Key: Char);
469	VAR
470	dt:Byte;
471	BEGIN
472	IF structs.EditorMode THEN BEGIN
473	dt:=structure_infos[GetStructureInfoId(dat_files[fileid].Extension)].entries[structs.Row-1].datatype;
474	CASE dt OF
475	1..4: BEGIN
476	IF NOT (Key IN [#8,#13,#27,'0'..'9']) THEN Key:=#0;
477	END;
478	5..8: BEGIN
479	IF NOT (Key IN [#8,#13,#27,'0'..'9','A'..'F','a'..'f']) THEN Key:=#0;
480	IF Key IN ['a'..'f'] THEN Key:=UpCase(Key);
481	IF NOT (Key IN [#8,#13,#27]) AND ( Length(structs.Cells[structs.Col,structs.Row])>=2*(dt-4) ) THEN Key:=#0;
482	END;
483	9: BEGIN
484	IF (Key IN ['.']) AND (Pos('.',structs.Cells[structs.Col,structs.Row])>0) THEN Key:=#0;
485	IF NOT (Key IN [#8,#13,#27,'0'..'9','.','-']) THEN Key:=#0;
486	END;
487	10: BEGIN
488	IF NOT (Key IN [#8,#13,#27,'0'..'1']) THEN Key:=#0;
489	IF NOT (Key IN [#8,#13,#27]) AND ( Length(structs.Cells[structs.Col,structs.Row])>=8 ) THEN Key:=#0;
490	END;
491	END;
492	END;
493	END;
494
495	PROCEDURE TForm8.structsSetEditText(Sender: TObject; ACol, ARow: Integer; CONST Value: string);
496	BEGIN
497	IF NOT TWrapGrid(Sender).EditorMode THEN
498	ShowMessage('['+IntToStr(ACol)+'\|'+IntToStr(ARow)+']='+Value);
499	END;
500
501	PROCEDURE TForm8.structsGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
502	BEGIN
503	IF structs.EditorMode THEN
504	ShowMessage('EditorMode - '+Value)
505	ELSE
506	ShowMessage('NOT EditorMode - '+Value);
507	END;
508	}
509	END.