Hot Shareware 35/hot35.iso/ficheros/9EDU/VIN32_96.ZIP/VIN32.EXE/0/RCDATA/TTEXTF/TTEXTF.txt

Text File | 1998-04-25 | 3KB | 148 lines

object TextF: TTextF
  Left = 603
  Top = 324
  Width = 435
  Height = 300
  HelpContext = 500
  Caption = 'Vinny  Text'
  Ctl3D = False
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 427
    Height = 251
    Align = alClient
    BorderStyle = bsNone
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
    WordWrap = False
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 32
    object File1: TMenuItem
      Caption = '&File'
      GroupIndex = 1
      HelpContext = 500
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&New  Data'
        HelpContext = 500
        ShortCut = 0
        OnClick = New1Click
      end
      object NewText1: TMenuItem
        Caption = 'New  &Text'
        HelpContext = 500
        ShortCut = 0
        OnClick = NewText1Click
      end
      object open1: TMenuItem
        Caption = '&Open'
        HelpContext = 500
        ShortCut = 114
        OnClick = open1Click
      end
      object SaveText1: TMenuItem
        Caption = '&Save Text'
        HelpContext = 500
        ShortCut = 0
        OnClick = SaveText1Click
      end
      object Close1: TMenuItem
        Caption = '&Close Text'
        HelpContext = 500
        ShortCut = 32882
        OnClick = Close1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Print1: TMenuItem
        Caption = '&Print Text'
        HelpContext = 1300
        ShortCut = 0
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'P&rint Setup...'
        HelpContext = 1300
        ShortCut = 0
        OnClick = PrintSetup1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 2
      HelpContext = 400
      ShortCut = 0
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        HelpContext = 400
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        HelpContext = 400
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        HelpContext = 400
        ShortCut = 16470
        OnClick = Paste1Click
      end
    end
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums]
    Left = 72
    Top = 32
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 128
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 'Text File|*.txt|Any File|*.*'
    Options = [ofHideReadOnly]
    Left = 168
    Top = 32
  end
end