unit1.dfm

影像中角落的偵測-主要是機器視覺當中很重要的一環 因為角落的改變或是變化可以偵測出來當做影像變化的特徵

object Form1: TForm1
  Left = 223
  Top = 126
  Width = 622
  Height = 488
  Caption = '紇钩矪瞶_Corner Detection'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panelimg: TPanel
    Left = 104
    Top = 32
    Width = 417
    Height = 401
    TabOrder = 0
    object origin: TImage
      Left = 8
      Top = 8
      Width = 401
      Height = 385
      Hint = 'SAVE'
      AutoSize = True
      ParentShowHint = False
      ShowHint = True
      OnMouseMove = originMouseMove
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 614
    Height = 29
    Caption = 'ToolBar1'
    HotImages = ImageList1
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = 'OPEN'
      Caption = 'ToolButton1'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = OPEN1Click
    end
    object ToolButton5: TToolButton
      Left = 23
      Top = 2
      Caption = 'ToolButton5'
      ImageIndex = 2
      OnClick = SAVE1Click
    end
    object ToolButton2: TToolButton
      Left = 46
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 54
      Top = 2
      Hint = 'Exit'
      Caption = 'ToolButton3'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = EXIT1Click
    end
    object ToolButton4: TToolButton
      Left = 77
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 1
      Style = tbsSeparator
    end
  end
  object Edit1: TEdit
    Left = 257
    Top = 26
    Width = 58
    Height = 21
    TabOrder = 2
    Text = 'Edit1'
    Visible = False
  end
  object Edit3: TEdit
    Left = 65
    Top = 26
    Width = 48
    Height = 21
    TabOrder = 3
    Text = 'Edit3'
    Visible = False
  end
  object Edit4: TEdit
    Left = 145
    Top = 26
    Width = 48
    Height = 21
    TabOrder = 4
    Text = 'Edit3'
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 29
    Width = 89
    Height = 340
    Caption = 'KR Method'
    TabOrder = 5
    object Label1: TLabel
      Left = 40
      Top = 24
      Width = 32
      Height = 20
      Caption = '恢