DirDemoForm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:3k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 212
  3.   Top = 295
  4.   Width = 735
  5.   Height = 243
  6.   Caption = 'DirDataSet Demo'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object DBGrid1: TDBGrid
  17.     Left = 185
  18.     Top = 0
  19.     Width = 542
  20.     Height = 216
  21.     Align = alClient
  22.     DataSource = DataSource1
  23.     Font.Charset = ANSI_CHARSET
  24.     Font.Color = clWindowText
  25.     Font.Height = -11
  26.     Font.Name = 'Courier New'
  27.     Font.Style = []
  28.     ParentFont = False
  29.     TabOrder = 0
  30.     TitleFont.Charset = DEFAULT_CHARSET
  31.     TitleFont.Color = clWindowText
  32.     TitleFont.Height = -11
  33.     TitleFont.Name = 'MS Sans Serif'
  34.     TitleFont.Style = []
  35.     Columns = <
  36.       item
  37.         Expanded = False
  38.         FieldName = 'FileName'
  39.         Width = 160
  40.         Visible = True
  41.       end
  42.       item
  43.         Expanded = False
  44.         FieldName = 'TimeStamp'
  45.         Width = 160
  46.         Visible = True
  47.       end
  48.       item
  49.         Expanded = False
  50.         FieldName = 'Size'
  51.         Width = 90
  52.         Visible = True
  53.       end
  54.       item
  55.         Expanded = False
  56.         FieldName = 'Attributes'
  57.         Visible = True
  58.       end
  59.       item
  60.         Expanded = False
  61.         FieldName = 'Folder'
  62.         Visible = True
  63.       end>
  64.   end
  65.   object ShellTreeView1: TShellTreeView
  66.     Left = 0
  67.     Top = 0
  68.     Width = 185
  69.     Height = 216
  70.     ObjectTypes = [otFolders]
  71.     Root = 'c:'
  72.     UseShellImages = True
  73.     Align = alLeft
  74.     AutoRefresh = False
  75.     Indent = 19
  76.     ParentColor = False
  77.     RightClickSelect = True
  78.     ShowRoot = False
  79.     TabOrder = 1
  80.     OnChange = ShellTreeView1Change
  81.   end
  82.   object DataSource1: TDataSource
  83.     AutoEdit = False
  84.     DataSet = MdDirDataset1
  85.     Left = 224
  86.     Top = 40
  87.   end
  88.   object MdDirDataset1: TMdDirDataset
  89.     Active = True
  90.     Directory = 'c:*.*'
  91.     Left = 224
  92.     Top = 80
  93.     object MdDirDataset1FileName: TStringField
  94.       FieldName = 'FileName'
  95.       Required = True
  96.       Size = 40
  97.     end
  98.     object MdDirDataset1TimeStamp: TDateTimeField
  99.       FieldName = 'TimeStamp'
  100.     end
  101.     object MdDirDataset1Size: TIntegerField
  102.       FieldName = 'Size'
  103.       DisplayFormat = '#,###'
  104.     end
  105.     object MdDirDataset1Attributes: TStringField
  106.       FieldName = 'Attributes'
  107.       Size = 3
  108.     end
  109.     object MdDirDataset1Folder: TBooleanField
  110.       FieldName = 'Folder'
  111.     end
  112.   end
  113. end