unit1.dfm

CT图象重建的DELPHI源代码,转载自一个学长的博客

      CanClose = False
      CaptionImageIndex = 48
      Items = <
        item
          Caption = #30452#25509#21453#25237#24433
          ImageIndex = 12
          OnClick = RzGroup2Items0Click
        end
        item
          Caption = #28388#27874#21453#25237#24433
          ImageIndex = 16
          OnClick = RzGroup2Items1Click
        end
        item
          Caption = #20013#24515#20999#29255
          ImageIndex = 56
          OnClick = RzGroup2Items2Click
        end>
      Opened = True
      OpenedHeight = 87
      DividerVisible = True
      Caption = #21453#25237#24433
    end
    object RzGroup3: TRzGroup
      CanClose = False
      CaptionImageIndex = 36
      Items = <
        item
          Caption = 'ART '#20195#25968#37325#24314#27861
          ImageIndex = 18
          OnClick = RzGroup3Items0Click
        end
        item
          Caption = 'OSEM '#36845#20195
          ImageIndex = 20
          OnClick = RzGroup3Items1Click
        end>
      Opened = True
      OpenedHeight = 67
      DividerVisible = True
      Caption = #36845#20195#31639#27861
    end
  end
  object RzGroupBox1: TRzGroupBox
    Left = 4
    Top = 314
    Width = 150
    Height = 111
    Caption = #21442' '#25968
    Color = clCream
    TabOrder = 2
    object Label1: TLabel
      Left = 10
      Top = 54
      Width = 48
      Height = 13
      Caption = #23376#38598#25968#65306
    end
    object Label2: TLabel
      Left = 10
      Top = 81
      Width = 48
      Height = 13
      Caption = #36845#20195#25968#65306
    end
    object Label3: TLabel
      Left = 10
      Top = 27
      Width = 36
      Height = 13
      Caption = #26631#23450#65306
    end
    object Edit1: TRzNumericEdit
      Left = 52
      Top = 24
      Width = 77
      Height = 21
      Alignment = taLeftJustify
      FrameColor = clActiveCaption
      FrameHotColor = clActiveCaption
      FrameVisible = True
      TabOrder = 0
      OnChange = Edit1Change
      Value = 10000000.000000000000000000
      DisplayFormat = '0'
    end
    object RzNumericEdit1: TRzNumericEdit
      Left = 64
      Top = 51
      Width = 65
      Height = 21
      Alignment = taLeftJustify
      FrameColor = clActiveCaption
      FrameHotColor = clActiveCaption
      FrameVisible = True
      TabOrder = 1
      Value = 30.000000000000000000
      DisplayFormat = '0'
    end
    object RzNumericEdit2: TRzNumericEdit
      Left = 64
      Top = 78
      Width = 65
      Height = 21
      Alignment = taLeftJustify
      FrameColor = clActiveCaption
      FrameHotColor = clActiveCaption
      FrameVisible = True
      TabOrder = 2
      Value = 3.000000000000000000
      DisplayFormat = '0'
    end
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 521
    Width = 906
    Height = 19
    BevelWidth = 2
    BorderColor = clSkyBlue
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    Color = clCream
    TabOrder = 7
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Height = 19
      FrameStyle = fsButtonDown
      Align = alLeft
      Caption = #29983#21307'033 '#32993#24535#35946
      ExplicitLeft = 910
      ExplicitHeight = 20
    end
    object RzProgressStatus1: TRzProgressStatus
      Left = 217
      Top = 0
      Width = 689
      Height = 19
      FlatColor = clActiveCaption
      FrameStyle = fsButtonDown
      Align = alClient
      ParentShowHint = False
      ShowHint = False
      BackColor = clBackground
      BarColor = clGradientActiveCaption
      BarColorStop = clActiveCaption
      BarStyle = bsLED
      GradientDirection = gdHorizontalBox
      NumSegments = 100
      PartsComplete = 0
      Percent = 0
      TotalParts = 0
      ExplicitLeft = 184
      ExplicitWidth = 726
    end
    object RzStatusPane2: TRzStatusPane
      Left = 100
      Top = 0
      Width = 117
      Height = 19
      FrameStyle = fsButtonDown
      Align = alLeft
      Caption = '[e-mail]'
    end
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Bars = <
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        AllowReset = False
        BorderStyle = bbsNone
        Caption = 'main'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 226
        FloatTop = 195
        FloatClientWidth = 195
        FloatClientHeight = 38
        IsMainMenu = True
        ItemLinks = <
          item
            Item = dxBarSubItem1
            Visible = True
          end
          item
            Item = dxBarSubItem3
            Visible = True
          end
          item
            Item = dxBarSubItem2
            Visible = True
          end
          item
            Item = dxBarSubItem5
            Visible = True
          end>
        MultiLine = True
        Name = 'main'
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = True
      end
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        AllowReset = False
        BorderStyle = bbsNone
        Caption = 'addition'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 19
        DockingStyle = dsTop
        FloatLeft = 233
        FloatTop = 199
        FloatClientWidth = 54
        FloatClientHeight = 120
        ItemLinks = <
          item
            Item = dxBarLargeButton2
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButton1
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButton3
            Visible = True
          end
          item
            Item = dxBarLargeButton7
            Visible = True
          end
          item
            Item = dxBarLargeButton8
            Visible = True
          end
          item
            Item = dxBarLargeButton9
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButton4
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButton5
            Visible = True
          end>
        Name = 'addition'
        OneOnRow = True
        Row = 1
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    Images = ImageList1
    LargeImages = ImageList2
    PopupMenuLinks = <>
    Style = bmsXP
    UseSystemFont = True
    Left = 648
    Top = 80
    DockControlHeights = (
      0
      0
      55
      0)
    object dxBarSubItem1: TdxBarSubItem
      Caption = #25991#20214'(&F)'
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarButton7
          Visible = True
        end
        item