fdualimage.dfm

很好的源代码

object FrameDualImage: TFrameDualImage
  Left = 0
  Top = 0
  Width = 646
  Height = 474
  TabOrder = 0
  OnResize = FrameResize
  object PnlOrig: TPanel
    Left = 0
    Top = 0
    Width = 289
    Height = 474
    Align = alLeft
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 0
    object PnlOrigTop: TPanel
      Left = 4
      Top = 4
      Width = 281
      Height = 21
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Original image'
      Color = clActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentBackground = False
      ParentFont = False
      TabOrder = 0
    end
    object SBOrig: TScrollBox
      Left = 4
      Top = 25
      Width = 281
      Height = 393
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      Align = alClient
      BorderStyle = bsNone
      Color = clAppWorkSpace
      ParentColor = False
      TabOrder = 1
      object ImgOriginal: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 105
        AutoSize = True
      end
    end
    object PnlOrigBottom: TPanel
      Left = 4
      Top = 418
      Width = 281
      Height = 52
      Align = alBottom
      BevelOuter = bvNone
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clInfoText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 2
      object LblOrigFormat: TLabel
        Left = 4
        Top = 4
        Width = 9
        Height = 16
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LblOrigSize: TLabel
        Left = 4
        Top = 20
        Width = 9
        Height = 16
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object PnlCompressed: TPanel
    Left = 289
    Top = 0
    Width = 357
    Height = 474
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 1
    object PnlCompressedTop: TPanel
      Left = 4
      Top = 4
      Width = 349
      Height = 21
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Compressed image'
      Color = clActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentBackground = False
      ParentFont = False
      TabOrder = 0
    end
    object PnlCompressedBottom: TPanel
      Left = 4
      Top = 418
      Width = 349
      Height = 52
      Align = alBottom
      BevelOuter = bvNone
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clInfoText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 1
      object LblCompressedQuality: TLabel
        Left = 4
        Top = 36
        Width = 9
        Height = 16
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LblCompressedSize: TLabel
        Left = 4
        Top = 20
        Width = 9
        Height = 16
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LblCompressedFormat: TLabel
        Left = 4
        Top = 4
        Width = 9
        Height = 16
        Caption = '...'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object SBCompressed: TScrollBox
      Left = 4
      Top = 25
      Width = 349
      Height = 393
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      Align = alClient
      BorderStyle = bsNone
      Color = clAppWorkSpace
      ParentColor = False
      TabOrder = 2
      object ImgCompressed: TImage
        Left = 0
        Top = 0
        Width = 105
        Height = 105
        AutoSize = True
      end
    end
  end
end