Chip Hitware 7 B

home *** CD-ROM | disk | FTP | other *** search

/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Promille / Promille.exe / 0 / RCDATA / TFRMMAIN / TFRMMAIN.txt < prev

Wrap

Text File | 1997-11-23 | 15.7 KB | 479 lines

object frmMain: TfrmMain Left = 249 Top = 336 Width = 493 Height = 215 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = Panel1 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Promille Explorer' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {<image000.ico>} Menu = MainMenu1 ShowHint = True OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 485 Height = 5 Align = alTop Shape = bsTopLine end object Panel1: TPanel Left = 0 Top = 77 Width = 485 Height = 92 Align = alClient BevelOuter = bvNone Caption = 'Panel1' TabOrder = 0 object gPromille: TStringGrid Left = 360 Top = 0 Width = 125 Height = 92 TabStop = False Align = alRight ColCount = 3 DefaultColWidth = 53 DefaultRowHeight = 15 FixedCols = 0 RowCount = 99 GridLineWidth = 0 Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking] ScrollBars = ssVertical TabOrder = 0 OnSelectCell = gPromilleSelectCell end object gGetraenk: TStringGrid Left = 0 Top = 0 Width = 360 Height = 92 TabStop = False Align = alLeft ColCount = 4 Ctl3D = True DefaultColWidth = 53 DefaultRowHeight = 15 FixedCols = 0 RowCount = 2 GridLineWidth = 0 Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking] ParentCtl3D = False PopupMenu = PopupMenu ScrollBars = ssVertical TabOrder = 1 OnExit = gGetraenkExit OnMouseUp = gGetraenkMouseUp ColWidths = ( 53 53 53 53) end end object Panel2: TPanel Left = 0 Top = 5 Width = 485 Height = 72 Align = alTop BevelOuter = bvNone TabOrder = 1 object Image1: TImage Left = 0 Top = 0 Width = 640 Height = 77 AutoSize = True Picture.Data = {<image001.bmp>} Stretch = True Transparent = True end object sbCalc: TSpeedButton Left = 387 Top = 6 Width = 94 Height = 62 Cursor = crArrow Hint = 'Berechnung ausf∩┐╜hren' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 4A040000424D4A04000000000000760000002800000034000000230000000100 040000000000D403000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF00004080FF00FF000000FF00FF00FFFF0000FFFFFF00780008888877 8880088777777777777777777777777777777777000078011000018810011008 7777777777777777777777777777777700007778080018880008808777777777 7777777777777777777777770000777777701088000777777777777777777777 7777777777777777000077777781111011077777777777777777777777777777 7777777700007777770111111107777777777777777777777777777777777777 0000777770111111110777777777777777777777777777777777777700007777 8111111001187777777777777777777777777777777777770000777781111110 1110777777777777777777777777777777777777000077780000001010107777 7777777777777777777777777777777700007778010033008000087777777777 7777777777777777777777770000777801000118701118777777777777777777 7777777777777777000077778001100781110777770000000000000000000000 0000000700007777011111100003008777077777777777777777777777777777 0000777011111111131001087707FFFF0FF0FF0FF0FF0FF0FF0FFFF700007780 31110311111310877707FFFFFFFFFFFFFFFFFFFFFFFFFFF70000778011010010 013110808707FF000000000000000000000000F700007770010B888810001878 0007FF09FFFFFFFFFFFFFFFFFFFF9FF700007781BBBBBBBBB808B8800000F00F 98FFF8FFF8FFF8FFF8F9FFF70000708BBBBBBBB800BBBB087700000F98FFF8FF F8FFF8FFF89FFFF7000070BBBBBBBBBBB8080818770700000988888888888888 8988FFF7000070BBBBBBB10008BBB1877707F0000000484948444849984444F7 000078BBBBBB04008BBBB8877707FF0FF000009F98FFF89FF8FFFFF70000778B BBBB0BFB01BBB1877707FF0FF8F90000F9FFF9FFF8FFFFF70000778088840BBF 818108777707F00F88889800889898888888FFF7000077780308100B40000077 7707FF0FF8FFF8FFF8F9F8FFF8FFFFF70000777701B3008BBBB007777707FF0F F8FFF8FFF8FFF8FFF8FFFFF70000777778001B10001077777707F00FF8FFF8FF F8FFF8FFF8FFFFF70000777777770000800877777707FF0F8888888888888888 8888FFF70000777777777777777777777707FF0FF8FFF8FFF8FFF8FFF8FFFFF7 0000777777777777777777777707F00FF8FFF8FFF8FFF8FFF8FFFFF700007777 77777777777777777707FF0FFFFFFFFFFFFFFFFFFFFFFFF70000777777777777 7777777777077777777777777777777777777777000077777777777777777777 7700000000000000000000000000000700007777777777777777777777777777 7777777777777777777777770000} Layout = blGlyphTop ParentFont = False OnClick = sbCalcClick end object sbEnde: TSpeedButton Left = 10 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Programmende' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777770000000777777777777 7770099999990077777777777709999999999907777777777099999999999990 777777770999999999999999077777770999999999999999077777709999FFF9 99FFF9999077777099999FFF9FFF999990777770999999FFFFF9999990777770 9999999FFF99999990777770999999FFFFF999999077777099999FFF9FFF9999 907777709999FFF999FFF9999077777709999999999999990777777709999999 9999999907777777709999999999999077777777770999999999990777777777 7770099999990077777777777777700000007777777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = mEndeClick end object sbDruck: TSpeedButton Left = 127 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Diagramm und Getr∩┐╜nkeliste drucken' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 0000000000000077777777707777777777770807777777707777777777770880 777777000000000000000088077777077777777AAAA770080777770777777772 2227708007777707777777777777708807777700000000000000008880777707 77777777777708088077777000000000000080808077777770FFFFFFFFFF0808 0077777770FFCCCCCCCF088080777777770FFFFFFFFFF00007777777770FFCCC CCCCF077777777777770FFFFFFFFFF07777777777770FFCCCCCCCF0777777777 77770FFFFFFFFFF0777777777777700000000000777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = sbDruckClick end object sbClear: TSpeedButton Left = 185 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Berechnungen l∩┐╜schen' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777771 7777777777177777777777777777777771117777777777177777777771117777 7777771777777777711117777777117777777777771117777771117777777777 7771117777111777777777777777111771117777777777777777711111177777 7777777777777711117777777777777777777111111777777777777777771117 7117777777777777771111777711177777777777711117777771117777777777 1111777777771117777777771177777777777711777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = sbClearClick end object sbHelp: TSpeedButton Left = 244 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Hilfe' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF000000FF00FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 0000000000000000077777770FFFBFFFBFFFBFFF077777770FBFFFBFFFBFFFBF 077777770FFFBFF7C7FFBFFF077777770FBFFFBCCCBFFFBF077777770FFFBFF7 C7FFBFFF077777770FBFFFBFFFBFFFBF077777770FFFBFFFCFFFBFFF07777777 0FBFFFBFCCBFFFBF077777770FFFBFFFBCCFBFFF077777770FBFFFBFF7CCFFBF 077777770FFFBCCFBFCCBFFF077777770FBFFCCFFFCCFFBF077777770FFFBCCC BCCCBFFF077777770FBFFFCCCCCF0000077777770FFFBFFFBFFF0FF077777777 0FBFFFBFFFBF0F07777777770FFFBFFFBFFF0077777777770000000000000777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = mHilfeClick end object sbInfo: TSpeedButton Left = 302 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Info' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000080808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777777CCCCC77777777777777777777CCC7777777 77777777777777CCC777777777777777777777CCC777777777777777777777CC C777777777777777777777CCC777777777777777777777CCC777777777777777 777777CCC777777777777777777777CCC777777777777777777777CCC7777777 7777777777777CCCC77777777777777777777777777777777777777777777777 7777777777777777777777CCC777777777777777777777CCC777777777777777 777777CCC7777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = mInfoClick end object sbGetraenk: TSpeedButton Left = 68 Top = 7 Width = 50 Height = 30 Cursor = crArrow Hint = 'Getr∩┐╜nkedefinitionen' Flat = True Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 0400000000002001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080008000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 0000077770000077777777777707777777707777777777777707777777707777 7777777777077777777077777777777770007777777077777777777770B07777 77707777777777770BBB07777770777777777770BBB3B0777770777777777770 B3BBB0777709077777777770BBBBB0777099907777777770BBB3B07709999907 77777770B3BBB0709999999077777770BBBBB0707777777077777770BBB3B070 7777777077777770FFFFF0700000000077777770000000777777777777777777 FFFFF77777777777777777777FFF777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphTop OnClick = mDefinitionenClick end object cbPerson: TComboBox Left = 8 Top = 44 Width = 53 Height = 21 Hint = 'Geschlecht' Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Mann' 'Frau') TabOrder = 0 OnClick = cbPersonClick end object edKG: TEdit Left = 64 Top = 44 Width = 25 Height = 21 Cursor = crArrow Hint = 'Gewicht in Kg' TabStop = False AutoSelect = False AutoSize = False ReadOnly = True TabOrder = 1 Text = '80' OnClick = FocusPanel end object UpDKg: TUpDown Left = 89 Top = 44 Width = 15 Height = 21 Associate = edKG Min = 40 Max = 200 Position = 80 TabOrder = 2 TabStop = True Thousands = False Wrap = False OnClick = UpDKgClick end object cbGetraenk: TComboBox Left = 118 Top = 44 Width = 156 Height = 21 Hint = 'Getr∩┐╜nk' Style = csDropDownList DropDownCount = 10 ItemHeight = 13 TabOrder = 3 OnClick = FocusPanel end object cbLiter: TComboBox Left = 277 Top = 44 Width = 48 Height = 21 Hint = 'Liter' Style = csDropDownList DropDownCount = 10 ItemHeight = 13 Items.Strings = ( '0,02' '0,04' '0,1' '0,15' '0,2' '0,25' '0,3' '0,33' '0,4' '0,5') TabOrder = 4 OnClick = FocusPanel end object cbZeit: TComboBox Left = 328 Top = 44 Width = 53 Height = 21 Hint = 'Uhrzeit Trinkbeginn' Style = csDropDownList DropDownCount = 10 ItemHeight = 13 TabOrder = 5 OnClick = FocusPanel end end object MainMenu1: TMainMenu Left = 330 Top = 123 object Programm1: TMenuItem Caption = '&Programm' object mDefinitionen: TMenuItem Caption = '&Getr∩┐╜nkedefinitionen...' OnClick = mDefinitionenClick end object N4: TMenuItem Caption = '-' end object mEnde: TMenuItem Caption = '&Ende' OnClick = mEndeClick end end object Berechnung1: TMenuItem Caption = '&Berechnung' object mAusfuehren: TMenuItem Caption = '&Ausf∩┐╜hren' OnClick = sbCalcClick end object mLoeschen: TMenuItem Caption = '&L∩┐╜schen' OnClick = sbClearClick end object mDrucken: TMenuItem Caption = '&Drucken' OnClick = sbDruckClick end end object Hilfe1: TMenuItem Caption = '&?' object mHilfe: TMenuItem Caption = '&Hilfe' OnClick = mHilfeClick end object N2: TMenuItem Caption = '-' end object mInfo: TMenuItem Caption = 'In&fo' OnClick = mInfoClick end end end object PopupMenu: TPopupMenu AutoPopup = False Left = 300 Top = 121 object EintragLoeschen: TMenuItem Caption = 'Eintr∩┐╜ge f∩┐╜r diese Uhrzeit l∩┐╜schen' OnClick = EintragLoeschenClick end end object PrintDialog: TPrintDialog Options = [poDisablePrintToFile] Left = 272 Top = 121 end object XPrint: TXPrint Scaling = pscMetric10 MarginLeft = 150 MarginTop = 150 MarginRight = 100 MarginBottom = 100 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Copies = 1 Title = 'Trinkdiagramm' Orientation = xpoPortrait Left = 244 Top = 125 end end