C!T ROM 5/ctrom5b.zip/ctrom5b/PROGRAM/DELPHI/ORPHTR/VWUNIT.DFM/VWUNIT.txt

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