home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DELPHI
/
ORPHTR
/
ORPHTR.EXE
/
VWUNIT.DFM
/
VWUNIT.txt
Wrap
Text File
|
1995-03-29
|
5KB
|
273 lines
object Form1: TForm1
Left = 198
Top = 99
Width = 597
Height = 427
ActiveControl = OvcSimpleField1
Caption = 'Viewer Demo'
Color = clTeal
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnActivate = FormActivate
TextHeight = 14
object Label1: TLabel
Left = 8
Top = 224
Width = 112
Height = 14
Caption = 'Text file viewer'
end
object Label2: TLabel
Left = 8
Top = 136
Width = 161
Height = 14
Caption = 'File viewer in hex mode'
end
object OvcController1: TOvcController
Left = 520
Top = 152
EntryCommands.TableList = (
'Default'
True
(
37
47
39
58
1061
76
1063
77
36
43
35
17
46
11
8
1
520
1
1058
2
1057
73
45
45
1114
57
2056
57
38
75
40
16
1037
48
549
21
551
24
548
20
547
19
1573
30
1575
31
545
23
546
22
550
25
552
18
1572
27
1571
28
1569
29
1570
26
558
9
1112
9
1069
7
1091
7
557
53
1110
53
33
55
1060
32
34
50
1059
46
9
49
521
54
1033
49
1545
54
3080
56
1072
33
1073
34
1074
35
1075
36
1076
37
1077
38
1078
39
1079
40
1080
41
1081
42
1584
61
1585
62
1586
63
1587
64
1588
65
1589
66
1590
67
1591
68
1592
69
1593
70))
end
object OvcFileViewer1: TOvcFileViewer
Left = 0
Top = 0
Width = 589
Height = 129
CaretType.CaretHeight = 17
FixedFont.Color = clWindowText
FixedFont.Name = 'Fixedsys'
FixedFont.Size = 10
FixedFont.Style = []
SelectionColors.BackColor = clHighlight
SelectionColors.TextColor = clHighlightText
SelectionColors.UseDefault = False
Controller = OvcController1
TabOrder = 0
TabStop = True
FileName = 'VWUNIT.PAS'
IsOpen = False
Align = alTop
ParentColor = False
end
object OvcTextFileViewer1: TOvcTextFileViewer
Left = 0
Top = 240
Width = 589
Height = 160
CaretType.CaretHeight = 17
FixedFont.Color = clWindowText
FixedFont.Name = 'Fixedsys'
FixedFont.Size = 10
FixedFont.Style = []
SelectionColors.BackColor = clHighlight
SelectionColors.TextColor = clHighlightText
SelectionColors.UseDefault = False
Controller = OvcController1
TabOrder = 1
TabStop = True
FileName = 'VWUNIT.PAS'
IsOpen = False
Align = alBottom
ParentColor = False
end
object Panel1: TPanel
Left = 80
Top = 152
Width = 377
Height = 49
ParentShowHint = False
ShowHint = True
TabOrder = 2
object OvcSimpleField1: TOvcSimpleField
Left = 8
Top = 14
Width = 249
Height = 24
Cursor = crIBeam
Hint = 'Name of file to view'
CaretOvr.Shape = csBlock
Controller = OvcController1
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
HighlightColors.BackColor = clHighlight
HighlightColors.TextColor = clHighlightText
HighlightColors.UseDefault = False
MaxLength = 66
Options = [pefBeepOnError]
ParentColor = False
ParentFont = False
TabOrder = 0
TabStop = True
end
object btnOpen: TButton
Left = 264
Top = 12
Width = 105
Height = 25
Hint = 'Press to view the file'
Caption = 'Open File'
TabOrder = 1
OnClick = btnOpenClick
end
end
object btnCopy: TButton
Left = 184
Top = 208
Width = 145
Height = 25
Caption = 'Copy to Clipboard'
TabOrder = 3
OnClick = btnCopyClick
end
object BitBtn1: TBitBtn
Left = 487
Top = 197
Width = 89
Height = 33
TabOrder = 4
Kind = bkClose
end
end