home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 January
/
Pcwk0198.iso
/
Wtestowe
/
CALYPSO
/
_SETUP.1
/
unzip.dll
/
0
/
RCDATA
/
TVIEWERFORM
/
TVIEWERFORM.txt
Wrap
Text File
|
1997-07-17
|
8KB
|
239 lines
object ViewerForm: TViewerForm
Left = 72
Top = 92
Width = 630
Height = 470
Caption = 'ViewerForm'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnMouseDown = FormMouseDown
OnMouseMove = FormMouseMove
OnPaint = FormPaint
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 15
object VSPanel: TPanel
Left = 606
Top = 32
Width = 16
Height = 395
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object VScroll: TScrollBar
Left = 1
Top = 1
Width = 15
Height = 441
Kind = sbVertical
LargeChange = 20
TabOrder = 0
OnChange = VScrollChange
end
end
object SBPanel: TPanel
Left = 0
Top = 0
Width = 622
Height = 32
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object FileOpenSB: TSpeedButton
Left = 5
Top = 4
Width = 25
Height = 25
Hint = 'Open file'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333000000000003333300111111111033330B0111111111
03330FB01111111110330BFB0111111111030FBFB000000000000BFBFBFBFB03
33330FBFBFBFBF0333330BFB0000000333333000333333330003333333333333
3003333333330333030333333333300033333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = FileOpenSBClick
end
object FindSB: TSpeedButton
Left = 30
Top = 4
Width = 25
Height = 25
Hint = 'Find text'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333300000000000033000FFFFFFFFFF030000FFFFFFF000080030FFFFFF08778
08330FFFFF0877E880330FFFFF07777870330FFFFF07E77870330FFFFF08EE78
80330FFFFFF0877803330FFFFFFF000033330FFFFFFFFFF033330FFFFFFF0000
33330FFFFFFF070333330FFFFFFF003333330000000003333333}
ParentShowHint = False
ShowHint = True
OnClick = FindSBClick
end
object CopySB: TSpeedButton
Left = 55
Top = 4
Width = 25
Height = 25
Hint = 'Copy selected line to clipboard'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333344444444433333334FFFFFFF433333334F000
00F430000004FFFFFFF430FFFFF4F00000F430F00004FFFFFFF430FFFFF4F00F
444430F00004FFFF4F4330FFFFF4FFFF443330F00F044444433330FFFF0F0333
333330FFFF003333333330000003333333333333333333333333}
ParentShowHint = False
ShowHint = True
OnClick = CopySBClick
end
object AddToclipSB: TSpeedbutton
Left = 80
Top = 4
Width = 25
Height = 25
Hint = 'Append selected line to clipboard'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBCCFBF0333
33333338F3FF88FF8F3333333330FFFCCFFF033333333338F3FF88FF8F333333
3330BCCCCCCF0333333FFFF8F38888888F3333000000FCCCCCCF033333888888
F38888888F33330FFFF0BFBCCFBF0333338F3338F3FF88FF8F33330FFFF0FFFC
CFFF0333338F3338F3FF88FF8F33330F7770BFBFBFBF0333338F3338F333333F
8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
33333333338FFFFFF88333333333330000000033333333333388888888333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
ParentshowHint = False
ShowHint = True
OnClick = AddToClipSBClick
end
object HexSB: TSpeedButton
Left = 105
Top = 4
Width = 25
Height = 25
Hint = 'Hex/ASCII view'
Caption = 'HEX'
ParentShowHint = False
ShowHint = True
OnClick = HexSBClick
end
object HexLineSB: TSpeedButton
Left = 130
Top = 4
Width = 25
Height = 25
Hint = 'Hex line length'
Caption = '$<>'
ParentShowHint = False
ShowHint = True
OnClick = HexLineSBClick
end
object FirstLineSB: TSpeedButton
Left = 155
Top = 4
Width = 25
Height = 25
Hint = 'Length of first hex line'
Caption = '1<>'
ParentShowHint = False
ShowHint = True
OnClick = FirstLineSBClick
end
object FontSB: TSpeedButton
Left = 180
Top = 4
Width = 25
Height = 25
Hint = 'Change font'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = FontSBClick
end
end
object HSPanel: TPanel
Left = 0
Top = 427
Width = 622
Height = 16
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object HScroll: TScrollBar
Left = 1
Top = 1
Width = 862
Height = 15
LargeChange = 250
Max = 2000
SmallChange = 10
TabOrder = 0
OnChange = VScrollChange
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Options = [fdForceFontExist]
Left = 248
Top = 2
end
object FindDialog1: TFindDialog
Options = [frDown, frHideWholeWord, frHideUpDown]
OnFind = FindDialog1Find
Left = 276
Top = 2
end
object OpenDialog1: TOpenDialog
FileEditStyle = fsEdit
Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
Left = 305
Top = 3
end
end