pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix issues of JvThumbnail demo in Linux (some left).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6334 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-21 17:26:53 +00:00
parent fc5c3f8c5d
commit f56f289b2d
3 changed files with 171 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

277
components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm
View File

@ -23,24 +23,28 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Top = 0 Top = 0
Width = 238 Width = 238
Align = alLeft Align = alLeft
BevelOuter = bvNone
ClientHeight = 600 ClientHeight = 600
ClientWidth = 238 ClientWidth = 238
TabOrder = 0 TabOrder = 0
object Splitter4: TSplitter object Splitter4: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 1 Left = 0
Height = 3 Height = 3
Top = 121 Top = 124
Width = 236 Width = 238
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
end end
object ShellTreeView: TShellTreeView object ShellTreeView: TShellTreeView
Left = 1 Left = 4
Height = 120 Height = 120
Top = 1 Top = 4
Width = 236 Width = 230
Align = alTop Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BackgroundColor = clDefault BackgroundColor = clDefault
Color = clDefault Color = clDefault
FileSortType = fstAlphabet FileSortType = fstAlphabet
@ -54,14 +58,16 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
ShellListView = ShellListView ShellListView = ShellListView
end end
object ShellListView: TShellListView object ShellListView: TShellListView
Left = 1 Left = 4
Height = 233 Height = 216
Top = 147 Top = 150
Width = 236 Width = 230
Align = alClient Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
Color = clDefault Color = clDefault
HideSelection = False HideSelection = False
Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;' Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG'
ReadOnly = True ReadOnly = True
SortType = stText SortType = stText
TabOrder = 1 TabOrder = 1
@ -70,67 +76,64 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
ShellTreeView = ShellTreeView ShellTreeView = ShellTreeView
end end
object Panel8: TPanel object Panel8: TPanel
Left = 1 Left = 0
Height = 219 Height = 234
Top = 380 Top = 366
Width = 236 Width = 238
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 219 ClientHeight = 234
ClientWidth = 236 ClientWidth = 238
TabOrder = 2 TabOrder = 2
OnResize = Panel8Resize OnResize = Panel8Resize
object LblRed: TLabel object LblRed: TLabel
Left = 0 Left = 4
Height = 13 Height = 15
Top = 4 Top = 4
Width = 236 Width = 230
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'RED' Caption = 'RED'
Color = clRed Color = clRed
Font.Color = clWhite Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Transparent = False Transparent = False
end end
object LblGreen: TLabel object LblGreen: TLabel
Left = 0 Left = 4
Height = 14 Height = 15
Top = 50 Top = 54
Width = 236 Width = 230
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'GREEN' Caption = 'GREEN'
Color = clLime Color = clLime
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Transparent = False Transparent = False
end end
object LblBlue: TLabel object LblBlue: TLabel
Left = 0 Left = 4
Height = 14 Height = 15
Top = 98 Top = 105
Width = 236 Width = 230
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'BLUE' Caption = 'BLUE'
Color = clBlue Color = clBlue
Font.Color = clWhite Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Transparent = False Transparent = False
@ -139,46 +142,37 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideLeft.Control = ContrastBar AnchorSideLeft.Control = ContrastBar
AnchorSideTop.Control = BlueBar AnchorSideTop.Control = BlueBar
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ContrastBar AnchorSideRight.Control = CenterBevel
AnchorSideRight.Side = asrBottom Left = 4
Left = 0 Height = 15
Height = 14 Top = 156
Top = 146 Width = 107
Width = 91
Alignment = taCenter Alignment = taCenter
AutoSize = False Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'CONTRAST' Caption = 'CONTRAST'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False ParentColor = False
ParentFont = False
end end
object LblLightness: TLabel object LblLightness: TLabel
AnchorSideLeft.Control = LightnessBar AnchorSideLeft.Control = LightnessBar
AnchorSideTop.Control = LblContrast AnchorSideTop.Control = LblContrast
AnchorSideRight.Control = LightnessBar AnchorSideRight.Control = LightnessBar
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 126 Left = 127
Height = 14 Height = 15
Top = 146 Top = 156
Width = 110 Width = 98
Alignment = taCenter Alignment = taCenter
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = False BorderSpacing.Right = 9
Caption = 'LIGHTNESS' Caption = 'LIGHTNESS'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False ParentColor = False
ParentFont = False
end end
object REDBar: TTrackBar object REDBar: TTrackBar
Left = 0 Left = 4
Height = 29 Height = 29
Top = 17 Top = 21
Width = 236 Width = 230
Frequency = 51 Frequency = 51
Max = 255 Max = 255
Min = -255 Min = -255
@ -186,13 +180,16 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Position = 0 Position = 0
TickStyle = tsNone TickStyle = tsNone
Align = alTop Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 0 TabOrder = 0
end end
object GreenBar: TTrackBar object GreenBar: TTrackBar
Left = 0 Left = 4
Height = 30 Height = 30
Top = 64 Top = 71
Width = 236 Width = 230
Frequency = 51 Frequency = 51
Max = 255 Max = 255
Min = -255 Min = -255
@ -200,13 +197,16 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Position = 0 Position = 0
TickStyle = tsNone TickStyle = tsNone
Align = alTop Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 1 TabOrder = 1
end end
object BlueBar: TTrackBar object BlueBar: TTrackBar
Left = 0 Left = 4
Height = 30 Height = 30
Top = 112 Top = 122
Width = 236 Width = 230
Frequency = 51 Frequency = 51
Max = 255 Max = 255
Min = -255 Min = -255
@ -214,17 +214,20 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Position = 0 Position = 0
TickStyle = tsNone TickStyle = tsNone
Align = alTop Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 2 TabOrder = 2
end end
object ContrastBar: TTrackBar object ContrastBar: TTrackBar
AnchorSideLeft.Control = Panel8 AnchorSideLeft.Control = Panel8
AnchorSideTop.Control = LblContrast AnchorSideTop.Control = LblContrast
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel2 AnchorSideRight.Control = CenterBevel
Left = 0 Left = 4
Height = 30 Height = 30
Top = 160 Top = 173
Width = 110 Width = 107
Frequency = 51 Frequency = 51
Max = 100 Max = 100
Min = -100 Min = -100
@ -232,6 +235,8 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Position = 0 Position = 0
TickStyle = tsNone TickStyle = tsNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 2
TabOrder = 3 TabOrder = 3
end end
object BtnApply: TButton object BtnApply: TButton
@ -242,9 +247,10 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 4 Left = 4
Height = 25 Height = 25
Top = 190 Top = 205
Width = 225 Width = 225
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4 BorderSpacing.Right = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'APPLY' Caption = 'APPLY'
@ -252,15 +258,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
TabOrder = 4 TabOrder = 4
end end
object LightnessBar: TTrackBar object LightnessBar: TTrackBar
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = CenterBevel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ContrastBar AnchorSideTop.Control = ContrastBar
AnchorSideRight.Control = Panel8 AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 126 Left = 127
Height = 30 Height = 30
Top = 160 Top = 175
Width = 110 Width = 107
Frequency = 51 Frequency = 51
Max = 100 Max = 100
Min = -100 Min = -100
@ -268,36 +274,44 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Position = 0 Position = 0
TickStyle = tsNone TickStyle = tsNone
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 5 TabOrder = 5
end end
object Bevel2: TBevel object CenterBevel: TBevel
AnchorSideLeft.Control = Panel8 AnchorSideLeft.Control = Panel8
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 110 Left = 111
Height = 36 Height = 196
Top = 0 Top = 0
Width = 16 Width = 16
Shape = bsSpacer Shape = bsSpacer
end end
end end
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 4
Height = 23 Height = 23
Top = 124 Top = 127
Width = 236 Width = 230
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel10' Caption = 'Panel10'
ClientHeight = 23 ClientHeight = 23
ClientWidth = 236 ClientWidth = 230
TabOrder = 3 TabOrder = 3
OnResize = Panel10Resize OnResize = Panel10Resize
object FilterComboBox: TFilterComboBox object FilterComboBox: TFilterComboBox
AnchorSideLeft.Control = Panel10
AnchorSideRight.Control = Panel10
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 23 Height = 23
Top = 0 Top = 0
Width = 235 Width = 230
Anchors = [akTop, akLeft, akRight]
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' 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 ItemIndex = 0
ShellListView = ShellListView ShellListView = ShellListView
@ -311,19 +325,21 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Top = 0 Top = 0
Width = 604 Width = 604
Align = alClient Align = alClient
BevelOuter = bvNone
ClientHeight = 600 ClientHeight = 600
ClientWidth = 604 ClientWidth = 604
TabOrder = 1 TabOrder = 1
object Panel5: TPanel object Panel5: TPanel
Left = 5 Left = 4
Height = 159 Height = 175
Top = 5 Top = 4
Width = 594 Width = 596
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 159 ClientHeight = 175
ClientWidth = 594 ClientWidth = 596
TabOrder = 0 TabOrder = 0
object GbThumbImage: TGroupBox object GbThumbImage: TGroupBox
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@ -331,14 +347,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideTop.Control = Panel5 AnchorSideTop.Control = Panel5
AnchorSideRight.Control = GbAngle AnchorSideRight.Control = GbAngle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 423 Left = 431
Height = 78 Height = 82
Top = 0 Top = 0
Width = 131 Width = 131
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'THUMBIMAGE' Caption = 'THUMBIMAGE'
ClientHeight = 58 ClientHeight = 62
ClientWidth = 127 ClientWidth = 127
TabOrder = 0 TabOrder = 0
object BtnInvert: TButton object BtnInvert: TButton
@ -385,15 +402,15 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1 AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 423 Left = 431
Height = 73 Height = 81
Top = 86 Top = 94
Width = 131 Width = 131
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = ' ThumbImage Angle ' Caption = ' ThumbImage Angle '
ChildSizing.LeftRightSpacing = 16 ChildSizing.LeftRightSpacing = 16
@ -403,7 +420,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 53 ClientHeight = 61
ClientWidth = 127 ClientWidth = 127
Columns = 2 Columns = 2
Items.Strings = ( Items.Strings = (
@ -421,13 +438,13 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideBottom.Control = Panel5 AnchorSideBottom.Control = Panel5
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 2 Left = 2
Height = 159 Height = 175
Top = 0 Top = 0
Width = 152 Width = 152
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ClientHeight = 159 ClientHeight = 175
ClientWidth = 152 ClientWidth = 152
Constraints.MinWidth = 152 Constraints.MinWidth = 152
TabOrder = 2 TabOrder = 2
@ -440,15 +457,16 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideLeft.Control = ThumbNail AnchorSideLeft.Control = ThumbNail
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ThumbNail AnchorSideTop.Control = ThumbNail
AnchorSideBottom.Side = asrBottom
Left = 162 Left = 162
Height = 159 Height = 175
Top = 0 Top = 0
Width = 253 Width = 261
AutoSize = True AutoSize = True
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 159 ClientHeight = 175
ClientWidth = 253 ClientWidth = 261
TabOrder = 3 TabOrder = 3
object CbAsButton: TCheckBox object CbAsButton: TCheckBox
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@ -510,27 +528,27 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 136 Left = 136
Height = 58 Height = 70
Hint = 'The position of the thumbnail''s title' Hint = 'The position of the thumbnail''s title'
Top = 11 Top = 11
Width = 107 Width = 115
AutoFill = True AutoFill = False
AutoSize = True AutoSize = True
BorderSpacing.Top = 9 BorderSpacing.Top = 9
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.InnerBorder = 4
Caption = ' Title Placement ' Caption = ' Title Placement '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 16
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.VerticalSpacing = 4
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 38 ClientHeight = 50
ClientWidth = 103 ClientWidth = 111
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'T_UP' 'T_Up'
'T_Down' 'T_Down'
) )
OnClick = GbTitlePlacementClick OnClick = GbTitlePlacementClick
@ -546,8 +564,8 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 136 Left = 136
Height = 25 Height = 25
Top = 77 Top = 89
Width = 107 Width = 115
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'EXIT' Caption = 'EXIT'
@ -564,12 +582,11 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Left = 10 Left = 10
Height = 23 Height = 23
Hint = 'You can set the thumbnails title to what ever you want it to be ' Hint = 'You can set the thumbnails title to what ever you want it to be '
Top = 126 Top = 142
Width = 233 Width = 241
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
TabOrder = 5 TabOrder = 5
Text = 'EdThumbTitle'
end end
object LblThumbTitle: TLabel object LblThumbTitle: TLabel
AnchorSideLeft.Control = CbAsButton AnchorSideLeft.Control = CbAsButton
@ -578,18 +595,20 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Left = 10 Left = 10
Height = 15 Height = 15
Hint = 'You can set the thumbnails title to what ever you want it to be ' Hint = 'You can set the thumbnails title to what ever you want it to be '
Top = 107 Top = 123
Width = 89 Width = 89
BorderSpacing.Top = 5 BorderSpacing.Top = 9
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
Caption = 'Thumbnails Title' Caption = 'Thumbnails Title'
ParentColor = False ParentColor = False
end end
object SpinEdit1: TSpinEdit object SpinEdit1: TSpinEdit
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = BtnExit
AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 23 Height = 23
Top = 80 Top = 90
Width = 86 Width = 86
BorderSpacing.Left = 8 BorderSpacing.Left = 8
OnChange = SpinEdit1Change OnChange = SpinEdit1Change
@ -598,15 +617,16 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 5 AnchorSideTop.Side = asrBottom
Height = 427 Left = 4
Top = 168 Height = 413
Width = 594 Top = 183
Width = 596
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 427 ClientHeight = 413
ClientWidth = 594 ClientWidth = 596
TabOrder = 1 TabOrder = 1
OnResize = Panel2Resize OnResize = Panel2Resize
object ThumbImage: TJvThumbImage object ThumbImage: TJvThumbImage
@ -618,10 +638,9 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
AnchorSideBottom.Control = Panel7 AnchorSideBottom.Control = Panel7
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 360 Height = 378
Top = 0 Top = 0
Width = 525 Width = 554
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4

