unit1.~dfm

利用蚂蚁演算法侦测物件支配点研究之原始码

object Form1: TForm1
  Left = 1
  Top = 112
  Width = 1022
  Height = 736
  Caption = 'Ant Colony Algorithm(Ethlon_Bound)'
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 8
    Width = 1009
    Height = 673
    Caption = 'Information'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 8
      Top = 48
      Width = 521
      Height = 297
      Caption = 'Original Image'
      TabOrder = 0
      object Image1: TImage
        Left = 8
        Top = 24
        Width = 105
        Height = 105
        AutoSize = True
        OnMouseMove = Image1MouseMove
      end
    end
    object StatusBar1: TStatusBar
      Left = 2
      Top = 23
      Width = 1005
      Height = 19
      Align = alTop
      Panels = <
        item
          Text = 'Coordinate:'
          Width = 130
        end
        item
          Text = 'Process Time:'
          Width = 100
        end
        item
          Text = 'Total Number:'
          Width = 100
        end
        item
          Text = 'The number of BPs:'
          Width = 150
        end
        item
          Text = 'The number of IPs:'
          Width = 130
        end
        item
          Text = 'Initial Ethlon:'
          Width = 50
        end>
      SimplePanel = False
    end
    object GroupBox3: TGroupBox
      Left = 8
      Top = 352
      Width = 497
      Height = 321
      Caption = 'Dominant Image'
      TabOrder = 2
      object Image2: TImage
        Left = 8
        Top = 24
        Width = 105
        Height = 105
        AutoSize = True
        OnMouseMove = Image2MouseMove
      end
    end
    object GroupBox4: TGroupBox
      Left = 664
      Top = 48
      Width = 249
      Height = 113
      Caption = 'Parameters'
      TabOrder = 3
      object Label5: TLabel
        Left = 8
        Top = 26
        Width = 82
        Height = 14
        Caption = 'Ethlon Boundary:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 138
        Top = 26
        Width = 64
        Height = 14
        Caption = 'Total Ethlon:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 56
        Width = 50
        Height = 14
        Caption = 'Threshold:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 96
        Top = 24
        Width = 33
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Times New Roman'
        Font.Style = []
        ImeName = 'いゅ (羉砰) - 穝猔