[ViewVC] Diff of: Oni2/oup/current/Tools/

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 227 by alloc, Tue Jun 19 22:06:10 2007 UTC vs.
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC

+    procedure popup_opentool(Sender: TObject);
+    procedure popup_linkshereClick(Sender: TObject);
+    procedure filepopupPopup(Sender: TObject);
-+
+    procedure filelist_metaGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
-+
+      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
-+
+    procedure filelist_metaInitChildren(Sender: TBaseVirtualTree;
-+
+      Node: PVirtualNode; var ChildCount: Cardinal);
-+
+    procedure filelist_metaPaintText(Sender: TBaseVirtualTree;
-+
+      const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
-+
+      TextType: TVSTTextType);
+  private
+    FSortBy: TSortType;
+    FAllowedExts: String;
+implementation
+{$R *.dfm}
+uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main,
-<
+  _BaseTemplate;
->
+  _BaseTemplate, _MetaTypes, Data, _MetaManager, _FileTypes;
->
->
+type
->
+  PNodeData = ^TNodeData;
->
->
+  TNodeData = record
->
+    Field: TObject;
->
+  end;
->
->
+function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
->
+  ARecord: TNodeData): PVirtualNode;
->
+var
->
+  Data: PNodeData;
->
+begin
->
+  Result := AVST.AddChild(ANode);
->
+  Data   := AVST.GetNodeData(Result);
->
+  AVST.ValidateNode(Result, False);
->
+  Data^ := ARecord;
->
+end;
->
+procedure TForm_TemplateFileList.RecreateExtList;
+  no_zero_bytes: Boolean;
+  pattern: String;
+  files: TStrings;
-+
+  root: TExtensions;
-+
+  i: Integer;
-+
+  data: TNodeData;
-+
+  node: PVirtualNode;
+begin
+  if FConnectionID > -1 then
+  begin
+    if files.Count > 0 then
+      filelist.Items.AddStrings(files);
+    filelist.Visible := True;
-+
-+
+    //VST
-+
+    filelist_meta.Clear;
-+
+    filelist_meta.BeginUpdate;
-+
+    root := ConManager.Connection[FConnectionID].MetaData.Root;
-+
+    for i := 0 to High(root) do
-+
+    begin
-+
+      data.Field := root[i];
-+
+      node := AddVSTEntry(filelist_meta, nil, data);
-+
+      filelist_meta.HasChildren[node] := True;
-+
+    end;
-+
+    filelist_meta.EndUpdate;
+  end;
+end;
+  Form_Main.open_child(context, FConnectionID, id);
+end;
-+
+procedure TForm_TemplateFileList.filepopupPopup(Sender: TObject);
+var
+  ext: String;
+  item: TMenuItem;
+begin
+  inherited;
-+
+  filelist_meta.NodeDataSize := SizeOf(TNodeData);
-+
+  filelist_meta.Font.Charset := AppSettings.CharSet;
-+
+  filelist_meta.Clear;
-+
+  FAllowedExts := '';
+  FAllowMultiSelect := False;
+  FOnNewConnection := NewCon;
+end;
-+
-+
+procedure TForm_TemplateFileList.filelist_metaGetText(Sender: TBaseVirtualTree;
-+
+  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
-+
+  var CellText: WideString);
-+
+var
-+
+  data: PNodeData;
-+
+begin
-+
+  inherited;
-+
+  data := Sender.GetNodeData(Node);
-+
+  if data.Field is TExtension then
-+
+  begin
-+
+    CellText := TExtension(data.Field).Ext;
-+
+  end;
-+
+  if data.Field is TFile then
-+
+  begin
-+
+    if TFile(data.Field).FileName = '' then
-+
+      CellText := TFile(data.Field).FileExt + ' (unnamed)'
-+
+    else
-+
+      CellText := TFile(data.Field).FileExt + ': ' + TFile(data.Field).FileName;
-+
+  end;
-+
+end;
-+
-+
-+
+procedure TForm_TemplateFileList.filelist_metaInitChildren(
-+
+  Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
-+
+var
-+
+  data: PNodeData;
-+
+  i: Integer;
-+
+  newdata: TNodeData;
-+
+  newnode: PVirtualNode;
-+
+  id: Integer;
-+
+begin
-+
+  inherited;
-+
+  data := Sender.GetNodeData(Node);
-+
+  if data.Field is TExtension then
-+
+  begin
-+
+    if TExtension(data.Field).FileCount = 0 then
-+
+      TExtension(data.Field).InitList;
-+
+    for i := 0 to TExtension(data.Field).FileCount - 1 do
-+
+    begin
-+
+      id := TExtension(data.Field).Files[i];
-+
+      ConManager.Connection[FConnectionID].MetaData.InitFile(id);
-+
+      newdata.Field := ConManager.Connection[FConnectionID].MetaData.FileById[id];
-+
+      newnode := AddVSTEntry(filelist_meta, Node, newdata);
-+
+      if ConManager.Connection[FConnectionID].MetaData.FileById[id].ChildCount > 0 then
-+
+        filelist_meta.HasChildren[newnode] := True;
-+
+      ChildCount := filelist_meta.ChildCount[node];
-+
+    end;
-+
+  end;
-+
+  if data.Field is TFile then
-+
+  begin
-+
+    for i := 0 to TFile(data.Field).ChildCount - 1 do
-+
+    begin
-+
+      id := TFile(data.Field).LinkByIndex[i].DestID;
-+
+      ConManager.Connection[FConnectionID].MetaData.InitFile(id);
-+
+      newdata.Field := ConManager.Connection[FConnectionID].MetaData.FileById[id];
-+
+      newnode := AddVSTEntry(filelist_meta, Node, newdata);
-+
+      if ConManager.Connection[FConnectionID].MetaData.FileById[id].ChildCount > 0 then
-+
+        filelist_meta.HasChildren[newnode] := True;
-+
+    end;
-+
+    ChildCount := filelist_meta.ChildCount[node];
-+
+  end;
-+
+end;
-+
-+
+procedure TForm_TemplateFileList.filelist_metaPaintText(
-+
+  Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
-+
+  Column: TColumnIndex; TextType: TVSTTextType);
-+
+var
-+
+  Data: PNodeData;
-+
+begin
-+
+  Data     := Sender.GetNodeData(Node);
-+
+  if Data.Field is TFile then
-+
+  begin
-+
+    if Length(TFile(Data.Field).FileName) = 0 then
-+
+      TargetCanvas.Font.Color := $C06060;
-+
+    if TFile(Data.Field).FileSize = 0 then
-+
+      TargetCanvas.Font.Color := $2020A0;
-+
+  end;
-+
+end;
-+
+end.

Diff Legend

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

Comparing oup/current/Tools/_TemplateFileList.pas (file contents): Revision 227 by alloc, Tue Jun 19 22:06:10 2007 UTC vs. Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC

Diff Legend

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 227 by alloc, Tue Jun 19 22:06:10 2007 UTC vs.
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC