home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 June A
/
Pcwk6A98.iso
/
Share95
/
Tvstudio
/
_SETUP.1
/
PStudio.exe
/
0
/
RCDATA
/
TANIMCAP1
/
TANIMCAP1.txt
Wrap
Text File
|
1998-04-01
|
20KB
|
668 lines
object AnimCap1: TAnimCap1
Left = 218
Top = 173
Width = 755
Height = 355
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'AnimCap1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object label1: TLabel
Left = 8
Top = 168
Width = 40
Height = 16
Caption = 'Width'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 200
Width = 46
Height = 16
Caption = 'Height'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object label4: TLabel
Left = 16
Top = 232
Width = 45
Height = 13
Caption = 'Filename '
end
object Label8: TLabel
Left = 152
Top = 250
Width = 32
Height = 16
Caption = '.BMP'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 88
Top = 232
Width = 67
Height = 13
Caption = 'Frame number'
end
object Label5: TLabel
Left = 488
Top = 32
Width = 184
Height = 13
Caption = 'Mark FIlenames That you Want Played'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object labeldrag: TLabel
Left = 376
Top = 200
Width = 114
Height = 13
Caption = '--> or Mark and drag --> '
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object labsave: TLabel
Left = 32
Top = 144
Width = 134
Height = 13
Caption = 'Drag images from film below '
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 376
Top = 4
Width = 46
Height = 16
Caption = 'Delay '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 40
Top = 272
Width = 76
Height = 13
Caption = 'Target Filename'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 152
Top = 200
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF3333333333377777333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object Label9: TLabel
Left = 599
Top = 4
Width = 10
Height = 16
Caption = 'X'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 424
Top = 24
Width = 9
Height = 16
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SpinEdit3: TSpinEdit
Left = 88
Top = 248
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 0
Value = 0
end
object BitBtn1: TBitBtn
Left = 96
Top = 296
Width = 81
Height = 25
Caption = 'Preview'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
00007777777777777777933393303933337073F37F37F73F3377393393303393
379037FF7F37F37FF777379793303379793037777337F3777737339933303339
93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
999037777337F377777793993330333393307377FF37F3337FF7333993303333
993033377F37F33377F7333993303333993033377337F3337737333333303333
33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 8
Top = 296
Width = 81
Height = 25
TabOrder = 2
OnClick = BitBtn2Click
Kind = bkOK
end
object Panel1: TPanel
Left = 208
Top = 0
Width = 161
Height = 297
Caption = 'Panel1'
TabOrder = 3
object FileListBox1: TFileListBox
Left = 4
Top = 112
Width = 153
Height = 177
DragCursor = crMultiDrag
DragMode = dmAutomatic
ItemHeight = 16
Mask = '*.bmp'
MultiSelect = True
TabOrder = 0
OnChange = FileListBox1Change
OnClick = FileListBox1Click
OnDblClick = FileListBox1DblClick
end
object DirectoryListBox1: TDirectoryListBox
Left = 4
Top = 32
Width = 153
Height = 81
Ctl3D = True
DragMode = dmAutomatic
FileList = FileListBox1
ItemHeight = 16
ParentCtl3D = False
TabOrder = 1
OnChange = DirectoryListBox1Change
end
object DriveComboBox1: TDriveComboBox
Left = 20
Top = 11
Width = 117
Height = 19
DirList = DirectoryListBox1
TabOrder = 2
OnChange = DriveComboBox1Change
end
end
object BitBtn9: TBitBtn
Left = 496
Top = 296
Width = 75
Height = 25
Caption = '&Close'
TabOrder = 4
OnClick = BitBtn9Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object BitBtn10: TBitBtn
Left = 496
Top = 224
Width = 75
Height = 25
Caption = 'Preview'
TabOrder = 5
OnClick = BitBtn10Click
end
object Panel2: TPanel
Left = 584
Top = 224
Width = 97
Height = 89
Caption = 'Panel2'
TabOrder = 6
Visible = False
object Image3: TImage
Left = 8
Top = 8
Width = 81
Height = 73
DragMode = dmAutomatic
Stretch = True
end
end
object Edit1: TEdit
Left = 0
Top = 248
Width = 89
Height = 21
TabOrder = 7
Text = 'MyAnimation'
end
object BitBtn11: TBitBtn
Left = 496
Top = 263
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 8
OnClick = BitBtn11Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388333333333
33333333F33333333333911833333983333333388F333333F333911183339118
3333338F38F333F88F339111183911118333338F338F3F8338F3391111811111
8333338F3338F833338F33911111111833333338F33383333F83333911111183
333333338F333333F8333333111118333333333338F333338333333391111833
33333333338F333833333339111118333333333333833338F333339111811183
3333333338333338F3333911183911183333333383338F338F33391183339111
83333338F33838F338F333913333391113333338FF83338F338F333333333391
9333333388333338FFF833333333333333333333333333338883}
NumGlyphs = 2
end
object TrackBar1: TTrackBar
Left = 416
Top = 0
Width = 177
Height = 25
Max = 1000
Orientation = trHorizontal
PageSize = 100
Frequency = 100
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 9
TickMarks = tmBottomRight
TickStyle = tsAuto
end
object BitBtn3: TBitBtn
Left = 376
Top = 136
Width = 105
Height = 25
Caption = 'UnMarked'
TabOrder = 10
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 376
Top = 104
Width = 105
Height = 25
Caption = 'Remove'
TabOrder = 11
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333F033333333333333387333333333333F03333
3333333333387333333333333F000333333333333387773333333333FFFFF033
3333333338888873333333333F033F0333333333338733873333333333F033F0
333333333338733873333333333F03F0333333333333873873333333333333F0
333333333333333873333333333333F0333333333333333873333333333333F0
33333333333333387333333333333F03333333333333338733333333FFFFF033
3333333338888873333333333000033333333333337777333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 376
Top = 168
Width = 105
Height = 25
Caption = 'Marked'
TabOrder = 12
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344444444444
4444444444444444444444444444444444444FFF444444444444000444444444
4444888FFF4FFFFF44440B000400000444448F888F888883F444000E00BFBFB0
4444888F883333F8F444000E0BFBF0004444888F8F3338883F44000E0FBFBFBF
0444888F8F3333FF8FFF000E0BFBF0000004888F8F3338888883000E0FBFBFBF
BFB0888F8F33FFFFFFF8000E0BF000000004888F8FF888888884000000BFB044
44448888883FF844444444444400044444444444448884444444444444444444
4444444444444444444444444444444444444444444444444444444444444444
4444444444444444444444444444444444444444444444444444}
Layout = blGlyphRight
NumGlyphs = 2
end
object BitBtn6: TBitBtn
Left = 376
Top = 296
Width = 113
Height = 25
Caption = 'Save File List'
TabOrder = 13
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 376
Top = 263
Width = 113
Height = 25
Caption = 'Load File List'
TabOrder = 14
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
5555555555555555555555555555555555555555555555555555}
NumGlyphs = 2
end
object BitBtn12: TBitBtn
Left = 240
Top = 296
Width = 105
Height = 25
TabOrder = 15
OnClick = BitBtn12Click
Kind = bkHelp
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 193
Height = 145
Caption = 'Drag n'#39' Save Drop Site'
TabOrder = 16
object Image1: TImage
Left = 1
Top = 1
Width = 191
Height = 143
Align = alClient
DragMode = dmAutomatic
Stretch = True
OnDragDrop = Image1DragDrop
OnDragOver = Image1DragOver
end
end
object SpinEdit4: TSpinEdit
Left = 616
Top = 0
Width = 65
Height = 22
Increment = 10
MaxValue = 10000
MinValue = 0
TabOrder = 17
Value = 10
end
object copybut: TBitBtn
Left = 376
Top = 40
Width = 105
Height = 25
Hint = 'Copy Marked File From Top for Pasteing into AVIEdit'
Caption = 'Top Down'
ParentShowHint = False
ShowHint = True
TabOrder = 18
OnClick = copybutClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object ListBox1: TListBox
Left = 488
Top = 48
Width = 253
Height = 169
Hint = 'These Filenames Will be played'
DragCursor = crMultiDrag
ItemHeight = 13
MultiSelect = True
ParentShowHint = False
ShowHint = True
TabOrder = 19
OnDblClick = ListBox1DblClick
OnDragDrop = ListBox1DragDrop
OnDragOver = ListBox1DragOver
OnEndDrag = ListBox1EndDrag
OnMouseMove = ListBox1MouseMove
end
object BitBtn8: TBitBtn
Left = 376
Top = 72
Width = 105
Height = 25
Hint = 'Copy Marked File From Bottom for Pasteing into AVIEdit'
Caption = 'Bottom Up'
ParentShowHint = False
ShowHint = True
TabOrder = 20
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object BitBtn13: TBitBtn
Left = 688
Top = 224
Width = 57
Height = 25
Caption = 'Select All'
TabOrder = 21
OnClick = BitBtn13Click
end
object BitBtn14: TBitBtn
Left = 688
Top = 256
Width = 57
Height = 25
Caption = 'Resize'
TabOrder = 22
OnClick = BitBtn14Click
end
object Pb1: TProgressBar
Left = 576
Top = 312
Width = 169
Height = 17
Min = 0
Max = 100
TabOrder = 23
Visible = False
end
object ImageList1: TImageList
Left = 176
Top = 168
end
object SavePictureDialog1: TSavePictureDialog
DefaultExt = 'BMP'
Filter = 'Windows Bitmaps (*.BMP)|*.BMP'
Left = 152
Top = 168
end
object SaveDialog1: TSaveDialog
DefaultExt = 'LST'
FileName = ' '
Filter = '*.LST'
InitialDir = 'mainform.prjdir'
Title = 'Save Filename List'
Left = 376
Top = 32
end
object OpenDialog1: TOpenDialog
FileName = '*.lst'
Filter = 'List File (*.LST)|*.LST|All Files (List of FileNames OK )|*.*'
Title = 'Load a List of Filenames'
Left = 456
Top = 32
end
end