Windows 95 Secrets

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

/ Windows 95 Secrets / Secrets1.iso / Database / Business / InvOrg / _SETUP.1 / INO32S.EXE / 0 / RCDATA / TFORM3 / TFORM3.txt < prev

Wrap

Text File | 1997-05-14 | 80.9 KB | 2,610 lines

object Form3: TForm3 Left = 85 Top = 135 Width = 575 Height = 489 Hint = 'Use Right Mouse Button To Display Popup Menus' HorzScrollBar.Visible = False VertScrollBar.Visible = False Caption = 'PrimaSoft' Color = clBlue Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] KeyPreview = True Menu = MainMenu1 PixelsPerInch = 96 PopupMenu = PopupMenu2 Scaled = False ShowHint = True OnClose = FormClose OnKeyDown = FormKeyDown TextHeight = 16 object Panel4: TPanel Left = 0 Top = 391 Width = 567 Height = 35 BevelInner = bvLowered Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 Visible = False object B_Export: TBitBtn Left = 5 Top = 4 Width = 71 Height = 26 Hint = 'Export Data to Text File' Caption = 'Export' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = B_ExportClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 end object B_Import: TBitBtn Left = 79 Top = 4 Width = 74 Height = 26 Hint = 'Import Data from Text File' Caption = 'Import' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = B_ImportClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 end object B_Password: TBitBtn Left = 156 Top = 4 Width = 85 Height = 26 Hint = 'Change Password' Caption = 'Password' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = B_PasswordClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5000555555555555577755555555555550B0555555555555F7F7555555555550 00B05555555555577757555555555550B3B05555555555F7F557555555555000 3B0555555555577755755555555500B3B0555555555577555755555555550B3B 055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05 555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555 55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055 555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755 55555575FFFF77555555555700007555555555577777755555550000} NumGlyphs = 2 end object B_Maintenance: TBitBtn Left = 244 Top = 4 Width = 98 Height = 26 Hint = 'Database Maintenance Functions' Caption = 'Maintenance' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = B_MaintenanceClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object B_Filter: TBitBtn Left = 345 Top = 4 Width = 63 Height = 26 Hint = 'Define Filter' Caption = 'Filter' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = B_FilterClick Glyph.Data = { D6000000424DD60000000000000076000000280000000E0000000C0000000100 0400000000006000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888BBB888 8800888888000888880088888800088888008888880770888855880000777088 88008088077777088855808000000000880080800000000088008808B8B08B88 08008800000000000800888B808888888800888D800B80DD8800} end object B_Sort: TBitBtn Left = 411 Top = 4 Width = 62 Height = 26 Hint = 'Sort Data' Caption = 'Sort' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = SortButton1Click Glyph.Data = { FA000000424DFA000000000000007600000028000000110000000B0000000100 0400000000008400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008C888C898889 80808AAA5AAA8C888C88989880808111E11188C8C888989888088AAA5AAA88C8 C888898880008000F000888C8889898988088222D2228C8C8C88999880008000 000088CCC8888988880882222222888C8888999888888AAAAAAA888C88888988 88888C88888888CCC8888888888880000000888C88888888888880000000} end object B_Summary: TBitBtn Left = 476 Top = 4 Width = 85 Height = 26 Hint = 'Display Summary' Caption = 'Summary' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = B_SummaryClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFFFFFFFFFF33330000000000 03333377777777777F33333003333330033333377FF333377F33333300333333 0333333377FF33337F3333333003333303333333377FF3337333333333003333 333333333377FF3333333333333003333333333333377FF33333333333330033 3333333333337733333333333330033333333333333773333333333333003333 33333333337733333F3333333003333303333333377333337F33333300333333 03333333773333337F33333003333330033333377FFFFFF77F33330000000000 03333377777777777333333333333333333333333333333333330000} NumGlyphs = 2 end end object Panel3: TPanel Left = 0 Top = 391 Width = 567 Height = 35 BevelInner = bvLowered Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object B_Search: TBitBtn Left = 5 Top = 4 Width = 66 Height = 26 Hint = 'Find Text' Caption = 'Find' ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = False OnClick = B_SearchClick Glyph.Data = { 36010000424D3601000000000000760000002800000012000000100000000100 040000000000C000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888078888888 88888800E111880007888888888888A21EE28000007888888888881181118801 10078888888888225A2288801100777777888811E111888801100000007888AA 5AAA88888010078880078811E11188888800788BB87078AA5AAA888888078888 8BB70800F00088888808888888B80822D22288888807B88888B8080000008888 8807BBB8888808222222888888007BBB888778AAAAAA8888888077BB88708888 8888888888880777700888000000888888888000078888000000} end object B_Options: TBitBtn Left = 75 Top = 4 Width = 80 Height = 26 Hint = 'Set Options' Caption = 'Options' ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = False OnClick = B_OptionsClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object B_Print: TBitBtn Left = 159 Top = 4 Width = 66 Height = 26 Hint = 'Create and Print Reports' Caption = 'Print' ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False OnClick = B_PrintClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object B_New: TBitBtn Left = 229 Top = 4 Width = 62 Height = 26 Hint = 'Add New Record' Caption = 'New' ParentShowHint = False ShowHint = True TabOrder = 3 TabStop = False OnClick = B_NewClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object B_Load: TBitBtn Left = 295 Top = 4 Width = 65 Height = 26 Hint = 'Load Another Database' Caption = 'Load' ParentShowHint = False ShowHint = True TabOrder = 4 TabStop = False OnClick = B_LoadClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FF555FFFFFFF5FF0075500000005000775F57777777F7770B0550CC0090 50E07F7F57FF77F7F7F70B055000000050E07F75F7777777F7F70B7750CC0090 50E075F7F7F577F7F7F777B050CC009050E057F7F7F577F7F7F750B050CC0090 50E057F757F577F7F7F750B770CC009050E0575F77F577F7F7F7577B00CC0090 50E0557F77F577F7F7F7550B30CC00905000557F57FF77F7F777550B30000090 50E05575F77777F7F7F7557000CC00905000555777FF77F7F777555550000090 55555555577777F7F5555555555550005555555555555777F555555555555090 55555555555557F7F555555555555000555555555555577755550000} NumGlyphs = 2 end object B_Exit: TBitBtn Left = 501 Top = 4 Width = 60 Height = 26 Hint = 'Program Shutdown [Alt+F4]' Caption = 'Exit' ParentShowHint = False ShowHint = True TabOrder = 7 TabStop = False OnClick = B_ExitClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 end object B_Help: TBitBtn Left = 437 Top = 4 Width = 60 Height = 26 Hint = 'Display Help Window' Caption = 'Help' ParentShowHint = False ShowHint = True TabOrder = 6 TabStop = False OnClick = Help2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 end object B_About: TBitBtn Left = 364 Top = 4 Width = 69 Height = 26 Hint = 'Display Information About Authors' Caption = 'About' ParentShowHint = False ShowHint = True TabOrder = 5 TabStop = False OnClick = B_AboutClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33 33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888 8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF 0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000 B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3 333333333777733333333333FBFBFB33333333333333333333330000} NumGlyphs = 2 end end object Panel7: TPanel Left = 271 Top = 0 Width = 24 Height = 391 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object Panel5: TPanel Left = 1 Top = 21 Width = 22 Height = 347 Align = alClient BevelOuter = bvNone Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object ColorButton1: TColorButton Left = 0 Top = 0 Width = 24 Height = 14 Hint = 'Jump to Page beginning with A' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'A' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 0 OnClick = A_BtnClick end object ColorButton2: TColorButton Left = 0 Top = 13 Width = 24 Height = 14 Hint = 'Jump to Page beginning with B' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'B' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 1 OnClick = A_BtnClick end object ColorButton3: TColorButton Left = 0 Top = 26 Width = 24 Height = 14 Hint = 'Jump to Page beginning with C' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'C' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 2 OnClick = A_BtnClick end object ColorButton4: TColorButton Left = 0 Top = 39 Width = 24 Height = 14 Hint = 'Jump to Page beginning with D' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'D' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 3 OnClick = A_BtnClick end object ColorButton5: TColorButton Left = 0 Top = 52 Width = 24 Height = 14 Hint = 'Jump to Page beginning with E' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'E' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 4 OnClick = A_BtnClick end object ColorButton6: TColorButton Left = 0 Top = 65 Width = 24 Height = 14 Hint = 'Jump to Page beginning with F' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'F' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 5 OnClick = A_BtnClick end object ColorButton7: TColorButton Left = 0 Top = 78 Width = 24 Height = 14 Hint = 'Jump to Page beginning with G' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'G' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 6 OnClick = A_BtnClick end object ColorButton8: TColorButton Left = 0 Top = 91 Width = 24 Height = 14 Hint = 'Jump to Page beginning with H' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'H' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 7 OnClick = A_BtnClick end object ColorButton9: TColorButton Left = 0 Top = 104 Width = 24 Height = 14 Hint = 'Jump to Page beginning with I' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'I' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 8 OnClick = A_BtnClick end object ColorButton10: TColorButton Left = 0 Top = 117 Width = 24 Height = 14 Hint = 'Jump to Page beginning with J' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'J' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 9 OnClick = A_BtnClick end object ColorButton11: TColorButton Left = 0 Top = 130 Width = 24 Height = 14 Hint = 'Jump to Page beginning with K' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'K' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 10 OnClick = A_BtnClick end object ColorButton12: TColorButton Left = 0 Top = 143 Width = 24 Height = 14 Hint = 'Jump to Page beginning with L' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'L' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 11 OnClick = A_BtnClick end object ColorButton13: TColorButton Left = 0 Top = 156 Width = 24 Height = 14 Hint = 'Jump to Page beginning with M' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'M' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 12 OnClick = A_BtnClick end object ColorButton14: TColorButton Left = 0 Top = 169 Width = 24 Height = 14 Hint = 'Jump to Page beginning with N' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'N' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 13 OnClick = A_BtnClick end object ColorButton15: TColorButton Left = 0 Top = 182 Width = 24 Height = 14 Hint = 'Jump to Page beginning with O' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'O' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 14 OnClick = A_BtnClick end object ColorButton16: TColorButton Left = 0 Top = 195 Width = 24 Height = 14 Hint = 'Jump to Page beginning with P' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'P' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 15 OnClick = A_BtnClick end object ColorButton17: TColorButton Left = 0 Top = 208 Width = 24 Height = 14 Hint = 'Jump to Page beginning with Q' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'Q' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 16 OnClick = A_BtnClick end object ColorButton18: TColorButton Left = 0 Top = 221 Width = 24 Height = 14 Hint = 'Jump to Page beginning with R' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'R' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 17 OnClick = A_BtnClick end object ColorButton19: TColorButton Left = 0 Top = 234 Width = 24 Height = 14 Hint = 'Jump to Page beginning with S' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'S' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 18 OnClick = A_BtnClick end object ColorButton20: TColorButton Left = 0 Top = 247 Width = 24 Height = 14 Hint = 'Jump to Page beginning with T' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'T' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 19 OnClick = A_BtnClick end object ColorButton21: TColorButton Left = 0 Top = 260 Width = 24 Height = 14 Hint = 'Jump to Page beginning with U' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'U' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 20 OnClick = A_BtnClick end object ColorButton22: TColorButton Left = 0 Top = 273 Width = 24 Height = 14 Hint = 'Jump to Page beginning with V' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'V' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 21 OnClick = A_BtnClick end object ColorButton23: TColorButton Left = 0 Top = 286 Width = 24 Height = 14 Hint = 'Jump to Page beginning with W' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'W' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 22 OnClick = A_BtnClick end object ColorButton24: TColorButton Left = 0 Top = 299 Width = 24 Height = 14 Hint = 'Jump to Page beginning with X' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'X' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 23 OnClick = A_BtnClick end object ColorButton25: TColorButton Left = 0 Top = 312 Width = 24 Height = 14 Hint = 'Jump to Page beginning with Y' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'Y' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 24 OnClick = A_BtnClick end object ColorButton26: TColorButton Left = 0 Top = 325 Width = 24 Height = 14 Hint = 'Jump to Page beginning with Z' BgndColor = clBtnFace SelBgndColor = clSilver Caption = 'Z' ParentShowHint = False ShowHint = True StayDown = True TabOrder = 25 OnClick = A_BtnClick end end object Panel8: TPanel Left = 1 Top = 368 Width = 22 Height = 22 Align = alBottom BevelOuter = bvNone TabOrder = 1 object SpeedButton1: TSpeedButton Left = 0 Top = 3 Width = 22 Height = 20 Hint = 'Scroll Letter Bar Down' Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 OnClick = SpeedButton1Click end end object Panel9: TPanel Left = 1 Top = 1 Width = 22 Height = 20 Align = alTop BevelOuter = bvNone Caption = 'Panel9' TabOrder = 2 object SpeedButton2: TSpeedButton Left = 0 Top = 1 Width = 22 Height = 20 Hint = 'Scroll Letter Bar Up' Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F3333333333333303333333333333337333333330000} NumGlyphs = 2 OnClick = SpeedButton2Click end end end object Panel1: TPanel Left = 0 Top = 0 Width = 271 Height = 391 BevelInner = bvLowered Ctl3D = True Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 object PrimaHeader1: TPrimaHeader Left = 5 Top = 25 Width = 260 Height = 20 Hint = 'Left Click - Change Order; Right Click - Menu' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] ParentFont = False TabOrder = 1 OnHChange = PrimaHeader1HChange end object SortButton1: TSortButton Left = 5 Top = 3 Width = 260 Height = 20 Caption = 'SortButton1' Font.Color = clBlack Font.Height = -8 Font.Name = 'Small Fonts' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = SortButton1Click Hint1 = '[Primary Sort Field]: Left Click - Sort Options; Right Click - M' + 'enu' Hint2 = '[Secondary Sort Field]: Left Click - Sort Options; Right Click -' + ' Menu' Hint3 = 'Left Click - Set Filter; Right Click - Menu' IsDown1 = True IsDown2 = False DownBmp.Data = { FA000000424DFA000000000000007600000028000000110000000B0000000100 0400000000008400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008C888C898889 80808AAA5AAA8C888C88989880808111E11188C8C888989888088AAA5AAA88C8 C888898880008000F000888C8889898988088222D2228C8C8C88999880008000 000088CCC8888988880882222222888C8888999888888AAAAAAA888C88888988 88888C88888888CCC8888888888880000000888C88888888888880000000} UpBmp.Data = { FA000000424DFA000000000000007600000028000000110000000B0000000100 0400000000008400000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0080808988898C 888C8AAA5AAA80808898988C888C8111E111880888989888C8C88AAA5AAA8000 88898888C8C88000F0008808898989888C888222D22280008899988C8C8C8000 0000880888898888CCC8822222228888889998888C888AAAAAAA888888898888 8C888C888888888888888888CCC8800000008888888888888C8880000000} FilterBmp.Data = { D6000000424DD60000000000000076000000280000000E0000000C0000000100 0400000000006000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888BBB888 8800888888000888880088888800088888008888880770888855880000777088 88008088077777088855808000000000880080800000000088008808B8B08B88 08008800000000000800888B808888888800888D800B80DD8800} OnFilterClick = B_FilterClick FilterState = fsFilterOff OnFilterMenuClick = SortButton1FilterMenuClick OnSort1MenuClick = SortButton1Sort1MenuClick OnSort2MenuClick = SortButton1Sort2MenuClick OnQuickFilter = SortButton1QuickFilter OnSortByClick = SortByMenuClick end object Panel6: TPanel Left = 2 Top = 354 Width = 267 Height = 35 Align = alBottom BevelInner = bvLowered TabOrder = 2 object B_First: TBitBtn Left = 5 Top = 8 Width = 54 Height = 24 Hint = 'GoTo First Page [Ctrl+Home]' Caption = 'First' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = False OnClick = B_FirstClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object B_PgUp: TBitBtn Left = 60 Top = 8 Width = 54 Height = 24 Hint = 'GoTo Previous Page [Ctrl+PgUp]' Caption = 'PgUp' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = False OnClick = B_PgUpClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object SponsorBtn: TBitBtn Left = 120 Top = 2 Width = 30 Height = 30 Hint = 'Go To PrimaSoft Home Page [Ctrl+G]' ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False OnClick = SponsorBtnClick Glyph.Data = { A4010000424DA401000000000000760000002800000017000000170000000100 0400000000001401000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFCF000000000F000000000FFFFF09999999000CCCCCCC00FFCF09B BB999090CCBBBCC0C0FDF099B9999090CBCCCBC0C0FFF099BBB99090CBCCCCC0 C0F9F099B99B9090CBCCCBC0C0FBF09BBBB99090CCBBBCC0C0FFF09999999090 CCCCCCC0C0F3F0000000009000000000C0F7FF09999999000CCCCCCC00FEF000 000000000000000000F6F0AAAAAAA000BBBBBBB00FFFF0A000AAA0A0B000BBB0 B0FCF0AA0AAAA0A0BBBB0BB0B0F0F0AA000AA0A0BB00BBB0B0FFF0AA0AA0A0A0 B0BBBBB0B0F8F0A0000AA0A0BB000BB0B0F1F0AAAAAAA0A0BBBBBBB0B0FFF000 000000A000000000B0F0FF0AAAAAAA000BBBBBBB00F3FFF000000000F0000000 00FEFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000 0000000000000000} end object B_PgDn: TBitBtn Left = 155 Top = 8 Width = 54 Height = 24 Hint = 'GoTo Next Page [Ctrl+PgDn]' Caption = 'PgDn' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 TabStop = False OnClick = B_PgDnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 end object B_Last: TBitBtn Left = 210 Top = 8 Width = 54 Height = 24 Hint = 'GoTo Last Page [Ctrl+End]' Caption = 'Last' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 TabStop = False OnClick = B_LastClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 end end end object TabSet1: TTabSet Left = 0 Top = 425 Width = 566 Height = 18 Hint = 'Click on Tabs to select Speed Bar pages' BackgroundColor = clBlue DitherBackground = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentShowHint = False ShowHint = True Tabs.Strings = ( 'Standard' 'Advanced') TabIndex = 0 OnClick = TabSet1Click end object PgRight: TPanel Left = 295 Top = 0 Width = 272 Height = 391 BevelOuter = bvNone Color = clSilver Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False PopupMenu = PopupMenu3 TabOrder = 5 object Notebook1: TNotebook Left = 0 Top = 16 Width = 272 Height = 325 Align = alClient TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Page 4' object PgR4: TPanel Tag = 2 Left = 0 Top = 0 Width = 272 Height = 325 Align = alClient BevelInner = bvLowered Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 0 object TLabel Left = 8 Top = 192 Width = 4 Height = 16 end object Label1: TLabel Tag = 1 Left = 6 Top = 6 Width = 52 Height = 14 Caption = 'Item Name:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label2: TLabel Tag = 2 Left = 6 Top = 62 Width = 47 Height = 14 Caption = 'Producer:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label8: TLabel Tag = 3 Left = 6 Top = 95 Width = 47 Height = 14 Caption = 'Category:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Tag = 4 Left = 6 Top = 128 Width = 44 Height = 14 Caption = 'Location:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label7: TLabel Tag = 5 Left = 6 Top = 155 Width = 71 Height = 14 Caption = 'Model Number:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label6: TLabel Tag = 9 Left = 126 Top = 155 Width = 64 Height = 14 Caption = 'Small Picture:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Tag = 6 Left = 6 Top = 195 Width = 70 Height = 14 Caption = 'Serial Number:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Tag = 7 Left = 6 Top = 235 Width = 74 Height = 14 Caption = 'Purchase Date:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label9: TLabel Tag = 8 Left = 6 Top = 275 Width = 48 Height = 14 Caption = 'Warranty:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object L1: TEdit Tag = 1 Left = 6 Top = 20 Width = 257 Height = 24 Hint = 'Enter Text Here' AutoSelect = False TabOrder = 0 end object L2: TLookup Tag = 2 Left = 70 Top = 57 Width = 193 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 1 Source = 'list1.dbf' end object L3: TLookup Tag = 3 Left = 70 Top = 90 Width = 193 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 2 Source = 'list2.dbf' end object L4: TLookup Tag = 4 Left = 70 Top = 123 Width = 193 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 3 Source = 'list3.dbf' end object L5: TEdit Tag = 5 Left = 6 Top = 169 Width = 115 Height = 24 Hint = 'Enter Text Here' AutoSelect = False TabOrder = 4 end object L6: TEdit Tag = 6 Left = 6 Top = 209 Width = 115 Height = 24 Hint = 'Enter Text Here' AutoSelect = False TabOrder = 5 end object L7: TDateEdit Tag = 7 Left = 6 Top = 249 Width = 115 Height = 24 Hint = 'Enter Date Here' DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 6 end object L8: TEdit Tag = 8 Left = 6 Top = 289 Width = 115 Height = 24 Hint = 'Enter Text Here' AutoSelect = False TabOrder = 7 end object L9: TBmpControl Tag = 9 Left = 126 Top = 169 Width = 138 Height = 146 Hint = 'Right Mouse Click Displays Menu' Caption = 'L9' TabOrder = 8 ShowButtons = False end end end object TPage Left = 0 Top = 0 Caption = 'Page 1' object PgR1: TPanel Left = 0 Top = 0 Width = 272 Height = 325 Align = alClient BevelInner = bvLowered Ctl3D = True Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentCtl3D = False ParentFont = False TabOrder = 0 object Label10: TLabel Tag = 10 Left = 6 Top = 7 Width = 43 Height = 14 Caption = 'Quantity:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Tag = 11 Left = 6 Top = 47 Width = 25 Height = 14 Caption = 'Cost:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label12: TLabel Tag = 12 Left = 138 Top = 47 Width = 51 Height = 14 Caption = 'Total Cost:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label13: TLabel Tag = 13 Left = 6 Top = 87 Width = 31 Height = 14 Caption = 'Value:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label14: TLabel Tag = 14 Left = 138 Top = 87 Width = 57 Height = 14 Caption = 'Total Value:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label19: TLabel Tag = 15 Left = 6 Top = 144 Width = 34 Height = 14 Caption = 'Status:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label15: TLabel Tag = 16 Left = 6 Top = 179 Width = 47 Height = 14 Caption = 'Condition:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label33: TLabel Tag = 17 Left = 6 Top = 214 Width = 48 Height = 14 Caption = 'Custom 1:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label30: TLabel Tag = 18 Left = 6 Top = 249 Width = 48 Height = 14 Caption = 'Custom 2:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label31: TLabel Tag = 19 Left = 6 Top = 275 Width = 58 Height = 14 Caption = 'Attachment:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Tag = 20 Left = 150 Top = 275 Width = 73 Height = 14 Caption = 'Phone Service:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object L10: TCurrencyEdit Tag = 10 Left = 6 Top = 21 Width = 257 Height = 24 Hint = 'Enter Value Here' AutoSelect = False DisplayFormat = ',0' Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False TabOrder = 0 end object L11: TCurrencyEdit Tag = 11 Left = 6 Top = 61 Width = 127 Height = 24 Hint = 'Enter Value Here' AutoSelect = False DisplayFormat = ',0.00' Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False TabOrder = 1 end object L12: TCalcEdit Tag = 12 Left = 138 Top = 61 Width = 125 Height = 24 Hint = 'Calculated Field' TabStop = False Formula = '@1*@2' EmptyText = '0.00' ErrorText = '****' Decimals = 2 Field1 = L10 Field2 = L11 Alignment = taRightJustify Color = clWhite Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False Text = '0.00' end object L13: TCurrencyEdit Tag = 13 Left = 6 Top = 101 Width = 127 Height = 24 Hint = 'Enter Value Here' AutoSelect = False DisplayFormat = ',0.00' Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False TabOrder = 3 end object L14: TCalcEdit Tag = 14 Left = 138 Top = 101 Width = 125 Height = 24 Hint = 'Calculated Field' TabStop = False Formula = '@1*@2' EmptyText = '0.00' ErrorText = '****' Decimals = 2 Field1 = L10 Field2 = L13 Alignment = taRightJustify Color = clWhite Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False Text = '0.00' end object L15: TLookup Tag = 15 Left = 63 Top = 139 Width = 200 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 5 Source = 'list4.dbf' end object L16: TLookup Tag = 16 Left = 63 Top = 174 Width = 200 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 6 Source = 'list5.dbf' end object L17: TLookup Tag = 17 Left = 63 Top = 209 Width = 200 Height = 24 Hint = 'Click on the down arrow to see the choices' ItemHeight = 16 Sorted = True TabOrder = 7 Source = 'list6.dbf' end object L18: TEdit Tag = 18 Left = 63 Top = 244 Width = 200 Height = 24 Hint = 'Enter Text Here' AutoSelect = False TabOrder = 8 end object L19: TMultiMediaEdit Tag = 19 Left = 6 Top = 289 Width = 139 Height = 24 Hint = 'Attachment' TabOrder = 9 end object L20: TPhoneEdit Tag = 20 Left = 150 Top = 289 Width = 113 Height = 24 Hint = 'Enter Phone Number Here' AutoSelect = False TabOrder = 10 end end end object TPage Left = 0 Top = 0 Caption = 'Page 2' object PgR2: TPanel Tag = 1 Left = 0 Top = 0 Width = 272 Height = 325 Align = alClient BevelInner = bvLowered Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 0 object Label49: TLabel Tag = 21 Left = 6 Top = 6 Width = 31 Height = 14 Caption = 'Notes:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object L21: TMemo Tag = 21 Left = 8 Top = 20 Width = 257 Height = 295 Hint = 'Enter Text Here' ScrollBars = ssVertical TabOrder = 0 end end end object TPage Left = 0 Top = 0 Caption = 'Page 3' object PgR3: TPanel Tag = 2 Left = 0 Top = 0 Width = 272 Height = 325 Align = alClient BevelInner = bvLowered Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False TabOrder = 0 object TLabel Left = 8 Top = 192 Width = 4 Height = 16 end object Label51: TLabel Tag = 22 Left = 6 Top = 5 Width = 36 Height = 14 Caption = 'Picture:' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object L22: TBmpControl Tag = 22 Left = 6 Top = 18 Width = 257 Height = 301 Hint = 'Right Mouse Click Displays Menu' Caption = 'L22' TabOrder = 0 TabStop = True ShowButtons = True end end end end object TabSet2: TTabSet Left = 0 Top = 371 Width = 272 Height = 20 Hint = 'Select Part of the Record [Alt+#]' Align = alBottom BackgroundColor = clSilver DitherBackground = False Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Tabs.Strings = ( 'Part 1' 'Part 2' 'Part 3' 'Part 4') TabIndex = 0 OnClick = TabSet2Click end object Panel2: TPanel Left = 0 Top = 341 Width = 272 Height = 30 Align = alBottom BevelInner = bvLowered ParentColor = True TabOrder = 2 object PgR_Lbl: TLabel Tag = -1 Left = 233 Top = 3 Width = 36 Height = 12 Alignment = taRightJustify AutoSize = False Caption = '999999' Color = clYellow Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Perc_Lbl: TLabel Tag = -1 Left = 233 Top = 14 Width = 36 Height = 12 Alignment = taRightJustify AutoSize = False Caption = '100%' Color = clYellow Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object B_RPrint: TBitBtn Left = 25 Top = 3 Width = 24 Height = 23 Hint = 'Print Current Record [Alt+P]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 TabStop = False OnClick = B_RPrintClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 end object B_RDelete: TBitBtn Left = 48 Top = 3 Width = 24 Height = 23 Hint = 'Delete Current Record [Alt+Delete]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 TabStop = False OnClick = B_RDeleteClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033 3333333337FFF7F33333333330000033333333333777773333330000} NumGlyphs = 2 end object B_RCopy: TBitBtn Left = 94 Top = 3 Width = 24 Height = 23 Hint = 'Copy Current Record To Copy Buffer [Alt+C]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 TabStop = False OnClick = B_RCopyClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object B_RPaste: TBitBtn Left = 117 Top = 3 Width = 24 Height = 23 Hint = 'Paste From Copy Buffer To Current Record [Alt+T]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 TabStop = False OnClick = B_RPasteClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} NumGlyphs = 2 end object B_RUndo: TBitBtn Left = 71 Top = 3 Width = 24 Height = 23 Hint = 'Undo Changes To Current Record [Alt+U]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 TabStop = False OnClick = B_RUndoClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF33339993707399933333773337F3777FF3399933000339 9933377333777F3377F3399333707333993337733337333337FF993333333333 399377F33333F333377F993333303333399377F33337FF333373993333707333 333377F333777F333333993333101333333377F333777F3FFFFF993333000399 999377FF33777F77777F3993330003399993373FF3777F37777F399933000333 99933773FF777F3F777F339993707399999333773F373F77777F333999999999 3393333777333777337333333999993333333333377777333333} NumGlyphs = 2 end object B_Prev: TBitBtn Left = 186 Top = 3 Width = 24 Height = 23 Hint = 'GoTo Previous Page [Alt+PgUp]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 TabStop = False OnClick = Previous1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object B_Next: TBitBtn Left = 209 Top = 3 Width = 24 Height = 23 Hint = 'GoTo Next Page [Alt+PgDn]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 TabStop = False OnClick = Next1Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 end object B_RSynchro: TBitBtn Left = 2 Top = 3 Width = 24 Height = 23 Hint = 'Synchronize Left Page With Current Record [Alt+Y]' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 TabStop = False OnClick = B_RSynchroClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end end object RStatus: TPanel Left = 0 Top = 0 Width = 272 Height = 16 Align = alTop Alignment = taLeftJustify BevelInner = bvLowered Caption = 'Read/Write Access' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = True ParentFont = False TabOrder = 3 object Panel10: TPanel Left = 176 Top = 2 Width = 94 Height = 12 Align = alRight BevelOuter = bvNone PopupMenu = TemplateRMenu TabOrder = 0 object TemplateBtn: TSpeedButton Left = 2 Top = 0 Width = 91 Height = 12 Hint = 'Left Click - Select New Record Template; Right Click - Popup Men' + 'u' Caption = 'Blank' OnClick = TemplateBtnClick end end end end object Splitter: TPanel Left = 278 Top = 430 Width = 10 Height = 14 Cursor = crHSplit Hint = 'Resize Left and Right Pages' Caption = 'Splitter' TabOrder = 6 OnMouseDown = SplitterMouseDown OnMouseMove = SplitterMouseMove OnMouseUp = SplitterMouseUp object Image1: TImage Left = 1 Top = 1 Width = 8 Height = 38 Enabled = False Picture.Data = {<image000.bmp>} end end object MainMenu1: TMainMenu Left = 16 Top = 50 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New Record' OnClick = B_NewClick end object Load1: TMenuItem Caption = '&Load Database' OnClick = B_LoadClick end object Print1: TMenuItem Caption = '&Print' OnClick = B_PrintClick end object Exit1: TMenuItem Caption = '&Exit' OnClick = B_ExitClick end end object Search1: TMenuItem Caption = '&Search' object Find1: TMenuItem Caption = '&Find' OnClick = B_SearchClick end end object Options1: TMenuItem Caption = '&Options' OnClick = B_OptionsClick end object Move1: TMenuItem Caption = '&Move' object First1: TMenuItem Caption = '&First' OnClick = B_FirstClick end object PageUp1: TMenuItem Caption = 'Page&Up' OnClick = B_PgUpClick end object PageDown1: TMenuItem Caption = 'Page&Down' OnClick = B_PgDnClick end object Last1: TMenuItem Caption = '&Last' OnClick = B_LastClick end object Previous1: TMenuItem Caption = '&Previous' OnClick = Previous1Click end object Next1: TMenuItem Caption = '&Next' OnClick = Next1Click end end object Advanced1: TMenuItem Caption = '&Advanced' object Export1: TMenuItem Caption = '&Export' OnClick = B_ExportClick end object Import1: TMenuItem Caption = '&Import' OnClick = B_ImportClick end object Password1: TMenuItem Caption = '&Password' OnClick = B_PasswordClick end object Maintenance1: TMenuItem Caption = '&Maintenance' OnClick = B_MaintenanceClick end object Filter1: TMenuItem Caption = '&Filter' OnClick = B_FilterClick end object Sort1: TMenuItem Caption = '&Sort' OnClick = SortButton1Click end object Summary1: TMenuItem Caption = 'S&ummary' OnClick = B_SummaryClick end end object Help1: TMenuItem Caption = '&Help' object Help2: TMenuItem Caption = '&Help Contents' OnClick = Help2Click end object DisplayHints1: TMenuItem Caption = '&Tips' OnClick = DisplayHints1Click end object N10: TMenuItem Caption = '-' end object About1: TMenuItem Caption = '&About' OnClick = B_AboutClick end end object Registration1: TMenuItem Caption = '&Registration' object HowToRegister1: TMenuItem Caption = '&How To Register' OnClick = HowToRegister1Click end object OrderForm1: TMenuItem Caption = '&Order Form' OnClick = OrderForm1Click end object EnterDecodeKey1: TMenuItem Caption = '&Enter Registration Code' OnClick = EnterDecodeKey1Click end end end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 16 Top = 80 object QuickView1: TMenuItem Caption = '&Quick View' object TMenuItem end end object ViewBuffer1: TMenuItem Caption = '&View Copy Buffer' object TMenuItem end end object Help3: TMenuItem Caption = '-' end object CopyRecord1: TMenuItem Caption = '&Copy Record' OnClick = CopyRecord1Click end object PasteRecord1: TMenuItem Caption = '&Paste Record' OnClick = PasteRecord1Click end object Deleterecord1: TMenuItem Caption = '&Delete Record' OnClick = Deleterecord1Click end object PrintRecord1: TMenuItem Caption = 'P&rint Record' OnClick = PrintRecord1Click end object N5: TMenuItem Caption = '-' end object Font1: TMenuItem Caption = '&Font...' OnClick = Font1Click end object Color1: TMenuItem Caption = 'C&olor...' OnClick = Color1Click end object N7: TMenuItem Caption = '-' end object FButtonHelp: TMenuItem Caption = '&Help' OnClick = FButtonHelpClick end end object PopupMenu2: TPopupMenu OnPopup = PopupMenu2Popup Left = 17 Top = 112 object MenusAndSpeedBars1: TMenuItem Caption = '&Menus And SpeedBars' object ShowBothMenusAndSpeedBars1: TMenuItem Caption = 'Show Both' OnClick = ShowBothMenusAndSpeedBars1Click end object ShowOnly1: TMenuItem Caption = 'Show Only Menus' OnClick = ShowOnly1Click end object ShowOnlySpeedBars1: TMenuItem Caption = 'Show Only Speed Bars' OnClick = ShowOnlySpeedBars1Click end object N6: TMenuItem Caption = '-' end object SpeedBarAtTheTop1: TMenuItem Caption = 'Speed Bar At The Top' OnClick = SpeedBarAtTheTop1Click end object SpeedBarAtTheBottom1: TMenuItem Caption = 'Speed Bar At The Bottom' OnClick = SpeedBarAtTheBottom1Click end end object LetterTabs1: TMenuItem Caption = '&Letter Tabs' object UseLetterTabs1: TMenuItem Caption = 'Enabled' OnClick = UseLetterTabs1Click end object DontUseLetterTabs1: TMenuItem Caption = 'Disabled' OnClick = DontUseLetterTabs1Click end object N1: TMenuItem Caption = '-' end object DisplayInCenter1: TMenuItem Caption = 'Display In Center' OnClick = DisplayInCenter1Click end object DisplayOnRightSide1: TMenuItem Caption = 'Display On Right Side' OnClick = DisplayOnRightSide1Click end end object HintMessages1: TMenuItem Caption = 'H&int Messages' object Show1: TMenuItem Caption = 'Show' OnClick = Show1Click end object Hide1: TMenuItem Caption = 'Hide' OnClick = Hide1Click end end object RecordDeleteMode1: TMenuItem Caption = '&Record Delete Mode' object AskUserToConfirm1: TMenuItem Caption = 'Ask User To Confirm' OnClick = AskUserToConfirm1Click end object ImmediateDelete1: TMenuItem Caption = 'Immediate Delete' OnClick = ImmediateDelete1Click end end object N3: TMenuItem Caption = '-' end object Help4: TMenuItem Caption = '&Help' OnClick = Help4Click end end object PopupMenu3: TPopupMenu OnPopup = PopupMenu3Popup Left = 16 Top = 144 object LoadRecordFromTemplate1: TMenuItem Caption = 'R&eplace Record With Template' end object SaveRecordToTemplate1: TMenuItem Caption = '&Save Record To Template' OnClick = SaveToTemplate1Click end object N9: TMenuItem Caption = '-' end object ViewBuffer3: TMenuItem Caption = '&View Copy Buffer' object TMenuItem end end object N4: TMenuItem Caption = '-' end object Paste3: TMenuItem Caption = '&Paste Record' OnClick = B_RPasteClick end object Copy3: TMenuItem Caption = '&Copy Record' OnClick = B_RCopyClick end object Undo3: TMenuItem Caption = '&Undo Changes' OnClick = B_RUndoClick end object Delete3: TMenuItem Caption = '&Delete Record' OnClick = B_RDeleteClick end object Print3: TMenuItem Caption = 'P&rint Record' OnClick = B_RPrintClick end object Synchronize3: TMenuItem Caption = 'S&ynchronize' OnClick = B_RSynchroClick end object Web1: TMenuItem Caption = '-' end object MenuItem7: TMenuItem Caption = '&Help' OnClick = MenuItem7Click end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [] Left = 16 Top = 184 end object PopupMenu4: TPopupMenu AutoPopup = False Left = 16 Top = 224 object Text1: TMenuItem Caption = '&Text...' OnClick = Text1Click end object Color3: TMenuItem Caption = '&Color...' OnClick = Color3Click end object LoadFromTemplate2: TMenuItem Caption = '&Load From Template...' OnClick = LoadFromTemplate2Click end object SaveAsTemplate1: TMenuItem Caption = '&Save As Template...' OnClick = SaveAsTemplate1Click end end object TemplateRMenu: TPopupMenu Left = 16 Top = 256 object LoadFromTemplate1: TMenuItem Caption = '&Replace Record With Template' end object SaveToTemplate1: TMenuItem Caption = '&Save Record To Template' OnClick = SaveToTemplate1Click end object N8: TMenuItem Caption = '-' end object Help5: TMenuItem Caption = '&Help' OnClick = Help5Click end end end