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 238 by alloc, Sat Jul 14 16:50:55 2007 UTC vs.
Revision 244 by alloc, Fri Aug 17 21:09:51 2007 UTC

# Line 51 | Line 51 | type
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);
# Line 61 | Line 65 | type
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 86 | Line 91 | 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  
# Line 94 | Line 100 | var
100    i: Integer;
101    data: TNodeData;
102    node: PVirtualNode;
103 +  basenode: PVirtualNode;
104   begin
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, nil, data);
115 >    node := AddVSTEntry(VST, basenode, data);
116      if data.Field.ChildCount > 0 then
117        VST.HasChildren[node] := True;
118    end;
# Line 117 | Line 126 | var
126    newdata: TNodeData;
127    newnode: PVirtualNode;
128    i: Integer;
120 –  Meta: TMetaManager;
129   begin
130    data := Sender.GetNodeData(node);
123 –  Meta := ConManager.Connection[ConnectionID].MetaData;
131  
132    if data.Field.ChildCount > 0 then
133    begin
# Line 136 | 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: TFile;
152 + //*******************************************************************
153 +  fs: TFileStream;
154 + //*******************************************************************
155   begin
156    data := Sender.GetNodeData(Node);
157 +  ffile := nil;
158    if data.Field is TFile then
159 +    ffile := TFile(data.Field);
160 +  if data.Field is _MetaTypes.TDatLink then
161 +    if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
162 +      ffile := TFile(_MetaTypes.TDatLink(data.Field).TargetFile);
163 +  if Assigned(ffile) then
164    begin
165 <    TFile(data.Field).InitEditor;
148 <    if Assigned(TFile(data.Field).Editor) then
165 >    if Assigned(ffile.Editor) then
166      begin
167 <      TFile(data.Field).Editor.Align := alClient;
168 <      tab_meta.InsertControl(TFile(data.Field).Editor);
169 <      TFile(data.Field).Opened := True;
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;
177   end;
178  
# Line 165 | Line 187 | begin
187    data := Sender.GetNodeData(NewNode);
188    if data.Field is TFile then
189    begin
168 –    TFile(data.Field).InitEditor;
190      if Assigned(TFile(data.Field).Editor) then
191        Allowed := not TFile(data.Field).Opened
192      else
# Line 198 | Line 219 | begin
219    if TextType = ttNormal then
220    begin
221      case Column of
222 <      0:
223 <        begin
203 <          CellText := Data.Field.GetCaption;
204 <        end;
205 <      1:
206 <        begin
207 <          if Data.Field is TFile then
208 <            CellText := TFile(Data.Field).FileInfo.Extension;
209 <        end;
222 >      0: CellText := Data.Field.Caption;
223 >      1: CellText := data.Field.VType;
224        2:
225          begin
212 –          if Data.Field is TFile then
213 –            CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
214 –        end;
215 –      3:
216 –        begin
226            if Data.Field is TDataField then
227              CellText := TDataField(Data.Field).ValueAsString;
228          end;
# Line 248 | Line 257 | end;
257  
258  
259  
260 + procedure TForm_Meta.VSTGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
261 +  Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
262 +  var HintText: WideString);
263 + var
264 +  data: PNodeData;
265 +  CellText: WideString;
266 +
267 +  i: Integer;
268 +  links: TStrings;
269 +  ifile: TFile;
270 + begin
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 TFile then
286 +      begin
287 +        ifile := TFile(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 := '';
300 + end;
301 +
302   procedure TForm_Meta.VSTGetPopupMenu(Sender: TBaseVirtualTree;
303    Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
304    var AskParent: Boolean; var PopupMenu: TPopupMenu);
# Line 263 | Line 314 | begin
314      data := Sender.GetNodeData(Node);
315      if Column = 0 then
316      begin
317 <      if TTreeElement(data.Field).GetChildCount > 0 then
317 >      if TTreeElement(data.Field).ChildCount > 0 then
318          PopupMenu := vst_popup
319        else
320          PopupMenu := nil;
# Line 271 | Line 322 | begin
322    end;
323   end;
324  
325 + procedure TForm_Meta.vst_newRootClick(Sender: TObject);
326 + var
327 +  data: PNodeData;
328 +  form: TForm_BaseTemplate;
329 + begin
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);
336 + end;
337 +
338   procedure TForm_Meta.vst_setRootClick(Sender: TObject);
339   var
340    data: PNodeData;

Diff Legend

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