Changeset 227 for oup/current/Tools

Timestamp:

Jun 20, 2007, 12:06:10 AM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• FileManager.dfm (added)
• FileManager.pas (added)
• _TemplateFileList.dfm (modified) (6 diffs)
• _TemplateFileList.pas (modified) (2 diffs)

oup/current/Tools/_TemplateFileList.dfm

@@ -38 +38 @@
         object tab_files: TTabSheet
           Caption = 'Files'
-          ExplicitWidth = 233
-          ExplicitHeight = 353
           object panel_extension: TPanel
             Left = 0
@@ -48 +46 @@
             BevelOuter = bvNone
             TabOrder = 0
-            ExplicitWidth = 233
             DesignSize = (
               190
@@ -228 +225 @@
               TabOrder = 3
               OnClick = combo_extensionClick
-              ExplicitWidth = 232
             end
             object check_zerobyte: TCheckBox
@@ -247 +243 @@
               AutoSize = False
               TabOrder = 1
-              ExplicitWidth = 232
             end
             object check_filtername: TCheckBox
@@ -269 +264 @@
             OnClick = listClick
             OnMouseDown = listMouseDown
-            ExplicitWidth = 233
-            ExplicitHeight = 228
           end
         end
@@ -276 +269 @@
           Caption = 'Meta'
           ImageIndex = 1
+          object filelist_meta: TVirtualStringTree
+            Left = 0
+            Top = 0
+            Width = 190
+            Height = 503
+            Align = alClient
+            Header.AutoSizeIndex = 0
+            Header.Font.Charset = DEFAULT_CHARSET
+            Header.Font.Color = clWindowText
+            Header.Font.Height = -11
+            Header.Font.Name = 'Tahoma'
+            Header.Font.Style = []
+            Header.MainColumn = -1
+            Header.Options = [hoColumnResize, hoDrag]
+            TabOrder = 0
+            Columns = <>
+          end
         end
       end

oup/current/Tools/_TemplateFileList.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons,
-  ComCtrls, TypeDefs;
+  ComCtrls, TypeDefs, VirtualTrees;
 
 type
@@ -39 +39 @@
     filelist: TListBox;
     tab_meta: TTabSheet;
+    filelist_meta: TVirtualStringTree;
     procedure NewCon(ID: Integer);