home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Promille / Promille.exe / 0 / RCDATA / TFRMDIAG / TFRMDIAG.txt < prev   
Encoding:
Text File  |  1997-11-23  |  14.9 KB  |  478 lines
  1. object frmDiag: TfrmDiag
  2.   Left = 292
  3.   Top = 147
  4.   ActiveControl = Panel1
  5.   BorderIcons = []
  6.   BorderStyle = bsToolWindow
  7.   Caption = 'Trinkdiagramm'
  8.   ClientHeight = 224
  9.   ClientWidth = 434
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Menu = MainMenu
  16.   OnCreate = FormCreate
  17.   OnPaint = FormPaint
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Bevel4: TBevel
  21.     Left = 0
  22.     Top = 204
  23.     Width = 434
  24.     Height = 20
  25.     Align = alBottom
  26.   end
  27.   object Diag: TPromDiag
  28.     Left = 0
  29.     Top = 32
  30.     Width = 434
  31.     Height = 170
  32.     LimitLine = True
  33.     LimitAt = 0.800000011920929100
  34.     ScalaColor = clWindowText
  35.     Person.Sex = Men
  36.     Person.Weight = 80
  37.     Font.Charset = DEFAULT_CHARSET
  38.     Font.Color = clWindowText
  39.     Font.Height = -11
  40.     Font.Name = 'Arial'
  41.     Font.Style = []
  42.     DiagCursor = crCross
  43.     OnMouseMove = DiagMouseMove
  44.   end
  45.   object Panel1: TPanel
  46.     Left = 0
  47.     Top = 0
  48.     Width = 434
  49.     Height = 32
  50.     Align = alTop
  51.     BevelOuter = bvNone
  52.     ParentShowHint = False
  53.     ShowHint = True
  54.     TabOrder = 0
  55.     object Image1: TImage
  56.       Left = 0
  57.       Top = 4
  58.       Width = 1600
  59.       Height = 40
  60.       AutoSize = True
  61.       Picture.Data = {<image000.bmp>}
  62.       Stretch = True
  63.       Transparent = True
  64.     end
  65.     object sbGrid: TSpeedButton
  66.       Left = 79
  67.       Top = 4
  68.       Width = 25
  69.       Height = 25
  70.       Hint = 'Gitter An/Aus'
  71.       AllowAllUp = True
  72.       Flat = True
  73.       Glyph.Data = {
  74.         7E010000424D7E01000000000000760000002800000016000000160000000100
  75.         0400000000000801000000000000000000001000000000000000000000000000
  76.         80000080000000808000800000008000800080800000C0C0C000808080000000
  77.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  78.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  79.         FF8FFF8FFF8FF98FFF00FF0F9F8FFF8FFF899F8FFF00FF0F9F8FF99FF99FFF8F
  80.         FF00FF08898F988998888888FF00FF0FF989FF8FFF8FFF8FFF00FF0FFF9FFF8F
  81.         FF8FFF8FFF00FF0FFF8FFF8FFF8FFF8FFF00FF088888888888888888FF00FF0F
  82.         FF8FFF8FFF8FFF8FFF00FF0FFF8FFF8FFF8FFF8FFF00FF0FFF8FFF8FFF8FFF8F
  83.         FF00FF088888888888888888FF00FF0FFF8FFF8FFF8FFF8FFF00FF0FFF8FFF8F
  84.         FF8FFF8FFF00FF0FFF8FFF8FFF8FFF8FFF00FF088888888888888888FF00FF0F
  85.         FF8FFF8FFF8FFF8FFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  86.         FF00}
  87.       Layout = blGlyphRight
  88.       OnClick = sbGridClick
  89.     end
  90.     object sbClipboard: TSpeedButton
  91.       Left = 345
  92.       Top = 4
  93.       Width = 25
  94.       Height = 25
  95.       Hint = 'Diagramm kopieren'
  96.       Flat = True
  97.       Glyph.Data = {
  98.         7E010000424D7E01000000000000760000002800000016000000160000000100
  99.         0400000000000801000000000000000000001000000000000000000000000000
  100.         80000080000000808000800000008000800080800000C0C0C000808080000000
  101.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  102.         6666666666006666666FFFFFFFFFFFFFF6006666666F000000000000F6006666
  103.         666F09FFFFFFFFF9F6006666666F0F9FFF9FF99FF6006666666F0FF9F9F99FFF
  104.         F6006FFFFFFF0FFF9FFFFFFFF6006F0000000FFFFFFFFFFFF6006F09FFFF0CCC
  105.         CCCCCCCCF6006F0F9FFF0FFFFFFFFFFFF6006F0FF9F90FFFFFFFFFFFF6006F0F
  106.         FF9F0FFFFFFFFFFFF6006F0FFFFF0FFFFFFFFFFFF6006F0CCCCC0FFFFFFFFFFF
  107.         F6006F0FFFFF0FFFFFFFFFFFF6006F0FFFFFFFFFFF66666666006F0FFFFFFFFF
  108.         FF66666666006F0FFFFFFFFFFF66666666006F0FFFFFFFFFFF66666666006F0F
  109.         FFFFFFFFFF666666660066666666666666666666660066666666666666666666
  110.         6600}
  111.       Layout = blGlyphRight
  112.       OnClick = sbClipboardClick
  113.     end
  114.     object sbMinus: TSpeedButton
  115.       Left = 32
  116.       Top = 4
  117.       Width = 25
  118.       Height = 25
  119.       Hint = 'Verkleinern'
  120.       Flat = True
  121.       Glyph.Data = {
  122.         7E010000424D7E01000000000000760000002800000016000000160000000100
  123.         0400000000000801000000000000000000001000000000000000000000000000
  124.         80000080000000808000800000008000800080800000C0C0C000808080000000
  125.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  126.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  127.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  128.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF9FFFFF
  129.         FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  130.         FFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFF00000000FFFFF
  131.         FF00FF0FFFF00000000FFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFF
  132.         FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  133.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  134.         FF00}
  135.       Layout = blGlyphRight
  136.       OnClick = sbMinusClick
  137.     end
  138.     object sbPlus: TSpeedButton
  139.       Left = 6
  140.       Top = 4
  141.       Width = 25
  142.       Height = 25
  143.       Hint = 'Vergr∩┐╜∩┐╜ern'
  144.       Flat = True
  145.       Glyph.Data = {
  146.         7E010000424D7E01000000000000760000002800000016000000160000000100
  147.         0400000000000801000000000000000000001000000000000000000000000000
  148.         80000080000000808000800000008000800080800000C0C0C000808080000000
  149.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  150.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  151.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  152.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF9FFFFF
  153.         FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0F
  154.         FFFFFF00FFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0FFFF00000000FFFFF
  155.         FF00FF0FFFF00000000FFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0FFFFFFF00
  156.         FFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  157.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  158.         FF00}
  159.       Layout = blGlyphRight
  160.       OnClick = sbPlusClick
  161.     end
  162.     object sbLine: TSpeedButton
  163.       Left = 105
  164.       Top = 4
  165.       Width = 25
  166.       Height = 25
  167.       Hint = 'Linie An/Aus'
  168.       AllowAllUp = True
  169.       Flat = True
  170.       Glyph.Data = {
  171.         7E010000424D7E01000000000000760000002800000016000000160000000100
  172.         0400000000000801000000000000000000001000000000000000000000000000
  173.         80000080000000808000800000008000800080800000C0C0C000808080000000
  174.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  175.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  176.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  177.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF9FFFFF
  178.         FFFFFFFFFF00FF0CCCCCCCCCCCCCCCCCFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  179.         FFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFF
  180.         FF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFF
  181.         FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  182.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  183.         FF00}
  184.       Layout = blGlyphRight
  185.       OnClick = sbLineClick
  186.     end
  187.     object sbLiniePlus: TSpeedButton
  188.       Left = 135
  189.       Top = 4
  190.       Width = 25
  191.       Height = 25
  192.       Hint = 'Linie +'
  193.       AllowAllUp = True
  194.       Flat = True
  195.       Glyph.Data = {
  196.         7E010000424D7E01000000000000760000002800000016000000160000000100
  197.         0400000000000801000000000000000000001000000000000000000000000000
  198.         80000080000000808000800000008000800080800000C0C0C000808080000000
  199.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  200.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  201.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  202.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF9FFFFF
  203.         FFFFFFFFFF00FF0CCCCCCCCCCCCCCCCCFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  204.         FFFFFF00FFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0FFFFFFF00FFFFFFFF
  205.         FF00FF0FFFF00000000FFFFFFF00FF0FFFF00000000FFFFFFF00FF0FFFFFFF00
  206.         FFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0FFFFFFF00FFFFFFFFFF00FF0F
  207.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  208.         FF00}
  209.       Layout = blGlyphRight
  210.       OnClick = sbLiniePlusClick
  211.     end
  212.     object sbLinieMinus: TSpeedButton
  213.       Left = 161
  214.       Top = 4
  215.       Width = 25
  216.       Height = 25
  217.       Hint = 'Linie -'
  218.       AllowAllUp = True
  219.       Flat = True
  220.       Glyph.Data = {
  221.         7E010000424D7E01000000000000760000002800000016000000160000000100
  222.         0400000000000801000000000000000000001000000000000000000000000000
  223.         80000080000000808000800000008000800080800000C0C0C000808080000000
  224.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  225.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  226.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  227.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF9FFFFF
  228.         FFFFFFFFFF00FF0CCCCCCCCCCCCCCCCCFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  229.         FFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFF
  230.         FF00FF0FFFF00000000FFFFFFF00FF0FFFF00000000FFFFFFF00FF0FFFFFFFFF
  231.         FFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0FFFFFFFFFFFFFFFFFFF00FF0F
  232.         FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  233.         FF00}
  234.       Layout = blGlyphRight
  235.       OnClick = sbLinieMinusClick
  236.     end
  237.     object sbFarben: TSpeedButton
  238.       Left = 250
  239.       Top = 4
  240.       Width = 25
  241.       Height = 25
  242.       Hint = 'Diagrammfarben'
  243.       AllowAllUp = True
  244.       Flat = True
  245.       Glyph.Data = {
  246.         7E010000424D7E01000000000000760000002800000016000000160000000100
  247.         0400000000000801000000000000000000001000000000000000000000000000
  248.         80000080000000808000800000008000800080800000C0C0C000808080000000
  249.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  250.         FFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FF000000000000000000FF00FF09
  251.         FFFFFFFFFFFFF9FFFF00FF0F9FFFFFFFFFF99FFFFF00FF0F9FFFF99FF99FFFFF
  252.         FF00FF0FF9FF9FF99FFFFFFFFF00FF0FF9F9FFFFFFFFFFFFFF00FF0FFF000000
  253.         0000FFFFFF00FF0FFF0BBBBAAAA0FFFFFF00FF0FFF0BBBBAAAA0FFFFFF00FF0F
  254.         FF0BBBBAAAA0FFFFFF00FF0FFF0BBBBAAAA0FFFFFF00FF0FFF0BBBBAAAA0FFFF
  255.         FF00FF0FFF09999CCCC0FFFFFF00FF0FFF09999CCCC0FFFFFF00FF0FFF09999C
  256.         CCC0FFFFFF00FF0FFF09999CCCC0FFFFFF00FF0FFF09999CCCC0FFFFFF00FF0F
  257.         FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
  258.         FF00}
  259.       Layout = blGlyphRight
  260.       OnClick = sbFarbenClick
  261.     end
  262.     object Bevel1: TBevel
  263.       Left = 0
  264.       Top = 27
  265.       Width = 434
  266.       Height = 5
  267.       Align = alBottom
  268.       Shape = bsBottomLine
  269.     end
  270.     object Bevel2: TBevel
  271.       Left = 67
  272.       Top = 2
  273.       Width = 5
  274.       Height = 28
  275.       Shape = bsLeftLine
  276.     end
  277.     object Bevel3: TBevel
  278.       Left = 332
  279.       Top = 2
  280.       Width = 5
  281.       Height = 28
  282.       Shape = bsLeftLine
  283.     end
  284.     object sbMaxAtMinutes: TSpeedButton
  285.       Left = 297
  286.       Top = 4
  287.       Width = 25
  288.       Height = 25
  289.       Hint = 'Minuten bis Promilllemaximum'
  290.       Caption = '60'
  291.       Flat = True
  292.       Font.Charset = DEFAULT_CHARSET
  293.       Font.Color = clWindowText
  294.       Font.Height = -11
  295.       Font.Name = 'MS Sans Serif'
  296.       Font.Style = [fsBold]
  297.       Layout = blGlyphRight
  298.       ParentFont = False
  299.       OnClick = sbMaxAtMinutesClick
  300.     end
  301.     object Bevel5: TBevel
  302.       Left = 285
  303.       Top = 2
  304.       Width = 5
  305.       Height = 28
  306.       Shape = bsLeftLine
  307.     end
  308.     object Bevel6: TBevel
  309.       Left = 0
  310.       Top = 0
  311.       Width = 434
  312.       Height = 5
  313.       Align = alTop
  314.       Shape = bsTopLine
  315.     end
  316.     object tEdit: TEdit
  317.       Left = 191
  318.       Top = 6
  319.       Width = 37
  320.       Height = 21
  321.       Cursor = crArrow
  322.       Hint = 'Uhrzeitbeginn'
  323.       TabStop = False
  324.       ReadOnly = True
  325.       TabOrder = 0
  326.       Text = '12:00'
  327.       OnChange = tEditChange
  328.       OnEnter = tEditEnter
  329.     end
  330.     object UpDownTime: TUpDown
  331.       Left = 228
  332.       Top = 6
  333.       Width = 16
  334.       Height = 21
  335.       Min = 0
  336.       Max = 23
  337.       Position = 12
  338.       TabOrder = 1
  339.       Wrap = False
  340.       OnClick = UpDownTimeClick
  341.     end
  342.   end
  343.   object fPopup: TPopupMenu
  344.     AutoPopup = False
  345.     Left = 336
  346.     Top = 44
  347.     object fGitter: TMenuItem
  348.       Tag = 1
  349.       Caption = 'Gitter'
  350.       OnClick = FarbAuswahl
  351.     end
  352.     object fLinie: TMenuItem
  353.       Tag = 2
  354.       Caption = 'Linie'
  355.       OnClick = FarbAuswahl
  356.     end
  357.     object fHintergrund: TMenuItem
  358.       Tag = 3
  359.       Caption = 'Hintergrund'
  360.       OnClick = FarbAuswahl
  361.     end
  362.     object fPromille: TMenuItem
  363.       Tag = 4
  364.       Caption = 'Promille'
  365.       OnClick = FarbAuswahl
  366.     end
  367.     object fSchrift: TMenuItem
  368.       Tag = 5
  369.       Caption = 'Schrift'
  370.       OnClick = FarbAuswahl
  371.     end
  372.     object fSchrifthintergrund: TMenuItem
  373.       Tag = 6
  374.       Caption = 'Schrifthintergrund'
  375.       OnClick = FarbAuswahl
  376.     end
  377.     object fSkala: TMenuItem
  378.       Tag = 7
  379.       Caption = 'Skala'
  380.       OnClick = FarbAuswahl
  381.     end
  382.   end
  383.   object Colors: TColorDialog
  384.     Ctl3D = True
  385.     Options = [cdFullOpen]
  386.     Left = 368
  387.     Top = 44
  388.   end
  389.   object MainMenu: TMainMenu
  390.     Left = 300
  391.     Top = 48
  392.     object Fenster1: TMenuItem
  393.       Caption = '&Fenster'
  394.       object mGroesser: TMenuItem
  395.         Caption = 'Ver&gr∩┐╜∩┐╜ern'
  396.         OnClick = sbPlusClick
  397.       end
  398.       object mKleiner: TMenuItem
  399.         Caption = 'Ver&kleinern'
  400.         OnClick = sbMinusClick
  401.       end
  402.     end
  403.     object Diagramm1: TMenuItem
  404.       Caption = '&Diagramm'
  405.       object mGitter: TMenuItem
  406.         Caption = '&Gitter an/aus'
  407.         OnClick = sbGridClick
  408.       end
  409.       object mLinie: TMenuItem
  410.         Caption = '&Linie an/aus'
  411.         OnClick = sbLineClick
  412.       end
  413.       object mHoch: TMenuItem
  414.         Caption = 'Linie &plus'
  415.         OnClick = sbLiniePlusClick
  416.       end
  417.       object mRunter: TMenuItem
  418.         Caption = 'Linie mi&nus'
  419.         OnClick = sbLinieMinusClick
  420.       end
  421.       object Farben1: TMenuItem
  422.         Caption = '&Farben'
  423.         object mfGitter: TMenuItem
  424.           Tag = 1
  425.           Caption = 'Gitter'
  426.           OnClick = FarbAuswahl
  427.         end
  428.         object mfLinie: TMenuItem
  429.           Tag = 2
  430.           Caption = 'Linie'
  431.           OnClick = FarbAuswahl
  432.         end
  433.         object mfHintergrund: TMenuItem
  434.           Tag = 3
  435.           Caption = 'Hintergrund'
  436.           OnClick = FarbAuswahl
  437.         end
  438.         object mfPromille: TMenuItem
  439.           Tag = 4
  440.           Caption = 'Promille'
  441.           OnClick = FarbAuswahl
  442.         end
  443.         object mfSchrift: TMenuItem
  444.           Tag = 5
  445.           Caption = 'Schrift'
  446.           OnClick = FarbAuswahl
  447.         end
  448.         object mfSchrifthintergrund: TMenuItem
  449.           Tag = 6
  450.           Caption = 'Schrifthintergrund'
  451.           OnClick = FarbAuswahl
  452.         end
  453.         object mfSkala: TMenuItem
  454.           Tag = 7
  455.           Caption = 'Skala'
  456.           OnClick = FarbAuswahl
  457.         end
  458.       end
  459.       object Minuten1: TMenuItem
  460.         Caption = '&Minuten'
  461.         object min60: TMenuItem
  462.           Caption = '60'
  463.           Checked = True
  464.           OnClick = sbMaxAtMinutesClick
  465.         end
  466.         object min30: TMenuItem
  467.           Caption = '30'
  468.           OnClick = sbMaxAtMinutesClick
  469.         end
  470.       end
  471.       object mKopieren: TMenuItem
  472.         Caption = '&Kopieren'
  473.         OnClick = sbClipboardClick
  474.       end
  475.     end
  476.   end
  477. end
  478.