unit3.dfm

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

object Form3: TForm3
  Left = 7
  Top = 94
  Width = 1022
  Height = 734
  Caption = 'Ant Colony Algorithm(Segment_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 StatusBar1: TStatusBar
    Left = 0
    Top = 0
    Width = 1017
    Height = 25
    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 = 120
      end
      item
        Text = 'Initial ethlon:'
        Width = 130
      end
      item
        Text = 'Local optimal ethlon:'
        Width = 150
      end
      item
        Text = 'Local optimal segment:'
        Width = 50
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 32
    Width = 1017
    Height = 665
    Caption = 'Image Information'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 8
      Top = 24
      Width = 329
      Height = 247
      Caption = 'Original Image'
      TabOrder = 0
      object Image1: TImage
        Left = 8
        Top = 24
        Width = 148
        Height = 77
        AutoSize = True
        OnMouseMove = Image1MouseMove
      end
    end
    object GroupBox3: TGroupBox
      Left = 336
      Top = 24
      Width = 329
      Height = 407
      Caption = 'Local Dominant Image'
      TabOrder = 1
      object Image2: TImage
        Left = 8
        Top = 24
        Width = 105
        Height = 105
        AutoSize = True
      end
    end
    object GroupBox5: TGroupBox
      Left = 664
      Top = 24
      Width = 345
      Height = 407
      Caption = 'Ant Colony Dominant Image'
      TabOrder = 2
      object Image3: TImage
        Left = 8
        Top = 24
        Width = 105
        Height = 105
        AutoSize = True
      end
    end
    object Chart2: TChart
      Left = 264
      Top = 464
      Width = 737
      Height = 185
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        'TChart')
      LeftAxis.Automatic = False
      LeftAxis.AutomaticMaximum = False
      LeftAxis.AutomaticMinimum = False
      LeftAxis.Maximum = 200
      LeftAxis.Title.Caption = 'ethlon'
      View3D = False
      TabOrder = 3
      object ListBox1: TListBox
        Left = 584
        Top = 112
        Width = 57
        Height = 97
        ImeName = 'いゅ (羉砰) - 穝猔