home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 January
/
Pcwk0198.iso
/
Sharewar
/
AVICONST
/
AVICT32.EXE
/
0
/
RCDATA
/
TCWND
/
TCWND.txt
< prev
Wrap
Text File
|
1997-07-15
|
10KB
|
289 lines
object CWnd: TCWnd
Left = 228
Top = 355
Width = 301
Height = 147
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Capture'
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'System'
Font.Style = []
FormStyle = fsStayOnTop
Icon.Data = {<image000.ico>}
KeyPreview = True
PixelsPerInch = 120
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
TextHeight = 20
object Bevel1: TBevel
Left = 0
Top = 51
Width = 293
Height = 10
Align = alTop
Style = bsRaised
end
object Roll1: TRoll
Left = 0
Top = 61
Width = 293
Height = 54
Hint = 'The Capture Destination (Rolling List : Click to roll.)'
Align = alClient
Color = clBlack
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
Items.Strings = (
'Save as Temp. File + Add Link'
'Save + Add Link'
'Save'
'Clipboard'
'Print'
'Print To Fit')
ItemIndex = 0
Text3d = True
Text3dColor = clBtnShadow
end
object MRPanel3: TMRPanel
Left = 0
Top = 0
Width = 293
Height = 51
Align = alTop
BevelOuter = bvNone
BevelWidth = 2
PopupMenu = PopupMenu1
TabOrder = 1
OnResize = MRPanel3Resize
BevelSides = [sdLeft, sdTop, sdRight]
BorderColor = clBlack
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
OnNCHitTest = MRPanel3NCHitTest
object BitBtn1: TSpeedButton
Left = 100
Top = 0
Width = 41
Height = 41
Hint = 'Captures (or recaptures) '
Glyph.Data = {
58020000424D5802000000000000760000002800000026000000180000000100
04000000000000000000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
433333333333F888888833333300333333444444433333333333F88888883333
33003243342222222433333388FF833333338FF3330032244222222222443333
8F88333FFFFF388F330032222222AAAAA22243338F333FF88888F338F3003222
22AA33333A2224338F33F883333383338F00322222223333322224338F33F883
333383338F00322888883333384444338F33833333333FF38F00322C80008888
000004338FFFF8833333388883003AAC8007000C080003338888888333333333
33003AAC800700000800033388888883333333333300333C8008000000700333
333333333333FFFFFF00333C80070F00087004433FFFF333333388888800333C
80080000800004433FFFF3333333888888003A48F8888888888442438888F333
3388F33338003A28F8888888888442438F33F33333338333380033A2228CCC44
4422224338338FFFFF888333380033A2224338832222224338FF388888333FFF
380033A2224444422222224338FF388888333FFF3800333AA222222222AAA243
3388F3333333F888F80033333A2222222A333A3333338FFFFFFF833383003333
33AAAAAAA333333333333888888833333300333333AAAAAAA333333333333888
88883333330033333333333333333333333333333333333333000000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = MinBtnClick
end
object BitBtn4: TSpeedButton
Left = 204
Top = 0
Width = 25
Height = 23
Hint = 'Repaints last captured area.'
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007000000000000000700000007077770770770770700000007007
7077077077007000000070707777770770707000000070770770707707707000
0000707770770700777070000000707777007777777070000000707777777777
7770700000007077777777700770700000007077777777077070700000007077
7777770770707000000070777777777007707000000070777777777777707000
0000700000000000000070000000777777777777777770000000777777777777
777770000000}
ParentShowHint = False
ShowHint = True
OnClick = ABitbtn2Click
end
object bitbtn2: TSpeedButton
Left = 140
Top = 0
Width = 41
Height = 41
Hint = 'Captures or recaptures ( inside the windows frame)'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF008CCCCCCCCCCC
CCC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCFCFCFCFCF
CFC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCFCFCFCFCF
CFC88CFCFCFCFCFCFCC88CCFCFCFCFCFCFC88CFCFCFCFCFCFCC88CCCCCCCCCCC
CCC8844444444444444884444444444444488888888888888888000000000000
0000000000000000000000000000000000000000}
ParentShowHint = False
ShowHint = True
OnClick = bitbtn2Click
end
object BitBtn3: TASpeedButton
Left = 196
Top = 0
Width = 45
Height = 36
Hint = 'Capture the screen'
Glyph.Data = {
10020000424D1002000000000000760000002800000030000000100000000100
0400000000008001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777777777777777777777770000000000077777FFFFFFFF
FFF777770000000000077777F777777777077777F777777777F77777F8888888
88077777F777777777077777F777777777F777777888888888077700F7777777
770777FFF777777777F77700F8888888880777F7F7777777770777F7F7777777
77F7777878888888880777F7F7777777770777F7F777777777F777F8F8888888
880700F7F77777777707FFF7F777777777F70078788888888807F7F7FCCCCCCC
CC07F7F7FFFFFFFFFFF778F8F44444444407F7F7FFFFFFFFFF07F7F7FFFFFFFF
FFF7F8787F7F7F7F7F07F7F7777777770777F7F777777777F77778F888888888
0777F7FCCCCCCCCC0777F7FFFFFFFFFFF777F874444444440777F7FFFFFFFFFF
0777F7FFFFFFFFFFF77778F7F7F7F7F70777F777777777077777F777777777F7
7777F888888888077777FCCCCCCCCC077777FFFFFFFFFFF77777744444444407
7777FFFFFFFFFF077777FFFFFFFFFFF77777F7F7F7F7F7077777000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 3
ParentShowHint = False
ShowHint = True
OnClick = BitBtn3Click
end
object BitBtn5: TASpeedButton
Left = 236
Top = 0
Width = 35
Height = 31
Hint = 'capture options'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FFFFFFFFFFFFFF
FFFF300000000000000000033777777777777777777F30FFFFFFFFFFFFFFFF03
37F333F333333333337F30FFF0FFFFFFFFFFFF0337F337FF33333333337F30FF
000FFFFFFFFFFF0337F3777FF3333333337F30F00F00FFFFFFFFFF0337F77377
FF333333337F30FFFFF00FFFFFFFFF0337F333377FF33333337F30FFFFFF00FF
FFFFFF0337F333F377333333337F30FFF0FFFFFFFFFFFF0337F337FF33333333
337F30FF000FFFFFFFFFFF0337F3777FF3333333337F30F00F00FFFFFFFFFF03
37F77377FF333333337F30FFFFF00FFFFFFFFF0337F333377FF33333337F30FF
FFFF00FFFFFFFF0337F3333377333333337F30FFFFFFFFFFFFFFFF0337FFFFFF
FFFFFFFFFF7F300000000000000000033777777777777777777F3080CCCCCCCC
CC08080337F777777777777F7F7F300000000000000000033777777777777777
7773333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BitBtn5Click
end
object SelectPanel: TMRPanel
Left = 0
Top = 0
Width = 49
Height = 51
Hint = 'Press the right button to turn off hints'
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvNone
BevelWidth = 6
BorderWidth = 3
ParentShowHint = False
ShowHint = True
TabOrder = 0
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
object Image1: TImage
Left = 9
Top = 9
Width = 31
Height = 33
Hint =
'Sets the window you are going to capture: Press the left mouse, ' +
'hold It, move the cursor, and release'
Align = alClient
Center = True
ParentShowHint = False
Picture.Data = {<image001.bmp>}
ShowHint = True
OnMouseDown = ABitbtn1MouseDown
OnMouseUp = ABitbtn1MouseUp
end
end
object CapturePanel: TMRPanel
Left = 49
Top = 0
Width = 50
Height = 51
Hint = 'Press the right button to turn off hints'
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvNone
BevelWidth = 6
BorderWidth = 3
ParentShowHint = False
ShowHint = True
TabOrder = 1
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
object Image2: TImage
Left = 9
Top = 9
Width = 32
Height = 33
Hint =
'Captures a window: press the left mouse button, hold It, move to' +
' the location, and release'
Align = alClient
Center = True
ParentShowHint = False
Picture.Data = {<image002.bmp>}
ShowHint = True
OnMouseDown = Image2MouseDown
OnMouseUp = Image2MouseUp
end
end
end
object PopupMenu1: TPopupMenu
Left = 464
Top = 8
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
object close1: TMenuItem
Caption = 'close'
OnClick = Close1Click
end
end
object SaveDialog1: TSaveDialog
Filter = 'Bitmap (*.BMP)|*.BMP|All Files (*.*)|*.*'
Left = 481
Top = 16
end
end