jvcllaz: Improved layout and some cosmetics for JvThumbnail demo

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

components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm

@@ -2,10 +2,10 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
   Left = 367
   Height = 529
   Top = 149
-  Width = 770
+  Width = 828
   Caption = 'JvThumbNail Demo'
   ClientHeight = 529
-  ClientWidth = 770
+  ClientWidth = 828
   Color = clBtnFace
   Font.Color = clWindowText
   OnShow = FormShow
@@ -54,7 +54,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
     end
     object ShellListView: TShellListView
       Left = 1
-      Height = 168
+      Height = 162
       Top = 147
       Width = 236
       Align = alClient
@@ -69,22 +69,25 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
     end
     object Panel8: TPanel
       Left = 1
-      Height = 213
+      Height = 219
-      Top = 315
+      Top = 309
       Width = 236
       Align = alBottom
+      AutoSize = True
       BevelOuter = bvNone
-      ClientHeight = 213
+      ClientHeight = 219
       ClientWidth = 236
       TabOrder = 2
       OnResize = Panel8Resize
-      object Label6: TLabel
+      object LblRed: TLabel
-        Left = 8
+        Left = 0
         Height = 13
-        Top = 0
+        Top = 4
-        Width = 226
+        Width = 236
+        Align = alTop
         Alignment = taCenter
         AutoSize = False
+        BorderSpacing.Top = 4
         Caption = 'RED'
         Color = clRed
         Font.Color = clWhite
@@ -94,13 +97,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ParentFont = False
         Transparent = False
       end
-      object Label7: TLabel
+      object LblGreen: TLabel
-        Left = 8
+        Left = 0
         Height = 14
-        Top = 45
+        Top = 50
-        Width = 226
+        Width = 236
+        Align = alTop
         Alignment = taCenter
         AutoSize = False
+        BorderSpacing.Top = 4
         Caption = 'GREEN'
         Color = clLime
         Font.Color = clBlack
@@ -110,13 +115,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ParentFont = False
         Transparent = False
       end
-      object Label8: TLabel
+      object LblBlue: TLabel
-        Left = 7
+        Left = 0
         Height = 14
-        Top = 89
+        Top = 98
-        Width = 226
+        Width = 236
+        Align = alTop
         Alignment = taCenter
         AutoSize = False
+        BorderSpacing.Top = 4
         Caption = 'BLUE'
         Color = clBlue
         Font.Color = clWhite
@@ -126,13 +133,19 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ParentFont = False
         Transparent = False
       end
-      object Label9: TLabel
+      object LblContrast: TLabel
-        Left = 6
+        AnchorSideLeft.Control = ContrastBar
+        AnchorSideTop.Control = BlueBar
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = ContrastBar
+        AnchorSideRight.Side = asrBottom
+        Left = 0
         Height = 14
-        Top = 137
+        Top = 146
         Width = 91
         Alignment = taCenter
         AutoSize = False
+        BorderSpacing.Top = 4
         Caption = 'CONTRAST'
         Font.Color = clBlack
         Font.Height = -11
@@ -140,12 +153,17 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ParentColor = False
         ParentFont = False
       end
-      object Label1: TLabel
+      object LblLightness: TLabel
-        Left = 134
+        AnchorSideLeft.Control = LightnessBar
+        AnchorSideTop.Control = LblContrast
+        AnchorSideRight.Control = LightnessBar
+        AnchorSideRight.Side = asrBottom
+        Left = 126
         Height = 14
-        Top = 137
+        Top = 146
-        Width = 91
+        Width = 110
         Alignment = taCenter
+        Anchors = [akTop, akLeft, akRight]
         AutoSize = False
         Caption = 'LIGHTNESS'
         Font.Color = clBlack
@@ -157,77 +175,108 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
       object REDBar: TTrackBar
         Left = 0
         Height = 29
-        Top = 13
+        Top = 17
-        Width = 241
+        Width = 236
         Frequency = 51
         Max = 255
         Min = -255
         PageSize = 20
         Position = 0
         TickStyle = tsNone
+        Align = alTop
         TabOrder = 0
       end
       object GreenBar: TTrackBar
         Left = 0
         Height = 30
-        Top = 59
+        Top = 64
-        Width = 241
+        Width = 236
         Frequency = 51
         Max = 255
         Min = -255
         PageSize = 20
         Position = 0
         TickStyle = tsNone
+        Align = alTop
         TabOrder = 1
       end
       object BlueBar: TTrackBar
-        Left = -1
+        Left = 0
         Height = 30
