www.pudn.com > newnew.rar > Unit1.dfm

object Form1: TForm1 
  Left = 152 
  Top = 14 
  Width = 857 
  Height = 687 
  Caption = 'Image processing' 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  Icon.Data = { 
    0000010001002020000000000000A80800001600000028000000200000004000 
    000001000800000000008004000000000000000000000001000000000000F3FF 
    E400F8FFFC00E7FDFA00E8FAE700EAFFD600C1ECE800D9FDF800C5DCD100C7E9 
    BB00D3D7B500B2ECEB00B7E6CD00B0DCF500B2D1C900A5C7C70095E8D0009AC2 
    D900B2C9B100B6C1B00099C2B20093B8D30093B6C8008AB7D5008CBBDA0082B5 
    D20086B2D2008BB5CB008AB2C50089AFCA0081ABCA0083ACC400A9AD950084B1 
    BE009BB7B50097B9AA0095ACA00086AAB60089ACBD0088A7A70099AA960093A6 
    8E00849EB2008094A900829EA400819F9600939B840084988C00838A770077BC 
    C40076ABD50073AAC9007CADCC007BAAC5007AA5C30072A5CD0073A4C4006EA3 
    C700739FC300669FC6006B9DC20073A0B4007BA4BB007BA1B20072A2BD0076A2 
    BF007DA2A7007A99B300729EBD00739BB3007897A7007B9CA300769AAD007294 
    AB007392A3006898BB006C9BBC006E9AB5006A96B1006595BA006492B4006F99 
    AC006B93AC006E96AE006D93A4006691AB006590A600658DB2006989A500628C 
    AC00648BA4006485A4007D9693007B9A9B0072949F007D948B0071928B007888 
    9A00738A9500788C87006D909E006C8593006B8B9C0069859A00648A9D006588 
    960063839A0065859300698687006C8982006C8A86006A8886006A8884006883 
    8100698685006A868400698581006884820064838D005F93B3005E8EB2005D88 
    A7005D8BAB005C85A3005583A4005D889F005D849A005C82950056809B007B84 
    760079826F006880740069837A0068857E0069837C0065827D0066817A006580 
    7600627D990060718400627E8B00647D8300517EA5005C7C9900597D9300537E 
    9C00557A930051769400557889005D7D8B00587A8D005E7A83005A7A85005275 
    8D0054738400506F83004E7893004D7593004A728D004C7182004E7185004C6F 
    8D004C6D8300496D8600446B8B00446B8500426685003F67840072787600797D 
    690064757A00627C7A00657F7900627C7500657E7500667E7400647C7100647C 
    7300627C7200627B7100637B7100627A7000627374006C796E0061796E006179 
    6E0061766D0060766A00646C580057767A005D7A7C005C7975005A737B005975 
    7E0054717C0052727D005673720056716F005E796E005A7369005F776D005E76 
    6A005B6E7300536C7900556D740053646500516C6D00536C66004F727E004869 
    76004C6C7B004C6B74004964730049667200466B7C0044667A00456572004E6A 
    69004A656D004C63640044636D0046666E004B675D0056685D00425F6800435D 
    63005B5E5C00435659004B5C5A00445A5B0045564C0044503E003F657A002F59 
    6C00385565003D5E6D003E5B64003C5663002E4D610034475000365357003E5A 
    5C003B555A003C52540036555E00384947003D4E4D0032494B00344343002E50 
    5B002C4A56002A35380025292700201D1C001C282C001B211F001A1C1D00B4B4 
    B4AFB3B0B0ADADAD8787C0C1CA97D29553536A8B9663577C688C52351914B7B4 
    B4B3B1AFB0AEADAE8883CAC2DC49EB9353665DC06749915537541E1641E2B7B7 
    B4B4B2AFB0AEADAEAD82CDCDDC6AD4D064BE685061D1756335516A17503DC7C7 
    B7B4B4B1B1B0B0B0AD82C4D8D9D08B9796626A35F4E2DB3F4FE31D353B31C7B7 
    B7B4B4B4B2AFB0B0AEAEABF0D9F94694E0D9684CE493344F67483F355367B9C7 
    B7B4B4B4B3AFB1AFAEAD85F2DFCD7ED2F3A99A4CD23C4F5798583DCAA136BAB7 
    B7B7B4B4B7B1B1AFB0AD85EFF1C065CBD3BF8F784E37A069694A444D4735BAC7 
    C7C7B7B4B4B3B1AFB0B0ABE0F0DB99DF9F75519B7AA14D905440598B5D4DBABA 
    C8B7B2B7B4B4B1AFB0B0BDDBF0CFF8CFD3D6987ED77DA28E517F9F4759C2C8C8 
    B7DEBAB7B7B4B2B4ACAAC1D4F3DBF6D19FD655EBF9955AD3E99A4895F597C8C5 
    DEB9C7C7C7C7B4BEBDC2DCEBEBF999F9578F99A98FE7EA994C7B3D9F164CC6BA 
    E62EC5C6C8C8ACC0D1D4DFD4D1D4EA7C8F9F659859D9994C92A3A143D3F2C6E5 
    A8E1F5C6C3BF94D2DCD0CF9E95D57C9DA19B4C4FD34F5459EDD2249842DAC6BB 
    28A880BBB6D8CBC0687E91679878557F7B389DA27A9156A5D638A269DAF6CE2D 
    278162231213B5C16755525955678F919BA4903F9D54A29879A29E3ED153DD1F 
    1F2F1208270E0A232CBDC1D2DB9FD5D59D7F9CA5799BA6409C90334E34F2CE27 
    281F090100060B0F212B243E55989B787858794E919878407B37444897C0B762 
    1F0908030211070202055DC9EC5934333F797FA37B7977773B4B7A95ECDBABBE 
    2D04038C26221323220D0D0601202A194E8D3B767A7A794E4E3B331A33178787 
    C40D025B0621265C2621DACBC230050C313A8D4F789079773B324B5159918585 
    ABC32C01015B5F862624C9DADAD4A69C18387BA4904A4E774B763250BF7E8785 
    84865CE8CCCBE4F4E4DACDEFCCB58B59984C4E587B7776383B767A4F108B8585 
    84846C258CBF8CF7FDFFFEFFFCE32BE9D0F198774B4A4F784B34334D7D3F8584 
    7373846D0E94E496E0FAFBFEA7FA7445DB9F9C3A3B4F584C40A1CA8E31298484 
    737471865F26B59E6775F6FAFBF7FADBF3D1A23B437840911836373466618470 
    7374737372834669D19966C0F2F5F7FAF1F3A6917D40778D523E45438A918470 
    747373737473842B1051557E8B94C2D0D5A2929D927A6649453D14353D417370 
    747272726F6F6B7386151834355555599154787B58585144648EA08945257070 
    7472726F6F6F6E716F8864411B1C1A19331B152552523E8A5A140C1BAAAB7074 
    7472726F6F6F6F6E6D6D6E84AB5C251B193990558F60571D1096C6856F6D7074 
    74737272726F6F6E6E6E6D6E6D6D6D6F745F5B45253E465B746D6E6E6D6D7074 
    74737272726F6F6E6E6E6D6D6D6D6D6D6E6D6F6D6D6D866F6D6D6D6D6D6D0000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    0000000000000000000000000000000000000000000000000000000000000000 
    000000000000000000000000000000000000000000000000000000000000} 
  Menu = MainMenu1 
  OldCreateOrder = False 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Label1: TLabel 
    Left = 576 
    Top = 24 
    Width = 68 
    Height = 24 
    Caption = 'Process' 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -20 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
  end 
  object Label2: TLabel 
    Left = 120 
    Top = 0 
    Width = 52 
    Height = 24 
    Caption = 'image' 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -20 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
  end 
  object ScrollBox1: TScrollBox 
    Left = 0 
    Top = 88 
    Width = 409 
    Height = 553 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clBlack 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 0 
    object Image1: TImage 
      Left = 0 
      Top = 0 
      Width = 121 
      Height = 121 
      AutoSize = True 
      OnMouseDown = Image1MouseDown 
      OnMouseMove = Image1MouseMove 
      OnMouseUp = Image1MouseUp 
    end 
  end 
  object ScrollBox2: TScrollBox 
    Left = 416 
    Top = 88 
    Width = 433 
    Height = 553 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clBlack 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 1 
    object Image2: TImage 
      Left = 0 
      Top = 0 
      Width = 113 
      Height = 113 
      AutoSize = True 
    end 
  end 
  object Panel1: TPanel 
    Left = 16 
    Top = 24 
    Width = 97 
    Height = 57 
    TabOrder = 2 
    object Button1: TButton 
      Left = 16 
      Top = 8 
      Width = 65 
      Height = 17 
      Caption = #24320#22987#20999#21106 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clWindowText 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
      TabOrder = 0 
      OnClick = Button1Click 
    end 
    object Button2: TButton 
      Left = 16 
      Top = 32 
      Width = 65 
      Height = 17 
      Caption = 'Done' 
      Enabled = False 
      TabOrder = 1 
      OnClick = Button2Click 
    end 
  end 
  object Panel2: TPanel 
    Left = 120 
    Top = 24 
    Width = 185 
    Height = 57 
    TabOrder = 3 
    object Label3: TLabel 
      Left = 24 
      Top = 8 
      Width = 33 
      Height = 13 
      AutoSize = False 
      Caption = #31508#36857 
    end 
    object Label4: TLabel 
      Left = 128 
      Top = 8 
      Width = 33 
      Height = 13 
      AutoSize = False 
      Caption = #32972#26223 
    end 
    object Shape1: TShape 
      Left = 56 
      Top = 8 
      Width = 17 
      Height = 17 
    end 
    object Shape2: TShape 
      Left = 160 
      Top = 8 
      Width = 17 
      Height = 17 
    end 
    object Button3: TButton 
      Left = 48 
      Top = 32 
      Width = 81 
      Height = 17 
      Caption = 'OK' 
      Font.Charset = DEFAULT_CHARSET 
      Font.Color = clWindowText 
      Font.Height = -11 
      Font.Name = 'MS Sans Serif' 
      Font.Style = [] 
      ParentFont = False 
      TabOrder = 0 
      OnClick = Button3Click 
    end 
    object RadioButton1: TRadioButton 
      Left = 8 
      Top = 8 
      Width = 17 
      Height = 17 
      Caption = 'RadioButton1' 
      TabOrder = 1 
    end 
    object RadioButton2: TRadioButton 
      Left = 112 
      Top = 8 
      Width = 17 
      Height = 17 
      Caption = 'RadioButton2' 
      TabOrder = 2 
    end 
  end 
  object MainMenu1: TMainMenu 
    Left = 152 
    Top = 136 
    object File1: TMenuItem 
      Caption = 'File' 
      object Open1: TMenuItem 
        Caption = 'Open' 
        OnClick = Open1Click 
      end 
      object SaveAs1: TMenuItem 
        Caption = 'SaveAs' 
        OnClick = SaveAs1Click 
      end 
      object RGB2Gray1: TMenuItem 
        Caption = 'RGB2Gray' 
        OnClick = RGB2Gray1Click 
      end 
    end 
    object Edge1: TMenuItem 
      Caption = 'Edge' 
      object SobelHorizontal1: TMenuItem 
        Caption = 'Sobel Horizontal' 
        OnClick = SobelHorizontal1Click 
      end 
      object Sobel1: TMenuItem 
        Caption = 'Sobel' 
        OnClick = Sobel1Click 
      end 
      object Prewitt1: TMenuItem 
        Caption = 'Prewitt' 
        OnClick = Prewitt1Click 
      end 
    end 
    object Zoom1: TMenuItem 
      Caption = 'Zoom' 
      object ZoomIn1: TMenuItem 
        Caption = '100%' 
        OnClick = ZoomIn1Click 
      end 
      object N251: TMenuItem 
        Caption = '25%' 
        OnClick = N251Click 
      end 
      object ZoomIn2: TMenuItem 
        Caption = '50%' 
        OnClick = ZoomIn2Click 
      end 
      object N751: TMenuItem 
        Caption = '75%' 
        OnClick = N751Click 
      end 
      object N1251: TMenuItem 
        Caption = '125%' 
        OnClick = N1251Click 
      end 
      object N1501: TMenuItem 
        Caption = '150%' 
        OnClick = N1501Click 
      end 
      object N1751: TMenuItem 
        Caption = '175%' 
        OnClick = N1751Click 
      end 
      object N2001: TMenuItem 
        Caption = '200%' 
        OnClick = N2001Click 
      end 
    end 
  end 
  object OpenPictureDialog1: TOpenPictureDialog 
    Filter =  
      'All(*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp|Jpeg(*.jpg,*.jpeg)|*.' + 
      'jpg;*.jpeg|Bitmaps (*.bmp)|*.bmp' 
    Left = 224 
    Top = 128 
  end 
  object SavePictureDialog1: TSavePictureDialog 
    Filter = 'Bitmaps (*.bmp)|*.bmp|JPEG(*.jpg)|*.jpg' 
    Left = 304 
    Top = 128 
  end 
end