source: oup/current/Tools/MetaEditor.pas@ 248

Last change on this file since 248 was 248, checked in by alloc, 18 years ago
File size: 10.2 KB
Line 
1unit MetaEditor;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls, ComCtrls, Grids,
8 MPHexEditor, Wrapgrid, VTHeaderPopup, Menus, _TreeElement;
9
10type
11 TForm_Meta = class(TForm_BaseTemplate)
12 VST: TVirtualStringTree;
13 splitter: TSplitter;
14 rightPages: TPageControl;
15 tab_hex: TTabSheet;
16 tab_meta: TTabSheet;
17 panel_hex_actions: TPanel;
18 hex: TMPHexEditor;
19 splitter_hex_1: TSplitter;
20 value_viewer: TWrapGrid;
21 splitter_hex_2: TSplitter;
22 structviewer: TVirtualStringTree;
23 value_viewer_context: TPopupMenu;
24 value_viewer_context_copy: TMenuItem;
25 value_viewer_context_copyasdec: TMenuItem;
26 value_viewer_context_copyasfloat: TMenuItem;
27 value_viewer_context_copyasbitset: TMenuItem;
28 value_viewer_context_copyasstring: TMenuItem;
29 value_viewer_context_copyashex: TMenuItem;
30 VTHPopup: TVTHeaderPopupMenu;
31 btn_export: TButton;
32 btn_import: TButton;
33 vst_popup: TPopupMenu;
34 vst_newRoot: TMenuItem;
35 vst_setRoot: TMenuItem;
36 procedure FormCreate(Sender: TObject);
37 procedure VSTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
38 var ChildCount: Cardinal);
39 procedure FormClose(Sender: TObject; var Action: TCloseAction);
40 procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
41 Column: TColumnIndex);
42 procedure VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
43 NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
44 var Allowed: Boolean);
45 procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
46 Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
47 procedure VSTPaintText(Sender: TBaseVirtualTree;
48 const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
49 TextType: TVSTTextType);
50 procedure VSTGetPopupMenu(Sender: TBaseVirtualTree; Node: PVirtualNode;
51 Column: TColumnIndex; const P: TPoint; var AskParent: Boolean;
52 var PopupMenu: TPopupMenu);
53 procedure vst_setRootClick(Sender: TObject);
54 procedure vst_newRootClick(Sender: TObject);
55 procedure VSTGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
56 Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
57 var HintText: WideString);
58 private
59 root: TTreeElement;
60 procedure NewCon(ID: Integer);
61 public
62 procedure SetRoot(TreeElem: TTreeElement);
63 end;
64
65
66implementation
67{$R *.dfm}
68uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main,
69 TypeDefs;
70
71type
72 PNodeData = ^TNodeData;
73
74 TNodeData = record
75 Field: TTreeElement;
76 end;
77
78function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
79 ARecord: TNodeData): PVirtualNode;
80var
81 Data: PNodeData;
82begin
83 Result := AVST.AddChild(ANode);
84 Data := AVST.GetNodeData(Result);
85 AVST.ValidateNode(Result, False);
86 Data^ := ARecord;
87end;
88
89
90procedure TForm_Meta.NewCon(ID: Integer);
91begin
92 if ID >= 0 then
93 SetRoot(ConManager.Connection[FConnectionID].MetaData.Root);
94//SetRoot(ConManager.Connection[FConnectionID].MetaData.FileById[454]);
95end;
96
97
98procedure TForm_Meta.SetRoot(TreeElem: TTreeElement);
99var
100 i: Integer;
101 data: TNodeData;
102 node: PVirtualNode;
103 basenode: PVirtualNode;
104begin
105 if FConnectionID <> TreeElem.ConnectionID then
106 SelectConnection(TreeElem.ConnectionID);
107 root := TreeElem;
108 VST.Clear;
109 VST.BeginUpdate;
110 data.Field := root;
111 basenode := AddVSTEntry(VST, nil, data);
112 for i := 0 to root.ChildCount - 1 do
113 begin
114 data.Field := root.Child[i];
115 node := AddVSTEntry(VST, basenode, data);
116 if data.Field.ChildCount > 0 then
117 VST.HasChildren[node] := True;
118 end;
119 VST.EndUpdate;
120end;
121
122procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
123 Node: PVirtualNode; var ChildCount: Cardinal);
124var
125 data: PNodeData;
126 newdata: TNodeData;
127 newnode: PVirtualNode;
128 i: Integer;
129begin
130 data := Sender.GetNodeData(node);
131
132 if data.Field.ChildCount > 0 then
133 begin
134 for i := 0 to data.Field.ChildCount - 1 do
135 begin
136 newdata.Field := data.Field.Child[i];
137 newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
138 if newdata.Field.ChildCount > 0 then
139 Sender.HasChildren[newnode] := True;
140 end;
141 end;
142 ChildCount := Sender.ChildCount[Node];
143end;
144
145
146
147procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
148 Node: PVirtualNode; Column: TColumnIndex);
149var
150 data: PNodeData;
151 ffile: TResource;
152//*******************************************************************
153 fs: TFileStream;
154//*******************************************************************
155begin
156 data := Sender.GetNodeData(Node);
157 ffile := nil;
158 if data.Field is TResource then
159 ffile := TResource(data.Field);
160 if data.Field is _MetaTypes.TDatLink then
161 if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
162 ffile := TResource(_MetaTypes.TDatLink(data.Field).TargetFile);
163 if Assigned(ffile) then
164 begin
165 if Assigned(ffile.Editor) then
166 begin
167 ffile.Editor.Align := alClient;
168 tab_meta.InsertControl(ffile.Editor);
169 ffile.Opened := True;
170 end;
171//*******************************************************************
172// fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
173// ffile.ReCreateFile(fs);
174// fs.Free;
175//*******************************************************************
176 end;
177end;
178
179
180procedure TForm_Meta.VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
181 NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
182 var Allowed: Boolean);
183var
184 data: PNodeData;
185 i: Integer;
186begin
187 data := Sender.GetNodeData(NewNode);
188 if data.Field is TResource then
189 begin
190 if Assigned(TResource(data.Field).Editor) then
191 Allowed := not TResource(data.Field).Opened
192 else
193 Allowed := True;
194 end;
195 if Allowed and Assigned(OldNode) then
196 begin
197 data := Sender.GetNodeData(OldNode);
198 if data.Field is TResource then
199 begin
200 if TResource(data.Field).Opened then
201 begin
202 if tab_meta.ControlCount > 0 then
203 for i := 0 to tab_meta.ControlCount - 1 do
204 tab_meta.RemoveControl(tab_meta.Controls[i]);
205 TResource(data.Field).Opened := False;
206 end;
207 end;
208 end;
209end;
210
211
212procedure TForm_Meta.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
213 Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
214var
215 Data: PNodeData;
216begin
217 Data := Sender.GetNodeData(Node);
218 CellText := '';
219 if TextType = ttNormal then
220 begin
221 case Column of
222 0: CellText := Data.Field.Caption;
223 1: CellText := data.Field.VType;
224 2:
225 begin
226 if Data.Field is TDataField then
227 CellText := TDataField(Data.Field).ValueAsString;
228 end;
229 end;
230 end;
231end;
232
233
234procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
235 const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
236 TextType: TVSTTextType);
237var
238 Data: PNodeData;
239begin
240 Data := Sender.GetNodeData(Node);
241 if TextType = ttNormal then
242 begin
243 case Column of
244 0:
245 begin
246 if Data.Field is TResource then
247 begin
248 if Length(TResource(Data.Field).FileInfo.Name) = 0 then
249 TargetCanvas.Font.Color := $C06060;
250 if TResource(Data.Field).FileInfo.Size = 0 then
251 TargetCanvas.Font.Color := $2020A0;
252 end;
253 end;
254 end;
255 end;
256end;
257
258
259
260procedure TForm_Meta.VSTGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
261 Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
262 var HintText: WideString);
263var
264 data: PNodeData;
265 CellText: WideString;
266
267 i: Integer;
268 links: TStrings;
269 ifile: TResource;
270begin
271 inherited;
272 if Assigned(Node) then
273 begin
274 VSTGetText(Sender, Node, Column, ttNormal, CellText);
275 if Length(CellText) > 0 then
276 begin
277 data := Sender.GetNodeData(Node);
278 if data.Field is TDataField then
279 begin
280 case Column of
281 0,1: HintText := TDataField(data.Field).Description;
282 2: HintText := '';
283 end;
284 end;
285 if data.Field is TResource then
286 begin
287 ifile := TResource(data.Field);
288 case Column of
289 0: HintText :=
290 'FileID: ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
291 'Name: ' + ifile.FileInfo.Name + #13#10 +
292 'Extension: ' + ifile.FileInfo.Extension + #13#10 +
293 '.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
294 end;
295 end;
296 end;
297 end
298 else
299 HintText := '';
300end;
301
302procedure TForm_Meta.VSTGetPopupMenu(Sender: TBaseVirtualTree;
303 Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
304 var AskParent: Boolean; var PopupMenu: TPopupMenu);
305var
306 data: PNodeData;
307begin
308 inherited;
309 AskParent := False;
310 if Assigned(Node) then
311 begin
312 Sender.Selected[Node] := True;
313 Sender.FocusedNode := Node;
314 data := Sender.GetNodeData(Node);
315 if Column = 0 then
316 begin
317 if TTreeElement(data.Field).ChildCount > 0 then
318 PopupMenu := vst_popup
319 else
320 PopupMenu := nil;
321 end;
322 end;
323end;
324
325procedure TForm_Meta.vst_newRootClick(Sender: TObject);
326var
327 data: PNodeData;
328 form: TForm_BaseTemplate;
329begin
330 inherited;
331 data := VST.GetNodeData(VST.FocusedNode);
332 form := nil;
333 form := Form_Main.open_child('meta');
334 if form is TForm_Meta then
335 TForm_Meta(form).SetRoot(data.Field);
336end;
337
338procedure TForm_Meta.vst_setRootClick(Sender: TObject);
339var
340 data: PNodeData;
341begin
342 inherited;
343 data := VST.GetNodeData(VST.FocusedNode);
344 SetRoot(data.Field);
345end;
346
347procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
348begin
349// Meta.Free;
350 inherited;
351end;
352
353procedure TForm_Meta.FormCreate(Sender: TObject);
354begin
355 inherited;
356 OnNewConnection := NewCon;
357
358 VST.NodeDataSize := SizeOf(TNodeData);
359 VST.Font.Charset := AppSettings.CharSet;
360 VST.Clear;
361
362 UpdateConList;
363end;
364
365end.
Note: See TracBrowser for help on using the repository browser.