-        Top = 107
+        Top = 112
-        Width = 241
+        Width = 236
         Frequency = 51
         Max = 255
         Min = -255
         PageSize = 20
         Position = 0
         TickStyle = tsNone
+        Align = alTop
         TabOrder = 2
       end
-      object contrastBar: TTrackBar
+      object ContrastBar: TTrackBar
-        Left = -1
+        AnchorSideLeft.Control = Panel8
+        AnchorSideTop.Control = LblContrast
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = Bevel2
+        Left = 0
         Height = 30
-        Top = 152
+        Top = 160
-        Width = 106
+        Width = 110
         Frequency = 51
         Max = 100
         Min = -100
         PageSize = 20
         Position = 0
         TickStyle = tsNone
+        Anchors = [akTop, akLeft, akRight]
         TabOrder = 3
       end
-      object Button2: TButton
+      object BtnApply: TButton
-        Left = 8
+        AnchorSideLeft.Control = Panel8
+        AnchorSideTop.Control = ContrastBar
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = Panel8
+        AnchorSideRight.Side = asrBottom
+        Left = 4
         Height = 25
-        Top = 184
+        Top = 190
         Width = 225
+        BorderSpacing.Left = 4
+        BorderSpacing.Right = 4
+        BorderSpacing.Bottom = 4
         Caption = 'APPLY'
-        OnClick = Button2Click
+        OnClick = BtnApplyClick
         TabOrder = 4
       end
       object LightnessBar: TTrackBar
-        Left = 127
+        AnchorSideLeft.Control = Bevel2
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = ContrastBar
+        AnchorSideRight.Control = Panel8
+        AnchorSideRight.Side = asrBottom
+        Left = 126
         Height = 30
-        Top = 152
+        Top = 160
-        Width = 106
+        Width = 110
         Frequency = 51
         Max = 100
         Min = -100
         PageSize = 20
         Position = 0
         TickStyle = tsNone
+        Anchors = [akTop, akLeft, akRight]
         TabOrder = 5
       end
+      object Bevel2: TBevel
+        AnchorSideLeft.Control = Panel8
+        AnchorSideLeft.Side = asrCenter
+        Left = 110
+        Height = 36
+        Top = 0
+        Width = 16
+        Shape = bsSpacer
+      end
     end
     object Panel10: TPanel
       Left = 1
@@ -258,165 +307,111 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
     Left = 241
     Height = 529
     Top = 0
-    Width = 529
+    Width = 587
     Align = alClient
     ClientHeight = 529
-    ClientWidth = 529
+    ClientWidth = 587
     TabOrder = 1
-    object ThumbImage1: TJvThumbImage
+    object ThumbImage: TJvThumbImage
-      Left = 1
+      AnchorSideLeft.Control = Panel5
-      Height = 376
+      AnchorSideTop.Control = Panel5
-      Top = 144
+      AnchorSideTop.Side = asrBottom
-      Width = 518
+      AnchorSideRight.Control = Panel5
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = Panel7
+      AnchorSideBottom.Side = asrBottom
+      Left = 5
+      Height = 352
+      Top = 172
+      Width = 577
+      Anchors = [akTop, akLeft, akRight, akBottom]
       AutoSize = True
+      BorderSpacing.Top = 8
+      BorderSpacing.Bottom = 4
       IgnoreMouse = False
       Angle = AT0
       Zoom = 0
     end
     object Panel5: TPanel
-      Left = 1
+      Left = 5
-      Height = 144
+      Height = 159
-      Top = 1
+      Top = 5
-      Width = 527
+      Width = 577
       Align = alTop
-      ClientHeight = 144
+      AutoSize = True
-      ClientWidth = 527
+      BorderSpacing.Around = 4
+      BevelOuter = bvNone
+      ClientHeight = 159
+      ClientWidth = 577
       TabOrder = 0
-      object Bevel1: TBevel
+      object GbThumbImage: TGroupBox
-        Left = 156
+        AnchorSideLeft.Control = Panel1
-        Height = 137
+        AnchorSideLeft.Side = asrBottom
-        Top = 3
+        AnchorSideTop.Control = Panel5
-        Width = 232
+        AnchorSideRight.Side = asrBottom
-      end
+        Left = 430
-      object Label5: TLabel
+        Height = 78
-        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
+        Width = 127
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Left = 8
+        BorderSpacing.Right = 8
         Caption = 'THUMBIMAGE'
-        ClientHeight = 55
+        ClientHeight = 58
-        ClientWidth = 121
+        ClientWidth = 123
-        TabOrder = 5
+        TabOrder = 0
         object BtnInvert: TButton
