yapetavi/frmmasscalculator.lfm

object MassCalcForm: TMassCalcForm
  Left = 2560
  Height = 395
  Top = 0
  Width = 647
  ActiveControl = btnGo
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Mass calculator'
  ClientHeight = 395
  ClientWidth = 647
  Color = clBackground
  Constraints.MinHeight = 358
  Constraints.MinWidth = 595
  DesignTimePPI = 108
  OnCreate = FormCreate
  Position = poDesktopCenter
  ShowInTaskBar = stNever
  LCLVersion = '1.9.0.0'
  object Label9: TLabel
    Left = 9
    Height = 20
    Top = 370
    Width = 47
    Caption = 'Result: '
    Color = clBackground
    ParentColor = False
    Transparent = False
  end
  object Label10: TLabel
    Left = 9
    Height = 0
    Top = 153
    Width = 393
    AutoSize = False
    Caption = 'Analysis:'
    ParentColor = False
    ParentFont = False
  end
  object Label11: TLabel
    Left = 68
    Height = 15
    Top = 370
    Width = 334
    AutoSize = False
    Color = clBackground
    ParentColor = False
    Transparent = False
  end
  object Bevel1: TBevel
    Left = 493
    Height = 389
    Top = 0
    Width = 2
    Anchors = [akTop, akRight, akBottom]
    Shape = bsLeftLine
  end
  object Label12: TLabel
    Left = 9
    Height = 20
    Top = 124
    Width = 57
    Caption = '&Formula:'
    Color = clBackground
    FocusControl = Edit
    ParentColor = False
    Transparent = False
  end
  object Edit: TEdit
    Left = 76
    Height = 29
    Top = 119
    Width = 408
    Anchors = [akTop, akLeft, akRight]
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    OnChange = EditChange
    OnKeyPress = EditKeyPress
    ParentFont = False
    TabOrder = 0
  end
  object Memo: TMemo
    Left = 9
    Height = 190
    Top = 162
    Width = 475
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Height = -12
    Font.Name = 'Arial'
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
  end
  object Panel1: TPanel
    Left = 9
    Height = 100
    Top = 9
    Width = 475
    Anchors = [akTop, akLeft, akRight]
    BevelOuter = bvNone
    ClientHeight = 100
    ClientWidth = 475
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 4
      Height = 39
      Top = 0
      Width = 416
      Caption = 'Type the formula of the molecule you want to have the molar mass '#10'that way:'
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object Label2: TLabel
      Left = 32
      Height = 20
      Top = 40
      Width = 64
      Caption = 'For water:'
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object Label3: TLabel
      Left = 207
      Height = 20
      Top = 40
      Width = 29
      Caption = 'H2O'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      Left = 32
      Height = 20
      Top = 58
      Width = 149
      Caption = 'For sodium chloridrate: '
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object Label5: TLabel
      Left = 207
      Height = 20
      Top = 58
      Width = 32
      Caption = 'NaCl'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label6: TLabel
      Left = 256
      Height = 20
      Top = 40
      Width = 139
      Caption = '2 Oxigen + 1 Hydrogen'
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object Label7: TLabel
      Left = 256
      Height = 20
      Top = 58
      Width = 137
      Caption = '1 Sodium + 1 Chlorine'
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object Label8: TLabel
      Left = 4
      Height = 20
      Top = 81
      Width = 158
      Caption = 'Take care about the case!'
      Color = clBackground
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
  end
  object btnGo: TBitBtn
    Tag = 33
    Left = 502
    Height = 28
    Top = 9
    Width = 135
    Anchors = [akTop, akRight]
    Caption = 'Analyse'
    OnClick = btnGoClick
    TabOrder = 3
  end
  object btnClear: TBitBtn
    Tag = 32
    Left = 502
    Height = 28
    Top = 81
    Width = 135
    Anchors = [akTop, akRight]
    Caption = 'Clear'
    OnClick = btnClearClick
    TabOrder = 4
  end
  object btnSave: TBitBtn
    Tag = 4
    Left = 502
    Height = 28
    Top = 45
    Width = 135
    Anchors = [akTop, akRight]
    Caption = 'Save...'
    OnClick = btnSaveClick
    TabOrder = 5
  end
  object btnClose: TBitBtn
    Tag = 6
    Left = 502
    Height = 28
    Top = 357
    Width = 135
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    OnClick = btnCloseClick
    TabOrder = 6
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    left = 568
    top = 208
  end
  object SaveDialog: TSaveDialog
    Title = 'Save file as'
    DefaultExt = '.txt'
    Filter = 'Texte (*.txt)|*.txt|Tout (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    left = 568
    top = 256
  end
end