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