480 lines
12 KiB
Plaintext
480 lines
12 KiB
Plaintext
|
object JvThumbnailChildForm: TJvThumbnailChildForm
|
||
|
|
Left = 367
|
||
|
|
Top = 176
|
||
|
|
Width = 770
|
||
|
|
Height = 502
|
||
|
|
Caption = 'JvThumbNail Demo'
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = True
|
||
|
|
OnShow = FormShow
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object Splitter2: TSplitter
|
||
|
|
Left = 238
|
||
|
|
Top = 0
|
||
|
|
Width = 3
|
||
|
|
Height = 475
|
||
|
|
Cursor = crHSplit
|
||
|
|
end
|
||
|
|
object Panel6: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 238
|
||
|
|
Height = 475
|
||
|
|
Align = alLeft
|
||
|
|
TabOrder = 0
|
||
|
|
OnResize = Panel6Resize
|
||
|
|
object Splitter4: TSplitter
|
||
|
|
Left = 1
|
||
|
|
Top = 138
|
||
|
|
Width = 236
|
||
|
|
Height = 3
|
||
|
|
Cursor = crVSplit
|
||
|
|
Align = alTop
|
||
|
|
end
|
||
|
|
object DirectoryListBox2: TDirectoryListBox
|
||
|
|
Left = 1
|
||
|
|
Top = 22
|
||
|
|
Width = 236
|
||
|
|
Height = 116
|
||
|
|
Align = alTop
|
||
|
|
FileList = FileListBox1
|
||
|
|
ItemHeight = 16
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object FileListBox1: TFileListBox
|
||
|
|
Left = 1
|
||
|
|
Top = 164
|
||
|
|
Width = 236
|
||
|
|
Height = 97
|
||
|
|
Align = alClient
|
||
|
|
ItemHeight = 13
|
||
|
|
Mask = '*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;'
|
||
|
|
TabOrder = 1
|
||
|
|
OnChange = FileListBox1Change
|
||
|
|
end
|
||
|
|
object Panel8: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 261
|
||
|
|
Width = 236
|
||
|
|
Height = 213
|
||
|
|
Align = alBottom
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 2
|
||
|
|
OnResize = Panel8Resize
|
||
|
|
object Label6: TLabel
|
||
|
|
Left = 8
|
||
|
|
Top = 0
|
||
|
|
Width = 226
|
||
|
|
Height = 13
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'RED'
|
||
|
|
Color = clRed
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clBlack
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
end
|
||
|
|
object Label7: TLabel
|
||
|
|
Left = 8
|
||
|
|
Top = 45
|
||
|
|
Width = 226
|
||
|
|
Height = 14
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'GREEN'
|
||
|
|
Color = clLime
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clBlack
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
end
|
||
|
|
object Label8: TLabel
|
||
|
|
Left = 7
|
||
|
|
Top = 89
|
||
|
|
Width = 226
|
||
|
|
Height = 14
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'BLUE'
|
||
|
|
Color = clBlue
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clBlack
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
end
|
||
|
|
object Label9: TLabel
|
||
|
|
Left = 6
|
||
|
|
Top = 137
|
||
|
|
Width = 91
|
||
|
|
Height = 14
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'CONTRAST'
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clBlack
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
Transparent = True
|
||
|
|
end
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 134
|
||
|
|
Top = 137
|
||
|
|
Width = 91
|
||
|
|
Height = 14
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'LIGHTNESS'
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clBlack
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
Transparent = True
|
||
|
|
end
|
||
|
|
object REDBar: TTrackBar
|
||
|
|
Left = 0
|
||
|
|
Top = 13
|
||
|
|
Width = 241
|
||
|
|
Height = 29
|
||
|
|
Max = 255
|
||
|
|
Min = -255
|
||
|
|
Orientation = trHorizontal
|
||
|
|
PageSize = 20
|
||
|
|
Frequency = 51
|
||
|
|
Position = 0
|
||
|
|
SelEnd = 0
|
||
|
|
SelStart = 0
|
||
|
|
TabOrder = 0
|
||
|
|
TickMarks = tmBottomRight
|
||
|
|
TickStyle = tsNone
|
||
|
|
end
|
||
|
|
object GreenBar: TTrackBar
|
||
|
|
Left = 0
|
||
|
|
Top = 59
|
||
|
|
Width = 241
|
||
|
|
Height = 30
|
||
|
|
Max = 255
|
||
|
|
Min = -255
|
||
|
|
Orientation = trHorizontal
|
||
|
|
PageSize = 20
|
||
|
|
Frequency = 51
|
||
|
|
Position = 0
|
||
|
|
SelEnd = 0
|
||
|
|
SelStart = 0
|
||
|
|
TabOrder = 1
|
||
|
|
TickMarks = tmBottomRight
|
||
|
|
TickStyle = tsNone
|
||
|
|
end
|
||
|
|
object BlueBar: TTrackBar
|
||
|
|
Left = -1
|
||
|
|
Top = 107
|
||
|
|
Width = 241
|
||
|
|
Height = 30
|
||
|
|
Max = 255
|
||
|
|
Min = -255
|
||
|
|
Orientation = trHorizontal
|
||
|
|
PageSize = 20
|
||
|
|
Frequency = 51
|
||
|
|
Position = 0
|
||
|
|
SelEnd = 0
|
||
|
|
SelStart = 0
|
||
|
|
TabOrder = 2
|
||
|
|
TickMarks = tmBottomRight
|
||
|
|
TickStyle = tsNone
|
||
|
|
end
|
||
|
|
object contrastBar: TTrackBar
|
||
|
|
Left = -1
|
||
|
|
Top = 152
|
||
|
|
Width = 106
|
||
|
|
Height = 30
|
||
|
|
Max = 100
|
||
|
|
Min = -100
|
||
|
|
Orientation = trHorizontal
|
||
|
|
PageSize = 20
|
||
|
|
Frequency = 51
|
||
|
|
Position = 0
|
||
|
|
SelEnd = 0
|
||
|
|
SelStart = 0
|
||
|
|
TabOrder = 3
|
||
|
|
TickMarks = tmBottomRight
|
||
|
|
TickStyle = tsNone
|
||
|
|
end
|
||
|
|
object Button2: TButton
|
||
|
|
Left = 8
|
||
|
|
Top = 184
|
||
|
|
Width = 225
|
||
|
|
Height = 25
|
||
|
|
Caption = 'APPLY'
|
||
|
|
TabOrder = 4
|
||
|
|
OnClick = Button2Click
|
||
|
|
end
|
||
|
|
object LightnessBar: TTrackBar
|
||
|
|
Left = 127
|
||
|
|
Top = 152
|
||
|
|
Width = 106
|
||
|
|
Height = 30
|
||
|
|
Max = 100
|
||
|
|
Min = -100
|
||
|
|
Orientation = trHorizontal
|
||
|
|
PageSize = 20
|
||
|
|
Frequency = 51
|
||
|
|
Position = 0
|
||
|
|
SelEnd = 0
|
||
|
|
SelStart = 0
|
||
|
|
TabOrder = 5
|
||
|
|
TickMarks = tmBottomRight
|
||
|
|
TickStyle = tsNone
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel9: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 236
|
||
|
|
Height = 21
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Caption = 'Panel9'
|
||
|
|
TabOrder = 3
|
||
|
|
object DriveComboBox2: TDriveComboBox
|
||
|
|
Left = 2
|
||
|
|
Top = 2
|
||
|
|
Width = 235
|
||
|
|
Height = 19
|
||
|
|
DirList = DirectoryListBox2
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel10: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 141
|
||
|
|
Width = 236
|
||
|
|
Height = 23
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Caption = 'Panel10'
|
||
|
|
TabOrder = 4
|
||
|
|
OnResize = Panel10Resize
|
||
|
|
object FilterComboBox1: TFilterComboBox
|
||
|
|
Left = 2
|
||
|
|
Top = 0
|
||
|
|
Width = 235
|
||
|
|
Height = 21
|
||
|
|
FileList = FileListBox1
|
||
|
|
Filter =
|
||
|
|
'All Known Formats|*.ICO;*.BMP;*.EMF;*.WMF;*.JPG;*.JPEG;|All File' +
|
||
|
|
's (*.*)|*.*|JPEG Files|*.JPG;*.JPEG;|BMP Files|*.BMP|WMF Files|*' +
|
||
|
|
'.WMF|EMF Files |*.EMF|ICONS |*.ICO'
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel7: TPanel
|
||
|
|
Left = 241
|
||
|
|
Top = 0
|
||
|
|
Width = 521
|
||
|
|
Height = 475
|
||
|
|
Align = alClient
|
||
|
|
TabOrder = 1
|
||
|
|
object ThumbImage1: TJvThumbImage
|
||
|
|
Left = 1
|
||
|
|
Top = 144
|
||
|
|
Width = 518
|
||
|
|
Height = 330
|
||
|
|
AutoSize = True
|
||
|
|
IgnoreMouse = False
|
||
|
|
Angle = AT0
|
||
|
|
Zoom = 0
|
||
|
|
end
|
||
|
|
object Panel5: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 519
|
||
|
|
Height = 144
|
||
|
|
Align = alTop
|
||
|
|
TabOrder = 0
|
||
|
|
object Label5: TLabel
|
||
|
|
Left = 161
|
||
|
|
Top = 100
|
||
|
|
Width = 193
|
||
|
|
Height = 13
|
||
|
|
Hint = 'You can set the thumbnails title to what ever you want it to be '
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'THumbnails Title'
|
||
|
|
end
|
||
|
|
object Bevel1: TBevel
|
||
|
|
Left = 156
|
||
|
|
Top = 3
|
||
|
|
Width = 232
|
||
|
|
Height = 137
|
||
|
|
end
|
||
|
|
object asbuttoncb: TCheckBox
|
||
|
|
Left = 161
|
||
|
|
Top = 7
|
||
|
|
Width = 97
|
||
|
|
Height = 17
|
||
|
|
Hint = 'This will give a button effect when the thumbnail is clicked '
|
||
|
|
Caption = 'AsButton'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = asbuttoncbClick
|
||
|
|
end
|
||
|
|
object autoloadcb: TCheckBox
|
||
|
|
Left = 161
|
||
|
|
Top = 31
|
||
|
|
Width = 97
|
||
|
|
Height = 17
|
||
|
|
Hint =
|
||
|
|
'If AutoLoad = true when you pass a name to the filename it autom' +
|
||
|
|
'atically loads it else not(for Future reference where the will b' +
|
||
|
|
'e a thumblist file)'
|
||
|
|
Caption = 'Autoload'
|
||
|
|
Checked = True
|
||
|
|
ParentShowHint = False
|
||
|
|
ShowHint = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = autoloadcbClick
|
||
|
|
end
|
||
|
|
object minmemcb: TCheckBox
|
||
|
|
Left = 161
|
||
|
|
Top = 55
|
||
|
|
Width = 97
|
||
|
|
Height = 17
|
||
|
|
Hint =
|
||
|
|
'This will forse the thumbimage to convert all the thumbs in BMP ' +
|
||
|
|
'and reduce memory usage us much as possible'
|
||
|
|
Caption = 'MinimizeMemory'
|
||
|
|
Checked = True
|
||
|
|
ParentShowHint = False
|
||
|
|
ShowHint = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 2
|
||
|
|
OnClick = minmemcbClick
|
||
|
|
end
|
||
|
|
object titleplacegr: TRadioGroup
|
||
|
|
Left = 265
|
||
|
|
Top = 9
|
||
|
|
Width = 113
|
||
|
|
Height = 65
|
||
|
|
Hint = 'The position of the thumbnail'#39's title'
|
||
|
|
Caption = ' Title Placement '
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'T_UP'
|
||
|
|
'T_Down')
|
||
|
|
ParentShowHint = False
|
||
|
|
ShowHint = True
|
||
|
|
TabOrder = 3
|
||
|
|
OnClick = titleplacegrClick
|
||
|
|
end
|
||
|
|
object Edit1: TEdit
|
||
|
|
Left = 161
|
||
|
|
Top = 116
|
||
|
|
Width = 224
|
||
|
|
Height = 21
|
||
|
|
Hint = 'You can set the thumbnails title to what ever you want it to be '
|
||
|
|
TabOrder = 4
|
||
|
|
Text = 'Edit1'
|
||
|
|
end
|
||
|
|
object GroupBox1: TGroupBox
|
||
|
|
Left = 390
|
||
|
|
Top = 8
|
||
|
|
Width = 121
|
||
|
|
Height = 75
|
||
|
|
Caption = 'THUMBIMAGE'
|
||
|
|
TabOrder = 5
|
||
|
|
object Button4: TButton
|
||
|
|
Left = 8
|
||
|
|
Top = 16
|
||
|
|
Width = 105
|
||
|
|
Height = 25
|
||
|
|
Caption = 'INVERT'
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = Button4Click
|
||
|
|
end
|
||
|
|
object Button5: TButton
|
||
|
|
Left = 8
|
||
|
|
Top = 48
|
||
|
|
Width = 105
|
||
|
|
Height = 25
|
||
|
|
Caption = 'GRAYSCALE'
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = Button5Click
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Button1: TButton
|
||
|
|
Left = 264
|
||
|
|
Top = 88
|
||
|
|
Width = 113
|
||
|
|
Height = 25
|
||
|
|
Caption = 'EXIT'
|
||
|
|
ModalResult = 1
|
||
|
|
TabOrder = 6
|
||
|
|
end
|
||
|
|
object AngleGr: TRadioGroup
|
||
|
|
Left = 390
|
||
|
|
Top = 81
|
||
|
|
Width = 123
|
||
|
|
Height = 60
|
||
|
|
Caption = ' ThumbImage Angle '
|
||
|
|
Columns = 2
|
||
|
|
Items.Strings = (
|
||
|
|
'0'
|
||
|
|
'90'
|
||
|
|
'180'
|
||
|
|
'270')
|
||
|
|
TabOrder = 7
|
||
|
|
OnClick = AngleGrClick
|
||
|
|
end
|
||
|
|
object ThumbNail1: TJvThumbnail
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 154
|
||
|
|
Height = 142
|
||
|
|
TabOrder = 8
|
||
|
|
OnClick = ThumbNail1Click
|
||
|
|
TitleColor = clBtnFace
|
||
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -11
|
||
|
|
TitleFont.Name = 'MS Sans Serif'
|
||
|
|
TitleFont.Style = []
|
||
|
|
ClientWidth = 146
|
||
|
|
ClientHeight = 119
|
||
|
|
AsButton = False
|
||
|
|
MinimizeMemory = True
|
||
|
|
StreamFileType = grBMP
|
||
|
|
ShowTitle = False
|
||
|
|
TitlePlacement = tpUp
|
||
|
|
AutoLoad = True
|
||
|
|
ShadowColor = clSilver
|
||
|
|
ShowShadow = False
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|