object MDIMainF: TMDIMainF Left = 921 Top = 286 HelpContext = 100 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = 'Vinny Graphics' ClientHeight = 399 ClientWidth = 596 Ctl3D = False Color = clAppWorkSpace Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIForm Menu = FileMainMenu Position = poScreenCenter WindowMenu = Window1 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 596 Height = 34 HelpContext = 100 Align = alTop Alignment = taLeftJustify BevelOuter = bvLowered BevelWidth = 2 Ctl3D = False Locked = True ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 object SpeedButton1: TSpeedButton Left = 6 Top = 4 Width = 25 Height = 25 Hint = 'New Data' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333300000000000000000AA0F000FF000FF00AA0FFFFFFFFFFF00000F000FF00 0FF00AA0FFFFFFFFFFF00000F000FF000FF00AA0FFFFFFFFFFF00000F000FF00 0FF00AA0FFFFFFFFFFF00AA00000000000000AAAAA0AAAA0AAA00AAAAA0AAAA0 AAA0000000000000000033333333333333333333333333333333} OnClick = NewData1Click end object SpeedButton2: TSpeedButton Left = 39 Top = 4 Width = 25 Height = 25 Hint = 'Open File' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555550000000000 5555500B7B7B7B7B055550F0B7B7B7B7B05550BF0B7B7B7B7B0550FBF0000000 000550BFBFBFBFB0555550FBFBFBFBF0555550BFBFBF00055555550BFBF05555 5555558000085555555555555555555555555555555555555555} OnClick = Open1Click end object SpeedButton3: TSpeedButton Left = 304 Top = 4 Width = 25 Height = 25 Hint = 'Tile Windows' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333300000000000000030FFFFFF0FFFFFF030FFFFFF0FFFFFF030FFFFFF0FFF FFF030CCCCCC0CCCCCC030FFFCCC0FFFCCC0300000000000000030F9A5DF0FFF FFF030F9A5DF0FFFFFF030F9A5DF0FFFFFF030F9AFDF0FFFFFF030FFAFFF0CCC CCC030FFFFFF0FFFCCC030000000000000003333333333333333} OnClick = WindowTileHoz1Click end object SpeedButton4: TSpeedButton Left = 105 Top = 4 Width = 25 Height = 25 Hint = 'View Graph' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003 00033333333333333333880000000000000033039993BBB3CCC338039993BBB3 CCC333039993BBB3CCC388089998BBB8CCC8330399930003CCC3380399933333 CCC3330399933333CCC3880800088888CCC8330333333333CCC3380333333333 0003330333333333333388088888888888883333333333333333} OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 138 Top = 4 Width = 25 Height = 25 Hint = 'Graph Scale' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777333333333333 333300000000000000000F0F0F0F0F0F0F000F0FFF0FFF0FFF000FFFFFFFFFFF FFF00FFFFFFFFFFFFFF000000000000000003333333333333333777777777777 7777777777777777777777777777777777777777777777777777} OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 72 Top = 4 Width = 25 Height = 25 Hint = 'Save Graph' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333300008888888003300000877777700030000087007770003000008700777 0003000008777777000300000000000000030000000000000003000FFFFFFFFF 0003000FFFFFFFFF0003000FFFFFFFFF0003000FFFFFFFFF0003000FFFFFFFFF 0003000FFFFFFFFF0803000FFFFFFFFF00033009999999990033} OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 172 Top = 4 Width = 25 Height = 25 Hint = 'Graph Grid' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333300000000000000330F0FF0FF0FF0F03300000000000000330F0FF0FF0FF 0F0330F0FF0FF0FF0F03300000000000000330F0FF0FF0FF0F0330F0FF0FF0FF 0F03300000000000000330F0FF0FF0FF0F0330F0FF0FF0FF0F03300000000000 000330F0FF0FF0FF0F0330000000000000033333333333333333} OnClick = SpeedButton7Click end object SpeedButton8: TSpeedButton Tag = 7 Left = 337 Top = 4 Width = 25 Height = 25 Hint = 'Cascade Windows' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555500000000005555000FFFFFFFF055550F0FFFFFFFF055000F0FFFFF FFF0550F0F0FFFFFFFF0000F0F0CCCCCCCC00F0F0F0FFCCCFFF00F0F0F000000 00000F0F0FFCCCFFF0550F0F0000000000550F0FFCCCFFF055550F0000000000 55550FFCCCFFF055555500000000005555555555555555555555} OnClick = WindowCasade1Click end object SpeedButton9: TSpeedButton Left = 205 Top = 4 Width = 25 Height = 25 Hint = 'Calculator' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333300000000000000030FFFFFFFFFFFFF030F07F07F07F07F030FFFFFFFFFF FFF030F07F07F07F07F030FFFFFFFFFFFFF030F07F07F07F07F030FFFFFFFFFF FFF030FFFFFFFFFFFFF030F00000000000F030F0A8A8A8A8A0F030F000000000 00F030FFFFFFFFFFFFF030000000000000003333333333333333} OnClick = SpeedButton9Click end object SpeedButton10: TSpeedButton Left = 238 Top = 5 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000000 0000FFFFFF0BBBBBBBB0FFFFFF0B800070B00000000BBBBBBBB00BBBBB0B8070 00B00B00070BBBBBBBB00BBBBB0B000070B00B07000BBBBBBBB00BBBBB0B7070 77B00B00070BBBBB00000BBBBB0B00070BB00B07070BBBBB0B0F0BBBB0000000 00FF0B00700BB0FFFFFF0BBBBB0B0FFFFFFF00000000FFFFFFFF} OnClick = SpeedButton10Click end object SpeedButton11: TSpeedButton Left = 271 Top = 4 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F00000000000 000F000000000000000000222222222222000022000022222200002FF0000FFF F20000FFFF0000FFFF0000FFF0FFFF0FFF0000FFF0FFFF0FFF00F00FFF0000FF F00FFF00FFF00FFF00FFFFF00FF00FF00FFFFF000000000000FFFF0FFFF00FFF F0FFFF000000000000FFFFFFFFF00FFFFFFFFFFFFF0000FFFFFF} OnClick = SpeedButton11Click end end object FileMainMenu: TMainMenu Left = 16 Top = 48 object File1: TMenuItem Caption = '&File' GroupIndex = 1 HelpContext = 500 ShortCut = 0 object NewData1: TMenuItem Caption = '&New Data' HelpContext = 500 ShortCut = 0 OnClick = NewData1Click end object NewText1: TMenuItem Caption = 'New &Text' HelpContext = 500 ShortCut = 0 OnClick = NewText1Click end object Open1: TMenuItem Caption = '&Open' HelpContext = 500 ShortCut = 114 OnClick = Open1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' HelpContext = 500 ShortCut = 32883 OnClick = Exit1Click end end object Options1: TMenuItem Caption = '&Preferences' GroupIndex = 3 HelpContext = 1200 ShortCut = 0 object ToolBar1: TMenuItem Caption = '&Hide Tool Bar' ShortCut = 0 OnClick = ToolBar1Click end object PreferencesDialog1: TMenuItem Caption = 'Preferences Dialog....' ShortCut = 0 OnClick = Options1Click end end object Window1: TMenuItem Caption = '&Window' GroupIndex = 15 HelpContext = 800 ShortCut = 0 object WindowTileHoz1: TMenuItem Caption = 'Tile &Vert.' HelpContext = 800 ShortCut = 0 OnClick = WindowTileHoz1Click end object WindowTileVert1: TMenuItem Caption = 'Tile &Horz.' HelpContext = 800 ShortCut = 0 OnClick = WindowTileVert1Click end object WindowCasade1: TMenuItem Caption = '&Cascade' HelpContext = 800 ShortCut = 0 OnClick = WindowCasade1Click end object WindowCloseAll1: TMenuItem Caption = 'C&lose All' HelpContext = 800 ShortCut = 0 OnClick = WindowCloseAll1Click end object WindowClearAll1: TMenuItem Caption = 'Clear &All' HelpContext = 800 ShortCut = 0 OnClick = WindowClearAll1Click end end object Help1: TMenuItem Caption = '&Help' GroupIndex = 20 HelpContext = 100 ShortCut = 0 object Overview1: TMenuItem Caption = '&Overview' HelpContext = 200 ShortCut = 0 OnClick = Overview1Click end object GettingStarted1: TMenuItem Caption = '&Getting Started' HelpContext = 300 ShortCut = 0 OnClick = GettingStarted1Click end object Contents1: TMenuItem Caption = '&Contents' HelpContext = 100 ShortCut = 0 OnClick = Contents1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About' HelpContext = 200 ShortCut = 0 OnClick = About1Click end object Register1: TMenuItem Caption = '&Register' HelpContext = 200 ShortCut = 0 OnClick = Register1Click end end end object FileOpenDialog: TOpenDialog HelpContext = 500 FileEditStyle = fsEdit Filter = 'Data File|*.prn|Graph File|*.gra|Text File|*.txt|Any File as Tex' + 't|*.*' FilterIndex = 2 HistoryList.Strings = ( '') Options = [ofHideReadOnly, ofFileMustExist] Left = 64 Top = 48 end end