umailform.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 1,174 行 · 第 1/5 页

        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F0000007F0000007F00
        00007F0000007F0000007F000000FFFFFF00FFFFFF0000000000000000000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F0000007F0000007F00
        00007F0000007F0000007F000000FFFFFF00FFFFFF0000000000000000000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000000FF000000FF00FFFFFF0000000000000000000000
        0000FFFFFF007F0000007F0000007F0000007F000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000000FF000000FF00FFFFFF0000000000000000000000
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000000000FFFF
        FF007F0000007F0000007F0000007F000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000FF000000FF00FFFFFF0000000000FFFFFF0000000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
      OnClick = SBPickBccListClick
    end
    object Label1: TLabel
      Left = 29
      Top = 55
      Width = 39
      Height = 13
      Caption = #20027'     '#39064
    end
    object DBEdit3: TDBEdit
      Left = 80
      Top = 51
      Width = 498
      Height = 21
      DataField = 'Subject'
      DataSource = fmMail.DataSource1
      TabOrder = 2
    end
    object DBEdit1: TdxDBHyperLinkEdit
      Left = 80
      Top = 3
      Width = 578
      Style.HotTrack = True
      TabOrder = 0
      OnDblClick = DBEdit1DblClick
      DataField = 'CcList'
      DataSource = fmMail.DataSource1
    end
    object DBEdit2: TdxDBHyperLinkEdit
      Left = 80
      Top = 27
      Width = 578
      TabOrder = 1
      OnDblClick = DBEdit2DblClick
      DataField = 'BccList'
      DataSource = fmMail.DataSource1
    end
    object dxDBImageEdit1: TdxDBImageEdit
      Left = 584
      Top = 51
      Width = 74
      TabOrder = 3
      Alignment = taRightJustify
      DataField = 'importance'
      DataSource = fmMail.DataSource1
      Descriptions.Strings = (
        #19968#33324
        #37325#35201)
      ImageIndexes.Strings = (
        '0'
        '1')
      Images = fmMail.ImageList2
      Values.Strings = (
        ''
        '1')
      StoredValues = 1
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 130
      end
      item
        Text = #21452#20987#36827#20837#29420#31435#32534#36753#22120
        Width = 120
      end
      item
        Text = #20449#24687#27491#25991#19981#33021#36229#36807'2000'#20010#23383#31526','#21542#21017#20250#20005#37325#24433#21709#31995#32479#20256#36755#36895#24230
        Width = 300
      end
      item
        Text = #38468#20214#22823#23567#24635#21644#23567#26044'2M'
        Width = 50
      end>
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 0
    Top = 116
    Width = 688
    Height = 284
    ScrollBars = ssVertical
    Align = alClient
    AutoURLDetect = False
    DataField = 'Body'
    DataSource = fmMail.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 2000
    ParentFont = False
    OleOptions = [reoAdjustPopupMenu, reoDisableOLE]
    HighlightColor = clGreen
    PrintJobName = 'Delphi 7'
    TabOrder = 3
    OnDblClick = wwDBRichEdit1DblClick
    OnKeyDown = wwDBRichEdit1KeyDown
    OnMouseMove = wwDBRichEdit1MouseMove
    PopupOptions = [rpoPopupEdit, rpoPopupCut, rpoPopupCopy, rpoPopupPaste, rpoPopupFont, rpoPopupBullet, rpoPopupParagraph, rpoPopupTabs, rpoPopupFind, rpoPopupReplace, rpoPopupMSWordSpellCheck]
    EditorOptions = [reoShowSaveExit, reoShowPrint, reoShowPageSetup, reoShowFormatBar, reoShowToolBar, reoShowStatusBar, reoShowHints, reoShowRuler, reoCloseOnEscape, reoFlatButtons, reoShowSpellCheck, reoShowMainMenuIcons]
    EditorCaption = 'Edit Rich Text'
    EditorPosition.Left = 0
    EditorPosition.Top = 0
    EditorPosition.Width = 0
    EditorPosition.Height = 0
    MeasurementUnits = muInches
    PrintMargins.Top = 1.000000000000000000
    PrintMargins.Bottom = 1.000000000000000000
    PrintMargins.Left = 1.000000000000000000
    PrintMargins.Right = 1.000000000000000000
    PrintHeader.VertMargin = 0.500000000000000000
    PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintHeader.Font.Color = clWindowText
    PrintHeader.Font.Height = -11
    PrintHeader.Font.Name = 'MS Sans Serif'
    PrintHeader.Font.Style = []
    PrintFooter.VertMargin = 0.500000000000000000
    PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintFooter.Font.Color = clWindowText
    PrintFooter.Font.Height = -11
    PrintFooter.Font.Name = 'MS Sans Serif'
    PrintFooter.Font.Style = []
    RichEditVersion = 2
    Data = {
      A30000007B5C727466315C616E73695C616E73696370673935305C6465666630
      5C6465666C616E67313033335C6465666C616E676665313032387B5C666F6E74
      74626C7B5C66305C666E696C5C6663686172736574313336204D532053616E73
      2053657269663B7D7D0D0A5C766965776B696E64345C7563315C706172645C6C
      616E67313032385C66305C6673323020777744425269636845646974315C7061
      720D0A7D0D0A00}
  end
  object Panel2: TPanel
    Left = 0
    Top = 400
    Width = 688
    Height = 34
    Align = alBottom
    TabOrder = 4
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 1
      Top = 1
      Width = 276
      Height = 32
      Align = alLeft
      ColCount = 2
      Color = clBtnFace
      DataSource = DataSource2
      PanelBorder = gbNone
      PanelHeight = 32
      PanelWidth = 130
      ParentColor = False
      TabOrder = 0
      RowCount = 1
      object dxDBButtonEdit1: TdxDBButtonEdit
        Left = 2
        Top = 4
        Width = 125
        TabOrder = 0
        DataField = 'NewFileName'
        DataSource = DataSource2
        ReadOnly = True
        Buttons = <
          item
            Default = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
              00000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF000000
              FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
              FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF000000
              00000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF000000FF000000FF000000FF0000000000000000000000
              FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000
              0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000FF000000
              FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF0000000000000000000000FF000000FF000000FF00FFFFFF00FFFFFF000000
              FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
              00000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
              FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000
              FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
            Kind = bkGlyph
          end
          item
            Default = False
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100