initial commit moved from svn

frmmasscalculator.lfm

@@ -0,0 +1,253 @@
+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