jvcllaz: Add thumbnail components (incl demo).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6264 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm

@@ -0,0 +1,461 @@
+object JvThumbnailChildForm: TJvThumbnailChildForm
+  Left = 367
+  Height = 529
+  Top = 149
+  Width = 770
+  Caption = 'JvThumbNail Demo'
+  ClientHeight = 529
+  ClientWidth = 770
+  Color = clBtnFace
+  Font.Color = clWindowText
+  OnShow = FormShow
+  LCLVersion = '1.9.0.0'
+  object Splitter2: TSplitter
+    Left = 238
+    Height = 529
+    Top = 0
+    Width = 3
+  end
+  object Panel6: TPanel
+    Left = 0
+    Height = 529
+    Top = 0
+    Width = 238
+    Align = alLeft
+    ClientHeight = 529
+    ClientWidth = 238
+    TabOrder = 0
+    object Splitter4: TSplitter
+      Cursor = crVSplit
+      Left = 1
+      Height = 3
+      Top = 121
+      Width = 236
+      Align = alTop
+      ResizeAnchor = akTop
+    end
+    object ShellTreeView: TShellTreeView
+      Left = 1
+      Height = 120
+      Top = 1
+      Width = 236
+      Align = alTop
+      BackgroundColor = clDefault
+      Color = clDefault
+      FileSortType = fstNone
+      HideSelection = False
+      ReadOnly = True
+      TabOrder = 0
+      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
+      ObjectTypes = [otFolders]
+      ShellListView = ShellListView
+    end
+    object ShellListView: TShellListView
+      Left = 1
+      Height = 168
+      Top = 147
+      Width = 236
+      Align = alClient
+      Color = clDefault
+      HideSelection = False
+      Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;'
+      ReadOnly = True
+      TabOrder = 1
+      OnChange = ShellListViewChange
+      ObjectTypes = [otNonFolders]
+      ShellTreeView = ShellTreeView
+    end
+    object Panel8: TPanel
+      Left = 1
+      Height = 213
+      Top = 315
+      Width = 236
+      Align = alBottom
+      BevelOuter = bvNone
+      ClientHeight = 213
+      ClientWidth = 236
+      TabOrder = 2
+      OnResize = Panel8Resize
+      object Label6: TLabel
+        Left = 8
+        Height = 13
+        Top = 0
+        Width = 226
+        Alignment = taCenter
+        AutoSize = False
+        Caption = 'RED'
+        Color = clRed
+        Font.Color = clWhite
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        ParentColor = False
+        ParentFont = False
+        Transparent = False
+      end
+      object Label7: TLabel
+        Left = 8
+        Height = 14
+        Top = 45
+        Width = 226
+        Alignment = taCenter
+        AutoSize = False
+        Caption = 'GREEN'
+        Color = clLime
+        Font.Color = clBlack
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        ParentColor = False
+        ParentFont = False
+        Transparent = False
+      end
+      object Label8: TLabel
+        Left = 7
+        Height = 14
+        Top = 89
+        Width = 226
+        Alignment = taCenter
+        AutoSize = False
+        Caption = 'BLUE'
+        Color = clBlue
+        Font.Color = clWhite
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        ParentColor = False
+        ParentFont = False
+        Transparent = False
+      end
+      object Label9: TLabel
+        Left = 6
+        Height = 14
+        Top = 137
+        Width = 91
+        Alignment = taCenter
+        AutoSize = False
+        Caption = 'CONTRAST'
+        Font.Color = clBlack
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        ParentColor = False
+        ParentFont = False
+      end
+      object Label1: TLabel
+        Left = 134
+        Height = 14
+        Top = 137
+        Width = 91
+        Alignment = taCenter
+        AutoSize = False
+        Caption = 'LIGHTNESS'
+        Font.Color = clBlack
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        ParentColor = False
+        ParentFont = False
+      end
+      object REDBar: TTrackBar
+        Left = 0
+        Height = 29
+        Top = 13
+        Width = 241
+        Frequency = 51
+        Max = 255
+        Min = -255
+        PageSize = 20
+        Position = 0
+        TickStyle = tsNone
+        TabOrder = 0
+      end
+      object GreenBar: TTrackBar
+        Left = 0
+        Height = 30
+        Top = 59
+        Width = 241
+        Frequency = 51
+        Max = 255
+        Min = -255
+        PageSize = 20
+        Position = 0
+        TickStyle = tsNone
+        TabOrder = 1
+      end
+      object BlueBar: TTrackBar
+        Left = -1
+        Height = 30
+        Top = 107
+        Width = 241
+        Frequency = 51
+        Max = 255
+        Min = -255
+        PageSize = 20
+        Position = 0
+        TickStyle = tsNone
+        TabOrder = 2
+      end
+      object contrastBar: TTrackBar
+        Left = -1
+        Height = 30
+        Top = 152
+        Width = 106
+        Frequency = 51
+        Max = 100
+        Min = -100
+        PageSize = 20
+        Position = 0
+        TickStyle = tsNone
+        TabOrder = 3
+      end
+      object Button2: TButton
+        Left = 8
+        Height = 25
+        Top = 184
+        Width = 225
+        Caption = 'APPLY'
+        OnClick = Button2Click
+        TabOrder = 4
+      end
+      object LightnessBar: TTrackBar
+        Left = 127
+        Height = 30
+        Top = 152
+        Width = 106
+        Frequency = 51
+        Max = 100
+        Min = -100
+        PageSize = 20
+        Position = 0
+        TickStyle = tsNone
+        TabOrder = 5
+      end
+    end
+    object Panel10: TPanel
+      Left = 1
+      Height = 23
+      Top = 124
+      Width = 236
+      Align = alTop
+      BevelOuter = bvNone
+      Caption = 'Panel10'
+      ClientHeight = 23
+      ClientWidth = 236
+      TabOrder = 3
+      OnResize = Panel10Resize
+      object FilterComboBox1: TFilterComboBox
+        Left = 2
+        Height = 23
+        Top = 0
+        Width = 235
+        Filter = 'All Known Formats|*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;|All Files (*.*)|*.*|JPEG Files|*.JPG;*.JPEG;|BMP Files|*.BMP|WMF Files|*.WMF|EMF Files |*.EMF|ICONS |*.ICO'
+        ItemIndex = 0
+        ShellListView = ShellListView
+        TabOrder = 0
+      end
+    end
+  end
+  object Panel7: TPanel
+    Left = 241
+    Height = 529
+    Top = 0
+    Width = 529
+    Align = alClient
+    ClientHeight = 529
+    ClientWidth = 529
+    TabOrder = 1
+    object ThumbImage1: TJvThumbImage
+      Left = 1
+      Height = 376
+      Top = 144
+      Width = 518
+      AutoSize = True
+      IgnoreMouse = False
+      Angle = AT0
+      Zoom = 0
+    end
+    object Panel5: TPanel
+      Left = 1
+      Height = 144
+      Top = 1
+      Width = 527
+      Align = alTop
+      ClientHeight = 144
+      ClientWidth = 527
+      TabOrder = 0
+      object Bevel1: TBevel
+        Left = 156
+        Height = 137
+        Top = 3
+        Width = 232
+      end
+      object Label5: TLabel
+        Left = 161
+        Height = 13
+        Hint = 'You can set the thumbnails title to what ever you want it to be '
+        Top = 100
+        Width = 193
+        AutoSize = False
+        Caption = 'Thumbnails Title'
+        ParentColor = False
+      end
+      object CbAsButton: TCheckBox
+        Left = 161
+        Height = 19
+        Hint = 'This will give a button effect when the thumbnail is clicked '
+        Top = 7
+        Width = 69
+        Caption = 'AsButton'
+        Checked = True
+        OnClick = CbAsButtonClick
+        State = cbChecked
+        TabOrder = 0
+      end
+      object CbAutoLoad: TCheckBox
+        Left = 161
+        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
+        Caption = 'Autoload'
+        Checked = True
+        OnClick = CbAutoLoadClick
+        ParentShowHint = False
+        ShowHint = True
+        State = cbChecked
+        TabOrder = 1
+      end
+      object CbMinimizeMem: TCheckBox
+        Left = 161
+        Height = 19
+        Hint = 'This will forse the thumbimage to convert all the thumbs in BMP and reduce memory usage us much as possible'
+        Top = 55
+        Width = 114
+        Caption = 'MinimizeMemory'
+        Checked = True
+        OnClick = CbMinimizeMemClick
+        ParentShowHint = False
+        ShowHint = True
+        State = cbChecked
+        TabOrder = 2
+      end
+      object GbTitlePlacement: TRadioGroup
+        Left = 265
+        Height = 65
+        Hint = 'The position of the thumbnail''s title'
+        Top = 9
+        Width = 113
+        AutoFill = True
+        Caption = ' Title Placement '
+        ChildSizing.LeftRightSpacing = 6
+        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+        ChildSizing.EnlargeVertical = crsHomogenousChildResize
+        ChildSizing.ShrinkHorizontal = crsScaleChilds
+        ChildSizing.ShrinkVertical = crsScaleChilds
+        ChildSizing.Layout = cclLeftToRightThenTopToBottom
+        ChildSizing.ControlsPerLine = 1
+        ClientHeight = 45
+        ClientWidth = 109
+        ItemIndex = 0
+        Items.Strings = (
+          'T_UP'
+          'T_Down'
+        )
+        OnClick = GbTitlePlacementClick
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 3
+      end
+      object Edit1: TEdit
+        Left = 161
+        Height = 23
+        Hint = 'You can set the thumbnails title to what ever you want it to be '
+        Top = 116
+        Width = 224
+        TabOrder = 4
+        Text = 'Edit1'
+      end
+      object GroupBox1: TGroupBox
+        Left = 390
+        Height = 75
+        Top = 0
+        Width = 125
+        Caption = 'THUMBIMAGE'
+        ClientHeight = 55
+        ClientWidth = 121
+        TabOrder = 5
+        object BtnInvert: TButton
+          Left = 8
+          Height = 25
+          Top = 0
+          Width = 108
+          Caption = 'INVERT'
+          OnClick = BtnInvertClick
+          TabOrder = 0
+        end
+        object Button5: TButton
+          Left = 8
+          Height = 25
+          Top = 28
+          Width = 108
+          Caption = 'GRAYSCALE'
+          OnClick = Button5Click
+          TabOrder = 1
+        end
+      end
+      object BtnExit: TButton
+        Left = 265
+        Height = 25
+        Top = 80
+        Width = 113
+        Caption = 'EXIT'
+        ModalResult = 1
+        TabOrder = 6
+      end
+      object GbAngle: TRadioGroup
+        Left = 390
+        Height = 60
+        Top = 81
+        Width = 125
+        AutoFill = True
+        Caption = ' ThumbImage Angle '
+        ChildSizing.LeftRightSpacing = 6
+        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+        ChildSizing.EnlargeVertical = crsHomogenousChildResize
+        ChildSizing.ShrinkHorizontal = crsScaleChilds
+        ChildSizing.ShrinkVertical = crsScaleChilds
+        ChildSizing.Layout = cclLeftToRightThenTopToBottom
+        ChildSizing.ControlsPerLine = 2
+        ClientHeight = 40
+        ClientWidth = 121
+        Columns = 2
+        Items.Strings = (
+          '0'
+          '90'
+          '180'
+          '270'
+        )
+        OnClick = GbAngleClick
+        TabOrder = 7
+      end
+      object ThumbNail1: TJvThumbnail
+        Left = 1
+        Height = 142
+        Top = 1
+        Width = 154
+        ClientHeight = 119
+        ClientWidth = 146
+        TabOrder = 8
+        OnClick = ThumbNail1Click
+        TitleColor = clBtnFace
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'MS Sans Serif'
+        AsButton = False
+        MinimizeMemory = True
+        StreamFileType = grBMP
+        ShowTitle = False
+        TitlePlacement = tpUp
+        AutoLoad = True
+        ShadowColor = clSilver
+        ShowShadow = False
+      end
+    end
+  end
+end