From 43965baf7049879285b29eeb2fa88a171beac144 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 23 Mar 2018 19:44:39 +0000 Subject: [PATCH] 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 --- .../JvThumbnail/JvThumbnailChildFormU.lfm | 518 +++++++++++------- .../JvThumbnail/JvThumbnailChildFormU.pas | 69 +-- .../examples/JvThumbnail/JvThumbnailDemo.lpi | 1 + .../JvThumbnail/JvThumbnailMainFormU.lfm | 16 +- 4 files changed, 379 insertions(+), 225 deletions(-) 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