pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
master
lazarus-ccr/components/jvcllaz/examples/JvThumbnail/JvThumbnailChildFormU.lfm

674 lines
19 KiB
Plaintext
Raw Permalink Blame History

object JvThumbnailChildForm: TJvThumbnailChildForm
Left = 367
Height = 600
Top = 149
Width = 845
Caption = 'JvThumbNail Demo'
ClientHeight = 600
ClientWidth = 845
Color = clBtnFace
Font.Color = clWindowText
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.9.0.0'
object Splitter2: TSplitter
Left = 238
Height = 600
Top = 0
Width = 3
end
object Panel6: TPanel
Left = 0
Height = 600
Top = 0
Width = 238
Align = alLeft
BevelOuter = bvNone
ClientHeight = 600
ClientWidth = 238
TabOrder = 0
object Splitter4: TSplitter
Cursor = crVSplit
Left = 0
Height = 3
Top = 149
Width = 238
Align = alTop
ResizeAnchor = akTop
end
object ShellTreeView: TShellTreeView
Left = 4
Height = 145
Top = 4
Width = 230
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BackgroundColor = clDefault
Color = clDefault
FileSortType = fstAlphabet
HideSelection = False
Images = DataModule1.ImageList1
ReadOnly = True
TabOrder = 0
OnGetImageIndex = ShellTreeViewGetImageIndex
OnGetSelectedIndex = ShellTreeViewGetSelectedIndex
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
ShellListView = ShellListView
end
object ShellListView: TShellListView
Left = 4
Height = 191
Top = 175
Width = 230
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
Color = clDefault
HideSelection = False
Mask = '*.ico;*.bmp;*.jpg;*.jpeg;*.png'
ReadOnly = True
SortType = stText
TabOrder = 1
OnChange = ShellListViewChange
ObjectTypes = [otNonFolders]
ShellTreeView = ShellTreeView
end
object Panel8: TPanel
Left = 0
Height = 234
Top = 366
Width = 238
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 234
ClientWidth = 238
TabOrder = 2
OnResize = Panel8Resize
object LblRed: TLabel
Left = 4
Height = 15
Top = 4
Width = 230
Align = alTop
Alignment = taCenter
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'RED'
Color = clRed
Font.Color = clWhite
ParentColor = False
ParentFont = False
Transparent = False
end
object LblGreen: TLabel
Left = 4
Height = 15
Top = 54
Width = 230
Align = alTop
Alignment = taCenter
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'GREEN'
Color = clLime
Font.Color = clBlack
ParentColor = False
ParentFont = False
Transparent = False
end
object LblBlue: TLabel
Left = 4
Height = 15
Top = 105
Width = 230
Align = alTop
Alignment = taCenter
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
Caption = 'BLUE'
Color = clBlue
Font.Color = clWhite
ParentColor = False
ParentFont = False
Transparent = False
end
object LblContrast: TLabel
AnchorSideLeft.Control = ContrastBar
AnchorSideTop.Control = BlueBar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CenterBevel
Left = 4
Height = 15
Top = 156
Width = 107
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
Caption = 'CONTRAST'
ParentColor = False
end
object LblLightness: TLabel
AnchorSideLeft.Control = LightnessBar
AnchorSideTop.Control = LblContrast
AnchorSideRight.Control = LightnessBar
AnchorSideRight.Side = asrBottom
Left = 127
Height = 15
Top = 156
Width = 98
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 9
Caption = 'LIGHTNESS'
ParentColor = False
end
object REDBar: TTrackBar
Left = 4
Height = 29
Top = 21
Width = 230
Frequency = 51
Max = 255
Min = -255
PageSize = 20
Position = 0
TickStyle = tsNone
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 0
end
object GreenBar: TTrackBar
Left = 4
Height = 30
Top = 71
Width = 230
Frequency = 51
Max = 255
Min = -255
PageSize = 20
Position = 0
TickStyle = tsNone
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 1
end
object BlueBar: TTrackBar
Left = 4
Height = 30
Top = 122
Width = 230
Frequency = 51
Max = 255
Min = -255
PageSize = 20
Position = 0
TickStyle = tsNone
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 2
end
object ContrastBar: TTrackBar
AnchorSideLeft.Control = Panel8
AnchorSideTop.Control = LblContrast
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CenterBevel
Left = 4
Height = 30
Top = 173
Width = 107
Frequency = 51
Max = 100
Min = -100
PageSize = 20
Position = 0
TickStyle = tsNone
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 2
TabOrder = 3
end
object BtnApply: TButton
AnchorSideLeft.Control = Panel8
AnchorSideTop.Control = ContrastBar
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CenterBevel
Left = 4
Height = 25
Top = 205
Width = 107
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 2
BorderSpacing.Bottom = 4
Caption = 'APPLY'
OnClick = BtnApplyClick
TabOrder = 4
end
object LightnessBar: TTrackBar
AnchorSideLeft.Control = CenterBevel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ContrastBar
AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom
Left = 127
Height = 30
Top = 175
Width = 107
Frequency = 51
Max = 100
Min = -100
PageSize = 20
Position = 0
TickStyle = tsNone
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 4
TabOrder = 5
end
object CenterBevel: TBevel
AnchorSideLeft.Control = Panel8
AnchorSideLeft.Side = asrCenter
Left = 111
Height = 196
Top = 0
Width = 16
Shape = bsSpacer
end
object BtnSave: TButton
AnchorSideLeft.Control = CenterBevel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnApply
AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom
Left = 127
Height = 25
Top = 205
Width = 107
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 4
Caption = 'SAVE'
OnClick = BtnSaveClick
TabOrder = 6
end
end
object Panel10: TPanel
Left = 4
Height = 23
Top = 152
Width = 230
Align = alTop
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BevelOuter = bvNone
Caption = 'Panel10'
ClientHeight = 23
ClientWidth = 230
TabOrder = 3
OnResize = Panel10Resize
object FilterComboBox: TFilterComboBox
AnchorSideLeft.Control = Panel10
AnchorSideRight.Control = Panel10
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 0
Width = 230
Anchors = [akTop, akLeft, akRight]
Filter = 'All Known Formats|*.ico;*.bmp;*.jpg;*.jpeg;*.png|All Files (*.*)|*.*|JPEG Files|*.jpg;*.jpeg;|BMP Files|*.bmp|PNG Files|*.png|ICONS|*.ico'
ItemIndex = 0
ShellListView = ShellListView
TabOrder = 0
end
end
end
object Panel7: TPanel
Left = 241
Height = 600
Top = 0
Width = 604
Align = alClient
BevelOuter = bvNone
ClientHeight = 600
ClientWidth = 604
TabOrder = 1
object Panel5: TPanel
Left = 4
Height = 175
Top = 4
Width = 596
Align = alTop
AutoSize = True
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 175
ClientWidth = 596
TabOrder = 0
object GbThumbImage: TGroupBox
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel5
AnchorSideRight.Side = asrBottom
Left = 431
Height = 117
Top = 0
Width = 131
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
Caption = 'THUMBIMAGE'
ClientHeight = 97
ClientWidth = 127
TabOrder = 0
object BtnInvert: TButton
AnchorSideLeft.Control = GbThumbImage
AnchorSideTop.Control = GbThumbImage
AnchorSideRight.Control = GbThumbImage
AnchorSideRight.Side = asrBottom
Left = 8
Height = 25
Top = 0
Width = 111
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'INVERT'
OnClick = BtnInvertClick
TabOrder = 0
end
object BtnGrayScale: TButton
AnchorSideLeft.Control = BtnInvert
AnchorSideTop.Control = BtnInvert
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnInvert
AnchorSideRight.Side = asrBottom
Left = 8
Height = 25
Top = 29
Width = 111
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Caption = 'GRAYSCALE'
OnClick = BtnGrayScaleClick
TabOrder = 1
end
object CbTransform: TComboBox
AnchorSideLeft.Control = BtnInvert
AnchorSideTop.Control = BtnGrayScale
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnInvert
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 62
Width = 111
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 12
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Rotate by 0°'
'Rotate by 90°'
'Rotate by 180°'
'Rotate by 270°'
'Mirror horizontally'
'Mirror vertically'
)
OnChange = CbTransformChange
Style = csDropDownList
TabOrder = 2
Text = 'Rotate by 0°'
end
end
object ThumbNail: TJvThumbnail
AnchorSideLeft.Control = Panel5
AnchorSideTop.Control = Panel5
AnchorSideBottom.Control = Panel5
AnchorSideBottom.Side = asrBottom
Left = 2
Height = 175
Top = 0
Width = 152
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 2
BorderSpacing.Right = 8
ClientHeight = 175
ClientWidth = 152
Constraints.MinWidth = 152
TabOrder = 1
OnClick = ThumbNailClick
ShadowColor = clSilver
TitleColor = clBtnFace
TitleFont.Color = clWindowText
end
object Panel1: TPanel
AnchorSideLeft.Control = ThumbNail
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ThumbNail
AnchorSideBottom.Side = asrBottom
Left = 162
Height = 175
Top = 0
Width = 261
AutoSize = True
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 175
ClientWidth = 261
TabOrder = 2
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 = 70
Hint = 'The position of the thumbnail''s title'
Top = 11
Width = 115
AutoFill = False
AutoSize = True
BorderSpacing.Top = 9
BorderSpacing.Right = 8
BorderSpacing.InnerBorder = 4
Caption = ' Title Placement '
ChildSizing.LeftRightSpacing = 16
ChildSizing.VerticalSpacing = 4
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 50
ClientWidth = 111
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 = 89
Width = 115
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 = 142
Width = 241
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 8
TabOrder = 5
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 = 123
Width = 84
BorderSpacing.Top = 9
BorderSpacing.Bottom = 4
Caption = 'Thumbnail Title'
ParentColor = False
end
object SpinEdit1: TSpinEdit
AnchorSideLeft.Control = LblMargin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnExit
AnchorSideTop.Side = asrCenter
Left = 60
Height = 23
Top = 90
Width = 60
BorderSpacing.Left = 12
OnChange = SpinEdit1Change
TabOrder = 6
end
object LblMargin: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = BtnExit
AnchorSideTop.Side = asrCenter
Left = 10
Height = 15
Top = 94
Width = 38
BorderSpacing.Left = 8
Caption = 'Margin'
ParentColor = False
end
end
end
object Panel2: TPanel
AnchorSideTop.Side = asrBottom
Left = 4
Height = 413
Top = 183
Width = 596
Align = alClient
BorderSpacing.Around = 4
BevelOuter = bvNone
ClientHeight = 413
ClientWidth = 596
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 = 378
Top = 0
Width = 554
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Bottom = 4
OnMouseDown = ThumbImageMouseDown
OnMouseMove = ThumbImageMouseMove
OnMouseUp = ThumbImageMouseUp
IgnoreMouse = False
Angle = AT0
Zoom = 0
end
end
end
end
Reference in New Issue View Git Blame Copy Permalink