+          AnchorSideLeft.Control = GbThumbImage
+          AnchorSideTop.Control = GbThumbImage
+          AnchorSideRight.Control = GbThumbImage
+          AnchorSideRight.Side = asrBottom
           Left = 8
           Height = 25
           Top = 0
-          Width = 108
+          Width = 107
+          Anchors = [akTop, akLeft, akRight]
+          AutoSize = True
+          BorderSpacing.Left = 8
+          BorderSpacing.Right = 8
           Caption = 'INVERT'
           OnClick = BtnInvertClick
           TabOrder = 0
         end
         object Button5: TButton
+          AnchorSideLeft.Control = BtnInvert
+          AnchorSideTop.Control = BtnInvert
+          AnchorSideTop.Side = asrBottom
+          AnchorSideRight.Control = BtnInvert
+          AnchorSideRight.Side = asrBottom
           Left = 8
           Height = 25
-          Top = 28
+          Top = 29
-          Width = 108
+          Width = 107
+          Anchors = [akTop, akLeft, akRight]
+          AutoSize = True
+          BorderSpacing.Top = 4
+          BorderSpacing.Bottom = 8
           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
+        AnchorSideLeft.Control = GbThumbImage
-        Height = 60
+        AnchorSideTop.Control = GbThumbImage
-        Top = 81
+        AnchorSideTop.Side = asrBottom
-        Width = 125
+        AnchorSideRight.Side = asrBottom
+        AnchorSideBottom.Control = Panel1
+        AnchorSideBottom.Side = asrBottom
+        Left = 430
+        Height = 73
+        Top = 86
+        Width = 131
+        Anchors = [akTop, akLeft, akBottom]
         AutoFill = True
+        AutoSize = True
+        BorderSpacing.Top = 8
+        BorderSpacing.Right = 8
         Caption = ' ThumbImage Angle '
         ChildSizing.LeftRightSpacing = 6
         ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@@ -425,8 +420,8 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ChildSizing.ShrinkVertical = crsScaleChilds
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 2
-        ClientHeight = 40
+        ClientHeight = 53
-        ClientWidth = 121
+        ClientWidth = 127
         Columns = 2
         Items.Strings = (
           '0'
@@ -435,17 +430,24 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
           '270'
         )
         OnClick = GbAngleClick
-        TabOrder = 7
+        TabOrder = 1
       end
-      object ThumbNail1: TJvThumbnail
+      object ThumbNail: TJvThumbnail
-        Left = 1
+        AnchorSideTop.Control = Panel5
-        Height = 142
+        AnchorSideBottom.Control = Panel5
-        Top = 1
+        AnchorSideBottom.Side = asrBottom
-        Width = 154
+        Left = 9
-        ClientHeight = 119
+        Height = 159
-        ClientWidth = 146
+        Top = 0
-        TabOrder = 8
+        Width = 152
-        OnClick = ThumbNail1Click
+        Anchors = [akTop, akBottom]
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 8
+        ClientHeight = 136
+        ClientWidth = 144
+        Constraints.MinWidth = 152
+        TabOrder = 2
+        OnClick = ThumbNailClick
         TitleColor = clBtnFace
         TitleFont.Color = clWindowText
         TitleFont.Height = -11
@@ -459,6 +461,156 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         ShadowColor = clSilver
         ShowShadow = False
       end
+      object Panel1: TPanel
+        AnchorSideLeft.Control = ThumbNail
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = ThumbNail
+        Left = 169
+        Height = 159
+        Top = 0
+        Width = 253
+        AutoSize = True
+        BevelInner = bvRaised
+        BevelOuter = bvLowered
+        ClientHeight = 159
+        ClientWidth = 253
+        TabOrder = 3
+        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 = 58
+          Hint = 'The position of the thumbnail''s title'
+          Top = 11
+          Width = 107
+          AutoFill = True
+          AutoSize = True
+          BorderSpacing.Top = 9
+          BorderSpacing.Right = 8
+          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 = 38
+          ClientWidth = 103
+          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 = 77
+          Width = 107
+          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 = 126
+          Width = 233
+          Anchors = [akTop, akLeft, akRight]
+          BorderSpacing.Bottom = 8
+          TabOrder = 5
+          Text = 'EdThumbTitle'
+        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 = 107
+          Width = 89
+          BorderSpacing.Top = 5
+          BorderSpacing.Bottom = 4
+          Caption = 'Thumbnails Title'
+          ParentColor = False
+        end
+      end
     end
   end
 end

components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas

