releases/0.18a2/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;
    Label1: TLabel;
    combo_extension: TComboBox;
    Bevel1: TBevel;
    panel_imexport: TPanel;
    btn_export: TButton;
    btn_import: TButton;
    opend: TOpenDialog;
    saved: TSaveDialog;
    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:Byte; 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;
  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:Byte; offset:LongWord):String;
  VAR
    data:Tdata;
  BEGIN
    CASE datatype OF
      1: Result:=IntToStr(Self.hex.data[offset]);
      2: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]*256);
      3: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]*256+Self.hex.data[offset+2]*256*256);
      4: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]*256+Self.hex.data[offset+2]*256*256+Self.hex.data[offset+3]*256*256*256);
      5: Result:='0x'+IntToHex(Self.hex.data[offset],2);
      6: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]*256,4);
      7: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]*256+Self.hex.data[offset+2]*256*256,6);
      8: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]*256+Self.hex.data[offset+2]*256*256+Self.hex.data[offset+3]*256*256*256,8);
      9: BEGIN
          SetLength(data,4);
          data[0]:=Self.hex.data[offset];
          data[1]:=Self.hex.data[offset+1];
          data[2]:=Self.hex.data[offset+2];
          data[3]:=Self.hex.data[offset+3];
          Result:=FloatToStr(Decode_Float(data));
        END;
      10: Result:=IntToBin(Self.hex.data[offset]);
    END;
  END;

PROCEDURE TForm8.WriteStructureInfos(structinfoid:Integer);
  VAR
    i:Byte;
  BEGIN
    IF structinfoid>=0 THEN BEGIN
      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);
          Self.structs.Cells[3,i]:=Self.GetValue(entries[i-1].datatype,entries[i-1].offset);
          Self.structs.Cells[4,i]:=entries[i-1].description;
        END;
      END;
    END;
  END;

PROCEDURE TForm8.Recreatelist;
  VAR
    i:LongWord;
  BEGIN
    combo_extension.Items.Clear;
    combo_extension.Items.Add('_All files_ ('+IntToStr(dat_header.Files)+')');
    FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
      WITH dat_extensionsmap[i] DO BEGIN
        combo_extension.Items.Add(
          Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+
          IntToStr(ExtCount)+')');
      END;
    END;
    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;
    Self.panel_dataResize(Self);
  END;

