object Form2: TForm2
  Left = 99
  Top = 81
  Width = 435
  Height = 270
  Caption = 'Setting Properties Programmatically'
  Color = clTeal
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 207
    Top = 54
    Width = 188
    Height = 78
  end
  object Shape1: TShape
    Left = 208
    Top = 55
    Width = 185
    Height = 75
    Brush.Color = clAqua
    Pen.Color = clNavy
  end
  object BitBtn1: TBitBtn
    Left = 18
    Top = 11
    Width = 162
    Height = 30
    Caption = 'Right align the display'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn2: TBitBtn
    Left = 18
    Top = 48
    Width = 162
    Height = 30
    Caption = 'Left align the display'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn3: TBitBtn
    Left = 18
    Top = 85
    Width = 162
    Height = 30
    Caption = 'Set Decimal Places to 0 '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn4: TBitBtn
    Left = 18
    Top = 121
    Width = 162
    Height = 30
    Caption = 'Set Decimal Places to 4'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn4Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn5: TBitBtn
    Left = 18
    Top = 158
    Width = 162
    Height = 30
    Caption = 'Set display to 123.45'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn5Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn6: TBitBtn
    Left = 18
    Top = 195
    Width = 162
    Height = 30
    Caption = 'Set display to 67890'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn6Click
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object BitBtn7: TBitBtn
    Left = 248
    Top = 176
    Width = 113
    Height = 29
    TabOrder = 6
    Kind = bkOK
  end
  object CalculatorBox1: TCalculatorBox
    Left = 232
    Top = 80
    Width = 145
    Height = 24
    Hint = 'Click me to drop the Calculator'
    Alignment = taCenter
    MaxLength = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    DisplayText = '0'
  end
end