ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/MetaEditor.pas
(Generate patch)

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 236 by alloc, Fri Jul 13 23:15:47 2007 UTC vs.
Revision 321 by alloc, Wed May 6 13:47:23 2009 UTC

# Line 30 | Line 30 | type
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);
# Line 44 | Line 47 | type
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  
66   implementation
67   {$R *.dfm}
68 < uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
68 > uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes, Main,
69 >  TypeDefs;
70  
71   type
72    PNodeData = ^TNodeData;
# Line 75 | Line 88 | end;
88  
89  
90   procedure TForm_Meta.NewCon(ID: Integer);
91 + begin
92 +  if ID >= 0 then
93 +    SetRoot(ConManager.Connection[FConnectionID].MetaData.Root);
94 + //SetRoot(ConManager.Connection[FConnectionID].MetaData.FileById[454]);
95 + end;
96 +
97 +
98 + procedure TForm_Meta.SetRoot(TreeElem: TTreeElement);
99   var
100    i: Integer;
101    data: TNodeData;
102    node: PVirtualNode;
103 <  Meta: TMetaManager;
83 <  root: TTreeElement;
103 >  basenode: PVirtualNode;
104   begin
105 <  if ID >= 0 then
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 <    //VST
115 <    VST.Clear;
116 <    VST.BeginUpdate;
90 <    root := ConManager.Connection[FConnectionID].MetaData.Root;
91 <    for i := 0 to root.ChildCount - 1 do
92 <    begin
93 <      data.Field := root.Child[i];
94 <      node := AddVSTEntry(VST, nil, data);
114 >    data.Field := root.Child[i];
115 >    node := AddVSTEntry(VST, basenode, data);
116 >    if data.Field.ChildCount > 0 then
117        VST.HasChildren[node] := True;
96 –    end;
97 –    VST.EndUpdate;
118    end;
119 +  VST.EndUpdate;
120   end;
121  
101 –
122   procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
123    Node: PVirtualNode; var ChildCount: Cardinal);
124   var
# Line 106 | Line 126 | var
126    newdata: TNodeData;
127    newnode: PVirtualNode;
128    i: Integer;
109 –  Meta: TMetaManager;
129   begin
130    data := Sender.GetNodeData(node);
112 –  Meta := ConManager.Connection[ConnectionID].MetaData;
113 –  if data.Field is TExtension then
114 –    if TExtension(data.Field).ChildCount = 0 then
115 –      TExtension(data.Field).InitList;
131  
132    if data.Field.ChildCount > 0 then
133    begin
# Line 128 | Line 143 | begin
143   end;
144  
145  
146 +
147   procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
148    Node: PVirtualNode; Column: TColumnIndex);
149   var
150    data: PNodeData;
151 +  ffile: TResource;
152   begin
153    data := Sender.GetNodeData(Node);
154 <  if data.Field is TFile then
154 >  ffile := nil;
155 >  if data.Field is TResource then
156 >    ffile := TResource(data.Field);
157 >  if data.Field is _MetaTypes.TDatLink then
158 >    if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
159 >      ffile := TResource(_MetaTypes.TDatLink(data.Field).TargetFile);
160 >  if Assigned(ffile) then
161    begin
162 <    TFile(data.Field).InitEditor;
140 <    if Assigned(TFile(data.Field).Editor) then
162 >    if Assigned(ffile.Editor) then
163      begin
164 <      TFile(data.Field).Editor.Align := alClient;
165 <      tab_meta.InsertControl(TFile(data.Field).Editor);
166 <      TFile(data.Field).Opened := True;
164 >      ffile.Editor.Align := alClient;
165 >      tab_meta.InsertControl(ffile.Editor);
166 >      ffile.Opened := True;
167      end;
168    end;
169   end;
# Line 155 | Line 177 | var
177    i: Integer;
178   begin
179    data := Sender.GetNodeData(NewNode);
180 <  if data.Field is TFile then
180 >  if data.Field is TResource then
181    begin
182 <    TFile(data.Field).InitEditor;
183 <    if Assigned(TFile(data.Field).Editor) then
162 <      Allowed := not TFile(data.Field).Opened
182 >    if Assigned(TResource(data.Field).Editor) then
183 >      Allowed := not TResource(data.Field).Opened
184      else
185        Allowed := True;
186    end;
187    if Allowed and Assigned(OldNode) then
188    begin
189      data := Sender.GetNodeData(OldNode);
190 <    if data.Field is TFile then
190 >    if data.Field is TResource then
191      begin
192 <      if TFile(data.Field).Opened then
192 >      if TResource(data.Field).Opened then
193        begin
194          if tab_meta.ControlCount > 0 then
195            for i := 0 to tab_meta.ControlCount - 1 do
196              tab_meta.RemoveControl(tab_meta.Controls[i]);
197 <        TFile(data.Field).Opened := False;
197 >        TResource(data.Field).Opened := False;
198        end;
199      end;
200    end;
# Line 190 | Line 211 | begin
211    if TextType = ttNormal then
212    begin
213      case Column of
214 <      0:
215 <        begin
195 <          CellText := Data.Field.GetCaption;
196 <        end;
197 <      1:
198 <        begin
199 <          if Data.Field is TFile then
200 <            CellText := TFile(Data.Field).FileInfo.Extension;
201 <        end;
214 >      0: CellText := Data.Field.Caption;
215 >      1: CellText := data.Field.VType;
216        2:
217          begin
204 –          if Data.Field is TFile then
205 –            CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
206 –        end;
207 –      3:
208 –        begin
218            if Data.Field is TDataField then
219              CellText := TDataField(Data.Field).ValueAsString;
220          end;
# Line 226 | Line 235 | begin
235      case Column of
236        0:
237          begin
238 <          if Data.Field is TFile then
238 >          if Data.Field is TResource then
239            begin
240 <            if Length(TFile(Data.Field).FileInfo.Name) = 0 then
240 >            if Length(TResource(Data.Field).FileInfo.Name) = 0 then
241                TargetCanvas.Font.Color := $C06060;
242 <            if TFile(Data.Field).FileInfo.Size = 0 then
242 >            if TResource(Data.Field).FileInfo.Size = 0 then
243                TargetCanvas.Font.Color := $2020A0;
244            end;
245          end;
# Line 240 | Line 249 | end;
249  
250  
251  
252 + procedure TForm_Meta.VSTGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
253 +  Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
254 +  var HintText: WideString);
255 + var
256 +  data: PNodeData;
257 +  CellText: WideString;
258 +
259 +  ifile: TResource;
260 + begin
261 +  inherited;
262 +  if Assigned(Node) then
263 +  begin
264 +    VSTGetText(Sender, Node, Column, ttNormal, CellText);
265 +    if Length(CellText) > 0 then
266 +    begin
267 +      data := Sender.GetNodeData(Node);
268 +      if data.Field is TDataField then
269 +      begin
270 +        case Column of
271 +          0,1: HintText := TDataField(data.Field).Description;
272 +          2: HintText := '';
273 +        end;
274 +      end;
275 +      if data.Field is TResource then
276 +      begin
277 +        ifile := TResource(data.Field);
278 +        case Column of
279 +          0: HintText :=
280 +            'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
281 +            'Name:      ' + ifile.FileInfo.Name + #13#10 +
282 +            'Extension: ' + ifile.FileInfo.Extension + #13#10 +
283 +            '.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
284 +        end;
285 +      end;
286 +    end;
287 +  end
288 +  else
289 +    HintText := '';
290 + end;
291 +
292 + procedure TForm_Meta.VSTGetPopupMenu(Sender: TBaseVirtualTree;
293 +  Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
294 +  var AskParent: Boolean; var PopupMenu: TPopupMenu);
295 + var
296 +  data: PNodeData;
297 + begin
298 +  inherited;
299 +  AskParent := False;
300 +  if Assigned(Node) then
301 +  begin
302 +    Sender.Selected[Node] := True;
303 +    Sender.FocusedNode := Node;
304 +    data := Sender.GetNodeData(Node);
305 +    if Column = 0 then
306 +    begin
307 +      if TTreeElement(data.Field).ChildCount > 0 then
308 +        PopupMenu := vst_popup
309 +      else
310 +        PopupMenu := nil;
311 +    end;
312 +  end;
313 + end;
314 +
315 + procedure TForm_Meta.vst_newRootClick(Sender: TObject);
316 + var
317 +  data: PNodeData;
318 +  form: TForm_BaseTemplate;
319 + begin
320 +  inherited;
321 +  data := VST.GetNodeData(VST.FocusedNode);
322 +  form := nil;
323 +  form := Form_Main.open_child('meta');
324 +  if form is TForm_Meta then
325 +    TForm_Meta(form).SetRoot(data.Field);
326 + end;
327 +
328 + procedure TForm_Meta.vst_setRootClick(Sender: TObject);
329 + var
330 +  data: PNodeData;
331 + begin
332 +  inherited;
333 +  data := VST.GetNodeData(VST.FocusedNode);
334 +  SetRoot(data.Field);
335 + end;
336 +
337   procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
338   begin
339   //  Meta.Free;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)