FUNCTION TForm8.Save:Boolean;
  VAR
    mem:TMemoryStream;
    data:Tdata;
  BEGIN
    CASE MessageBox(Self.Handle,PChar('Save changes to file '+dat_files[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;
          SaveDatFile(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);
    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 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(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]-28;
  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: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(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;

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];
    i:LongWord;
  BEGIN
    Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
    list.Items.Clear;
    IF Extension='_All' THEN BEGIN
      FOR i:=0 TO dat_header.Files-1 DO
        IF (dat_files[i].FileType AND $02)=0 THEN
          list.Items.Add(dat_files[i].FileName);
    END ELSE BEGIN
      FOR i:=0 TO dat_header.Files-1 DO
        IF dat_files[i].Extension=Extension THEN
          IF (dat_files[i].FileType AND $02)=0 THEN
            list.Items.Add(dat_files[i].FileName);
    END;
    IF list.Count>0 THEN BEGIN
      list.ItemIndex:=0;
      listClick(Self);
    END;
  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 (*.'+dat_files[fileid].Extension+')|*.'+dat_files[fileid].Extension+'|All files|*.*';
    saved.DefaultExt:=dat_files[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 (*.'+dat_files[fileid].Extension+')|*.'+dat_files[fileid].Extension+'|All files|*.*';
    IF opend.Execute THEN BEGIN
      fs:=TFileStream.Create(opend.FileName,fmOpenRead);
      IF fs.Size<>dat_files[fileid].size 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(dat_files[fileid].size)+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;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	11443 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	Label1: 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	procedure FormActivate(Sender: TObject);
27	PROCEDURE btn_importClick(Sender: TObject);
28	PROCEDURE btn_exportClick(Sender: TObject);
29	PROCEDURE panel_imexportResize(Sender: TObject);
30	FUNCTION Save:Boolean;
31	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
32	PROCEDURE combo_extensionClick(Sender: TObject);
33	PROCEDURE panel_extensionResize(Sender: TObject);
34	FUNCTION GetValue(datatype:Byte; offset:LongWord):String;
35	PROCEDURE WriteStructureInfos(structinfoid:Integer);
36	PROCEDURE hexSelectionChanged(Sender: TObject);
37	PROCEDURE hexChange(Sender: TObject);
38	PROCEDURE panel_dataResize(Sender: TObject);
39	PROCEDURE structsClick(Sender: TObject);
40	PROCEDURE FormResize(Sender: TObject);
41	PROCEDURE ClearStructViewer;
42	PROCEDURE listClick(Sender: TObject);
43	PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
44	PROCEDURE FormCreate(Sender: TObject);
45	PROCEDURE Recreatelist;
46	PRIVATE
47	PUBLIC
48	END;
49
50	VAR
51	Form8: TForm8;
52
53	IMPLEMENTATION
54	{$R *.dfm}
55	USES Unit1_main;
56	VAR
57	fileid:LongWord;
58
59	FUNCTION IntToBin(value:Byte):String;
60	VAR i:Byte;
61	BEGIN
62	Result:='';
63	FOR i:=7 DOWNTO 0 DO BEGIN
64	Result:=Result+IntToStr((value SHR i) AND $01);
65	END;
66	END;
67
68	FUNCTION TForm8.GetValue(datatype:Byte; offset:LongWord):String;
69	VAR
70	data:Tdata;
71	BEGIN
72	CASE datatype OF
73	1: Result:=IntToStr(Self.hex.data[offset]);
74	2: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]*256);
75	3: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]256+Self.hex.data[offset+2]256*256);
76	4: Result:=IntToStr(Self.hex.data[offset]+Self.hex.data[offset+1]256+Self.hex.data[offset+2]256256+Self.hex.data[offset+3]256256256);
77	5: Result:='0x'+IntToHex(Self.hex.data[offset],2);
78	6: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]*256,4);
79	7: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]256+Self.hex.data[offset+2]256*256,6);
80	8: Result:='0x'+IntToHex(Self.hex.data[offset]+Self.hex.data[offset+1]256+Self.hex.data[offset+2]256256+Self.hex.data[offset+3]256256256,8);
81	9: BEGIN
82	SetLength(data,4);
83	data[0]:=Self.hex.data[offset];
84	data[1]:=Self.hex.data[offset+1];
85	data[2]:=Self.hex.data[offset+2];
86	data[3]:=Self.hex.data[offset+3];
87	Result:=FloatToStr(Decode_Float(data));
88	END;
89	10: Result:=IntToBin(Self.hex.data[offset]);
90	END;
91	END;
92
93	PROCEDURE TForm8.WriteStructureInfos(structinfoid:Integer);
94	VAR
95	i:Byte;
96	BEGIN
97	IF structinfoid>=0 THEN BEGIN
98	WITH structure_infos[structinfoid] DO BEGIN
99	Self.structs.RowCount:=Length(entries)+1;
100	FOR i:=1 TO Length(entries) DO BEGIN
101	Self.structs.Cells[0,i]:=entries[i-1].name;
102	Self.structs.Cells[1,i]:='0x'+IntToHex(entries[i-1].offset,6);
103	Self.structs.Cells[2,i]:=GetDataType(entries[i-1].datatype);
104	Self.structs.Cells[3,i]:=Self.GetValue(entries[i-1].datatype,entries[i-1].offset);
105	Self.structs.Cells[4,i]:=entries[i-1].description;
106	END;
107	END;
108	END;
109	END;
110
111	PROCEDURE TForm8.Recreatelist;
112	VAR
113	i:LongWord;
114	BEGIN
115	combo_extension.Items.Clear;
116	combo_extension.Items.Add('_All files_ ('+IntToStr(dat_header.Files)+')');
117	FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
118	WITH dat_extensionsmap[i] DO BEGIN
119	combo_extension.Items.Add(
120	Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+
121	IntToStr(ExtCount)+')');
122	END;
123	END;
124	combo_extension.ItemIndex:=0;
125	combo_extensionClick(Self);
126	END;
127
128	PROCEDURE TForm8.FormCreate(Sender: TObject);
129	BEGIN
130	Self.Caption:='';
131	fileid:=0;
132	structs.ColCount:=5;
133	structs.RowCount:=2;
134	structs.FixedRows:=1;
135	structs.Cells[0,0]:='Name';
136	structs.Cells[1,0]:='Offset';
137	structs.Cells[2,0]:='Type';
138	structs.Cells[3,0]:='Value';
139	structs.Cells[4,0]:='Description';
140	structs.ColWidths[0]:=75;
141	structs.ColWidths[1]:=60;
142	structs.ColWidths[2]:=75;
143	structs.ColWidths[3]:=75;
144	Self.panel_dataResize(Self);
145	END;
146
147	FUNCTION TForm8.Save:Boolean;
148	VAR
149	mem:TMemoryStream;
150	data:Tdata;
151	BEGIN
152	CASE MessageBox(Self.Handle,PChar('Save changes to file '+dat_files[fileid].FileName+'?'),PChar('Data changed...'),MB_YESNOCANCEL) OF
153	IDYES: BEGIN
154	mem:=TMemoryStream.Create;
155	hex.SaveToStream(mem);
156	mem.Seek(0,soFromBeginning);
157	SetLength(data,mem.Size);
158	mem.Read(data[0],mem.Size);
159	mem.Free;
160	SaveDatFile(fileid,data);
161	Result:=True;
162	END;
163	IDNO: Result:=True;
164	IDCANCEL: BEGIN
165	Result:=False;
166	END;
167	END;
168	END;
169
170	PROCEDURE TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
171	BEGIN
172	IF hex.Modified THEN BEGIN
173	IF NOT Save THEN CanClose:=False;
174	END;
175	END;
176
177	PROCEDURE TForm8.listClick(Sender: TObject);
178	VAR
179	mem:TMemoryStream;
180	data:Tdata;
181	i:LongWord;
182	BEGIN
183	IF hex.Modified THEN BEGIN
184	IF NOT Save THEN BEGIN
185	FOR i:=0 TO list.Count-1 DO BEGIN
186	IF StrToInt(MidStr(list.Items.Strings[i],1,5))=fileid THEN BEGIN
187	list.ItemIndex:=i;
188	Exit;
189	END;
190	END;
191	END;
192	END;
193	Self.ClearStructViewer;
194	fileid:=StrToInt(MidStr(list.Items.Strings[list.ItemIndex],1,5));
195	data:=LoadDatFile(fileid);
196	mem:=TMemoryStream.Create;
197	mem.Write(data[0],Length(data));
198	hex.LoadFromStream(mem);
199	mem.Free;
200	WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
201	END;
202
203	PROCEDURE TForm8.ClearStructViewer;
204	VAR
205	x:Word;
206	BEGIN
207	structs.RowCount:=2;
208	FOR x:=0 TO structs.ColCount-1 DO structs.Cells[x,1]:='';
209	END;
210
211	PROCEDURE TForm8.FormResize(Sender: TObject);
212	BEGIN
213	IF Self.Width>=650 THEN BEGIN
214	END ELSE Self.Width:=650;
215	IF Self.Height>=450 THEN BEGIN
216	END ELSE Self.Height:=450;
217	END;
218
219	PROCEDURE TForm8.structsClick(Sender: TObject);
220	VAR
221	offset:LongWord;
222	length:Byte;
223	BEGIN
224	IF structs.Row>0 THEN BEGIN
225	offset:=structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].offset;
226	length:=GetTypeDataLength(structure_infos[GetStructureInfoId(dat_files[fileid].extension)].entries[structs.Row-1].datatype);
227	hex.SelStart:=offset;
228	hex.SelEnd:=offset+length-1;
229	END;
230	END;
231
232	PROCEDURE TForm8.panel_dataResize(Sender: TObject);
233	BEGIN
234	structs.ColWidths[4]:=structs.Width-structs.ColWidths[0]-structs.ColWidths[1]-structs.ColWidths[2]-structs.ColWidths[3]-28;
235	END;
236
237	PROCEDURE TForm8.hexChange(Sender: TObject);
238	BEGIN
239	IF hex.DataSize>0 THEN
240	WriteStructureInfos(GetStructureInfoId(dat_files[fileid].Extension));
241	END;
242
243	PROCEDURE TForm8.hexSelectionChanged(Sender: TObject);
244	VAR
245	selstart:Integer;
246	i,j:Word;
247	BEGIN
248	FOR i:=1 TO structs.RowCount-1 DO BEGIN
249	FOR j:=0 TO structs.ColCount-1 DO BEGIN
250	structs.CellColors[j,i]:=clWhite;
251	structs.CellFontColors[j,i]:=clBlack;
252	END;
253	END;
254	IF hex.DataSize>0 THEN BEGIN
255	selstart:=hex.SelStart;
256	IF GetStructureInfoId(dat_files[fileid].Extension)>=0 THEN BEGIN
257	WITH structure_infos[GetStructureInfoId(dat_files[fileid].Extension)] DO BEGIN
258	FOR i:=0 TO High(entries) DO BEGIN
259	IF ((selstart-entries[i].offset)<GetTypeDataLength(entries[i].datatype)) AND ((selstart-entries[i].offset)>=0) THEN BEGIN
260	FOR j:=0 TO structs.ColCount-1 DO BEGIN
261	structs.CellColors[j,i+1]:=clBlue;
262	structs.CellFontColors[j,i+1]:=clWhite;
263	END;
264	structs.Row:=i+1;
265	END;
266	END;
267	END;
268	END;
269	END;
270	END;
271
272	PROCEDURE TForm8.panel_extensionResize(Sender: TObject);
273	BEGIN
274	combo_extension.Width:=panel_extension.Width-5;
275	END;
276
277	PROCEDURE TForm8.combo_extensionClick(Sender: TObject);
278	VAR
279	Extension:String[4];
280	i:LongWord;
281	BEGIN
282	Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
283	list.Items.Clear;
284	IF Extension='_All' THEN BEGIN
285	FOR i:=0 TO dat_header.Files-1 DO
286	IF (dat_files[i].FileType AND $02)=0 THEN
287	list.Items.Add(dat_files[i].FileName);
288	END ELSE BEGIN
289	FOR i:=0 TO dat_header.Files-1 DO
290	IF dat_files[i].Extension=Extension THEN
291	IF (dat_files[i].FileType AND $02)=0 THEN
292	list.Items.Add(dat_files[i].FileName);
293	END;
294	IF list.Count>0 THEN BEGIN
295	list.ItemIndex:=0;
296	listClick(Self);
297	END;
298	END;
299
300	PROCEDURE TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
301	BEGIN
302	Action:=caFree;
303	Form1.close_window(Self.Name);
304	END;
305
306	PROCEDURE TForm8.panel_imexportResize(Sender: TObject);
307	BEGIN
308	btn_import.Width:=panel_imexport.Width-8;
309	btn_export.Width:=panel_imexport.Width-8;
310	END;
311
312	PROCEDURE TForm8.btn_exportClick(Sender: TObject);
313	BEGIN
314	saved.Filter:='Files of matching extension (.'+dat_files[fileid].Extension+')\|.'+dat_files[fileid].Extension+'\|All files\|.';
315	saved.DefaultExt:=dat_files[fileid].Extension;
316	IF saved.Execute THEN BEGIN
317	ExportDatFile(fileid,saved.FileName);
318	END;
319	END;
320
321	PROCEDURE TForm8.btn_importClick(Sender: TObject);
322	VAR
323	data:Tdata;
324	fs:TFileStream;
325	BEGIN
326	opend.Filter:='Files of matching extension (.'+dat_files[fileid].Extension+')\|.'+dat_files[fileid].Extension+'\|All files\|.';
327	IF opend.Execute THEN BEGIN
328	fs:=TFileStream.Create(opend.FileName,fmOpenRead);
329	IF fs.Size<>dat_files[fileid].size THEN BEGIN
330	ShowMessage('Can''t import '+ExtractFilename(opend.FileName)+
331	', file has to have same size as file in .dat.'+CrLf+
332	'Size of file in .dat: '+FormatFileSize(dat_files[fileid].size)+CrLf+
333	'Size of chosen file: '+FormatFileSize(fs.Size));
334	END ELSE BEGIN
335	SetLength(data,fs.Size);
336	fs.Read(data[0],fs.Size);
337	fs.Free;
338	fs:=TFileStream.Create(dat_filename,fmOpenReadWrite);
339	fs.Seek(dat_files[fileid].dataddr,soFromBeginning);
340	fs.Write(data[0],Length(data));
341	END;
342	fs.Free;
343	listClick(Self);
344	END;
345	END;
346
347	PROCEDURE TForm8.FormActivate(Sender: TObject);
348	BEGIN
349	Form1.SetActiveWindow(Self.Name);
350	END;
351
352	END.