home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 218
- Top = 269
- Width = 435
- Height = 300
- Caption = 'Image Viewer'
- Color = clAppWorkSpace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = []
- FormStyle = fsMDIForm
- Menu = MainMenu1
- Position = poDefault
- WindowMenu = Window1
- OnActivate = UpdateMenuItems
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar: TStatusBar
- Left = 0
- Top = 235
- Width = 427
- Height = 19
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = []
- Panels = <>
- ParentFont = False
- SimplePanel = True
- end
- object ProgressBar: TProgressBar
- Left = 96
- Top = 216
- Width = 150
- Height = 16
- Min = 0
- Max = 100
- TabOrder = 1
- Visible = False
- end
- object Panel: TPanel
- Left = 0
- Top = 0
- Width = 427
- Height = 30
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- object OpenBtn: TSpeedButton
- Left = 7
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Open|'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
- 7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
- 3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
- B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
- 338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
- 338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
- FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
- 8888888333333330000033333333333333388888333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = FileOpenItemClick
- end
- object SaveBtn: TSpeedButton
- Left = 31
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Save|'
- Enabled = False
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
- 333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
- CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
- FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
- CCCC033333388888888888888F333330C6000000006C03333338888888888888
- 8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
- 333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
- C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
- FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
- 0000833333388888888888888333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = FileSaveAsItemClick
- end
- object CopyBtn: TSpeedButton
- Left = 88
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Copy|'
- Enabled = False
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
- 8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
- 33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
- 3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
- F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
- 888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
- 8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
- 338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
- 777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
- 33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
- 33333333338FFFFFF88333333333330000000033333333333388888888333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = CopyItemClick
- end
- object PasteBtn: TSpeedButton
- Left = 112
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Paste|'
- Enabled = False
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333FFFFFFFFF333333333300000000033333333333888888
- 888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
- 33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
- F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
- 38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
- 4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
- 8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
- 38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
- F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
- FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
- 33333333338838888888333333333333ECCCC433333333333333388888333333
- 333333333EEEE333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = PasteItemClick
- end
- object ExitBtn: TSpeedButton
- Left = 144
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Exit|'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
- 777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
- 33888888888888877F7F788888888888888F333FF88844444400888FFF444444
- 88888888888333888883333334D5007FFF433333333338F888F3338F33333333
- 345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
- 78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
- FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
- 3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
- 3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
- 345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
- F8FFFF8F33333333344444444443333333333888888888833333333333333333
- 3333333333333333FFFFFF333333333333300000033333333333333888888F33
- 333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
- 33333338888883333333}
- NumGlyphs = 2
- OnClick = FileExitItemClick
- end
- end
- object MainMenu1: TMainMenu
- Left = 36
- Top = 196
- object File1: TMenuItem
- Caption = '&File'
- Hint = 'File related commands'
- object FileOpenItem: TMenuItem
- Caption = '&Open'
- Hint = 'Open an existing file'
- OnClick = FileOpenItemClick
- end
- object FileCloseItem: TMenuItem
- Caption = '&Close'
- Hint = 'Close current file'
- OnClick = FileCloseItemClick
- end
- object FileSaveAsItem: TMenuItem
- Caption = 'Save &As...'
- Enabled = False
- Hint = 'Save current file as...'
- OnClick = FileSaveAsItemClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object FileExitItem: TMenuItem
- Caption = 'E&xit'
- Hint = 'Exit the application'
- OnClick = FileExitItemClick
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- OnClick = UpdateMenuItems
- object CopyItem: TMenuItem
- Caption = '&Copy'
- Enabled = False
- Hint = 'Copy to clipboard'
- OnClick = CopyItemClick
- end
- object PasteItem: TMenuItem
- Caption = '&Paste'
- Enabled = False
- Hint = 'Paste from clipboard'
- OnClick = PasteItemClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object GammaItem: TMenuItem
- Caption = '&Gamma'
- OnClick = GammaItemClick
- end
- object GrayscaleItem: TMenuItem
- Caption = 'Gra&yscale'
- OnClick = GrayscaleItemClick
- end
- end
- object Options1: TMenuItem
- Caption = '&Options'
- OnClick = Options1Click
- object ShowProgressive1: TMenuItem
- Caption = 'Show P&rogressive'
- OnClick = ShowProgressive1Click
- end
- object JPEGOptionsItem: TMenuItem
- Caption = '&JPEG Options'
- OnClick = JPEGOptionsItemClick
- end
- object PNGOptions1: TMenuItem
- Caption = '&PNG Options'
- OnClick = PNGOptions1Click
- end
- end
- object Window1: TMenuItem
- Caption = '&Window'
- Hint = 'Window related commands such as Tile and Cascade'
- object WindowCascadeItem: TMenuItem
- Caption = '&Cascade'
- Hint = 'Arrange windows to overlap'
- OnClick = WindowCascadeItemClick
- end
- object WindowTileItem: TMenuItem
- Caption = '&Tile'
- Hint = 'Arrange windows without overlap'
- OnClick = WindowTileItemClick
- end
- object WindowArrangeItem: TMenuItem
- Caption = '&Arrange Icons'
- Hint = 'Arrange window icons at bottom of main window'
- OnClick = WindowArrangeItemClick
- end
- object WindowMinimizeItem: TMenuItem
- Caption = '&Minimize All'
- Hint = 'Minimize all windows'
- OnClick = WindowMinimizeItemClick
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- Hint = 'Help topics'
- object HelpAboutItem: TMenuItem
- Caption = '&About'
- OnClick = HelpAboutItemClick
- end
- end
- end
- object OpenDialog: TOpenDialog
- Filter =
- 'Image Files|*.JPG;*.JPEG;*.PNG;*.GIF;*.BMP|JPEG Files|*.JPG;*.JP' +
- 'EG|PNG Files|*.PNG|GIF Files|*.GIF|BMP Files|*.BMP|All files (*.' +
- '*)|*.*'
- Left = 4
- Top = 196
- end
- object SaveDialog: TSaveDialog
- Filter =
- 'JPEG Image|*.JPG;*.JPEG|PNG Image|*.PNG|BMP Image|*.BMP|GIF Imag' +
- 'e|*.GIF'
- Options = [ofOverwritePrompt, ofHideReadOnly]
- Left = 16
- Top = 160
- end
- end
-