unit1.dfm

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

object Form1: TForm1
  Left = 73
  Top = 77
  Caption = #22270#20687#37325#24314' 1.0'
  ClientHeight = 540
  ClientWidth = 906
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object dxDockSite1: TdxDockSite
    Left = 160
    Top = 55
    Width = 746
    Height = 466
    Align = alClient
    DockType = 0
    OriginalWidth = 746
    OriginalHeight = 466
    object dxLayoutDockSite1: TdxLayoutDockSite
      Left = 0
      Top = 0
      Width = 746
      Height = 466
      DockType = 1
      OriginalWidth = 300
      OriginalHeight = 200
    end
    object dxTabContainerDockSite1: TdxTabContainerDockSite
      Left = 0
      Top = 0
      Width = 746
      Height = 466
      ActiveChildIndex = 6
      AllowFloating = False
      AutoHide = False
      CaptionButtons = [cbMaximize]
      ImageIndex = 46
      DockType = 1
      OriginalWidth = 185
      OriginalHeight = 140
      object dxDockPanel1: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = 'S_L'#22836#27169#22411
        ImageIndex = 12
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView321: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clCream
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel2: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = #27491#24358#30452#26041#22270
        ImageIndex = 14
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView322: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clCream
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel3: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = #30452#25509#21453#25237#24433
        ImageIndex = 16
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView323: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clCream
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel4: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = #28388#27874#21453#25237#24433
        ImageIndex = 20
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView324: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clCream
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel7: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = #20013#24515#20999#29255#23450#29702
        ImageIndex = 8
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView327: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clWhite
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel5: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = 'ART'#36845#20195
        CaptionButtons = [cbMaximize]
        ImageIndex = 56
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView325: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clCream
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
      object dxDockPanel6: TdxDockPanel
        Left = 0
        Top = 0
        Width = 742
        Height = 408
        AllowFloating = True
        AutoHide = False
        Caption = 'OSEM'#36845#20195
        CaptionButtons = [cbMaximize]
        ImageIndex = 10
        DockType = 1
        OriginalWidth = 185
        OriginalHeight = 140
        object ImgView326: TImgView32
          Left = 0
          Top = 0
          Width = 742
          Height = 408
          Align = alClient
          Bitmap.ResamplerClassName = 'TNearestResampler'
          Color = clWhite
          ParentColor = False
          Scale = 1.000000000000000000
          ScrollBars.ShowHandleGrip = True
          ScrollBars.Style = rbsDefault
          OverSize = 0
          TabOrder = 0
          OnMouseWheelDown = ImgView321MouseWheelDown
          OnMouseWheelUp = ImgView321MouseWheelUp
        end
      end
    end
  end
  object RzGroupBar1: TRzGroupBar
    Left = 0
    Top = 55
    Height = 466
    BorderShadow = clActiveCaption
    GradientColorStart = clBtnFace
    GradientColorStop = clBtnShadow
    GroupBorderSize = 4
    SmallImages = ImageList1
    Style = gbsTaskList
    UniqueItemSelection = True
    VisualStyle = vsWinXP
    Color = clWindow
    ParentColor = False
    TabOrder = 1
    object RzGroup1: TRzGroup
      CanClose = False
      CaptionImageIndex = 44
      Items = <
        item
          Caption = 'S_L'#22836#39592#27169#22411
          ImageIndex = 8
          OnClick = RzGroup1Items0Click
        end
        item
          Caption = #27169#22411'II'
          ImageIndex = 10
          OnClick = RzGroup1Items1Click
        end
        item
          Caption = #27169#22411'III'
          ImageIndex = 14
          OnClick = RzGroup1Items2Click
        end>
      Opened = True
      OpenedHeight = 87
      DividerVisible = True
      SmallImages = ImageList1
      Caption = #27169#22411
    end
    object RzGroup2: TRzGroup