@@ -40,42 +40,43 @@ type
   { TJvThumbnailChildForm }
 
   TJvThumbnailChildForm = class(TForm)
+    Bevel2: TBevel;
+    Panel1: TPanel;
     Splitter2: TSplitter;
     Panel6: TPanel;
     Splitter4: TSplitter;
     ShellTreeView: TShellTreeView;
     ShellListView: TShellListView;
     Panel8: TPanel;
-    Label6: TLabel;
+    LblRed: TLabel;
-    Label7: TLabel;
+    LblGreen: TLabel;
-    Label8: TLabel;
+    LblBlue: TLabel;
-    Label9: TLabel;
+    LblContrast: TLabel;
     REDBar: TTrackBar;
     GreenBar: TTrackBar;
     BlueBar: TTrackBar;
-    contrastBar: TTrackBar;
+    ContrastBar: TTrackBar;
-    Button2: TButton;
+    BtnApply: TButton;
     Panel10: TPanel;
     FilterComboBox1: TFilterComboBox;
     Panel7: TPanel;
     Panel5: TPanel;
-    Label5: TLabel;
+    LblThumbTitle: TLabel;
-    Bevel1: TBevel;
     CbAsButton: TCheckBox;
     CbAutoLoad: TCheckBox;
     CbMinimizeMem: TCheckBox;
     GbTitlePlacement: TRadioGroup;
-    Edit1: TEdit;
+    EdThumbTitle: TEdit;
-    GroupBox1: TGroupBox;
+    GbThumbImage: TGroupBox;
     BtnInvert: TButton;
     Button5: TButton;
-    Label1: TLabel;
+    LblLightness: TLabel;
     LightnessBar: TTrackBar;
     BtnExit: TButton;
     GbAngle: TRadioGroup;
-    ThumbNail1: TJVThumbNail;
+    ThumbNail: TJVThumbNail;
-    ThumbImage1: TJvThumbImage;
+    ThumbImage: TJvThumbImage;
-    procedure Button2Click(Sender: TObject);
+    procedure BtnApplyClick(Sender: TObject);
     procedure ShellListViewChange(Sender: TObject);
     procedure CbAsButtonClick(Sender: TObject);
     procedure CbAutoLoadClick(Sender: TObject);
@@ -85,7 +86,7 @@ type
     procedure BtnInvertClick(Sender: TObject);
     procedure Button5Click(Sender: TObject);
     procedure ShellTreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
