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 217 by alloc, Fri Jun 15 15:12:11 2007 UTC vs.
Revision 231 by alloc, Wed Jun 20 22:24:04 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}
36	<	uses _MetaManager, _FileTypes, Data;
36	>	uses _MetaManager, _MetaTypes, ConnectionManager, Data;
37
38		type
39		PNodeData = ^TNodeData;
#	Line 58 | Line 56 | end;
56
57		procedure TForm_Meta.NewCon(ID: Integer);
58		var
61	–	a,b,c: Int64;
59		i: Integer;
60		data: TNodeData;
61		node: PVirtualNode;
62	+	Meta: TMetaManager;
63		begin
64		if ID >= 0 then
65		begin
68	–	QueryPerformanceFrequency(c);
69	–	QueryPerformanceCounter(a);
70	–	if not Assigned(Meta) then
71	–	Meta := TMetaManager.Create(ID);
72	–	QueryPerformanceCounter(b);
73	–	ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
74	–
66		VST.Clear;
67		VST.BeginUpdate;
68	+	Meta := ConManager.Connection[ID].MetaData;
69		for i := 0 to Meta.FileCount - 1 do
70		begin
71		if Assigned(Meta.FileById[i]) then
#	Line 97 | Line 89 | var
89		newnode: PVirtualNode;
90		i: Integer;
91		id: Integer;
92	+	Meta: TMetaManager;
93		begin
94	<	data := VST.GetNodeData(node);
95	<	for i := 0 to Meta.FileById[TFile(data.Field).FileID].ChildCount - 1 do
94	>	data := Sender.GetNodeData(node);
95	>	Meta := ConManager.Connection[ID].MetaData;
96	>	for i := 0 to TFile(data.Field).ChildCount - 1 do
97		begin
98	<	id := Meta.FileById[TFile(data.Field).FileID].LinkByIndex[i].DestID;
98	>	id := TFile(data.Field).LinkByIndex[i].DestID;
99		Meta.InitFile(id);
100		newdata.Field := Meta.FileById[id];
101	<	newnode := AddVSTEntry(VST, Node, newdata);
101	>	newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
102		if Meta.FileById[id].ChildCount > 0 then
103	<	VST.HasChildren[newnode] := True;
103	>	Sender.HasChildren[newnode] := True;
104		end;
105	<	ChildCount := Meta.FileById[TFile(data.Field).FileID].ChildCount;
105	>	ChildCount := Sender.ChildCount[Node];
106		end;
107
108
#	Line 177 | Line 171 | begin
171		begin
172		if Data.Field is TFile then
173		begin
174	<	CellText := TFile(Data.Field).FileName;
174	>	CellText := TFile(Data.Field).FileInfo.Name;
175		if CellText = '' then
176		CellText := 'Unnamed';
177		end;
#	Line 185 | Line 179 | begin
179		1:
180		begin
181		if Data.Field is TFile then
182	<	CellText := TFile(Data.Field).FileExt;
182	>	CellText := TFile(Data.Field).FileInfo.Extension;
183		end;
184		2:
185		begin
186		if Data.Field is TFile then
187	<	CellText := IntToStr(TFile(Data.Field).FileID);
187	>	CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
188		end;
189		end;
190		end;
#	Line 211 | Line 205 | begin
205		begin
206		if Data.Field is TFile then
207		begin
208	<	if Length(TFile(Data.Field).FileName) = 0 then
208	>	if Length(TFile(Data.Field).FileInfo.Name) = 0 then
209		TargetCanvas.Font.Color := $C06060;
210	<	if TFile(Data.Field).FileSize = 0 then
210	>	if TFile(Data.Field).FileInfo.Size = 0 then
211		TargetCanvas.Font.Color := $2020A0;
212		end;
213		end;
#	Line 225 | Line 219 | end;
219
220		procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
221		begin
222	<	Meta.Free;
222	>	//  Meta.Free;
223		inherited;
224		end;
225
#	Line 233 | Line 227 | procedure TForm_Meta.FormCreate(Sender:
227		begin
228		inherited;
229		OnNewConnection := NewCon;
236	–	FConnectionID := -1;
230
231		VST.NodeDataSize := SizeOf(TNodeData);
232		VST.Font.Charset := AppSettings.CharSet;

Diff Legend

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