ldemlistdialog.dfm

delphi控件源码：包含十四种控件的拓展功能：1、带CheckBox的GroupBox。当处于选中状态时

object FEMListDialog: TFEMListDialog
  Left = 192
  Top = 103
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'FEMListDialog'
  ClientHeight = 279
  ClientWidth = 265
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShortCut = FormShortCut
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 121
    Top = 72
    Width = 23
    Height = 22
    Hint = #28155#21152
    Caption = '->'
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 121
    Top = 96
    Width = 23
    Height = 22
    Hint = #31227#21435
    Caption = '<-'
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 121
    Top = 120
    Width = 23
    Height = 22
    Hint = #28155#21152#20840#37096
    Caption = '=>>'
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 121
    Top = 144
    Width = 23
    Height = 22
    Hint = #31227#21435#20840#37096
    Caption = '<<='
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 121
    Top = 216
    Width = 23
    Height = 22
    Hint = #21521#19978#31227#21160
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000
      0000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF000000808000808000808000000000FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080
      8000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF000000808000808000808000000000FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000000000000080800080
      8000808000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FF000000808000808000808000808000808000808000808000000000FF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080800080
      8000808000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF000000808000808000808000000000FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080
      8000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 121
    Top = 240
    Width = 23
    Height = 22
    Hint = #21521#19979#31227#21160
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00
      0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FF000000808000000000FF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080
      8000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FF000000808000808000808000808000808000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080800080800080
      8000808000808000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      0000000000000000000000008080008080008080000000000000000000000000
      00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080
      8000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF000000808000808000808000000000FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000080800080
      8000808000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FF000000000000000000000000000000FF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton6Click
  end
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 48
    Height = 12
    Caption = #26410#21152#20837#30340
  end
  object Label2: TLabel
    Left = 160
    Top = 48
    Width = 48
    Height = 12
    Caption = #24050#21152#20837#30340
  end
  object ListBox1: TListBox
    Left = 0
    Top = 64
    Width = 113
    Height = 215
    ItemHeight = 12
    MultiSelect = True
    TabOrder = 0
    OnDblClick = SpeedButton1Click
  end
  object ListBox2: TListBox
    Left = 152
    Top = 64
    Width = 113
    Height = 215
    ItemHeight = 12
    MultiSelect = True
    TabOrder = 1
    OnDblClick = SpeedButton2Click
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 265
    Height = 42
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 38
        Width = 261
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 248
      Height = 38
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 79
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = ImageList2
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Hint = #25353#22238#36710#38190#36755#20837#28966#28857#30340#36339#36716#39034#24207
        Caption = #22238#36710#38190
        Down = True
        Grouped = True
        ImageIndex = 0
        Style = tbsCheck
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 79
        Top = 0
        Hint = #25353#19978#31661#22836#36755#20837#28966#28857#30340#36339#36716#39034#24207