You've already forked lazarus-ccr
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
This commit is contained in:
wp_xxyyzz
@ -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
|
||||
|
||||
Reference in New Issue
Block a user