object RauDatenbank: TRauDatenbank Left = 18 Top = 52 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Rauhigkeitswerte von Rohrleitungen' ClientHeight = 336 ClientWidth = 599 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 588 Height = 161 Shape = bsFrame IsControl = True end object OKBtn: TBitBtn Left = 155 Top = 300 Width = 146 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 = 313 Top = 300 Width = 103 Height = 27 TabOrder = 1 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object ListBox1: TListBox Left = 15 Top = 15 Width = 576 Height = 271 Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ItemHeight = 15 Items.Strings = ( 'Aluminium, gezogen/gepre�t neu 0,0013 b' + 'is 0,0015 mm' 'Aluminium, gezogen/gepre�t gebraucht bis 0,03' + ' mm' 'Asbestzement neu, glatt 0,03 bis' + ' 0,1 mm' 'Beton neu, Glattstrich 0,3 bis ' + '0,8 mm' 'Beton neu, mittelrauh 1,0 bis ' + '2,0 mm' 'Beton neu, rauh 2,0 bis ' + '3,0 mm' 'Beton nach mehrj�hrigem Betrieb 0,2 bis ' + '0,3 mm' 'Beton, Stahl- neu, gegl�ttet 0,1 bis ' + '0,15 mm' 'Beton, Schleuder- neu, glatt verputzt 0,1 bis ' + '0,15 mm' 'Beton, Schleuder- neu, ohne Verputz 0,2 bis ' + '0,8 mm' 'Glas ,gezogen/gepre�t neu 0,0013 b' + 'is 0,0015 mm' 'Glas ,gezogen/gepre�t gebraucht bis 0,03' + ' mm' 'Gummidruckschlauck neu, glatt 0,0016 m' + 'm' 'Gu�eisen neu, mit Gu�haut 0,2 bis ' + '0,6 mm' 'Gu�eisen neu, bituminiert 0,10 bis' + ' 0,13 mm' 'Gu�eisen angerostet 1,0 bis ' + '1,5 mm' 'Gu�eisen verkrustet bis 3,0 ' + 'mm' 'Gu�eisen nach mehrj�.Betrieb ges�ub. 1,5 mm' 'Gu�eisen Durchschn.i.st�dt.Kanalis. 1,2 mm' 'Holzrohre neu 0,2 bis ' + '1,0 mm' 'Holzrohre n.langem Betrieb 0,1 mm' 'Kunststoff, gezogen/gepre�t neu 0,0013 b' + 'is 0,0015 mm' 'Kunststoff, gezogen/gepre�t gebraucht bis 0,03' + ' mm' 'Kupfer, gezogen/gepre�t neu 0,0013 b' + 'is 0,0015 mm' 'Kupfer, gezogen/gepre�t gebraucht bis 0,03' + ' mm' 'Messing, gezogen/gepre�t neu 0,0013 b' + 'is 0,0014 mm' 'Messing, gezogen/gepre�t gebraucht bis 0,03' + ' mm' 'Stahl gleichm��ige Rostnarben 0,15 mm' 'Stahl m��ig verrostet,leicht verkru. 0,15 ' + 'bis 0,40 mm' 'Stahl stark verkrustet 2,0 bis ' + '4,0 mm' 'Stahl nach l�ng.Betrieb ges�ubert 0,15 bis' + ' 0,20 mm' 'Stahl, nahtlos neu, Walzhaut 0,02 bis' + ' 0,06 mm' 'Stahl, nahtlos neu, gebeizt 0,03 bis' + ' 0,04 mm' 'Stahl, nahtlos neu, ungebeizt 0,03 bis' + ' 0,06 mm' 'Stahl, nahtlos neu, sauber verzinkt 0,07 bis' + ' 0,10 mm' 'Stahl, nahtlos neu, handels�blich verzinkt 0,10 bis' + ' 0,16 mm' 'Stahl, l�ngsgeschwei�t neu, Walzhaut 0,04 bis' + ' 0,1 mm' 'Stahl, l�ngsgeschwei�t neu, bituminiert 0,01 bis' + ' 0,05 mm' 'Stahl, l�ngsgeschwei�t neu, galvanisiert 0,008 mm' 'Steinzeug 0,25 mm' 'Ton, Drainagerohr neu, gebrannt 0,7 mm' 'Ton neu, rohe Tonziegel 9,0 mm ') ParentFont = False TabOrder = 2 end end