diff --git a/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm b/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm
index ee536e1a2..180c42be3 100644
--- a/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm
+++ b/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
- Top = 315
+ Height = 219
+ Top = 309
Width = 236
Align = alBottom
+ AutoSize = True
BevelOuter = bvNone
- ClientHeight = 213
+ ClientHeight = 219
ClientWidth = 236
TabOrder = 2
OnResize = Panel8Resize
- object Label6: TLabel
- Left = 8
+ object LblRed: TLabel
+ Left = 0
Height = 13
- Top = 0
- Width = 226
+ Top = 4
+ 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
- Left = 8
+ object LblGreen: TLabel
+ Left = 0
Height = 14
- Top = 45
- Width = 226
+ Top = 50
+ 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
- Left = 7
+ object LblBlue: TLabel
+ Left = 0
Height = 14
- Top = 89
- Width = 226
+ Top = 98
+ 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
- Left = 6
+ object LblContrast: TLabel
+ 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
- Left = 134
+ object LblLightness: TLabel
+ AnchorSideLeft.Control = LightnessBar
+ AnchorSideTop.Control = LblContrast
+ AnchorSideRight.Control = LightnessBar
+ AnchorSideRight.Side = asrBottom
+ Left = 126
Height = 14
- Top = 137
- Width = 91
+ Top = 146
+ 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
- Width = 241
+ Top = 17
+ 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
- Width = 241
+ Top = 64
+ 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
- Width = 241
+ Top = 112
+ Width = 236
Frequency = 51
Max = 255
Min = -255
PageSize = 20
Position = 0
TickStyle = tsNone
+ Align = alTop
TabOrder = 2
end
- object contrastBar: TTrackBar
- Left = -1
+ object ContrastBar: TTrackBar
+ AnchorSideLeft.Control = Panel8
+ AnchorSideTop.Control = LblContrast
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = Bevel2
+ Left = 0
Height = 30
- Top = 152
- Width = 106
+ Top = 160
+ Width = 110
Frequency = 51
Max = 100
Min = -100
PageSize = 20
Position = 0
TickStyle = tsNone
+ Anchors = [akTop, akLeft, akRight]
TabOrder = 3
end
- object Button2: TButton
- Left = 8
+ object BtnApply: TButton
+ 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
- Width = 106
+ Top = 160
+ 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
- Left = 1
- Height = 376
- Top = 144
- Width = 518
+ 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 = 1
- Height = 144
- Top = 1
- Width = 527
+ Left = 5
+ Height = 159
+ Top = 5
+ Width = 577
Align = alTop
- ClientHeight = 144
- ClientWidth = 527
+ AutoSize = True
+ BorderSpacing.Around = 4
+ BevelOuter = bvNone
+ ClientHeight = 159
+ ClientWidth = 577
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
+ object GbThumbImage: TGroupBox
+ AnchorSideLeft.Control = Panel1
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideTop.Control = Panel5
+ AnchorSideRight.Side = asrBottom
+ Left = 430
+ Height = 78
Top = 0
- Width = 125
+ Width = 127
+ Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Left = 8
+ BorderSpacing.Right = 8
Caption = 'THUMBIMAGE'
- ClientHeight = 55
- ClientWidth = 121
- TabOrder = 5
+ ClientHeight = 58
+ ClientWidth = 123
+ 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
- Width = 108
+ Top = 29
+ 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
- Height = 60
- Top = 81
- Width = 125
+ AnchorSideLeft.Control = GbThumbImage
+ AnchorSideTop.Control = GbThumbImage
+ AnchorSideTop.Side = asrBottom
+ 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
- ClientWidth = 121
+ ClientHeight = 53
+ 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
- Left = 1
- Height = 142
- Top = 1
- Width = 154
- ClientHeight = 119
- ClientWidth = 146
- TabOrder = 8
- OnClick = ThumbNail1Click
+ object ThumbNail: TJvThumbnail
+ AnchorSideTop.Control = Panel5
+ AnchorSideBottom.Control = Panel5
+ AnchorSideBottom.Side = asrBottom
+ Left = 9
+ Height = 159
+ Top = 0
+ Width = 152
+ 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
diff --git a/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas b/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas
index 86db0fdcf..47ee6917d 100644
--- a/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.pas
+++ b/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;
- Label7: TLabel;
- Label8: TLabel;
- Label9: TLabel;
+ LblRed: TLabel;
+ LblGreen: TLabel;
+ LblBlue: TLabel;
+ LblContrast: TLabel;
REDBar: TTrackBar;
GreenBar: TTrackBar;
BlueBar: TTrackBar;
- contrastBar: TTrackBar;
- Button2: TButton;
+ ContrastBar: TTrackBar;
+ BtnApply: TButton;
Panel10: TPanel;
FilterComboBox1: TFilterComboBox;
Panel7: TPanel;
Panel5: TPanel;
- Label5: TLabel;
- Bevel1: TBevel;
+ LblThumbTitle: TLabel;
CbAsButton: TCheckBox;
CbAutoLoad: TCheckBox;
CbMinimizeMem: TCheckBox;
GbTitlePlacement: TRadioGroup;
- Edit1: TEdit;
- GroupBox1: TGroupBox;
+ EdThumbTitle: TEdit;
+ GbThumbImage: TGroupBox;
BtnInvert: TButton;
Button5: TButton;
- Label1: TLabel;
+ LblLightness: TLabel;
LightnessBar: TTrackBar;
BtnExit: TButton;
GbAngle: TRadioGroup;
- ThumbNail1: TJVThumbNail;
- ThumbImage1: TJvThumbImage;
- procedure Button2Click(Sender: TObject);
+ ThumbNail: TJVThumbNail;
+ ThumbImage: TJvThumbImage;
+ 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);
- ThumbImage1.Contrast(contrastbar.Position);
- ThumbImage1.Lightness(LightnessBar.Position);
+ ThumbImage.ChangeRGB(redbar.Position,greenbar.Position,bluebar.Position);
+ ThumbImage.Contrast(ContrastBar.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;
- ThumbImage1.Loadfromfile(fn);
+ ThumbNail.FileName := 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
- thumbimage1.Loadfromfile(thumbnail1.FileName);
+ if ThumbNail.FileName<>'' then
+ ThumbImage.Loadfromfile(ThumbNail.FileName);
end;
procedure TJvThumbnailChildForm.Panel10Resize(Sender: TObject);
@@ -185,14 +186,14 @@ end;
procedure TJvThumbnailChildForm.FormShow(Sender: TObject);
begin
- //thumbimage1.Picture.Free;
- GbTitlePlacement.ItemIndex := integer(thumbnail1.titlePlacement);
- GbAngle.ItemIndex := integer(thumbimage1.angle);
+ //ThumbImage.Picture.Free;
+ GbTitlePlacement.ItemIndex := integer(ThumbNail.titlePlacement);
+ 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;
diff --git a/components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi b/components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi
index 6b5107536..d462f09f8 100644
--- a/components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi
+++ b/components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi
@@ -56,6 +56,7 @@
+
diff --git a/components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm b/components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm
index 27f3901cb..d5bb88d77 100644
--- a/components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm
+++ b/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