-    procedure thumbnail1Click(Sender: TObject);
+    procedure ThumbNailClick(Sender: TObject);
     procedure Panel10Resize(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure GbAngleClick(Sender: TObject);
@@ -104,11 +105,11 @@ implementation
 uses
   JvThumbnailDatamodule;
 
-procedure TJvThumbnailChildForm.Button2Click(Sender: TObject);
+procedure TJvThumbnailChildForm.BtnApplyClick(Sender: TObject);
 begin
-  ThumbImage1.ChangeRGB(redbar.Position,greenbar.Position,bluebar.Position);
+  ThumbImage.ChangeRGB(redbar.Position,greenbar.Position,bluebar.Position);
-  ThumbImage1.Contrast(contrastbar.Position);
+  ThumbImage.Contrast(ContrastBar.Position);
-  ThumbImage1.Lightness(LightnessBar.Position);
+  ThumbImage.Lightness(LightnessBar.Position);
   RedBar.Position := 0;
   GreenBar.Position :=0;
   BlueBar.Position := 0;
@@ -122,8 +123,8 @@ var
 begin
   if ShellListView.Selected <> nil then begin
     fn := ShellListView.GetPathFromItem(ShellListView.Selected);
-    Thumbnail1.FileName := fn;
+    ThumbNail.FileName := fn;
-    ThumbImage1.Loadfromfile(fn);
+    ThumbImage.Loadfromfile(fn);
   end;
 end;
 
@@ -138,22 +139,22 @@ end;
 
 procedure TJvThumbnailChildForm.CbAsButtonClick(Sender: TObject);
 begin
-  THumbnail1.Asbutton := CbAsButton.Checked;
+  ThumbNail.Asbutton := CbAsButton.Checked;
 end;
 
 procedure TJvThumbnailChildForm.CbAutoLoadClick(Sender: TObject);
 begin
-  thumbnail1.autoload := CbAutoLoad.Checked;
+  ThumbNail.AutoLoad := CbAutoLoad.Checked;
 end;
 
 procedure TJvThumbnailChildForm.CbMinimizeMemClick(Sender: TObject);
 begin
-  thumbnail1.minimizememory:=CbMinimizeMem.Checked;
+  ThumbNail.MinimizeMemory := CbMinimizeMem.Checked;
 end;
 
 procedure TJvThumbnailChildForm.GbTitlePlacementClick(Sender: TObject);
 begin
-  thumbnail1.TitlePlacement := ttitlepos(GbTitlePlacement.ItemIndex);
+  ThumbNail.TitlePlacement := TTitlePos(GbTitlePlacement.ItemIndex);
 end;
 
 procedure TJvThumbnailChildForm.Panel8Resize(Sender: TObject);
@@ -163,18 +164,18 @@ end;
 
 procedure TJvThumbnailChildForm.BtnInvertClick(Sender: TObject);
 begin
-  ThumbImage1.Invert;
+  ThumbImage.Invert;
 end;
 
 procedure TJvThumbnailChildForm.Button5Click(Sender: TObject);
 begin
-  ThumbImage1.GrayScale;
+  ThumbImage.GrayScale;
 end;
 
-procedure TJvThumbnailChildForm.thumbnail1Click(Sender: TObject);
+procedure TJvThumbnailChildForm.ThumbNailClick(Sender: TObject);
 begin
-  if thumbnail1.FileName<>'' then
+  if ThumbNail.FileName<>'' then
-    thumbimage1.Loadfromfile(thumbnail1.FileName);
+    ThumbImage.Loadfromfile(ThumbNail.FileName);
 end;
 
 procedure TJvThumbnailChildForm.Panel10Resize(Sender: TObject);
@@ -185,14 +186,14 @@ end;
 
 procedure TJvThumbnailChildForm.FormShow(Sender: TObject);
 begin
-  //thumbimage1.Picture.Free;
+  //ThumbImage.Picture.Free;
-  GbTitlePlacement.ItemIndex := integer(thumbnail1.titlePlacement);
+  GbTitlePlacement.ItemIndex := integer(ThumbNail.titlePlacement);
-  GbAngle.ItemIndex := integer(thumbimage1.angle);
+  GbAngle.ItemIndex := integer(ThumbImage.angle);
 end;
 
 procedure TJvThumbnailChildForm.GbAngleClick(Sender: TObject);
 begin
-  thumbimage1.angle := TAngle(GbAngle.ItemIndex)
+  ThumbImage.angle := TAngle(GbAngle.ItemIndex)
 end;
 
 function TJvThumbnailChildForm.GetfileName: String;

components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi

@@ -56,6 +56,7 @@
         <Filename Value="jvthumbnaildatamodule.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="DataModule1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="DataModule"/>
         <UnitName Value="JvThumbnailDatamodule"/>
       </Unit3>

components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm

@@ -65,7 +65,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideTop.Control = Panel1
           AnchorSideRight.Control = SpinEdit1
           AnchorSideRight.Side = asrBottom
-          Left = 569
+          Left = 600
           Height = 16
           Hint = 'Change the thumbgup to change the space between the thumbnails '
           Top = 8
@@ -84,7 +84,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideTop.Control = Label3
           AnchorSideRight.Control = SpinEdit2
           AnchorSideRight.Side = asrBottom
-          Left = 649
+          Left = 680
           Height = 16
           Hint = 'Change the selected to select the Nth element in the list.'
           Top = 8
@@ -164,7 +164,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = Label3
           AnchorSideTop.Side = asrBottom
-          Left = 569
+          Left = 600
           Height = 23
           Hint = 'Changes the space between the thumbnails '
           Top = 27
@@ -183,7 +183,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideLeft.Control = SpinEdit1
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = SpinEdit1
-          Left = 649
+          Left = 680
           Height = 23
           Hint = 'Selects the thumbnail with this index'
           Top = 27
@@ -217,9 +217,9 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           Left = 316
           Height = 19
           Top = 31
-          Width = 86
+          Width = 117
           BorderSpacing.Left = 16
-          Caption = 'MinMemory'
+          Caption = 'Minimize memory'
           Checked = True
           OnClick = CbMinMemoryClick
           ParentShowHint = False
@@ -232,7 +232,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideTop.Control = Panel1
           AnchorSideRight.Control = BtnEditSelThumb
           AnchorSideRight.Side = asrBottom
-          Left = 418
+          Left = 449
           Height = 25
           Top = 2
           Width = 135
@@ -249,7 +249,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
           AnchorSideLeft.Side = asrBottom
           AnchorSideTop.Control = BtnStopLoading
           AnchorSideTop.Side = asrBottom
-          Left = 418
+          Left = 449
           Height = 25
           Top = 29
           Width = 135