object TMMediaToolBar: TTMMediaToolBar Left = 9 Top = 100 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'Image Toolbar' ClientHeight = 31 ClientWidth = 605 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop PixelsPerInch = 96 Position = poDefault OnActivate = FormActivate OnDestroy = FormDestroy TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 605 Height = 31 Align = alClient BevelInner = bvRaised BevelOuter = bvNone TabOrder = 0 object ScanImage: TSpeedButton Left = 2 Top = 2 Width = 25 Height = 25 Hint = 'Scan an Image' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003333033333333333333300003333 3000333333333333000033333333033333333333000033333333303333333333 0000333333338088333333330000333333300000833333330000333333077777 08333333000033333307FFFF08333333000033333307FFFF0833333300003333 3307FFFF0888333300003330007FFFFFF00083330000330777FFFFFFFFFF0833 00003307FAAAAAAAAAFF083300003307FFFFFFFFFFFF08330000333000000000 0000833300003333333333333333333300003333333333333333333300003333 33333333333333330000} ParentShowHint = False ShowHint = True OnClick = ScanImageClick end object ScanSelect: TSpeedButton Left = 26 Top = 2 Width = 25 Height = 25 Hint = 'Scanner Select' Glyph.Data = { 80010000424D8001000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333334 444444440000333333333334333B33340000333303333334333B333400003333 30003334BBBBBBB40000333333330334333B3334000033333333303444444444 0000333333338088333333330000333333300000833333330000333333077777 0833333300003333330799990833333300003333330799990833333300003333 3307999908883333000033300079999990008333000033077799999999990833 000033079AAAAAAAAA9908330000330799999999999908330000333000000000 0000833300003333333333333333333300003333333333333333333300003333 3333333333333333000000000000000000000000000000000000000000000000 00000000} ParentShowHint = False ShowHint = True OnClick = ScanSelectClick end object ImageOpen: TSpeedButton Left = 50 Top = 2 Width = 25 Height = 25 Hint = 'Open' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ImageOpenClick end object OpenThumbs: TSpeedButton Left = 74 Top = 2 Width = 25 Height = 25 Hint = 'Previews' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDD0000000DDDDDDDDDDDDDDDDD0000000DD0000000000000DD0000000D0FF FFFFFFFFFFF0D0000000D0F00000000000F0D0000000D0FFFFFFFFFFFFF0D000 0000D0F00000000000F0D0000000D0FFFFFFFFFFFFF0D0000000D0F000000000 00F0D0000000D0FFFFFFFFFFFFF0D0000000D0F00000000000F0D0000000D0FF FFFFFFFFFFF0D0000000D0F00000000000F0D0000000D0FFFFFFFFFFFFF0D000 0000DD0000000000000DD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD DDDDD0000000} ParentShowHint = False ShowHint = True OnClick = OpenThumbsClick end object ImageSave: TSpeedButton Left = 98 Top = 2 Width = 25 Height = 25 Hint = 'Save' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ImageSaveClick end object PrintImage: TSpeedButton Left = 122 Top = 2 Width = 25 Height = 25 Hint = 'Print Image' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintImageClick end object CutImage: TSpeedButton Left = 146 Top = 2 Width = 25 Height = 25 Hint = 'Cut' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333FF3333333333333003333333333333377F33333333333307 733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770 000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777 777077777777777777773CCCCC00000000003777777777777777333330030FFF FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF 0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF 0F03333333337FFF7F7333333333000000333333333377777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CutImageClick end object CopyImage: TSpeedButton Left = 170 Top = 2 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CopyImageClick end object PasteImage: TSpeedButton Left = 194 Top = 2 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PasteImageClick end object ZoomInImage: TSpeedButton Left = 218 Top = 2 Width = 25 Height = 25 Hint = 'Zoom In (Image must be stretched and palette must be set)' Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DD00 0DDDD000DDDDDD000000D07E70DD07E70DDDDD000000D0E7E0DD0E7E0DDDDD00 0000D0FE70DD0FE70DDDDD000000D0EFE0DD0EFE0DDDDD000000D8000D00D000 8DDDDD000000DD0DDDDDDDDD0DDD0D000000DDD0DDD0DDDDD0DD0D000000DDDD 0DD0DDDDDD0D0D000000DDDDD0D0DDDDDDD0DD000000DDDDDD0DDDDDDDDDDD00 0000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000} ParentShowHint = False ShowHint = True OnClick = ZoomInImageClick end object ZoomOutImage: TSpeedButton Left = 242 Top = 2 Width = 25 Height = 25 Hint = 'Zoom Out (Image must be stretched and palette must be set)' Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300333333333333330033333333333333003300033300033300307F70307F70 330030F7F030F7F0330030FF7030FF7033003800070700033300330333333303 3300330303333303030033303333333033003333333333333300333333333333 33003333333333333300} ParentShowHint = False ShowHint = True OnClick = ZoomOutImageClick end object RotateImage: TSpeedButton Left = 266 Top = 2 Width = 25 Height = 25 Hint = 'Rotate Image ' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007777777777777777700000007000 0007700000077000000070777707705555077000000077077707705550777000 0000770777077055507770000000777077077055077770000000777077077055 0777700000007777070770507777700000007777070770507777700000007777 7007700777777000000077777007700777777000000077777707707777777000 0000777777777777777770000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = RotateImageClick end object FlipImage: TSpeedButton Left = 290 Top = 2 Width = 25 Height = 25 Hint = 'Flip Image ' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007000000000700000000000007700 7777707055550000000077770077707055507000000077777700707055507000 0000777777770070550770000000777777777770550770000000777777777770 5077700000007747777777705077700000007747774777700777700000007774 7744777007777000000077774444477077777000000077777744777777777000 0000777777477777777770000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = FlipImageClick end object ResetImage: TSpeedButton Left = 314 Top = 2 Width = 25 Height = 25 Hint = 'Reset Image' Glyph.Data = { 90020000424D9002000000000000760000002800000040000000100000000100 0400000000000002000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00331111133333 333333FFFFF33333333333222223332222233333333333444443333199933333 333333388883333333333332AAA333AAA2333333333333CCC433333199933333 1133333888833333FF333332AAA333AAA2333334433333CCC433339919933333 99133388F883333388F333AA2AA333AA2A2333CC433333CC4C43339133933333 3913338F33833333388F33A233A333A33A2333C4333333C33CC4391333333333 339138F333333333338F3A233333333333A23C433333333333C4391333333333 339138F333333333338F3A233333333333A23C433333333333C4391333333333 339138F333333333338F3A233333333333A23C433333333333C4391333333333 339138F333333333338F3A233333333333A23C433333333333C4391333333333 339138F333333333338F3A233333333333A23C433333333333C4339133333333 3991338F33333333388F33A2333333333AA233C4333333333CC4339913333333 99133388F333333388F333AA23333333AA2333CC43333333CC43333991333339 913333388F3333388F33333AA233333AA233333CC433333CC433333399111119 1333333388FFFFF8F3333333AA22222A23333333CC44444C4333333333999993 33333333338888833333333333AAAAA33333333333CCCCC33333333333333333 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 4 ParentShowHint = False ShowHint = True OnClick = ResetImageClick end object StretchImage: TSpeedButton Left = 338 Top = 2 Width = 25 Height = 25 Hint = 'Stretch Image' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007770777777777077700000007778777777777877700000007080 8080808080807000000077788888888888777000000077708888888880777000 0000777888888888887770000000777088888888807770000000777888888888 8877700000007770888888888077700000007778888888888877700000007770 8888888880777000000077788888888888777000000070808080808080807000 0000777877777777787770000000777077777777707770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = StretchImageClick end object StretchImageratio: TSpeedButton Left = 362 Top = 2 Width = 25 Height = 25 Hint = 'Stretch Image with ratio' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007770777777777077700000007778777777777877700000007080 0000000000807000000077700000000000777000000077700777077700777000 0000777007770777007770000000777007770777007770000000777000000000 0077700000007770077707770077700000007770077707770077700000007770 0777077700777000000077700000000000777000000070800000000000807000 0000777877777777787770000000777077777777707770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = StretchImageratioClick end object ScrollMessage: TSpeedButton Left = 386 Top = 2 Width = 25 Height = 25 Hint = 'Scrolling Message Editor' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333F3F3F3F3F3F3F3F03030303030303037373737373737373333333333333 33333F3FFFFFFFFFFF3F03000000000003037377777777777F73330800808080 03333F7F77F7F7F77F3F0308008080800303737F77F737F77F73330080080008 03333F77F77F777F7F3F03000000000003037377777777777373333333333333 33333F3F3F3F3F3F3F3F03030303030303037373737373737373333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ScrollMessageClick end object CreditMessage: TSpeedButton Left = 410 Top = 2 Width = 25 Height = 25 Hint = 'Credit Message Editor' Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777770000000777770000000000770000000777770FFFFFFFF07700000007777 70F000000F0770000000777770FFFFFFFF0770000000777770F000000F077000 0000777770FFFFFFFF07700000007F778FF000000F077000000078778BFFFFFF FF0770000000777F8F8000F00007700000007888FB7FFFF0F077700000007FB8 BFBFBFB0077770000000778B8B8B000077777000000078B78F78B77777777000 00007B778B778F7777777000000077778F777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = CreditMessageClick end object ColorPalette: TSpeedButton Left = 434 Top = 2 Width = 25 Height = 25 Hint = 'Color Palette ' AllowAllUp = True GroupIndex = 2 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888800008887788887788887788800008800078800078800078800008099 9070AAA070CCC078000080999070AAA070CCC0780000870907770A07770C0778 000080999070AAA070CCC078000080999070AAA070CCC0780000800990700AA0 700CC0780000800990700AA0700CC0780000800990700AA0700CC07800008009 90700AA0700CC078000080999070AAA070CCC0780000870907770A07770C0778 000080999070AAA070CCC0780000870907770A07770C0778000080999080AAA0 70CCC0880000880908880A08880C088800008880888880888880888800008888 88888888888888880000} ParentShowHint = False ShowHint = True OnClick = ColorPaletteClick end object PDBMediaPlayer1: TMIMediaPlayer Left = 458 Top = 2 Width = 141 Height = 25 EnabledButtons = [btPlay, btPause, btStop, btStep, btBack] VisibleButtons = [btPlay, btPause, btStop, btStep, btBack] TabOrder = 0 end end object OpenDialog1: TOpenDialog Title = 'Open Image' Left = 315 Top = 24 end object SaveDialog1: TSaveDialog Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist] Left = 208 Top = 24 end object PrintDialog1: TPrintDialog Left = 232 Top = 24 end object Timer1: TTimer OnTimer = Timer1Timer Left = 287 Top = 24 end object MMOpenDialog1: TMMOpenDialog AutoDisPlay = True AutoPlay = False Filter = 'All Media|*.BMP;*.GIF;*.PCX;*.JPG;*.SCM;*.PNG;*.CMS;*.RTF;*.wav;' + '*.mid;*.rmi;*.avi;*.mov;|BMP |*.BMP|GIF |*.GIF|JPG |*.JPG|PCX |*' + '.PCX|SCM |*.SCM|PNG |*.PNG|CMS |*.CMS|Wave|*.wav|Midi|*.mid|RMI ' + '|*.rmi|AVI |*.avi|Movie|*.mov' Title = 'Open File' Left = 259 Top = 24 end object MMSaveDialog1: TMMSaveDialog AutoDisPlay = True AutoPlay = False Filter = 'All Media|*.BMP;*.GIF;*.PCX;*.JPG;*.SCM;*.PNG;*.CMS;*.RTF;*.wav;' + '*.mid;*.rmi;*.avi;*.mov;|BMP |*.BMP|GIF |*.GIF|JPG |*.JPG|PCX |*' + '.PCX|SCM |*.SCM|PNG |*.PNG|CMS |*.CMS|Wave|*.wav|Midi|*.mid|RMI ' + '|*.rmi|AVI |*.avi|Movie|*.mov' Title = 'Save File' Left = 343 Top = 24 end object ThumbPreview1: TThumbPreview AutoLoad = True Title = 'Image Preview' DataFileName = 'thumbs.dat' DataFileDir = 'c:\' PreviewsDir = 'c:\' Left = 184 Top = 24 end end