documentsf.dfm

来自「极具实用价值的文件管理系统」· DFM 代码 · 共 200 行

inherited fmDocuments: TfmDocuments
  Left = 295
  Top = 154
  Caption = 'Documents'
  ClientHeight = 453
  ClientWidth = 609
  PixelsPerInch = 96
  TextHeight = 13
  object lblSelectedFileName: TLabel [0]
    Left = 92
    Top = 114
    Width = 96
    Height = 13
    Caption = 'lblSelectedFileName'
  end
  inherited pnlTitle: TCycPanel
    Width = 609
  end
  inherited lblTitle: TCycLabel
    Width = 113
    Caption = 'Document maintenance'
  end
  object CycLabel1: TCycLabel [4]
    Left = 36
    Top = 288
    Width = 50
    Height = 13
    Alignment = taRightJustify
    Caption = 'Attach File'
    Transparent = True
  end
  inherited pnlFooter: TPanel
    Top = 407
    Width = 609
    Height = 46
    TabOrder = 7
    inherited pnlFooterLine: TCycPanel
      Width = 609
    end
    inherited btnOK: TCycSpeedButton
      Left = 398
      Top = 13
    end
    inherited btnCancel: TCycSpeedButton
      Left = 502
      Top = 13
    end
  end
  object edtDocNo: TCycLabeledDBEdit
    Left = 92
    Top = 54
    Width = 169
    Height = 21
    DataField = 'DocNo'
    DataSource = dmMain.srcDocuments
    TabOrder = 0
    EditLabel.Width = 69
    EditLabel.Height = 13
    EditLabel.Caption = 'Document No.'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
  end
  object edtDocName: TCycLabeledDBEdit
    Left = 92
    Top = 91
    Width = 249
    Height = 21
    DataField = 'DocName'
    DataSource = dmMain.srcDocuments
    TabOrder = 2
    EditLabel.Width = 80
    EditLabel.Height = 13
    EditLabel.Caption = 'Document Name'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
  end
  object edtRemarks: TCycLabeledDBMemo
    Left = 92
    Top = 200
    Width = 513
    Height = 68
    Ctl3D = True
    DataField = 'Remarks'
    DataSource = dmMain.srcDocuments
    ParentCtl3D = False
    ScrollBars = ssVertical
    TabOrder = 5
    EditLabel.Width = 42
    EditLabel.Height = 13
    EditLabel.Caption = 'Remarks'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
  end
  object edtVersion: TCycLabeledDBEdit
    Left = 92
    Top = 165
    Width = 105
    Height = 21
    DataField = 'Version'
    DataSource = dmMain.srcDocuments
    TabOrder = 4
    EditLabel.Width = 35
    EditLabel.Height = 13
    EditLabel.Caption = 'Version'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
  end
  object grdAttachmentDetails: TDBGrid
    Left = 92
    Top = 281
    Width = 513
    Height = 120
    DataSource = dmMain.srcDocumentsAttachmentDetails
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'SeqNo'
        ReadOnly = True
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FileName'
        Width = 300
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Remarks'
        Width = 300
        Visible = True
      end>
  end
  object edtFileName: TCycLabeledLookupDBEdit
    Left = 92
    Top = 129
    Width = 487
    Height = 21
    BevelWidth = 0
    DataField = 'FileName'
    DataSource = dmMain.srcDocuments
    TabOrder = 3
    OnExit = edtFileNameExit
    EditLabel.Width = 47
    EditLabel.Height = 13
    EditLabel.Caption = 'File Name'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
    LookupButton.Left = 581
    LookupButton.Top = 129
    LookupButton.Width = 23
    LookupButton.Height = 22
    LookupButton.Flat = True
    LookupButton.Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADAD00000000000ADADA003333333330ADAD0B0333333333
      0ADA0FB03333333330AD0BFB03333333330A0FBFB000000000000BFBFBFBFB0A
      DADA0FBFBFBFBF0DADAD0BFB0000000ADADAA000ADADADAD000DDADADADADADA
      D00AADADADAD0DAD0D0DDADADADAD000DADAADADADADADADADAD}
    LookupButton.OnClick = edtFileNameSubButtonClick
    ButtonSpacing = 2
  end
  object edtDocType: TCycLabeledEdit
    Left = 386
    Top = 54
    Width = 193
    Height = 21
    EditLabel.Width = 42
    EditLabel.Height = 13
    EditLabel.Caption = 'Category'
    EditLabel.Transparent = True
    LabelPosition = lpLeft
    LabelSpacing = 5
    ReadOnly = True
    TabOrder = 1
  end
  object OpenDialog: TOpenDialog
    DefaultExt = '*.*'
    Filter = 'All Files(*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 4
    Top = 128
  end
end