home *** CD-ROM | disk | FTP | other *** search
/ WDR Computer Club Digital 1997 February / club9702.bin / SHARE95 / 95DRUCK / _SETUP.1 / Druck3.exe / 0 / RCDATA / TLUFTDIALOG / TLUFTDIALOG.txt
Text File  |  1996-10-14  |  6KB  |  226 lines
  1. object LuftDialog: TLuftDialog
  2.   Left = 98
  3.   Top = 120
  4.   ActiveControl = OKBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'Stoffdaten von trockener Luft'
  7.   ClientHeight = 205
  8.   ClientWidth = 515
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Bevel1: TBevel
  18.     Left = 8
  19.     Top = 8
  20.     Width = 258
  21.     Height = 153
  22.     Shape = bsFrame
  23.     IsControl = True
  24.   end
  25.   object Label1: TLabel
  26.     Left = 30
  27.     Top = 30
  28.     Width = 82
  29.     Height = 13
  30.     Caption = 'Temperatur in ∩┐╜C:'
  31.     Font.Color = clBlack
  32.     Font.Height = -11
  33.     Font.Name = 'MS Sans Serif'
  34.     Font.Style = []
  35.     ParentFont = False
  36.   end
  37.   object Label3: TLabel
  38.     Left = 30
  39.     Top = 75
  40.     Width = 76
  41.     Height = 13
  42.     Caption = 'Dichte in kg/m∩┐╜:'
  43.     Font.Color = clBlack
  44.     Font.Height = -11
  45.     Font.Name = 'MS Sans Serif'
  46.     Font.Style = []
  47.     ParentFont = False
  48.   end
  49.   object Label4: TLabel
  50.     Left = 30
  51.     Top = 102
  52.     Width = 113
  53.     Height = 13
  54.     Caption = 'Viskosit∩┐╜t in 10^-6 Pa s:'
  55.     Font.Color = clBlack
  56.     Font.Height = -11
  57.     Font.Name = 'MS Sans Serif'
  58.     Font.Style = []
  59.     ParentFont = False
  60.   end
  61.   object Label5: TLabel
  62.     Left = 30
  63.     Top = 130
  64.     Width = 112
  65.     Height = 13
  66.     Caption = 'Druck (absolut) in mbar:'
  67.     Font.Color = clBlack
  68.     Font.Height = -11
  69.     Font.Name = 'MS Sans Serif'
  70.     Font.Style = []
  71.     ParentFont = False
  72.   end
  73.   object OKBtn: TBitBtn
  74.     Left = 48
  75.     Top = 170
  76.     Width = 141
  77.     Height = 27
  78.     Caption = 'Daten ∩┐╜bernehmen'
  79.     Default = True
  80.     ModalResult = 1
  81.     TabOrder = 1
  82.     OnClick = OKBtnClick
  83.     Glyph.Data = {
  84.       78010000424D7801000000000000760000002800000020000000100000000100
  85.       04000000000000000000120B0000120B00000000000000000000000000000000
  86.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  87.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  88.       3333333333333333333333333333333333333333333333333333333333333333
  89.       3333333333333333333333333333333333333333333FF3333333333333003333
  90.       3333333333773FF3333333333309003333333333337F773FF333333333099900
  91.       33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
  92.       99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
  93.       33333333337F3F77333333333309003333333333337F77333333333333003333
  94.       3333333333773333333333333333333333333333333333333333333333333333
  95.       33333333333333333333333333333333333333333333333333330000}
  96.     Margin = 2
  97.     NumGlyphs = 2
  98.     Spacing = -1
  99.     IsControl = True
  100.   end
  101.   object CancelBtn: TBitBtn
  102.     Left = 197
  103.     Top = 170
  104.     Width = 91
  105.     Height = 27
  106.     TabOrder = 2
  107.     Kind = bkCancel
  108.     Margin = 2
  109.     Spacing = -1
  110.     IsControl = True
  111.   end
  112.   object ListBox_Temperatur: TListBox
  113.     Left = 170
  114.     Top = 20
  115.     Width = 61
  116.     Height = 41
  117.     Font.Color = clBlack
  118.     Font.Height = -11
  119.     Font.Name = 'MS Sans Serif'
  120.     Font.Style = []
  121.     ItemHeight = 13
  122.     ParentFont = False
  123.     TabOrder = 4
  124.     OnClick = ListBox_TemperaturClick
  125.   end
  126.   object Edit_Dichte: TEdit
  127.     Left = 170
  128.     Top = 70
  129.     Width = 61
  130.     Height = 20
  131.     TabStop = False
  132.     Font.Color = clBlack
  133.     Font.Height = -11
  134.     Font.Name = 'MS Sans Serif'
  135.     Font.Style = []
  136.     ParentFont = False
  137.     ReadOnly = True
  138.     TabOrder = 5
  139.   end
  140.   object Edit_Visko: TEdit
  141.     Left = 170
  142.     Top = 100
  143.     Width = 61
  144.     Height = 20
  145.     TabStop = False
  146.     Font.Color = clBlack
  147.     Font.Height = -11
  148.     Font.Name = 'MS Sans Serif'
  149.     Font.Style = []
  150.     ParentFont = False
  151.     ReadOnly = True
  152.     TabOrder = 6
  153.   end
  154.   object Edit_Druck: TEdit
  155.     Left = 170
  156.     Top = 125
  157.     Width = 61
  158.     Height = 20
  159.     TabStop = False
  160.     Font.Color = clBlack
  161.     Font.Height = -11
  162.     Font.Name = 'MS Sans Serif'
  163.     Font.Style = []
  164.     ParentFont = False
  165.     ReadOnly = True
  166.     TabOrder = 7
  167.     Text = '1000'
  168.   end
  169.   object Memo1: TMemo
  170.     Left = 270
  171.     Top = 10
  172.     Width = 236
  173.     Height = 151
  174.     TabStop = False
  175.     Color = clScrollBar
  176.     Font.Color = clBlue
  177.     Font.Height = -11
  178.     Font.Name = 'MS Sans Serif'
  179.     Font.Style = []
  180.     Lines.Strings = (
  181.       'Die Daten beziehen sich auf '
  182.       'trockene Luft. Die Unterschiede zu '
  183.       'feuchter Luft k∩┐╜nnen i.A. '
  184.       'vernachl∩┐╜∩┐╜igt werden.'
  185.       'Bei einem Druck von 1,0 bar sind '
  186.       'Me∩┐╜werte angegeben. Wird ein '
  187.       'anderer Druck gew∩┐╜hlt, so wird die '
  188.       'Dichte berechnet. Der Wert kann in '
  189.       'der N∩┐╜he des Siedepunktes etwas '
  190.       'von der Realit∩┐╜t abweichen.'
  191.       'Die Viskosit∩┐╜t ist im Bereich von 0,1 '
  192.       'bis 10 bar kaum vom Druck '
  193.       'abh∩┐╜ngig und wird deshalb nicht '
  194.       'umgerechnet. Bei h∩┐╜heren Dr∩┐╜cken ist die '
  195.       'angegebene Viskosit∩┐╜t nur als ca-Wert zu '
  196.       'betrachten.')
  197.     ParentFont = False
  198.     ReadOnly = True
  199.     ScrollBars = ssVertical
  200.     TabOrder = 0
  201.   end
  202.   object Btn_Druck_aendern: TBitBtn
  203.     Left = 306
  204.     Top = 170
  205.     Width = 161
  206.     Height = 26
  207.     Caption = 'Druck ∩┐╜ndern'
  208.     TabOrder = 3
  209.     OnClick = Btn_Druck_aendernClick
  210.     Glyph.Data = {
  211.       78010000424D7801000000000000760000002800000020000000100000000100
  212.       04000000000000000000120B0000120B00000000000000000000000000000000
  213.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  214.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  215.       333333333337F33333333333333033333333333333373F333333333333090333
  216.       33333333337F7F33333333333309033333333333337373F33333333330999033
  217.       3333333337F337F33333333330999033333333333733373F3333333309999903
  218.       333333337F33337F33333333099999033333333373333373F333333099999990
  219.       33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  220.       33333333337F7F33333333333309033333333333337F7F333333333333090333
  221.       33333333337F7F33333333333309033333333333337F7F333333333333090333
  222.       33333333337F7F333333333333000333333333333377733333330000}
  223.     NumGlyphs = 2
  224.   end
  225. end
  226.