captionbtnmainformu.dfm

jvcl driver development envionment

object CaptionBtnMainForm: TCaptionBtnMainForm
  Left = 336
  Top = 154
  ActiveControl = udPosition
  AutoScroll = False
  Caption = 'JvCaptionButton Demo'
  ClientHeight = 467
  ClientWidth = 369
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = True
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 13
    Width = 41
    Height = 13
    Caption = '&Position:'
    FocusControl = udPosition
  end
  object lblPos: TLabel
    Left = 80
    Top = 13
    Width = 3
    Height = 13
  end
  object Label3: TLabel
    Left = 8
    Top = 181
    Width = 63
    Height = 13
    Caption = 'Button T&ype:'
    FocusControl = cbStandard
  end
  object Label2: TLabel
    Left = 140
    Top = 11
    Width = 41
    Height = 13
    Caption = '&Caption:'
    FocusControl = edCaption
  end
  object Label4: TLabel
    Left = 140
    Top = 181
    Width = 60
    Height = 13
    Caption = '&BorderStyle:'
    FocusControl = cbBorderStyle
  end
  object Label5: TLabel
    Left = 140
    Top = 53
    Width = 23
    Height = 13
    Caption = 'H&int:'
    FocusControl = edHint
  end
  object Label6: TLabel
    Left = 8
    Top = 353
    Width = 37
    Height = 13
    Caption = 'E&vents:'
    FocusControl = meEvents
  end
  object Label7: TLabel
    Left = 8
    Top = 126
    Width = 67
    Height = 13
    Caption = 'Button &Width:'
    FocusControl = tbBtnWidth
  end
  object Bevel1: TBevel
    Left = 4
    Top = 169
    Width = 361
    Height = 5
    Anchors = [akLeft, akTop, akRight]
    Shape = bsTopLine
  end
  object udPosition: TUpDown
    Left = 56
    Top = 8
    Width = 16
    Height = 24
    Min = 0
    Position = 0
    TabOrder = 0
    Wrap = False
    OnClick = udPositionClick
  end
  object chkToggle: TCheckBox
    Left = 8
    Top = 41
    Width = 125
    Height = 17
    Caption = '&Toggle'
    TabOrder = 1
    OnClick = chkToggleClick
  end
  object chkDown: TCheckBox
    Left = 8
    Top = 59
    Width = 125
    Height = 17
    Caption = '&Down'
    Enabled = False
    TabOrder = 2
    OnClick = chkDownClick
  end
  object cbStandard: TComboBox
    Left = 8
    Top = 197
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 9
    OnChange = cbStandardChange
    Items.Strings = (
      'tsbNone'
      'tsbClose'
      'tsbHelp'
      'tsbMax'
      'tsbMin'
      'tsbRestore'
      'tsbMinimizeToTray')
  end
  object chkVisible: TCheckBox
    Left = 8
    Top = 77
    Width = 125
    Height = 17
    Caption = '&Visible'
    TabOrder = 3
    OnClick = chkVisibleClick
  end
  object edCaption: TEdit
    Left = 140
    Top = 27
    Width = 223
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 5
    OnChange = edCaptionChange
  end
  object cbBorderStyle: TComboBox
    Left = 140
    Top = 197
    Width = 223
    Height = 21
    Style = csDropDownList
    Anchors = [akLeft, akTop, akRight]
    ItemHeight = 13
    TabOrder = 10
    OnChange = cbBorderStyleChange
    Items.Strings = (
      'bsNone'
      'bsSingle'
      'bsSizeable'
      'bsDialog'
      'bsToolWindow'
      'bsSizeToolWin')
  end
  object gbButtons: TGroupBox
    Left = 8
    Top = 233
    Width = 354
    Height = 73
    Anchors = [akLeft, akTop, akRight]
    Caption = ' Standard Buttons: '
    TabOrder = 11
    object chkSysMenu: TCheckBox
      Left = 12
      Top = 18
      Width = 90
      Height = 17
      Caption = 'System &Menu'
      TabOrder = 0
      OnClick = chkSysMenuClick
    end
    object chkMax: TCheckBox
      Left = 12
      Top = 42
      Width = 90
      Height = 17
      Caption = 'Ma&ximize'
      TabOrder = 1
      OnClick = chkMaxClick
    end
    object chkMin: TCheckBox
      Left = 192
      Top = 18
      Width = 80
      Height = 17
      Caption = 'Minimi&ze'
      TabOrder = 2
      OnClick = chkMinClick
    end
    object chkHelp: TCheckBox
      Left = 192
      Top = 42
      Width = 80
      Height = 17
      Caption = '&Help'
      TabOrder = 3
      OnClick = chkHelpClick
    end
  end
  object meEvents: TMemo
    Left = 8
    Top = 372
    Width = 354
    Height = 65
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 12
  end
  object edHint: TEdit
    Left = 140
    Top = 69
    Width = 223
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 6
    OnChange = edHintChange
  end
  object chkShowHints: TCheckBox
    Left = 152