releases/0.17a/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;

TYPE
  TForm8 = Class(TForm)
    list: TListBox;
    Splitter1: TSplitter;
    panel_data: TPanel;
    hex: TMPHexEditor;
    Splitter2: TSplitter;
    structs: TWrapGrid;
    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;
  PRIVATE
  PUBLIC
  END;

VAR
  Form8: TForm8;

IMPLEMENTATION
{$R *.dfm}
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 GetTypeDataLength(datatype:Byte):Byte;
  BEGIN
    CASE datatype OF
      1..4: Result:=datatype;
      5..8: Result:=datatype-4;
      9: Result:=4;
      10: Result:=1;
      11..255: Result:=datatype-10;
    END;
  END;

FUNCTION GetValue(datatype:Byte; offset:LongWord):String;
  VAR
    data:Tdata;
  BEGIN
    CASE datatype OF
      1: Result:=IntToStr(Form8.hex.data[offset]);
      2: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256);
      3: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256+Form8.hex.data[offset+2]*256*256);
      4: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256+Form8.hex.data[offset+2]*256*256+Form8.hex.data[offset+3]*256*256*256);
      5: Result:='0x'+IntToHex(Form8.hex.data[offset],2);
      6: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256,4);
      7: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256+Form8.hex.data[offset+2]*256*256,6);
      8: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256+Form8.hex.data[offset+2]*256*256+Form8.hex.data[offset+3]*256*256*256,8);
      9: BEGIN
          SetLength(data,4);
          data[0]:=Form8.hex.data[offset];
          data[1]:=Form8.hex.data[offset+1];
          data[2]:=Form8.hex.data[offset+2];
          data[3]:=Form8.hex.data[offset+3];
          Result:=FloatToStr(Decode_Float(data));
        END;
      10: Result:=IntToBin(Form8.hex.data[offset]);
    END;
  END;

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

PROCEDURE TForm8.Recreatelist;
  VAR
    i:LongWord;
  BEGIN
    Form8.list.Items.Clear;
    FOR i:=0 TO dat_header.Files-1 DO BEGIN
      IF (dat_files[i].FileType AND $02)=0 THEN
        Form8.list.Items.Add(dat_files[i].FileName);
    END;
  END;

PROCEDURE TForm8.FormCreate(Sender: TObject);
  BEGIN
    Form8.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;
    Form8.panel_dataResize(Form8);
  END;

PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  BEGIN
    CanClose:=False;
    Form8.Visible:=False;
  END;

PROCEDURE TForm8.listClick(Sender: TObject);
  VAR
    mem:TMemoryStream;
    data:Tdata;
  BEGIN
    IF hex.Modified THEN BEGIN
      IF MessageBox(Form8.Handle,PChar('Save changes to file '+dat_files[fileid].FileName+'?'),PChar('Data changed...'),MB_YESNO)=IDYES THEN BEGIN
        mem:=TMemoryStream.Create;
        hex.SaveToStream(mem);
        mem.Seek(0,soFromBeginning);
        SetLength(data,mem.Size);
        mem.Read(data[0],mem.Size); 
        mem.Free;
        SaveDatFile(fileid,data);
        ShowMessage('Changes saved...');
      END;
    END;
    Form8.ClearStructViewer;
    fileid:=StrToInt(MidStr(list.Items.Strings[list.ItemIndex],1,5));
    data:=LoadDatFile(fileid);
    mem:=TMemoryStream.Create;
    mem.Write(data[0],Length(data));
    hex.LoadFromStream(mem);
    mem.Free;
    WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
  END;

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

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

PROCEDURE TForm8.structsClick(Sender: TObject);
  VAR
    offset:LongWord;
    length:Byte;
  BEGIN
    IF structs.Row>0 THEN BEGIN
      offset:=structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].offset;
      length:=GetTypeDataLength(structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].datatype);
      hex.SelStart:=offset;
      hex.SelEnd:=offset+length-1;
    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]-12;
  END;

PROCEDURE TForm8.hexChange(Sender: TObject);
  BEGIN
    IF hex.DataSize>0 THEN
      WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
  END;

