home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
All Holidays: Clip Art & Fonts (Deluxe Edition)
/
727ahcap_jjp.iso
/
HOL32
/
chrclip
/
VIEWER32.EXE
/
0
/
RCDATA
/
TTHUMBFORM
/
TTHUMBFORM.txt
< prev
Wrap
Text File
|
1997-08-21
|
14KB
|
481 lines
object ThumbForm: TThumbForm
Left = 7
Top = 51
BorderStyle = bsDialog
Caption = 'Image pre-viewer'
ClientHeight = 352
ClientWidth = 609
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
TextHeight = 14
object Label1: TLabel
Left = 3
Top = 6
Width = 157
Height = 15
AutoSize = False
Color = clGray
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Gauge1: TGauge
Left = 505
Top = 160
Width = 97
Height = 9
BorderStyle = bsNone
ForeColor = clNavy
BackColor = clBtnFace
Progress = 0
end
object Label2: TLabel
Left = 496
Top = 62
Width = 112
Height = 14
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object StopBtn: TSpeedButton
Left = 526
Top = 80
Width = 57
Height = 30
Glyph.Data = {
80010000424D8001000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777711111111177777700007777199999999917777700007771
9999999999917777000077199999999999991777000071999999999999999177
000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
0000719999999999999991770000771999999999999917770000777199999999
9991777700007777199999999917777700007777711111111177777700007777
7777777777777777000000000000000000000000000000000000000000000000
00000000}
Visible = False
OnClick = AbortBtnClick
end
object Image1: TImage
Left = 530
Top = 115
Width = 49
Height = 37
Center = True
Picture.Data = {<image000.ico>}
OnDragDrop = Image1DragDrop
OnDragOver = Image1DragOver
end
object Thumbs: TStringGrid
Left = 168
Top = 7
Width = 324
Height = 301
DefaultColWidth = 60
DefaultRowHeight = 50
FixedCols = 0
FixedRows = 0
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
Options = [goVertLine, goHorzLine]
ParentColor = True
ParentFont = False
RowCount = 10
ScrollBars = ssVertical
TabOrder = 0
OnClick = ThumbsClick
OnDblClick = ThumbsDblClick
OnDragDrop = ThumbsDragDrop
OnDragOver = ThumbsDragOver
OnDrawCell = ThumbsDrawCell
OnKeyDown = ThumbsKeyDown
OnMouseDown = ThumbsMouseDown
OnMouseMove = ThumbsMouseMove
end
object DriveComboBox1: TDriveComboBox
Left = 7
Top = 322
Width = 148
Height = 21
Color = clBtnFace
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 1
OnChange = DriveComboBox1Change
OnClick = DriveComboBox1Click
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 199
Width = 146
Height = 117
Color = clBtnFace
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
OnChange = DirectoryListBox1Change
OnClick = DirectoryListBox1Click
end
object FileListBox1: TFileListBox
Left = 8
Top = 54
Width = 144
Height = 141
Hint = 'Drag Image on the grid to create thumbnail'
Color = clBtnFace
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ItemHeight = 16
Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
ParentFont = False
ShowGlyphs = True
TabOrder = 3
OnChange = FileListBox1Change
OnClick = FileListBox1Click
OnDblClick = FileListBox1DblClick
OnKeyDown = FileListBox1KeyDown
OnMouseDown = FileListBox1MouseDown
end
object ComboBox1: TComboBox
Left = 8
Top = 27
Width = 145
Height = 22
Color = clBtnFace
DropDownCount = 15
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = []
ItemHeight = 14
Items.Strings = (
'*.JPG;*.GIF;*.PCX;*.BMP;*.PNG;*.TIF;*.WMF;*.ICO'
'*.JPG'
'*.GIF'
'*.PCX'
'*.BMP'
'*.PNG'
'*.TIF'
'*.WMF'
'*.ICO')
ParentFont = False
TabOrder = 4
Text = 'Select file type'
OnChange = ComboBox1Change
OnClick = ComboBox1Click
end
object PMultiImage2: TPMultiImage
Left = 521
Top = 9
Width = 60
Height = 50
Center = True
Color = clBtnFace
ImageName = 'file not found'
ImageDither = True
ImageReadRes = lAutoMatic
ImageWriteRes = sAutoMatic
TifSaveCompress = sNONE
JPegSaveQuality = 25
JPegSaveSmooth = 0
TextLeft = 0
TextTop = 0
TextRotate = 0
TabOrder = 6
TabStop = False
Visible = False
end
object GroupBox2: TGroupBox
Left = 501
Top = 173
Width = 102
Height = 103
Hint = 'Resolution of the previews'
Caption = 'Resolution'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
object SaveRes24: TRadioButton
Left = 2
Top = 61
Width = 96
Height = 17
Caption = 'True color'
TabOrder = 0
OnClick = Saveresclick
end
object SaveRes8: TRadioButton
Left = 2
Top = 37
Width = 96
Height = 17
Caption = '256 colors'
TabOrder = 1
OnClick = Saveresclick
end
object SaveRes4System: TRadioButton
Left = 2
Top = 15
Width = 98
Height = 17
Caption = '16 system colors'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = Saveresclick
end
object SaveResAuto: TRadioButton
Left = 2
Top = 83
Width = 68
Height = 17
Caption = 'Automatic'
Checked = True
TabOrder = 3
TabStop = True
OnClick = Saveresclick
end
end
object PMultiImage1: TPMultiImage
Left = 521
Top = 9
Width = 60
Height = 50
Center = True
Color = clBtnFace
ImageName = 'file not found'
ImageDither = True
ImageReadRes = lAutoMatic
ImageWriteRes = sAutoMatic
TifSaveCompress = sNONE
JPegSaveQuality = 25
JPegSaveSmooth = 0
Stretch = True
TextLeft = 0
TextTop = 0
TextRotate = 0
TabOrder = 5
TabStop = False
end
object GroupBox1: TGroupBox
Left = 500
Top = 288
Width = 104
Height = 56
Caption = 'Optimize previews'
TabOrder = 8
object RSpeed: TRadioButton
Left = 2
Top = 15
Width = 71
Height = 17
Caption = 'for speed'
Checked = True
TabOrder = 0
TabStop = True
OnClick = RSpeedClick
end
object RSize: TRadioButton
Left = 2
Top = 36
Width = 71
Height = 17
Caption = 'for size'
TabOrder = 1
OnClick = RSpeedClick
end
end
object Panel1: TPanel
Left = 167
Top = 307
Width = 325
Height = 37
BevelOuter = bvLowered
TabOrder = 9
object LoadBtn: TSpeedButton
Left = 1
Top = 2
Width = 37
Height = 34
Hint = 'Load all existing thumbs'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777780087777777800000000000087708800888800
880770880888888088077088087888808807708808E78880880770FF00888800
FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = LoadBtnClick
end
object CreateNewKeep: TSpeedButton
Left = 37
Top = 2
Width = 37
Height = 34
Hint = 'Create new previews keep old ones'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777777800000008777777707777777077007770788F8870
008077707777777080807770777887707070777078800870F070777080088070
00F0007008877070770008088770000877770F07700777777777007007777777
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = IncAllKeepBtnClick
end
object CreateNewDelete: TSpeedButton
Left = 73
Top = 2
Width = 37
Height = 34
Hint = 'Create new previews and delete old ones'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007000000000000000700000007077770770770770700000007007
7077077077007000000070707777770770707000000070770770707707707000
0000707770770700777070000000707777007777777070000000707777777777
7770700000007077777777700770700000007077777777077070700000007077
7777770770707000000070777777777007707000000070777777777777707000
0000700000000000000070000000777777777777777770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = CreateNewDeleteClick
end
object DeleteAllBtn: TSpeedButton
Left = 109
Top = 2
Width = 37
Height = 34
Hint = 'Delete all previews'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777770000000777777777777777770000000777777777777770F700000007777
0F777777777770000000777000F7777770F770000000777000F777770F777000
00007777000F77700F777000000077777000F700F7777000000077777700000F
7777700000007777777000F777777000000077777700000F7777700000007777
7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
00007700F7777777700F70000000777777777777777770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = DeleteAllBtnClick
end
object ClearAllBtn: TSpeedButton
Left = 145
Top = 2
Width = 37
Height = 34
Hint = 'Clear preview window'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007777777777177777700000007777777771177777100000007777
7777711177717000000077777777771177117000000070000000000011577000
0000707777777775117770000000707007007071511770000000707777777711
771150000000704444445144447510000000774FFFFF15FFF47770000000774F
00F00F00F47770000000774FFFFFFFFFF4777000000077444444444444777000
0000774744744744747770000000774444444444447770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = ClearAllBtnClick
end
object CloseBtn: TSpeedButton
Left = 287
Top = 2
Width = 37
Height = 34
Hint = 'Close window'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = CancelBtnClick
end
object AutoLoad: TCheckBox
Left = 185
Top = 4
Width = 70
Height = 17
Hint = 'Autoload Previews'
Caption = 'Autoload'
TabOrder = 0
OnClick = AutoLoadClick
end
object GPall: TCheckBox
Left = 185
Top = 18
Width = 96
Height = 17
Hint = 'In 256 color mode use a shared palette'
Caption = 'Use best palette'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = GPallClick
end
end
end