lazarus-ccr/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm

object JvThumbnailChildForm: TJvThumbnailChildForm
  Left = 367
  Height = 600
  Top = 149
  Width = 845
  Caption = 'JvThumbNail Demo'
  ClientHeight = 600
  ClientWidth = 845
  Color = clBtnFace
  Font.Color = clWindowText
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.9.0.0'
  object Splitter2: TSplitter
    Left = 238
    Height = 600
    Top = 0
    Width = 3
  end
  object Panel6: TPanel
    Left = 0
    Height = 600
    Top = 0
    Width = 238
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 600
    ClientWidth = 238
    TabOrder = 0
    object Splitter4: TSplitter
      Cursor = crVSplit
      Left = 0
      Height = 3
      Top = 149
      Width = 238
      Align = alTop
      ResizeAnchor = akTop
    end
    object ShellTreeView: TShellTreeView
      Left = 4
      Height = 145
      Top = 4
      Width = 230
      Align = alTop
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Right = 4
      BackgroundColor = clDefault
      Color = clDefault
      FileSortType = fstAlphabet
      HideSelection = False
      Images = DataModule1.ImageList1
      ReadOnly = True
      TabOrder = 0
      OnGetImageIndex = ShellTreeViewGetImageIndex
      OnGetSelectedIndex = ShellTreeViewGetSelectedIndex
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      ObjectTypes = [otFolders]
      ShellListView = ShellListView
    end
    object ShellListView: TShellListView
      Left = 4
      Height = 191
      Top = 175
      Width = 230
      Align = alClient
      BorderSpacing.Left = 4
      BorderSpacing.Right = 4
      Color = clDefault
      HideSelection = False
      Mask = '*.ico;*.bmp;*.jpg;*.jpeg;*.png'
      ReadOnly = True
      SortType = stText
      TabOrder = 1
      OnChange = ShellListViewChange
      ObjectTypes = [otNonFolders]
      ShellTreeView = ShellTreeView
    end
    object Panel8: TPanel
      Left = 0
      Height = 234
      Top = 366
      Width = 238
      Align = alBottom
      AutoSize = True
      BevelOuter = bvNone
      ClientHeight = 234
      ClientWidth = 238
      TabOrder = 2
      OnResize = Panel8Resize
      object LblRed: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 230
        Align = alTop
        Alignment = taCenter
        BorderSpacing.Left = 4
        BorderSpacing.Top = 4
        BorderSpacing.Right = 4
        Caption = 'RED'
        Color = clRed
        Font.Color = clWhite
        ParentColor = False
        ParentFont = False
        Transparent = False
      end
      object LblGreen: TLabel
        Left = 4
        Height = 15
        Top = 54
        Width = 230
        Align = alTop
        Alignment = taCenter
        BorderSpacing.Left = 4
        BorderSpacing.Top = 4
        BorderSpacing.Right = 4
        Caption = 'GREEN'
        Color = clLime
        Font.Color = clBlack
        ParentColor = False
        ParentFont = False
        Transparent = False
      end
      object LblBlue: TLabel
        Left = 4
        Height = 15
        Top = 105
        Width = 230
        Align = alTop
        Alignment = taCenter
        BorderSpacing.Left = 4
        BorderSpacing.Top = 4
        BorderSpacing.Right = 4
        Caption = 'BLUE'
        Color = clBlue
        Font.Color = clWhite
        ParentColor = False
        ParentFont = False
        Transparent = False
      end
      object LblContrast: TLabel
        AnchorSideLeft.Control = ContrastBar
        AnchorSideTop.Control = BlueBar
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = CenterBevel
        Left = 4
        Height = 15
        Top = 156
        Width = 107
        Alignment = taCenter
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 4
        Caption = 'CONTRAST'
        ParentColor = False
      end
      object LblLightness: TLabel
        AnchorSideLeft.Control = LightnessBar
        AnchorSideTop.Control = LblContrast
        AnchorSideRight.Control = LightnessBar
        AnchorSideRight.Side = asrBottom
        Left = 127
        Height = 15
        Top = 156
        Width = 98
        Alignment = taCenter
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Right = 9
        Caption = 'LIGHTNESS'
        ParentColor = False
      end
      object REDBar: TTrackBar
        Left = 4
        Height = 29
        Top = 21
        Width = 230
        Frequency = 51
        Max = 255
        Min = -255
        PageSize = 20
        Position = 0
        TickStyle = tsNone
        Align = alTop
        BorderSpacing.Left = 4
        BorderSpacing.Top = 2
        BorderSpacing.Right = 4
        TabOrder = 0
      end
      object GreenBar: TTrackBar
        Left = 4
        Height = 30
        Top = 71
        Width = 230
        Frequency = 51
        Max = 255
        Min = -255
        PageSize = 20
        Position = 0
        TickStyle = tsNone
        Align = alTop
        BorderSpacing.Left = 4
        BorderSpacing.Top = 2
        BorderSpacing.Right = 4
        TabOrder = 1
      end
      object BlueBar: TTrackBar
        Left = 4
        Height = 30
        Top = 122
        Width = 230
        Frequency = 51
        Max = 255
        Min = -255
        PageSize = 20
        Position = 0
        TickStyle = tsNone
        Align = alTop
        BorderSpacing.Left = 4
        BorderSpacing.Top = 2
        BorderSpacing.Right = 4
        TabOrder = 2
      end
      object ContrastBar: TTrackBar
        AnchorSideLeft.Control = Panel8
        AnchorSideTop.Control = LblContrast
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = CenterBevel
        Left = 4
        Height = 30
        Top = 173
        Width = 107
        Frequency = 51
        Max = 100
        Min = -100
        PageSize = 20
        Position = 0
        TickStyle = tsNone
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 4
        BorderSpacing.Top = 2
        TabOrder = 3
      end
      object BtnApply: TButton
        AnchorSideLeft.Control = Panel8
        AnchorSideTop.Control = ContrastBar
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = CenterBevel
        Left = 4
        Height = 25
        Top = 205
        Width = 107
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Left = 4
        BorderSpacing.Top = 2
        BorderSpacing.Bottom = 4
        Caption = 'APPLY'
        OnClick = BtnApplyClick
        TabOrder = 4
      end
      object LightnessBar: TTrackBar
        AnchorSideLeft.Control = CenterBevel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = ContrastBar
        AnchorSideRight.Control = Panel8
        AnchorSideRight.Side = asrBottom
        Left = 127
        Height = 30
        Top = 175
        Width = 107
        Frequency = 51
        Max = 100
        Min = -100
        PageSize = 20
        Position = 0
        TickStyle = tsNone
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Top = 2
        BorderSpacing.Right = 4
        TabOrder = 5
      end
      object CenterBevel: TBevel
        AnchorSideLeft.Control = Panel8
        AnchorSideLeft.Side = asrCenter
        Left = 111
        Height = 196
        Top = 0
        Width = 16
        Shape = bsSpacer
      end
      object BtnSave: TButton
        AnchorSideLeft.Control = CenterBevel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = BtnApply
        AnchorSideRight.Control = Panel8
        AnchorSideRight.Side = asrBottom
        Left = 127
        Height = 25
        Top = 205
        Width = 107
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Right = 4
        Caption = 'SAVE'
        OnClick = BtnSaveClick
        TabOrder = 6
      end
    end
    object Panel10: TPanel
      Left = 4
      Height = 23
      Top = 152
      Width = 230
      Align = alTop
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Right = 4
      BevelOuter = bvNone
      Caption = 'Panel10'
      ClientHeight = 23
      ClientWidth = 230
      TabOrder = 3
      OnResize = Panel10Resize
      object FilterComboBox: TFilterComboBox
        AnchorSideLeft.Control = Panel10
        AnchorSideRight.Control = Panel10
        AnchorSideRight.Side = asrBottom
        Left = 0
        Height = 23
        Top = 0
        Width = 230
        Anchors = [akTop, akLeft, akRight]
        Filter = 'All Known Formats|*.ico;*.bmp;*.jpg;*.jpeg;*.png|All Files (*.*)|*.*|JPEG Files|*.jpg;*.jpeg;|BMP Files|*.bmp|PNG Files|*.png|ICONS|*.ico'
        ItemIndex = 0
        ShellListView = ShellListView
        TabOrder = 0
      end
    end
  end
  object Panel7: TPanel
    Left = 241
    Height = 600
    Top = 0
    Width = 604
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 600
    ClientWidth = 604
    TabOrder = 1
    object Panel5: TPanel
      Left = 4
      Height = 175
      Top = 4
      Width = 596
      Align = alTop
      AutoSize = True
      BorderSpacing.Around = 4
      BevelOuter = bvNone
      ClientHeight = 175
      ClientWidth = 596
      TabOrder = 0
      object GbThumbImage: TGroupBox
        AnchorSideLeft.Control = Panel1
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = Panel5
        AnchorSideRight.Side = asrBottom
        Left = 431
        Height = 117
        Top = 0
        Width = 131
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Left = 8
        Caption = 'THUMBIMAGE'
        ClientHeight = 97
        ClientWidth = 127
        TabOrder = 0
        object BtnInvert: TButton
          AnchorSideLeft.Control = GbThumbImage
          AnchorSideTop.Control = GbThumbImage
          AnchorSideRight.Control = GbThumbImage
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 25
          Top = 0
          Width = 111
          Anchors = [akTop, akLeft, akRight]
          AutoSize = True
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          Caption = 'INVERT'
          OnClick = BtnInvertClick
          TabOrder = 0
        end
        object BtnGrayScale: TButton
          AnchorSideLeft.Control = BtnInvert
          AnchorSideTop.Control = BtnInvert
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = BtnInvert
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 25
          Top = 29
          Width = 111
          Anchors = [akTop, akLeft, akRight]
          AutoSize = True
          BorderSpacing.Top = 4
          BorderSpacing.Bottom = 8
          Caption = 'GRAYSCALE'
          OnClick = BtnGrayScaleClick
          TabOrder = 1
        end
        object CbTransform: TComboBox
          AnchorSideLeft.Control = BtnInvert
          AnchorSideTop.Control = BtnGrayScale
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = BtnInvert
          AnchorSideRight.Side = asrBottom
          Left = 8
          Height = 23
          Top = 62
          Width = 111
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Bottom = 12
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'Rotate by 0°'
            'Rotate by 90°'
            'Rotate by 180°'
            'Rotate by 270°'
            'Mirror horizontally'
            'Mirror vertically'
          )
          OnChange = CbTransformChange
          Style = csDropDownList
          TabOrder = 2
          Text = 'Rotate by 0°'
        end
      end
      object ThumbNail: TJvThumbnail
        AnchorSideLeft.Control = Panel5
        AnchorSideTop.Control = Panel5
        AnchorSideBottom.Control = Panel5
        AnchorSideBottom.Side = asrBottom
        Left = 2
        Height = 175
        Top = 0
        Width = 152
        Anchors = [akTop, akLeft, akBottom]
        BorderSpacing.Left = 2
        BorderSpacing.Right = 8
        ClientHeight = 175
        ClientWidth = 152
        Constraints.MinWidth = 152
        TabOrder = 1
        OnClick = ThumbNailClick
        ShadowColor = clSilver
        TitleColor = clBtnFace
        TitleFont.Color = clWindowText
      end
      object Panel1: TPanel
        AnchorSideLeft.Control = ThumbNail
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = ThumbNail
        AnchorSideBottom.Side = asrBottom
        Left = 162
        Height = 175
        Top = 0
        Width = 261
        AutoSize = True
        BevelInner = bvRaised
        BevelOuter = bvLowered
        ClientHeight = 175
        ClientWidth = 261
        TabOrder = 2
        object CbAsButton: TCheckBox
          AnchorSideLeft.Control = Panel1
          AnchorSideTop.Control = Panel1
          Left = 10
          Height = 19
          Hint = 'This will give a button effect when the thumbnail is clicked '
          Top = 8
          Width = 69
          BorderSpacing.Left = 8
          BorderSpacing.Top = 6
          Caption = 'AsButton'
          Checked = True
          OnClick = CbAsButtonClick
          State = cbChecked
          TabOrder = 0
        end
        object CbAutoLoad: TCheckBox
          AnchorSideLeft.Control = CbAsButton
          AnchorSideTop.Control = CbAsButton
          AnchorSideTop.Side = asrBottom
          Left = 10
          Height = 19
          Hint = 'If AutoLoad = true when you pass a name to the filename it automatically loads it else not(for Future reference where the will be a thumblist file)'
          Top = 31
          Width = 69
          BorderSpacing.Top = 4
          Caption = 'Autoload'
          Checked = True
          OnClick = CbAutoLoadClick
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 1
        end
        object CbMinimizeMem: TCheckBox
          AnchorSideLeft.Control = CbAsButton
          AnchorSideTop.Control = CbAutoLoad
          AnchorSideTop.Side = asrBottom
          Left = 10
          Height = 19
          Hint = 'This will forse the thumbimage to convert all the thumbs in BMP and reduce memory usage us much as possible'
          Top = 54
          Width = 114
          BorderSpacing.Top = 4
          BorderSpacing.Right = 12
          BorderSpacing.Bottom = 8
          Caption = 'MinimizeMemory'
          Checked = True
          OnClick = CbMinimizeMemClick
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 2
        end
        object GbTitlePlacement: TRadioGroup
          AnchorSideLeft.Control = CbMinimizeMem
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Panel1
          AnchorSideRight.Side = asrBottom
          Left = 136
          Height = 70
          Hint = 'The position of the thumbnail''s title'
          Top = 11
          Width = 115
          AutoFill = False
          AutoSize = True
          BorderSpacing.Top = 9
          BorderSpacing.Right = 8
          BorderSpacing.InnerBorder = 4
          Caption = ' Title Placement '
          ChildSizing.LeftRightSpacing = 16
          ChildSizing.VerticalSpacing = 4
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclLeftToRightThenTopToBottom
          ChildSizing.ControlsPerLine = 1
          ClientHeight = 50
          ClientWidth = 111
          ItemIndex = 0
          Items.Strings = (
            'T_Up'
            'T_Down'
          )
          OnClick = GbTitlePlacementClick
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object BtnExit: TButton
          AnchorSideLeft.Control = GbTitlePlacement
          AnchorSideTop.Control = GbTitlePlacement
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = GbTitlePlacement
          AnchorSideRight.Side = asrBottom
          Left = 136
          Height = 25
          Top = 89
          Width = 115
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 8
          Caption = 'EXIT'
          ModalResult = 1
          TabOrder = 4
        end
        object EdThumbTitle: TEdit
          AnchorSideLeft.Control = CbAsButton
          AnchorSideTop.Control = LblThumbTitle
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = BtnExit
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 10
          Height = 23
          Hint = 'You can set the thumbnails title to what ever you want it to be '
          Top = 142
          Width = 241
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Bottom = 8
          TabOrder = 5
        end
        object LblThumbTitle: TLabel
          AnchorSideLeft.Control = CbAsButton
          AnchorSideTop.Control = BtnExit
          AnchorSideTop.Side = asrBottom
          Left = 10
          Height = 15
          Hint = 'You can set the thumbnails title to what ever you want it to be '
          Top = 123
          Width = 84
          BorderSpacing.Top = 9
          BorderSpacing.Bottom = 4
          Caption = 'Thumbnail Title'
          ParentColor = False
        end
        object SpinEdit1: TSpinEdit
          AnchorSideLeft.Control = LblMargin
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = BtnExit
          AnchorSideTop.Side = asrCenter
          Left = 60
          Height = 23
          Top = 90
          Width = 60
          BorderSpacing.Left = 12
          OnChange = SpinEdit1Change
          TabOrder = 6
        end
        object LblMargin: TLabel
          AnchorSideLeft.Control = Panel1
          AnchorSideTop.Control = BtnExit
          AnchorSideTop.Side = asrCenter
          Left = 10
          Height = 15
          Top = 94
          Width = 38
          BorderSpacing.Left = 8
          Caption = 'Margin'
          ParentColor = False
        end
      end
    end
    object Panel2: TPanel
      AnchorSideTop.Side = asrBottom
      Left = 4
      Height = 413
      Top = 183
      Width = 596
      Align = alClient
      BorderSpacing.Around = 4
      BevelOuter = bvNone
      ClientHeight = 413
      ClientWidth = 596
      TabOrder = 1
      OnResize = Panel2Resize
      object ThumbImage: TJvThumbImage
        AnchorSideLeft.Control = Panel5
        AnchorSideTop.Control = Panel5
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel5
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel7
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 378
        Top = 0
        Width = 554
        AutoSize = True
        BorderSpacing.Top = 8
        BorderSpacing.Bottom = 4
        OnMouseDown = ThumbImageMouseDown
        OnMouseMove = ThumbImageMouseMove
        OnMouseUp = ThumbImageMouseUp
        IgnoreMouse = False
        Angle = AT0
        Zoom = 0
      end
    end
  end
end