ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/MetaEditor.pas

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 228 by alloc, Fri Jun 15 22:12:39 2007 UTC vs.
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC

#	Line 30 | Line 30 | type
30		public
31		end;
32
33	–	var
34	–	Form_Meta: TForm_Meta;
33
34		implementation
35		{$R *.dfm}
#	Line 63 | Line 61 | var
61		data: TNodeData;
62		node: PVirtualNode;
63		begin
64	+	{
65		if ID >= 0 then
66		begin
67		QueryPerformanceFrequency(c);
68		QueryPerformanceCounter(a);
69		if not Assigned(Meta) then
70	<	Meta := TMetaManager.Create(ID);
70	>	Meta := TMetaManager.Create(ID, Self);
71		QueryPerformanceCounter(b);
72		ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
73
#	Line 86 | Line 85 | begin
85		end;
86		VST.EndUpdate;
87		end;
88	+	}
89		end;
90
91
#	Line 98 | Line 98 | var
98		i: Integer;
99		id: Integer;
100		begin
101	+	{
102		data := VST.GetNodeData(node);
103		for i := 0 to Meta.FileById[TFile(data.Field).FileID].ChildCount - 1 do
104		begin
#	Line 109 | Line 110 | begin
110		VST.HasChildren[newnode] := True;
111		end;
112		ChildCount := Meta.FileById[TFile(data.Field).FileID].ChildCount;
113	+	}
114		end;
115
116
#	Line 225 | Line 227 | end;
227
228		procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
229		begin
230	<	Meta.Free;
230	>	//  Meta.Free;
231		inherited;
232		end;
233

Diff Legend

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