object Wasser_Dialog: TWasser_Dialog Left = 190 Top = 132 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Stoffdaten von Wasser' ClientHeight = 180 ClientWidth = 259 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsStayOnTop PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate TextHeight = 13 object Bevel1: TBevel Left = 3 Top = 5 Width = 248 Height = 129 Shape = bsFrame IsControl = True end object Label1: TLabel Left = 30 Top = 30 Width = 82 Height = 13 Caption = 'Temperatur in �C:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 30 Top = 75 Width = 76 Height = 13 Caption = 'Dichte in kg/m�:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 30 Top = 105 Width = 135 Height = 13 Caption = 'Dyn.Viskosit�t in 10^-6 Pa s:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object OKBtn: TBitBtn Left = 5 Top = 145 Width = 141 Height = 27 Caption = 'Daten �bernehmen' Default = True ModalResult = 1 TabOrder = 0 OnClick = OKBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333773FF3333333333309003333333333337F773FF333333333099900 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900 33333333337F3F77333333333309003333333333337F77333333333333003333 3333333333773333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 155 Top = 145 Width = 91 Height = 27 TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object TemperaturListBox: TListBox Left = 170 Top = 20 Width = 61 Height = 41 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 2 OnClick = TemperaturListBoxClick end object DichteEdit: TEdit Left = 170 Top = 70 Width = 61 Height = 20 TabStop = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 3 end object ViskoEdit: TEdit Left = 170 Top = 105 Width = 61 Height = 20 TabStop = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 4 end end