ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 231 by alloc, Wed Jun 20 22:24:04 2007 UTC vs.
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC

#	Line 172 | Line 172 | begin
172		//VST
173		filelist_meta.Clear;
174		filelist_meta.BeginUpdate;
175	<	root := ConManager.Connection[FConnectionID].MetaData.Root;
175	>	{    root := ConManager.Connection[FConnectionID].MetaData.Root;
176		for i := 0 to High(root) do
177		begin
178		data.Field := root[i];
#	Line 180 | Line 180 | begin
180		filelist_meta.HasChildren[node] := True;
181		end;
182		filelist_meta.EndUpdate;
183	<	end;
183	>	}  end;
184		end;
185
186
#	Line 452 | Line 452 | var
452		data: PNodeData;
453		begin
454		inherited;
455	<	data := Sender.GetNodeData(Node);
455	>	{  data := Sender.GetNodeData(Node);
456		if data.Field is TExtension then
457		begin
458		CellText := TExtension(data.Field).Ext;
#	Line 464 | Line 464 | begin
464		else
465		CellText := TFile(data.Field).FileInfo.Extension + ': ' + TFile(data.Field).FileInfo.Name;
466		end;
467	<	end;
467	>	}end;
468
469
470		procedure TForm_TemplateFileList.filelist_metaInitChildren(
#	Line 480 | Line 480 | begin
480		data := Sender.GetNodeData(Node);
481		Self.Cursor := crHourGlass;
482		Application.ProcessMessages;
483	<	if data.Field is TExtension then
483	>	{  if data.Field is TExtension then
484		begin
485		if TExtension(data.Field).FileCount = 0 then
486		TExtension(data.Field).InitList;
#	Line 508 | Line 508 | begin
508		end;
509		ChildCount := filelist_meta.ChildCount[node];
510		end;
511	<	Self.Cursor := crDefault;
511	>	}  Self.Cursor := crDefault;
512		end;
513
514		procedure TForm_TemplateFileList.filelist_metaPaintText(

Diff Legend

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