PROCEDURE TForm8.hexSelectionChanged(Sender: TObject);
  VAR
    selstart,sellength,selend: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;
      selend:=hex.SelEnd;
      sellength:=hex.SelCount;
      IF GetStructureInfoId(dat_files[fileid].Extension)>=0 THEN BEGIN
        WITH structure_infos[GetStructureInfoId(dat_files[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;
    END;
  END;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	7540 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;
7
8	TYPE
9	TForm8 = Class(TForm)
10	list: TListBox;
11	Splitter1: TSplitter;
12	panel_data: TPanel;
13	hex: TMPHexEditor;
14	Splitter2: TSplitter;
15	structs: TWrapGrid;
16	PROCEDURE hexSelectionChanged(Sender: TObject);
17	PROCEDURE hexChange(Sender: TObject);
18	PROCEDURE panel_dataResize(Sender: TObject);
19	PROCEDURE structsClick(Sender: TObject);
20	PROCEDURE FormResize(Sender: TObject);
21	PROCEDURE ClearStructViewer;
22	PROCEDURE listClick(Sender: TObject);
23	PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
24	PROCEDURE FormCreate(Sender: TObject);
25	PROCEDURE Recreatelist;
26	PRIVATE
27	PUBLIC
28	END;
29
30	VAR
31	Form8: TForm8;
32
33	IMPLEMENTATION
34	{$R *.dfm}
35	VAR
36	fileid:LongWord;
37
38	FUNCTION IntToBin(value:Byte):String;
39	VAR i:Byte;
40	BEGIN
41	Result:='';
42	FOR i:=7 DOWNTO 0 DO BEGIN
43	Result:=Result+IntToStr((value SHR i) AND $01);
44	END;
45	END;
46
47	FUNCTION GetTypeDataLength(datatype:Byte):Byte;
48	BEGIN
49	CASE datatype OF
50	1..4: Result:=datatype;
51	5..8: Result:=datatype-4;
52	9: Result:=4;
53	10: Result:=1;
54	11..255: Result:=datatype-10;
55	END;
56	END;
57
58	FUNCTION GetValue(datatype:Byte; offset:LongWord):String;
59	VAR
60	data:Tdata;
61	BEGIN
62	CASE datatype OF
63	1: Result:=IntToStr(Form8.hex.data[offset]);
64	2: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256);
65	3: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]256+Form8.hex.data[offset+2]256*256);
66	4: Result:=IntToStr(Form8.hex.data[offset]+Form8.hex.data[offset+1]256+Form8.hex.data[offset+2]256256+Form8.hex.data[offset+3]256256256);
67	5: Result:='0x'+IntToHex(Form8.hex.data[offset],2);
68	6: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]*256,4);
69	7: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]256+Form8.hex.data[offset+2]256*256,6);
70	8: Result:='0x'+IntToHex(Form8.hex.data[offset]+Form8.hex.data[offset+1]256+Form8.hex.data[offset+2]256256+Form8.hex.data[offset+3]256256256,8);
71	9: BEGIN
72	SetLength(data,4);
73	data[0]:=Form8.hex.data[offset];
74	data[1]:=Form8.hex.data[offset+1];
75	data[2]:=Form8.hex.data[offset+2];
76	data[3]:=Form8.hex.data[offset+3];
77	Result:=FloatToStr(Decode_Float(data));
78	END;
79	10: Result:=IntToBin(Form8.hex.data[offset]);
80	END;
81	END;
82
83	PROCEDURE WriteStructureInfos(structinfoid:Integer);
84	VAR
85	i:Byte;
86	BEGIN
87	IF structinfoid>=0 THEN BEGIN
88	WITH structure_infos[structinfoid] DO BEGIN
89	Form8.structs.RowCount:=Length(entries)+1;
90	FOR i:=1 TO Length(entries) DO BEGIN
91	Form8.structs.Cells[0,i]:=entries[i-1].name;
92	Form8.structs.Cells[1,i]:='0x'+IntToHex(entries[i-1].offset,6);
93	Form8.structs.Cells[2,i]:=GetDataType(entries[i-1].datatype);
94	Form8.structs.Cells[3,i]:=GetValue(entries[i-1].datatype,entries[i-1].offset);
95	Form8.structs.Cells[4,i]:=entries[i-1].description;
96	END;
97	END;
98	END;
99	END;
100
101	PROCEDURE TForm8.Recreatelist;
102	VAR
103	i:LongWord;
104	BEGIN
105	Form8.list.Items.Clear;
106	FOR i:=0 TO dat_header.Files-1 DO BEGIN
107	IF (dat_files[i].FileType AND $02)=0 THEN
108	Form8.list.Items.Add(dat_files[i].FileName);
109	END;
110	END;
111
112	PROCEDURE TForm8.FormCreate(Sender: TObject);
113	BEGIN
114	Form8.Caption:='';
115	fileid:=0;
116	structs.ColCount:=5;
117	structs.RowCount:=2;
118	structs.FixedRows:=1;
119	structs.Cells[0,0]:='Name';
120	structs.Cells[1,0]:='Offset';
121	structs.Cells[2,0]:='Type';
122	structs.Cells[3,0]:='Value';
123	structs.Cells[4,0]:='Description';
124	structs.ColWidths[0]:=75;
125	structs.ColWidths[1]:=60;
126	structs.ColWidths[2]:=75;
127	structs.ColWidths[3]:=75;
128	Form8.panel_dataResize(Form8);
129	END;
130
131	PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
132	BEGIN
133	CanClose:=False;
134	Form8.Visible:=False;
135	END;
136
137	PROCEDURE TForm8.listClick(Sender: TObject);
138	VAR
139	mem:TMemoryStream;
140	data:Tdata;
141	BEGIN
142	IF hex.Modified THEN BEGIN
143	IF MessageBox(Form8.Handle,PChar('Save changes to file '+dat_files[fileid].FileName+'?'),PChar('Data changed...'),MB_YESNO)=IDYES THEN BEGIN
144	mem:=TMemoryStream.Create;
145	hex.SaveToStream(mem);
146	mem.Seek(0,soFromBeginning);
147	SetLength(data,mem.Size);
148	mem.Read(data[0],mem.Size);
149	mem.Free;
150	SaveDatFile(fileid,data);
151	ShowMessage('Changes saved...');
152	END;
153	END;
154	Form8.ClearStructViewer;
155	fileid:=StrToInt(MidStr(list.Items.Strings[list.ItemIndex],1,5));
156	data:=LoadDatFile(fileid);
157	mem:=TMemoryStream.Create;
158	mem.Write(data[0],Length(data));
159	hex.LoadFromStream(mem);
160	mem.Free;
161	WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
162	END;
163
164	PROCEDURE TForm8.ClearStructViewer;
165	VAR
166	x:Word;
167	BEGIN
168	structs.RowCount:=2;
169	FOR x:=0 TO structs.ColCount-1 DO structs.Cells[x,1]:='';
170	END;
171
172	PROCEDURE TForm8.FormResize(Sender: TObject);
173	BEGIN
174	IF Form8.Width>=650 THEN BEGIN
175	END ELSE Form8.Width:=650;
176	IF Form8.Height>=450 THEN BEGIN
177	END ELSE Form8.Height:=450;
178	END;
179
180	PROCEDURE TForm8.structsClick(Sender: TObject);
181	VAR
182	offset:LongWord;
183	length:Byte;
184	BEGIN
185	IF structs.Row>0 THEN BEGIN
186	offset:=structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].offset;
187	length:=GetTypeDataLength(structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].datatype);
188	hex.SelStart:=offset;
189	hex.SelEnd:=offset+length-1;
190	END;
191	END;
192
193	PROCEDURE TForm8.panel_dataResize(Sender: TObject);
194	BEGIN
195	structs.ColWidths[4]:=structs.Width-structs.ColWidths[0]-structs.ColWidths[1]-structs.ColWidths[2]-structs.ColWidths[3]-12;
196	END;
197
198	PROCEDURE TForm8.hexChange(Sender: TObject);
199	BEGIN
200	IF hex.DataSize>0 THEN
201	WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
202	END;
203
204	PROCEDURE TForm8.hexSelectionChanged(Sender: TObject);
205	VAR
206	selstart,sellength,selend:Integer;
207	i,j:Word;
208	BEGIN
209	FOR i:=1 TO structs.RowCount-1 DO BEGIN
210	FOR j:=0 TO structs.ColCount-1 DO BEGIN
211	structs.CellColors[j,i]:=clWhite;
212	structs.CellFontColors[j,i]:=clBlack;
213	END;
214	END;
215	IF hex.DataSize>0 THEN BEGIN
216	selstart:=hex.SelStart;
217	selend:=hex.SelEnd;
218	sellength:=hex.SelCount;
219	IF GetStructureInfoId(dat_files[fileid].Extension)>=0 THEN BEGIN
220	WITH structure_infos[GetStructureInfoId(dat_files[fileid].Extension)] DO BEGIN
221	FOR i:=0 TO High(entries) DO BEGIN
222	IF ((selstart-entries[i].offset)<GetTypeDataLength(entries[i].datatype)) AND ((selstart-entries[i].offset)>=0) THEN BEGIN
223	FOR j:=0 TO structs.ColCount-1 DO BEGIN
224	structs.CellColors[j,i+1]:=clBlue;
225	structs.CellFontColors[j,i+1]:=clWhite;
226	END;
227	structs.Row:=i+1;
228	END;
229	END;
230	END;
231	END;
232	END;
233	END;
234
235	END.