jvballoonhintmainformu.dfm

jvcl driver development envionment

object JvBalloonHintMainForm: TJvBalloonHintMainForm
  Left = 237
  Top = 147
  Width = 673
  Height = 539
  Caption = 'JVCL TJvBalloonHint Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDefaultValues: TPanel
    Left = 8
    Top = 8
    Width = 361
    Height = 225
    TabOrder = 0
    object lblDefaultHeader: TLabel
      Left = 8
      Top = 48
      Width = 38
      Height = 13
      Caption = 'Header:'
    end
    object edtDefaultHeader: TEdit
      Left = 64
      Top = 48
      Width = 121
      Height = 21
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'Information'
      OnChange = edtDefaultHeaderChange
    end
    object rgrDefaultIcon: TRadioGroup
      Left = 8
      Top = 72
      Width = 105
      Height = 145
      Caption = ' Icon: '
      Items.Strings = (
        'Custom'
        'None'
        'Application'
        'Error'
        'Information'
        'Question'
        'Warning')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = rgrDefaultIconClick
    end
    object grbDefaultImageIndex: TGroupBox
      Left = 120
      Top = 72
      Width = 121
      Height = 145
      Caption = ' Image: '
      TabOrder = 2
      object ilbDefaultImageIndex: TJvImageListBox
        Left = 8
        Top = 16
        Width = 105
        Height = 104
        Hint = 'You must set Icon to Custom to use these images'
        Items = <
          item
            ImageIndex = 0
            Indent = 0
            Text = 'Custom 1'
          end
          item
            ImageIndex = 1
            Indent = 0
            Text = 'Custom 2'
          end
          item
            ImageIndex = 2
            Indent = 0
            Text = 'Custom 3'
          end
          item
            ImageIndex = 3
            Indent = 0
            Text = 'Custom 4'
          end
          item
            ImageIndex = 4
            Indent = 0
            Text = 'Custom 5'
          end>
        ImageHeight = 0
        ImageWidth = 0
        ButtonStyle = fsLighter
        Images = ImageList2
        IntegralHeight = True
        ItemHeight = 20
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = ilbDefaultImageIndexClick
      end
    end
    object rgrDefaultBalloonPosition: TRadioGroup
      Left = 248
      Top = 72
      Width = 105
      Height = 145
      Caption = ' Balloon Position: '
      Items.Strings = (
        'Auto'
        'Left Down'
        'Right Down'
        'Left Up'
        'Right Up')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = rgrDefaultBalloonPositionClick
    end
    object sttDefaultValues: TStaticText
      Left = 1
      Top = 1
      Width = 359
      Height = 36
      Align = alTop
      Alignment = taCenter
      Caption = 'Default Values'
      Color = clTeal
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -27
      Font.Name = 'Verdana'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 4
    end
  end
  object pnlBalloon: TPanel
    Left = 8
    Top = 240
    Width = 649
    Height = 257
    TabOrder = 1
    object lblMessage: TLabel
      Left = 400
      Top = 48
      Width = 46
      Height = 13
      Caption = 'Message:'
    end
    object lblHeader: TLabel
      Left = 400
      Top = 136
      Width = 38
      Height = 13
      Caption = 'Header:'
    end
    object lblVisibleTime: TLabel
      Left = 400
      Top = 160
      Width = 59
      Height = 13
      Caption = 'Visible Time:'
    end
    object lblAnchorCtrl: TLabel
      Left = 400
      Top = 184
      Width = 37
      Height = 13
      Caption = 'Anchor:'
    end
    object grbOptions: TGroupBox
      Left = 232
      Top = 48
      Width = 153
      Height = 201
      Caption = ' Options: '
      TabOrder = 0
      object chbUseDefaultHeader: TCheckBox
        Left = 8
        Top = 24
        Width = 121
        Height = 17
        Hint = 'Uses the Header as specified by "Default Values"'
        Caption = 'Use Default Header'
        TabOrder = 0
        OnClick = chbUseDefaultHeaderClick
      end
      object chbUseDefaultIcon: TCheckBox
        Left = 8
        Top = 48
        Width = 105
        Height = 17
        Hint = 'Uses the icon as specified by "Default Values"'
        Caption = 'Use Default Icon'
        TabOrder = 1
        OnClick = chbUseDefaultIconClick
      end
      object chbUseDefaultImageIndex: TCheckBox
        Left = 8
        Top = 72
        Width = 139
        Height = 17
        Hint = 'Uses the imageindex as specified by "Default Values"'
        Caption = 'Use Default ImageIndex'
        TabOrder = 2
        OnClick = chbUseDefaultImageIndexClick
      end
      object chbShowCloseBtn: TCheckBox
        Left = 8
        Top = 96
        Width = 135
        Height = 17
        Hint = 'Shows a close button in the balloon.'
        Caption = 'Show Close Button'
        TabOrder = 3
        OnClick = chbShowCloseBtnClick
      end
      object chbCustomAnimation: TCheckBox
        Left = 8
        Top = 120
        Width = 136
        Height = 17
        Hint = 
          'Use the animation as specified by'#13#10'CustomAnimation. Only works o' +
          'n '#13#10'Windows XP systems.'
        Caption = 'Custom Animation'
        TabOrder = 4
        OnClick = chbCustomAnimationClick
      end
      object chbO_PlaySound: TCheckBox
        Left = 8
        Top = 144
        Width = 97
        Height = 17
        Hint = 'Plays a sound when the balloon shows'
        Caption = 'Play Sound'
        TabOrder = 5
        OnClick = chbO_PlaySoundClick
      end
    end
    object btnLaunch: TButton
      Left = 557
      Top = 216
      Width = 75
      Height = 25
      Caption = 'Launch'
      TabOrder = 1
      OnClick = btnLaunchClick
    end
    object grbCustomAnimation: TGroupBox
      Left = 8
      Top = 48
      Width = 217
      Height = 201
      Caption = ' CustomAnimation: '
      TabOrder = 2
      object lblCustomAnimationTime: TLabel
        Left = 8
        Top = 24
        Width = 26
        Height = 13
        Caption = 'Time:'
      end
      object edtCustomAnimationTime: TEdit
        Left = 48
        Top = 24
        Width = 121
        Height = 21
        Hint = 
          'You must check the "Custom Animation" '#13#10'checkbox to use these va' +
          'lues.'#13#10#13#10'Use values > 200 only for testing.'
        TabOrder = 0
        OnChange = edtCustomAnimationTimeChange
      end
      object rgrCustomAnimationStyle: TRadioGroup