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

Last change on this file since 239 was 239, checked in by alloc, 17 years ago
File size: 8.4 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 private
56 root: TTreeElement;
57 procedure NewCon(ID: Integer);
58 public
59 procedure SetRoot(TreeElem: TTreeElement);
60 end;
61
62
63implementation
64{$R *.dfm}
65uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main;
66
67type
68 PNodeData = ^TNodeData;
69
70 TNodeData = record
71 Field: TTreeElement;
72 end;
73
74function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
75 ARecord: TNodeData): PVirtualNode;
76var
77 Data: PNodeData;
78begin
79 Result := AVST.AddChild(ANode);
80 Data := AVST.GetNodeData(Result);
81 AVST.ValidateNode(Result, False);
82 Data^ := ARecord;
83end;
84
85
86procedure TForm_Meta.NewCon(ID: Integer);
87begin
88 if ID >= 0 then
89 SetRoot(ConManager.Connection[FConnectionID].MetaData.Root);
90end;
91
92
93procedure TForm_Meta.SetRoot(TreeElem: TTreeElement);
94var
95 i: Integer;
96 data: TNodeData;
97 node: PVirtualNode;
98begin
99 if FConnectionID <> TreeElem.ConnectionID then
100 SelectConnection(TreeElem.ConnectionID);
101 root := TreeElem;
102 VST.Clear;
103 VST.BeginUpdate;
104 for i := 0 to root.ChildCount - 1 do
105 begin
106 data.Field := root.Child[i];
107 node := AddVSTEntry(VST, nil, data);
108 if data.Field.ChildCount > 0 then
109 VST.HasChildren[node] := True;
110 end;
111 VST.EndUpdate;
112end;
113
114procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
115 Node: PVirtualNode; var ChildCount: Cardinal);
116var
117 data: PNodeData;
118 newdata: TNodeData;
119 newnode: PVirtualNode;
120 i: Integer;
121 Meta: TMetaManager;
122begin
123 data := Sender.GetNodeData(node);
124 Meta := ConManager.Connection[ConnectionID].MetaData;
125
126 if data.Field.ChildCount > 0 then
127 begin
128 for i := 0 to data.Field.ChildCount - 1 do
129 begin
130 newdata.Field := data.Field.Child[i];
131 newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
132 if newdata.Field.ChildCount > 0 then
133 Sender.HasChildren[newnode] := True;
134 end;
135 end;
136 ChildCount := Sender.ChildCount[Node];
137end;
138
139
140procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
141 Node: PVirtualNode; Column: TColumnIndex);
142var
143 data: PNodeData;
144begin
145 data := Sender.GetNodeData(Node);
146 if data.Field is TFile then
147 begin
148 TFile(data.Field).InitEditor;
149 if Assigned(TFile(data.Field).Editor) then
150 begin
151 TFile(data.Field).Editor.Align := alClient;
152 tab_meta.InsertControl(TFile(data.Field).Editor);
153 TFile(data.Field).Opened := True;
154 end;
155 end;
156end;
157
158
159procedure TForm_Meta.VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
160 NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
161 var Allowed: Boolean);
162var
163 data: PNodeData;
164 i: Integer;
165begin
166 data := Sender.GetNodeData(NewNode);
167 if data.Field is TFile then
168 begin
169 TFile(data.Field).InitEditor;
170 if Assigned(TFile(data.Field).Editor) then
171 Allowed := not TFile(data.Field).Opened
172 else
173 Allowed := True;
174 end;
175 if Allowed and Assigned(OldNode) then
176 begin
177 data := Sender.GetNodeData(OldNode);
178 if data.Field is TFile then
179 begin
180 if TFile(data.Field).Opened then
181 begin
182 if tab_meta.ControlCount > 0 then
183 for i := 0 to tab_meta.ControlCount - 1 do
184 tab_meta.RemoveControl(tab_meta.Controls[i]);
185 TFile(data.Field).Opened := False;
186 end;
187 end;
188 end;
189end;
190
191
192procedure TForm_Meta.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
193 Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
194var
195 Data: PNodeData;
196begin
197 Data := Sender.GetNodeData(Node);
198 CellText := '';
199 if TextType = ttNormal then
200 begin
201 case Column of
202 0:
203 begin
204 CellText := Data.Field.GetCaption;
205 end;
206 1:
207 begin
208 if Data.Field is TFile then
209 CellText := TFile(Data.Field).FileInfo.Extension;
210 end;
211 2:
212 begin
213 if Data.Field is TFile then
214 CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
215 end;
216 3:
217 begin
218 if Data.Field is TDataField then
219 CellText := TDataField(Data.Field).ValueAsString;
220 end;
221 end;
222 end;
223end;
224
225
226procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
227 const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
228 TextType: TVSTTextType);
229var
230 Data: PNodeData;
231begin
232 Data := Sender.GetNodeData(Node);
233 if TextType = ttNormal then
234 begin
235 case Column of
236 0:
237 begin
238 if Data.Field is TFile then
239 begin
240 if Length(TFile(Data.Field).FileInfo.Name) = 0 then
241 TargetCanvas.Font.Color := $C06060;
242 if TFile(Data.Field).FileInfo.Size = 0 then
243 TargetCanvas.Font.Color := $2020A0;
244 end;
245 end;
246 end;
247 end;
248end;
249
250
251
252procedure TForm_Meta.VSTGetPopupMenu(Sender: TBaseVirtualTree;
253 Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
254 var AskParent: Boolean; var PopupMenu: TPopupMenu);
255var
256 data: PNodeData;
257begin
258 inherited;
259 AskParent := False;
260 if Assigned(Node) then
261 begin
262 Sender.Selected[Node] := True;
263 Sender.FocusedNode := Node;
264 data := Sender.GetNodeData(Node);
265 if Column = 0 then
266 begin
267 if TTreeElement(data.Field).GetChildCount > 0 then
268 PopupMenu := vst_popup
269 else
270 PopupMenu := nil;
271 end;
272 end;
273end;
274
275procedure TForm_Meta.vst_newRootClick(Sender: TObject);
276var
277 data: PNodeData;
278 form: TForm_BaseTemplate;
279begin
280 inherited;
281 data := VST.GetNodeData(VST.FocusedNode);
282 form := nil;
283 form := Form_Main.open_child('meta');
284 if form is TForm_Meta then
285 TForm_Meta(form).SetRoot(data.Field);
286end;
287
288procedure TForm_Meta.vst_setRootClick(Sender: TObject);
289var
290 data: PNodeData;
291begin
292 inherited;
293 data := VST.GetNodeData(VST.FocusedNode);
294 SetRoot(data.Field);
295end;
296
297procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
298begin
299// Meta.Free;
300 inherited;
301end;
302
303procedure TForm_Meta.FormCreate(Sender: TObject);
304begin
305 inherited;
306 OnNewConnection := NewCon;
307
308 VST.NodeDataSize := SizeOf(TNodeData);
309 VST.Font.Charset := AppSettings.CharSet;
310 VST.Clear;
311
312 UpdateConList;
313end;
314
315end.
Note: See TracBrowser for help on using the repository browser.