23
components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas
View File

@ -40,7 +40,7 @@ type
{ TJvThumbnailChildForm } { TJvThumbnailChildForm }
TJvThumbnailChildForm = class(TForm) TJvThumbnailChildForm = class(TForm)
Bevel2: TBevel; CenterBevel: TBevel;
Panel1: TPanel; Panel1: TPanel;
Panel2: TPanel; Panel2: TPanel;
SpinEdit1: TSpinEdit; SpinEdit1: TSpinEdit;
@ -167,6 +167,7 @@ begin
Node.ImageIndex := 0 Node.ImageIndex := 0
else else
Node.ImageIndex := 1; Node.ImageIndex := 1;
Node.SelectedIndex := Node.ImageIndex;
end; end;
procedure TJvThumbnailChildForm.SpinEdit1Change(Sender: TObject); procedure TJvThumbnailChildForm.SpinEdit1Change(Sender: TObject);
@ -176,23 +177,35 @@ end;
procedure TJvThumbnailChildForm.ThumbImageMouseDown(Sender: TObject; procedure TJvThumbnailChildForm.ThumbImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
W, H: Integer;
begin begin
FMousePt := Point(X, Y); FMousePt := Point(X, Y);
ThumbImage.Cursor := crDrag; W := ThumbImage.Parent.Width;
H := ThumbImage.Parent.Height;
if (ThumbImage.Width > W) or (ThumbImage.Height > H) then
ThumbImage.Cursor := crDrag;
end; end;
procedure TJvThumbnailChildForm.ThumbImageMouseMove(Sender: TObject; procedure TJvThumbnailChildForm.ThumbImageMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
var var
L, T: Integer; L, T: Integer;
W, H: Integer;
begin begin
if ssLeft in Shift then begin if ssLeft in Shift then begin
W := ThumbImage.Parent.Width;
H := ThumbImage.Parent.Height;
if (ThumbImage.Width <= W) and (ThumbImage.Height <= H) then
exit;
L := ThumbImage.Left + (X - FMousePt.X); L := ThumbImage.Left + (X - FMousePt.X);
T := ThumbImage.Top + (Y - FMousePt.Y); T := ThumbImage.Top + (Y - FMousePt.Y);
if L > 0 then L := 0; {
if L < 0 then L := 0;
if T > 0 then T := 0; if T > 0 then T := 0;
if L + ThumbImage.Width < Width then L := Width - ThumbImage.Width; if L + ThumbImage.Width > W then L := W - ThumbImage.Width;
if T + ThumbImage.Height < Height then T := Height - ThumbImage.Height; if T + ThumbImage.Height > H then T := H - ThumbImage.Height;
}
ThumbImage.SetBounds(L, T, ThumbImage.Width, ThumbImage.Height); ThumbImage.SetBounds(L, T, ThumbImage.Width, ThumbImage.Height);
end; end;
end; end;

5
components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.pas
View File

@ -307,6 +307,11 @@ var
begin begin
F := TJvThumbnailChildForm.Create(Self); F := TJvThumbnailChildForm.Create(Self);
try try
F.ShellListView.Mask := GraphicFileMask(TCustomBitmap);
{$IFNDEF Windows}
F.ShellListView.Mask := Uppercase(F.ShellListView.Mask)+';'+Lowercase(F.ShellListView.Mask);
// ShellListView, by default, has an uppercase Mask which is usually not good for Linux.
{$ENDIF}
F.ShelLTreeView.Path := ShellTreeView.Path; F.ShelLTreeView.Path := ShellTreeView.Path;
if Sender is TJvThumbView then if Sender is TJvThumbView then
F.SetFileName(TJvThumbView(Sender).SelectedFile); F.SetFileName(TJvThumbView(Sender).SelectedFile);