jvcllaz: Extended Thumbnail demo with thumbnail and -title borders and image panning in child form.

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

components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm

@@ -1,28 +1,29 @@
 object JvThumbnailChildForm: TJvThumbnailChildForm
   Left = 367
-  Height = 529
+  Height = 600
   Top = 149
-  Width = 828
+  Width = 845
   Caption = 'JvThumbNail Demo'
-  ClientHeight = 529
-  ClientWidth = 828
+  ClientHeight = 600
+  ClientWidth = 845
   Color = clBtnFace
   Font.Color = clWindowText
+  OnCreate = FormCreate
   OnShow = FormShow
   LCLVersion = '1.9.0.0'
   object Splitter2: TSplitter
     Left = 238
-    Height = 529
+    Height = 600
     Top = 0
     Width = 3
   end
   object Panel6: TPanel
     Left = 0
-    Height = 529
+    Height = 600
     Top = 0
     Width = 238
     Align = alLeft
-    ClientHeight = 529
+    ClientHeight = 600
     ClientWidth = 238
     TabOrder = 0
     object Splitter4: TSplitter
@@ -54,7 +55,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
     end
     object ShellListView: TShellListView
       Left = 1
-      Height = 162
+      Height = 233
       Top = 147
       Width = 236
       Align = alClient
@@ -70,7 +71,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
     object Panel8: TPanel
       Left = 1
       Height = 219
-      Top = 309
+      Top = 380
       Width = 236
       Align = alBottom
       AutoSize = True
@@ -291,7 +292,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
       ClientWidth = 236
       TabOrder = 3
       OnResize = Panel10Resize
-      object FilterComboBox1: TFilterComboBox
+      object FilterComboBox: TFilterComboBox
         Left = 0
         Height = 23
         Top = 0
@@ -305,59 +306,39 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
   end
   object Panel7: TPanel
     Left = 241
-    Height = 529
+    Height = 600
     Top = 0
-    Width = 587
+    Width = 604
     Align = alClient
-    ClientHeight = 529
-    ClientWidth = 587
+    ClientHeight = 600
+    ClientWidth = 604
     TabOrder = 1
-    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 = 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 = 5
       Height = 159
       Top = 5
-      Width = 577
+      Width = 594
       Align = alTop
       BorderSpacing.Around = 4
       BevelOuter = bvNone
       ClientHeight = 159
-      ClientWidth = 577
+      ClientWidth = 594
       TabOrder = 0
       object GbThumbImage: TGroupBox
         AnchorSideLeft.Control = Panel1
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = Panel5
+        AnchorSideRight.Control = GbAngle
         AnchorSideRight.Side = asrBottom
-        Left = 430
+        Left = 423
         Height = 78
         Top = 0
-        Width = 127
+        Width = 131
         Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Left = 8
-        BorderSpacing.Right = 8
         Caption = 'THUMBIMAGE'
         ClientHeight = 58
-        ClientWidth = 123
+        ClientWidth = 127
         TabOrder = 0
         object BtnInvert: TButton
           AnchorSideLeft.Control = GbThumbImage
@@ -367,7 +348,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
           Left = 8
           Height = 25
           Top = 0
-          Width = 107
+          Width = 111
           Anchors = [akTop, akLeft, akRight]
           AutoSize = True
           BorderSpacing.Left = 8
@@ -376,7 +357,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
           OnClick = BtnInvertClick
           TabOrder = 0
         end
-        object Button5: TButton
+        object BtnGrayScale: TButton
           AnchorSideLeft.Control = BtnInvert
           AnchorSideTop.Control = BtnInvert
           AnchorSideTop.Side = asrBottom
@@ -385,34 +366,36 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
           Left = 8
           Height = 25
           Top = 29
-          Width = 107
+          Width = 111
           Anchors = [akTop, akLeft, akRight]
           AutoSize = True
           BorderSpacing.Top = 4
           BorderSpacing.Bottom = 8
           Caption = 'GRAYSCALE'
-          OnClick = Button5Click
+          OnClick = BtnGrayScaleClick
           TabOrder = 1
         end
       end
       object GbAngle: TRadioGroup
-        AnchorSideLeft.Control = GbThumbImage
+        AnchorSideLeft.Control = Panel1
+        AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = GbThumbImage
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Side = asrBottom
         AnchorSideBottom.Control = Panel1
         AnchorSideBottom.Side = asrBottom
-        Left = 430
+        Left = 423
         Height = 73
         Top = 86
         Width = 131
         Anchors = [akTop, akLeft, akBottom]
         AutoFill = True
         AutoSize = True
+        BorderSpacing.Left = 8
         BorderSpacing.Top = 8
         BorderSpacing.Right = 8
         Caption = ' ThumbImage Angle '
-        ChildSizing.LeftRightSpacing = 6
+        ChildSizing.LeftRightSpacing = 16
         ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
         ChildSizing.EnlargeVertical = crsHomogenousChildResize
         ChildSizing.ShrinkHorizontal = crsScaleChilds
@@ -432,14 +415,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         TabOrder = 1
       end
       object ThumbNail: TJvThumbnail
+        AnchorSideLeft.Control = Panel5
         AnchorSideTop.Control = Panel5
         AnchorSideBottom.Control = Panel5
         AnchorSideBottom.Side = asrBottom
-        Left = 9
+        Left = 2
         Height = 159
         Top = 0
         Width = 152
-        Anchors = [akTop, akBottom]
+        Anchors = [akTop, akLeft, akBottom]
         BorderSpacing.Left = 2
         BorderSpacing.Right = 8
         ClientHeight = 159
@@ -455,7 +439,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
         AnchorSideLeft.Control = ThumbNail
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = ThumbNail
-        Left = 169
+        Left = 162
         Height = 159
         Top = 0
         Width = 253
@@ -601,14 +585,52 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
           ParentColor = False
         end
         object SpinEdit1: TSpinEdit
-          Left = 2
+          AnchorSideLeft.Control = Panel1
+          Left = 10
           Height = 23
           Top = 80
           Width = 86
+          BorderSpacing.Left = 8
           OnChange = SpinEdit1Change
           TabOrder = 6
         end
       end
     end
+    object Panel2: TPanel
+      Left = 5
+      Height = 427
+      Top = 168
+      Width = 594
+      Align = alClient
+      BorderSpacing.Around = 4
+      BevelOuter = bvNone
+      ClientHeight = 427
+      ClientWidth = 594
+      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 = 360
+        Top = 0
+        Width = 525
+        Anchors = [akTop, akLeft, akRight, akBottom]
+        AutoSize = True
+        BorderSpacing.Top = 8
+        BorderSpacing.Bottom = 4
+        OnMouseDown = ThumbImageMouseDown
+        OnMouseMove = ThumbImageMouseMove
+        OnMouseUp = ThumbImageMouseUp
+        IgnoreMouse = False
+        Angle = AT0
+        Zoom = 0
+      end
+    end
   end
 end