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 242 by alloc, Tue Jul 17 22:28:01 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 117 | Line 123 | var
123    newdata: TNodeData;
124    newnode: PVirtualNode;
125    i: Integer;
120 –  Meta: TMetaManager;
126   begin
127    data := Sender.GetNodeData(node);
123 –  Meta := ConManager.Connection[ConnectionID].MetaData;
128  
129    if data.Field.ChildCount > 0 then
130    begin
# Line 136 | Line 140 | begin
140   end;
141  
142  
143 +
144   procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
145    Node: PVirtualNode; Column: TColumnIndex);
146   var
147    data: PNodeData;
148 +  ffile: TFile;
149 + //*******************************************************************
150 +  fs: TFileStream;
151 + //*******************************************************************
152   begin
153    data := Sender.GetNodeData(Node);
154 +  ffile := nil;
155    if data.Field is TFile then
156 +    ffile := TFile(data.Field);
157 +  if data.Field is _MetaTypes.TDatLink then
158 +    if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
159 +      ffile := TFile(_MetaTypes.TDatLink(data.Field).TargetFile);
160 +  if Assigned(ffile) then
161    begin
162 <    TFile(data.Field).InitEditor;
148 <    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 + //*******************************************************************
169 + //    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
170 + //    ffile.ReCreateFile(fs);
171 + //    fs.Free;
172 + //*******************************************************************
173    end;
174   end;
175  
# Line 165 | Line 184 | begin
184    data := Sender.GetNodeData(NewNode);
185    if data.Field is TFile then
186    begin
168 –    TFile(data.Field).InitEditor;
187      if Assigned(TFile(data.Field).Editor) then
188        Allowed := not TFile(data.Field).Opened
189      else
# Line 198 | Line 216 | begin
216    if TextType = ttNormal then
217    begin
218      case Column of
219 <      0:
220 <        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;
219 >      0: CellText := Data.Field.Caption;
220 >      1: CellText := data.Field.VType;
221        2:
222          begin
212 –          if Data.Field is TFile then
213 –            CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
214 –        end;
215 –      3:
216 –        begin
223            if Data.Field is TDataField then
224              CellText := TDataField(Data.Field).ValueAsString;
225          end;
# Line 248 | Line 254 | end;
254  
255  
256  
257 + procedure TForm_Meta.VSTGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode;
258 +  Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle;
259 +  var HintText: WideString);
260 + var
261 +  data: PNodeData;
262 +  CellText: WideString;
263 +
264 +  i: Integer;
265 +  links: TStrings;
266 + begin
267 +  inherited;
268 +  if Assigned(Node) then
269 +  begin
270 +    VSTGetText(Sender, Node, Column, ttNormal, CellText);
271 +    if Length(CellText) > 0 then
272 +    begin
273 +      data := Sender.GetNodeData(Node);
274 +      if data.Field is TDataField then
275 +      begin
276 +        case Column of
277 +          0,1: HintText := TDataField(data.Field).Description;
278 +          2: HintText := '';
279 +        end;
280 +      end;
281 +      if (data.Field is _MetaTypes.TDatLink) and (Column = 2) then
282 +      begin
283 +        links := nil;
284 +        links := ConManager.Connection[FConnectionID].GetFilesList(_MetaTypes.TDatLink(data.Field).PosExts, '', False, ST_NameAsc);
285 +        HintText := IntToStr(links.Count);
286 +        for i := 0 to Min(links.Count - 1, 99) do
287 +        begin
288 +          if (i mod 5) = 0 then
289 +            HintText := HintText + #13+#10;
290 +          HintText := HintText + links.Strings[i] + '       ';
291 +        end;
292 +      end;
293 +    end;
294 +  end
295 +  else
296 +    HintText := '';
297 + end;
298 +
299   procedure TForm_Meta.VSTGetPopupMenu(Sender: TBaseVirtualTree;
300    Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
301    var AskParent: Boolean; var PopupMenu: TPopupMenu);
# Line 263 | Line 311 | begin
311      data := Sender.GetNodeData(Node);
312      if Column = 0 then
313      begin
314 <      if TTreeElement(data.Field).GetChildCount > 0 then
314 >      if TTreeElement(data.Field).ChildCount > 0 then
315          PopupMenu := vst_popup
316        else
317          PopupMenu := nil;
# Line 271 | Line 319 | begin
319    end;
320   end;
321  
322 + procedure TForm_Meta.vst_newRootClick(Sender: TObject);
323 + var
324 +  data: PNodeData;
325 +  form: TForm_BaseTemplate;
326 + begin
327 +  inherited;
328 +  data := VST.GetNodeData(VST.FocusedNode);
329 +  form := nil;
330 +  form := Form_Main.open_child('meta');
331 +  if form is TForm_Meta then
332 +    TForm_Meta(form).SetRoot(data.Field);
333 + end;
334 +
335   procedure TForm_Meta.vst_setRootClick(Sender: TObject);
336   var
337    data: PNodeData;

Diff Legend

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