lazarus/examples/jpeg_more/main.lfm

object Form1: TForm1
  Left = 348
  Height = 620
  Top = 131
  Width = 684
  Caption = 'Form1'
  ClientHeight = 620
  ClientWidth = 684
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object PageControl: TPageControl
    Left = 4
    Height = 579
    Top = 37
    Width = 676
    ActivePage = PgRead
    Align = alClient
    BorderSpacing.Around = 4
    TabIndex = 0
    TabOrder = 0
    object PgRead: TTabSheet
      Caption = 'Read'
      ClientHeight = 548
      ClientWidth = 672
      object ScrollBox1: TScrollBox
        AnchorSideLeft.Control = PgRead
        AnchorSideTop.Control = PgRead
        AnchorSideRight.Control = PgRead
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel1
        Left = 0
        Height = 417
        Top = 0
        Width = 672
        HorzScrollBar.Page = 553
        HorzScrollBar.Tracking = True
        VertScrollBar.Increment = 37
        VertScrollBar.Page = 370
        VertScrollBar.Smooth = True
        VertScrollBar.Tracking = True
        Anchors = [akTop, akLeft, akRight, akBottom]
        ClientHeight = 415
        ClientWidth = 670
        TabOrder = 0
        object Image1: TImage
          Left = 0
          Height = 370
          Top = 0
          Width = 553
        end
      end
      object Panel1: TPanel
        Left = 4
        Height = 123
        Top = 421
        Width = 664
        Align = alBottom
        AutoSize = True
        BorderSpacing.Around = 4
        BevelOuter = bvNone
        ClientHeight = 123
        ClientWidth = 664
        TabOrder = 1
        object RgScale: TRadioGroup
          AnchorSideLeft.Control = Panel1
          AnchorSideTop.Control = Panel1
          Left = 0
          Height = 123
          Top = 0
          Width = 115
          AutoFill = True
          AutoSize = True
          Caption = 'Scale'
          ChildSizing.LeftRightSpacing = 6
          ChildSizing.TopBottomSpacing = 4
          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
          ChildSizing.EnlargeVertical = crsHomogenousChildResize
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclLeftToRightThenTopToBottom
          ChildSizing.ControlsPerLine = 1
          ClientHeight = 100
          ClientWidth = 111
          ItemIndex = 2
          Items.Strings = (
            'jsFullSize'
            'jsHalf'
            'jsQuarter'
            'jsEighth'
          )
          TabOrder = 0
        end
        object RgPerformance: TRadioGroup
          AnchorSideLeft.Control = RgScale
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Panel1
          Left = 131
          Height = 77
          Top = 0
          Width = 147
          AutoFill = True
          AutoSize = True
          BorderSpacing.Left = 16
          Caption = 'Performance'
          ChildSizing.LeftRightSpacing = 6
          ChildSizing.TopBottomSpacing = 4
          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
          ChildSizing.EnlargeVertical = crsHomogenousChildResize
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclLeftToRightThenTopToBottom
          ChildSizing.ControlsPerLine = 1
          ClientHeight = 54
          ClientWidth = 143
          ItemIndex = 0
          Items.Strings = (
            'jpBestQuality'
            'jpBestSpeed'
          )
          TabOrder = 1
        end
        object CbSmoothing: TCheckBox
          AnchorSideLeft.Control = RgPerformance
          AnchorSideTop.Control = RgScale
          AnchorSideTop.Side = asrBottom
          AnchorSideBottom.Control = RgScale
          AnchorSideBottom.Side = asrBottom
          Left = 131
          Height = 23
          Top = 100
          Width = 108
          Anchors = [akLeft, akBottom]
          BorderSpacing.Top = 8
          Caption = 'Smoothing'
          TabOrder = 2
        end
        object BtnRead: TButton
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Panel1
          AnchorSideRight.Control = Panel1
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Control = Panel1
          AnchorSideBottom.Side = asrBottom
          Left = 589
          Height = 68
          Top = 55
          Width = 75
          Anchors = [akRight, akBottom]
          BorderSpacing.Left = 16
          Caption = 'Read'
          OnClick = BtnReadClick
          TabOrder = 3
        end
        object LblSpeed: TLabel
          AnchorSideLeft.Control = CbApplyMinSize
          AnchorSideTop.Control = RgPerformance
          AnchorSideTop.Side = asrBottom
          AnchorSideBottom.Control = Panel1
          AnchorSideBottom.Side = asrBottom
          Left = 294
          Height = 21
          Top = 102
          Width = 49
          Anchors = [akLeft, akBottom]
          BorderSpacing.Top = 4
          Caption = 'Speed'
        end
        object CbApplyMinSize: TCheckBox
          AnchorSideLeft.Control = RgPerformance
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = EdMinWidth
          AnchorSideTop.Side = asrCenter
          Left = 294
          Height = 23
          Top = 5
          Width = 245
          BorderSpacing.Left = 16
          Caption = 'Apply min size:       Min width'
          TabOrder = 4
        end
        object EdMinWidth: TSpinEdit
          AnchorSideLeft.Control = CbApplyMinSize
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Panel1
          Left = 547
          Height = 29
          Top = 2
          Width = 81
          BorderSpacing.Left = 8
          BorderSpacing.Top = 2
          MaxValue = 65535
          TabOrder = 5
          Value = 200
        end
        object EdMinHeight: TSpinEdit
          AnchorSideLeft.Control = EdMinWidth
          AnchorSideTop.Control = EdMinWidth
          AnchorSideTop.Side = asrBottom
          Left = 547
          Height = 29
          Top = 39
          Width = 81
          BorderSpacing.Top = 8
          MaxValue = 65535
          TabOrder = 6
          Value = 200
        end
        object LblSizeInfo: TLabel
          AnchorSideLeft.Control = CbApplyMinSize
          AnchorSideTop.Control = LblSpeed
          AnchorSideBottom.Control = LblSpeed
          Left = 294
          Height = 21
          Top = 77
          Width = 31
          Anchors = [akLeft, akBottom]
          Caption = 'Size'
        end
        object LblMinHeight: TLabel
          AnchorSideTop.Control = EdMinHeight
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = EdMinHeight
          Left = 455
          Height = 21
          Top = 43
          Width = 84
          Anchors = [akTop, akRight]
          BorderSpacing.Right = 8
          Caption = 'Min height'
        end
        object LblProgressive: TLabel
          AnchorSideLeft.Control = LblSizeInfo
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = LblSizeInfo
          Left = 341
          Height = 21
          Top = 77
          Width = 86
          BorderSpacing.Left = 16
          Caption = 'Progessive'
        end
      end
    end
    object PgWrite: TTabSheet
      Caption = 'Write'
      ClientHeight = 548
      ClientWidth = 672
      object ScrollBox2: TScrollBox
        AnchorSideLeft.Control = PgWrite
        AnchorSideTop.Control = PgWrite
        AnchorSideRight.Control = PgWrite
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel2
        Left = 0
        Height = 467
        Top = 0
        Width = 672
        HorzScrollBar.Page = 553
        HorzScrollBar.Tracking = True
        VertScrollBar.Increment = 36
        VertScrollBar.Page = 369
        VertScrollBar.Smooth = True
        VertScrollBar.Tracking = True
        Anchors = [akTop, akLeft, akRight, akBottom]
        ClientHeight = 463
        ClientWidth = 668
        TabOrder = 0
        object Image2: TImage
          Left = 0
          Height = 370
          Top = -1
          Width = 553
        end
      end
      object Panel2: TPanel
        Left = 4
        Height = 73
        Top = 471
        Width = 664
        Align = alBottom
        AutoSize = True
        BorderSpacing.Around = 4
        BevelOuter = bvNone
        ClientHeight = 73
        ClientWidth = 664
        TabOrder = 1
        object CbGrayscale: TCheckBox
          AnchorSideLeft.Control = Panel2
          AnchorSideTop.Control = SbQuality
          AnchorSideTop.Side = asrBottom
          Left = 0
          Height = 23
          Top = 50
          Width = 100
          BorderSpacing.Top = 8
          Caption = 'Grayscale'
          TabOrder = 0
        end
        object SbQuality: TScrollBar
          AnchorSideLeft.Control = Panel2
          AnchorSideTop.Control = LblQuality
          AnchorSideTop.Side = asrBottom
          Left = 0
          Height = 13
          Top = 29
          Width = 329
          BorderSpacing.Top = 8
          Min = 1
          PageSize = 0
          Position = 10
          TabOrder = 1
          OnChange = SbQualityChange
        end
        object BtnWrite: TButton
          AnchorSideRight.Control = Panel2
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Control = Panel2
          AnchorSideBottom.Side = asrBottom
          Left = 589
          Height = 68
          Top = 5
          Width = 75
          Anchors = [akRight, akBottom]
          Caption = 'Write'
          OnClick = BtnWriteClick
          TabOrder = 2
        end
        object LblQuality: TLabel
          AnchorSideLeft.Control = Panel2
          AnchorSideTop.Control = Panel2
          Left = 0
          Height = 21
          Top = 0
          Width = 58
          Caption = 'Quality'
        end
        object LblQualityLevel: TLabel
          AnchorSideLeft.Control = SbQuality
          AnchorSideLeft.Side = asrCenter
          AnchorSideTop.Control = LblQuality
          Left = 148
          Height = 21
          Top = 0
          Width = 32
          Caption = '        '
        end
        object CbProgressive: TCheckBox
          AnchorSideLeft.Control = CbGrayscale
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = CbGrayscale
          Left = 116
          Height = 23
          Top = 50
          Width = 192
          BorderSpacing.Left = 16
          Caption = 'Progressive encoding'
          TabOrder = 3
        end
      end
    end
  end
  object FilenamePanel: TPanel
    Left = 4
    Height = 29
    Top = 4
    Width = 676
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 4
    BevelOuter = bvNone
    ClientHeight = 29
    ClientWidth = 676
    TabOrder = 1
    object RbUseCheetah: TRadioButton
      AnchorSideLeft.Control = FilenamePanel
      AnchorSideTop.Control = EdFileName
      AnchorSideTop.Side = asrCenter
      Left = 4
      Height = 23
      Top = 3
      Width = 151
      BorderSpacing.Left = 4
      Caption = 'Lazarus cheetah'
      Checked = True
      TabOrder = 2
      TabStop = True
    end
    object RbOtherFile: TRadioButton
      AnchorSideLeft.Control = RbUseCheetah
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = EdFileName
      AnchorSideTop.Side = asrCenter
      Left = 167
      Height = 23
      Top = 3
      Width = 109
      BorderSpacing.Left = 12
      Caption = 'Other file: '
      TabOrder = 0
    end
    object EdFileName: TFileNameEdit
      AnchorSideLeft.Control = RbOtherFile
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = FilenamePanel
      AnchorSideRight.Control = FilenamePanel
      AnchorSideRight.Side = asrBottom
      Left = 280
      Height = 29
      Top = 0
      Width = 392
      OnAcceptFileName = EdFileNameAcceptFileName
      FilterIndex = 0
      HideDirectories = False
      ButtonWidth = 23
      NumGlyphs = 1
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 4
      BorderSpacing.Right = 4
      MaxLength = 0
      TabOrder = 1
      OnButtonClick = EdFileNameButtonClick
    end
  end
end