GLScene/Externals/Graphics32/Examples/General/Image32/MainUnit.lfm

object FormImage32Example: TFormImage32Example
  Left = 224
  Height = 418
  Top = 159
  Width = 542
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'TImage32 Example'
  ClientHeight = 418
  ClientWidth = 542
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '1.0.1.3'
  object PnlImage: TPanel
    Left = 8
    Height = 402
    Top = 8
    Width = 385
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvLowered
    BorderWidth = 1
    ClientHeight = 402
    ClientWidth = 385
    TabOrder = 0
    object Image: TImage32
      Left = 2
      Height = 398
      Top = 2
      Width = 381
      Align = alClient
      Bitmap.ResamplerClassName = 'TNearestResampler'
      BitmapAlign = baTopLeft
      Scale = 1
      ScaleMode = smNormal
      TabOrder = 0
    end
  end
  object PnlControl: TPanel
    Left = 400
    Height = 418
    Top = 0
    Width = 142
    Align = alRight
    BevelOuter = bvNone
    ClientHeight = 418
    ClientWidth = 142
    TabOrder = 1
    object RgpScaleMode: TRadioGroup
      Left = 8
      Height = 129
      Top = 104
      Width = 129
      AutoFill = True
      Caption = 'ScaleMode'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 111
      ClientWidth = 125
      ItemIndex = 0
      Items.Strings = (
        'smNormal'
        'smStretch'
        'smScale'
        'smResize'
        'smOptimal'
        'smOptimalScaled'
      )
      OnClick = RgpScaleModeClick
      TabOrder = 0
    end
    object RgpKernel: TRadioGroup
      Left = 8
      Height = 121
      Top = 288
      Width = 129
      AutoFill = True
      Caption = 'Kernels'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 103
      ClientWidth = 125
      ItemIndex = 0
      Items.Strings = (
        'TBoxKernel'
        'TLinearKernel'
        'TSplineKernel'
        'TLanczosKernel'
        'TMitchellKernel'
      )
      OnClick = RgpKernelClick
      TabOrder = 1
    end
    object RgpBitmapAlign: TRadioGroup
      Left = 8
      Height = 89
      Top = 8
      Width = 129
      AutoFill = True
      Caption = 'BitmapAlign'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 71
      ClientWidth = 125
      ItemIndex = 0
      Items.Strings = (
        'baTopLeft'
        'baCenter'
        'baTile'
      )
      OnClick = RgpBitmapAlignClick
      TabOrder = 2
    end
    object LblScale: TStaticText
      Left = 8
      Height = 17
      Top = 242
      Width = 33
      Caption = 'Scale:'
      TabOrder = 3
    end
    object SbrScale: TGaugeBar
      Left = 8
      Height = 16
      Top = 260
      Width = 129
      Color = clScrollBar
      Backgnd = bgPattern
      BorderStyle = bsNone
      Enabled = False
      Max = 1000
      Min = 25
      ShowHandleGrip = True
      Position = 100
      OnChange = SbrScaleChange
    end
  end
end