main.dfm

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

object frmMain: TfrmMain
  Left = 241
  Top = 196
  Width = 581
  Height = 508
  Caption = #37038#20214#30701#20449#21457#36865#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    BBBBBBBBBBBBBBBBBBB00000000000000BBBBBBBBBBBBBBBBB00B0000000000B
    00BBBBBBBBBBBBBBB00BB0000000000BB00BBBBBBBBBBBBB00BBB0000000000B
    BB00BBBBBBBBBBB00BBBB0000000000BBBB00BBBBBBBBB00BBBBB0000000000B
    BBBB00BBBBBBB00BBBBBB0000000000BBBBB00000000000BBBBBB0000000000B
    BBB0000000000000BBBBB0000000000BBB00FFFFFFFFFFF00BBBB0000000000B
    B00FFFFFFFFFFFFF00BBB0000000000B00FFFC8C8CFF8888800BB00000000000
    00FFFFFFFFFF0000000000000000000300FFFC8C8C8FF0000380000000000003
    00FFFFFFFFFFFF00B93380000000000000FFFC8C8C8C8FF08BB9338000000000
    00FFFFFFFFFFFFFF008BB9309800000000FFFC8C88FFFFFFFF008B09F9000000
    00FFFFFFFFF000000000000F9F00000000FFFC8C8C80000000000000F9000000
    00FFFFFFFFF00FFFF000000F0000000000FFFC8C8C800FFF0000000000000000
    00FFFFFFFFF00FF0000000000000000000FFFFFFFFF00F000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFE000007FC000007F8000001F8000001F8000001F8000001F8000
    001F8000001F8000001F8000001F8000001F8000001F8000001F8000001F8000
    001F8000003FC000001FE0000001F0000001F0000001F0000001F00000C1F000
    00E3F00003FFF00007FFF0000FFFF0001FFFF0003FFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 56
    Width = 3
    Height = 387
    Cursor = crHSplit
    Color = clBtnFace
    ParentColor = False
  end
  inline frmLeft: TfrmLeft
    Left = 0
    Top = 56
    Width = 185
    Height = 387
    Align = alLeft
    TabOrder = 0
    inherited Panel1: TPanel
      Width = 185
      Anchors = [akLeft, akRight]
      inherited ToolBar1: TToolBar
        Left = 163
        Width = 21
      end
    end
    inherited treAccount: TTreeView
      Width = 185
      Height = 367
    end
    inherited imlAccount: TImageList
      Left = 104
      Top = 248
    end
  end
  inline frmRight: TfrmRight
    Left = 188
    Top = 56
    Width = 385
    Height = 387
    Align = alClient
    TabOrder = 1
    inherited Splitter2: TSplitter
      Width = 385
    end
    inherited frmTop: TfrmTop
      Width = 385
      inherited tabAccount: TTabControl
        Width = 452
        OnChange = frmToptabAccountChange
        inherited lsvEmail: TListView
          Width = 444
          Columns = <
            item
              AutoSize = True
              Caption = #21457#20214#20154
            end
            item
              Alignment = taCenter
              AutoSize = True
              Caption = #20027#39064
            end
            item
              Alignment = taCenter
              AutoSize = True
              Caption = #22823#23567
            end
            item
              AutoSize = True
              Caption = #21457#20214#26085#26399
            end>
          RowSelect = True
          SmallImages = imlEmail
          SortType = stNone
          StateImages = nil
        end
      end
      inherited imlEmail: TImageList
        Left = 88
        Top = 104
      end
    end
    inherited frmBottom: TfrmBottom
      Width = 385
      Height = 199
      inherited palStatus: TPanel
        Width = 385
        Caption = #24403#21069#29366#24577#65306#31354#38386
        inherited labLastTime: TLabel
          Left = 338
          Width = 42
          AutoSize = True
          Caption = '00:00:00'
        end
        inherited Image1: TImage
          Left = 306
          AutoSize = True
          Center = True
          Transparent = True
        end
      end
      inherited lstLog: TListView
        Width = 385
        Height = 166
        HoverTime = 1000
        Items.Data = {0800000000000000}
        SmallImages = imlLog
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 443
    Width = 573
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 573
    Height = 56
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoSize = True
    ButtonHeight = 52
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Customizable = True
    DockSite = True
    DragMode = dmAutomatic
    EdgeBorders = [ebLeft, ebTop, ebBottom]
    Flat = True
    Images = imlToolbar
    ShowCaptions = True
    TabOrder = 3
    object tbtnAccount: TToolButton
      Left = 0
      Top = 0
      Caption = #36134#21495#31649#29702
      ImageIndex = 0
      OnClick = tbtnAccountClick
    end
    object tbtnConfig: TToolButton
      Left = 55
      Top = 0
      Caption = #35774#32622
      ImageIndex = 1
      OnClick = tbtnConfigClick
    end
    object tbtnCheck: TToolButton
      Left = 110
      Top = 0
      Caption = #26816#27979
      ImageIndex = 2
      OnClick = tbtnCheckClick
    end
    object ToolButton8: TToolButton
      Left = 165
      Top = 0
      Width = 30
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object tbtnSchedule: TToolButton
      Left = 195
      Top = 0
      Caption = #21518#21488#26816#27979
      ImageIndex = 3
      OnClick = tbtnScheduleClick
    end
    object tbtnStop: TToolButton
      Left = 250
      Top = 0
      Caption = #20572#27490
      ImageIndex = 4
      OnClick = tbtnStopClick