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

jvcllaz: Activate file info in JvThumbnail. Update demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6333 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-21 14:46:46 +00:00
parent 0c95b36891
commit fc5c3f8c5d
7 changed files with 431 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,7 +43,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Align = alTop
BackgroundColor = clDefault
Color = clDefault
FileSortType = fstNone
FileSortType = fstAlphabet
HideSelection = False
Images = DataModule1.ImageList1
ReadOnly = True
@ -63,6 +63,7 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
HideSelection = False
Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;'
ReadOnly = True
SortType = stText
TabOrder = 1
OnChange = ShellListViewChange
ObjectTypes = [otNonFolders]
@ -431,9 +432,9 @@ object JvThumbnailChildForm: TJvThumbnailChildForm
Constraints.MinWidth = 152
TabOrder = 2
OnClick = ThumbNailClick
ShadowColor = clSilver
TitleColor = clBtnFace
TitleFont.Color = clWindowText
ShadowColor = clSilver
end
object Panel1: TPanel
AnchorSideLeft.Control = ThumbNail