ftester.dfm

很好的源代码

object FrmAlgorithmTester: TFrmAlgorithmTester
  Left = 313
  Top = 292
  Width = 676
  Height = 520
  Caption = 'Compression Algorithm Tester'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PnlTop: TPanel
    Left = 0
    Top = 0
    Width = 668
    Height = 63
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object PnlTopLeft: TPanel
      Left = 0
      Top = 0
      Width = 247
      Height = 63
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object LblTest: TLabel
        Left = 10
        Top = 10
        Width = 27
        Height = 16
        Caption = '&Test'
        FocusControl = CBQualityInterval
      end
      object LblQualityLevel: TLabel
        Left = 167
        Top = 10
        Width = 71
        Height = 16
        Caption = 'quality level'
        FocusControl = CBQualityInterval
      end
      object CBQualityInterval: TComboBox
        Left = 44
        Top = 5
        Width = 120
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 0
        Text = 'every'
        Items.Strings = (
          'every'
          'every second'
          'every fourth')
      end
      object BtnSelectCodecs: TButton
        Left = 44
        Top = 34
        Width = 117
        Height = 26
        Caption = '&Select Codecs'
        TabOrder = 1
        OnClick = BtnSelectCodecsClick
      end
      object BtnGo: TButton
        Left = 167
        Top = 34
        Width = 71
        Height = 26
        Caption = 'Go!'
        Default = True
        TabOrder = 2
        OnClick = BtnGoClick
      end
    end
    object PnlTopClient: TPanel
      Left = 247
      Top = 0
      Width = 421
      Height = 63
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      OnResize = PnlTopClientResize
      object LblCodec: TLabel
        Left = 10
        Top = 10
        Width = 55
        Height = 16
        Caption = 'Codec: ...'
        FocusControl = CBQualityInterval
      end
      object LblTotalProgress: TLabel
        Left = 10
        Top = 39
        Width = 103
        Height = 16
        Caption = 'Overall progress:'
        FocusControl = CBQualityInterval
      end
      object PBOverall: TProgressBar
        Left = 118
        Top = 37
        Width = 185
        Height = 21
        TabOrder = 0
      end
      object PBCodec: TProgressBar
        Left = 118
        Top = 7
        Width = 185
        Height = 21
        TabOrder = 1
      end
    end
  end
  object PnlClient: TPanel
    Left = 0
    Top = 63
    Width = 668
    Height = 426
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 1
    object PageControl: TPageControl
      Left = 4
      Top = 4
      Width = 660
      Height = 418
      ActivePage = TSImage
      Align = alClient
      TabOrder = 0
      object TSImage: TTabSheet
        Caption = 'Image'
        inline FrameDualImage: TFrameDualImage
          Left = 0
          Top = 0
          Width = 652
          Height = 387
          Align = alClient
          TabOrder = 0
          inherited PnlOrig: TPanel
            Width = 356
            Height = 387
            inherited PnlOrigTop: TPanel
              Width = 348
              Height = 26
              Font.Height = -17
            end
            inherited SBOrig: TScrollBox
              Top = 30
              Width = 348
              Height = 289
              inherited ImgOriginal: TImage
                Width = 129
                Height = 129
              end
            end
            inherited PnlOrigBottom: TPanel
              Top = 319
              Width = 348
              Height = 64
              inherited LblOrigFormat: TLabel
                Left = 5
                Top = 5
                Font.Height = -15
              end
              inherited LblOrigSize: TLabel
                Left = 5
                Top = 25
                Font.Height = -15
              end
            end
          end
          inherited PnlCompressed: TPanel
            Left = 356
            Width = 296
            Height = 387
            inherited PnlCompressedTop: TPanel
              Width = 288
              Height = 26
              Font.Height = -17
            end
            inherited PnlCompressedBottom: TPanel
              Top = 319
              Width = 288
              Height = 64
              inherited LblCompressedQuality: TLabel
                Left = 5
                Top = 44
                Font.Height = -15
              end
              inherited LblCompressedSize: TLabel
                Left = 5
                Top = 25
                Font.Height = -15
              end
              inherited LblCompressedFormat: TLabel
                Left = 5
                Top = 5
                Font.Height = -15
              end
            end
            inherited SBCompressed: TScrollBox
              Top = 30
              Width = 288
              Height = 289
              inherited ImgCompressed: TImage
                Width = 129
                Height = 129
              end
            end
          end
        end
      end
      object TSChart: TTabSheet
        Caption = 'Chart'
        ImageIndex = 1
        object Chart: TChart
          Left = 0
          Top = 0
          Width = 652
          Height = 387
          BackWall.Brush.Color = clWhite
          BackWall.Color = clWhite
          Legend.Alignment = laBottom
          Legend.LegendStyle = lsSeries
          MarginBottom = 0
          MarginLeft = 0
          MarginRight = 1
          MarginTop = 1
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Height = -16
          Title.Font.Name = 'Trebuchet MS'
          Title.Font.Style = [fsBold]
          Title.Text.Strings = (
            'Quality vs Compression')
          BottomAxis.AxisValuesFormat = '#,##0.#'
          BottomAxis.ExactDateTime = False
          BottomAxis.MinorGrid.Color = clSilver
          BottomAxis.MinorGrid.Style = psDashDotDot
          BottomAxis.MinorGrid.SmallDots = True
          BottomAxis.MinorGrid.Visible = True
          BottomAxis.MinorTickCount = 1
          BottomAxis.MinorTicks.Visible = False
          BottomAxis.Title.Caption = 'Bits Per Pixel'
          BottomAxis.Title.Font.Charset = ANSI_CHARSET
          BottomAxis.Title.Font.Color = clBlue
          BottomAxis.Title.Font.Height = -12
          BottomAxis.Title.Font.Name = 'Trebuchet MS'
          BottomAxis.Title.Font.Style = [fsBold]
          LeftAxis.AxisValuesFormat = '#,##0.#'
          LeftAxis.Title.Caption = 'PSNR db'
          LeftAxis.Title.Font.Charset = ANSI_CHARSET
          LeftAxis.Title.Font.Color = clBlue
          LeftAxis.Title.Font.Height = -12
          LeftAxis.Title.Font.Name = 'Trebuchet MS'
          LeftAxis.Title.Font.Style = [fsBold]
          View3D = False
          Align = alClient
          BevelOuter = bvNone
          Color = 13434879
          TabOrder = 0
        end
      end
    end
  end
end