mainfrm.dfm

delphi控件可以很好实现应用程序的界面设计

object frmMain: TfrmMain
  Left = 291
  Top = 290
  BorderStyle = bsSingle
  Caption = 'frmMain'
  ClientHeight = 191
  ClientWidth = 456
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    456
    191)
  PixelsPerInch = 96
  TextHeight = 13
  object cntHeader: TdxContainer
    Left = 0
    Top = 0
    Width = 456
    Height = 15
    Align = alTop
    OnMouseDown = cntHeaderMouseDown
    Caption = 'cntHeader'
    OnPaint = cntHeaderPaint
    object btnClose: TdxToolButton
      Left = 0
      Top = 0
      Align = alLeft
      OnClick = btnCloseClick
    end
  end
  object cntNetPanel: TdxContainer
    Left = 8
    Top = 24
    Width = 121
    Height = 161
    Anchors = [akLeft, akTop, akBottom]
    BoundColor = 16251903
    BoundLines = [blLeft, blTop, blRight, blBottom]
    Caption = 'cntNetPanel'
    Color = 16251903
    ParentColor = False
    OnPaint = cntNetPanelPaint
    object lbBrowse: TLabel
      Left = 8
      Top = 24
      Width = 42
      Height = 13
      Caption = 'Browse'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object shpSeperator: TShape
      Left = 8
      Top = 37
      Width = 108
      Height = 1
      Pen.Color = clSilver
    end
    object lbInternalPage: TLabel
      Left = 24
      Top = 40
      Width = 63
      Height = 13
      Cursor = crHandPoint
      Caption = 'Internal Page'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbWebEditor: TLabel
      Left = 24
      Top = 56
      Width = 53
      Height = 13
      Cursor = crHandPoint
      Caption = 'Web-Editor'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbConfigure: TLabel
      Left = 24
      Top = 80
      Width = 54
      Height = 13
      Cursor = crHandPoint
      Caption = 'Configure...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object imgConfigure: TImage
      Left = 5
      Top = 79
      Width = 17
      Height = 17
      Picture.Data = {
        07544269746D617036030000424D360300000000000036000000280000001000
        0000100000000100180000000000000300000000000000000000000000000000
        0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500001500011501021502021502
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0001500012A
        0105D4050AE90A0FD41918E9181DD41D072A07051505C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C000150003D40306E9060BFF0B0DD42D053F6521E92B2DFF2D
        35E9353BD43B051505C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0012A0106E9060BFF
        0B0DD438032ACC03158E25D43B39FF3947FF474DE94D112A11C0C0C0C0C0C0C0
        C0C0C0C0C000150005D4050BFF0B0DD438053FC50315ED0000E9092A7E42E94D
        56FF5666FF6664D4640A150AC0C0C0C0C0C0C0C0C00015000AE90A10E9250855
        B21ED44925D4500315E207158750E95A66FF6678FF787EE97E0B150BC0C0C0C0
        C0C0C0C0C001150111E9111AFF1A21E9362DFF2D33E9480B2AD508159355D46A
        78FF7893FF9391E9910D150DC0C0C0C0C0C0C0C0C002150218E91823FF232DFF
        2D39FF3947FF4747D472112AD0142A8989E993E5FFE5ADE9AD0F150FC0C0C0C0
        C0C0C0C0C00215021DD41D2DFF2D39FF3947FF4756FF5666FF6664D484243F84
        A0E9ABDDFFDDADD4AD111511C0C0C0C0C0C0C0C0C0C0C0C0072A0735E93547FF
        4756FF5666FF6678FF7893FF93A0E9ABC4FFC42AE92A112A11C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C00515053BD43B4DE94D66FF6678FF7893FF93E5FFE5DDFFDD
        2AE92A00D400001500C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0051505112A
        1164D4647EE97E91E991ADE9ADADD4AD112A11001500C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00A150A0B150B0D150D0F150F111511
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0}
      Transparent = True
    end
    object cntNetHeader: TdxContainer
      Left = 1
      Top = 1
      Width = 119
      Height = 15
      Align = alTop
      Alignment = taLeftJustify
      Caption = 'ToDo-List'
      Color = 14936557
      ParentColor = False
      ShowCaption = True
      Spacing = 34
      object btnLeft: TdxToolButton
        Left = 0
        Top = 0
        Align = alLeft
        StyleManager = styleOffice
        ToolType = ttArrowLeft
      end
      object btnRight: TdxToolButton
        Left = 15
        Top = 0
        Align = alLeft
        StyleManager = styleOffice
        ToolType = ttArrowRight
      end
    end
  end
  object btnOK: TdxButton
    Left = 296
    Top = 160
    Anchors = [akTop, akRight]
    OnClick = btnCloseClick
    Caption = '&OK'
    TabOrder = 2
    Default = True
    ModalResult = 1
  end
  object btnCancel: TdxButton
    Left = 376
    Top = 160
    Anchors = [akTop, akRight]
    Caption = '&Cancel'
    TabOrder = 3
    Cancel = True
    ModalResult = 2
  end
  object btn1: TdxButton
    Left = 136
    Top = 24
    Height = 41
    Action = acBtn1
    TabOrder = 4
  end
  object btn2: TdxButton
    Left = 216
    Top = 24
    Height = 41
    Action = acBtn2
    TabOrder = 5
    Layout = blGlyphRight
  end
  object btn4: TdxButton
    Left = 376
    Top = 24
    Height = 41
    Action = acBtn4
    TabOrder = 6
    Layout = blGlyphBottom
  end
  object btn3: TdxButton
    Left = 296
    Top = 24
    Height = 41
    Action = acBtn3
    TabOrder = 7
    Layout = blGlyphTop
  end
  object chkToogleEnable: TdxCheckbox
    Left = 136
    Top = 72
    Width = 313
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    OnClick = chkToogleEnableClick
    Caption = '&Toogle Enable-Mode'
    TabOrder = 8
  end
  object chkOfficeStyle: TdxCheckbox
    Left = 136
    Top = 162
    Width = 121
    Height = 17
    OnClick = chkOfficeStyleClick
    StyleManager = styleOffice
    Caption = 'Office Style'
    TabOrder = 9