object MainForm: TMainForm Left = 203 Top = 120 BorderIcons = [biMinimize] BorderStyle = bsSingle Caption = 'Image Enhance' ClientHeight = 194 ClientWidth = 312 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu OldCreateOrder = True Position = poDefault OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image: TImage Left = 0 Top = 0 Width = 100 Height = 100 AutoSize = True OnClick = ImageClick OnMouseMove = ImageMouseMove end object OpenPictureDialog: TOpenPictureDialog Filter = 'Bitmaps (*.bmp)|*.bmp' Left = 48 Top = 8 end object MainMenu: TMainMenu Left = 8 Top = 8 object FileMenu: TMenuItem Caption = '&File' ShortCut = 16466 object OpenMeny: TMenuItem Caption = '&Open' OnClick = OpenMenyClick end object ReloadMenu: TMenuItem Caption = 'Reload' Enabled = False ShortCut = 16430 OnClick = ReloadMenuClick end object N1: TMenuItem Caption = '-' end object SaveAsMenu: TMenuItem Caption = 'Save as' Enabled = False ShortCut = 16467 OnClick = SaveAsMenuClick end object N6: TMenuItem Caption = '-' end object PrintMenu: TMenuItem Caption = 'Print' Enabled = False ShortCut = 16464 OnClick = PrintMenuClick end object N7: TMenuItem Caption = '-' end object ExitMeny: TMenuItem Caption = 'E&xit' OnClick = ExitMenyClick end end object FilterMenu: TMenuItem Caption = 'F&ilters' Enabled = False object UndoMenu: TMenuItem Caption = 'Undo' Enabled = False ShortCut = 16474 OnClick = UndoMenuClick end object N5: TMenuItem Caption = '-' end object StatisticsMeny: TMenuItem Caption = '&Statistics' OnClick = StatisticsMenyClick end object ZoomMenu: TMenuItem Caption = '&Zoom' OnClick = ZoomMenuClick end object N2: TMenuItem Caption = '-' end object BrightnessMenu: TMenuItem Caption = '&Brightness' object IncreaseBrightnessMenu: TMenuItem Caption = '&Increase' OnClick = IncreaseBrightnessMenuClick end object DecreaseBrightnessMenu: TMenuItem Caption = '&Decrease' OnClick = DecreaseBrightnessMenuClick end end object ChannelsMenu: TMenuItem Caption = '&Channels' object ChannelsRedMenu: TMenuItem Caption = '&Red' object ChannelsIncreaseRedMenu: TMenuItem Caption = '&Increase' OnClick = ChannelsIncreaseRedMenuClick end object ChannelsDecreaseRedMenu: TMenuItem Caption = '&Decrease' OnClick = ChannelsDecreaseRedMenuClick end end object ChannelsGreenMenu: TMenuItem Caption = '&Green' object ChannelsIncreaseGreenMenu: TMenuItem Caption = '&Increase' OnClick = ChannelsIncreaseGreenMenuClick end object ChannelsDecreaseGreenMenu: TMenuItem Caption = '&Decrease' OnClick = ChannelsDecreaseGreenMenuClick end end object ChannelsBlueMenu: TMenuItem Caption = '&Blue' object ChannelsIncreaseBlueMenu: TMenuItem Caption = '&Increase' OnClick = ChannelsIncreaseBlueMenuClick end object ChannelsDecreaseBlueMenu: TMenuItem Caption = '&Decrease' OnClick = ChannelsDecreaseBlueMenuClick end end end object GrayscaleMenu: TMenuItem Caption = '&Grayscale' OnClick = GrayscaleMenuClick end object InvertMeny: TMenuItem Caption = '&Invert' OnClick = InvertMenyClick end object LogaritmizeMenu: TMenuItem Caption = '&Logaritmize' object LogarimizeAllMenu: TMenuItem Caption = '&All' OnClick = LogaritmizeAllMenuClick end object N4: TMenuItem Caption = '-' end object LogarimizeRedMenu: TMenuItem Caption = '&Red' OnClick = LogaritmizeRedMenuClick end object LogarimizeGreenMenu: TMenuItem Caption = '&Green' OnClick = LogaritmizeGreenMenuClick end object LogarimizeBlueMenu: TMenuItem Caption = '&Blue' OnClick = LogaritmizeBlueMenuClick end end object MirrorMenu: TMenuItem Caption = '&Mirror' object MirrorHorisontallyMenu: TMenuItem Caption = '&Horisontally' OnClick = MirrorHorisontallyMenuClick end object MirrorVerticallyMenu: TMenuItem Caption = '&Vertically' OnClick = MirrorVerticallyMenuClick end end object OptimizeMenu: TMenuItem Caption = '&Optimize' OnClick = OptimizeMenuClick end object N3: TMenuItem Caption = '-' end object ContrastMenu: TMenuItem Caption = 'Co&ntrast' object IncreaseContrastMenu: TMenuItem Caption = '&Increase' OnClick = IncreaseContrastMenuClick end object DecreaseContrastMenu: TMenuItem Caption = '&Decrease' OnClick = DecreaseContrastMenuClick end end object FindEdgesMenu: TMenuItem Caption = '&Find edges' OnClick = FindEdgesMenuClick end object MeanvalueMenu: TMenuItem Caption = '&Mean value' OnClick = MeanvalueMenuClick end object NoiseMenu: TMenuItem Caption = 'Nois&e' object AddNoiseMenu: TMenuItem Caption = '&Add' OnClick = AddNoiseMenuClick end object RemoveNoiseMenu: TMenuItem Caption = '&Remove' OnClick = RemoveNoiseMenuClick end end object SharpnessMenu: TMenuItem Caption = 'S&harpness' object IncreaseSharpnessMenu: TMenuItem Caption = '&Increase' OnClick = IncreaseSharpnessMenuClick end object DecreaseSharpnessMenu: TMenuItem Caption = '&Decrease' OnClick = DecreaseSharpnessMenuClick end end object N8: TMenuItem Caption = '-' end object OldPhotoMenu: TMenuItem Caption = 'Old &photo' OnClick = OldPhotoMenuClick end object ReflectionMenu: TMenuItem Caption = '&Reflection' object ReflectionHorisontallyMenu: TMenuItem Caption = '&Horisontally' OnClick = ReflectionHorisontallyMenuClick end object ReflectionVerticallyMenu: TMenuItem Caption = '&Vertically' OnClick = ReflectionVerticallyMenuClick end end object SwapChannelsMenu: TMenuItem Caption = 'S&wap channels' OnClick = SwapChannelsMenuClick end object FouriertransformMenu: TMenuItem Caption = 'Fo&urier transform' OnClick = FouriertransformMenuClick end end object HelpMenu: TMenuItem Caption = '&Help' object AboutMenu: TMenuItem Caption = '&About' OnClick = AboutMenuClick end end end object SavePictureDialog: TSavePictureDialog DefaultExt = 'bmp' Filter = 'Bitmaps (*.bmp)|*.bmp' Left = 88 Top = 8 end end