home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / SAMPLE / Unit1.dfm / Unit1.txt
Text File  |  1998-06-23  |  3KB  |  156 lines
  1. object Form1: TForm1
  2.   Left = 176
  3.   Top = 170
  4.   Width = 442
  5.   Height = 294
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object Panel1: TPanel
  14.     Left = 0
  15.     Top = 0
  16.     Width = 434
  17.     Height = 33
  18.     Align = alTop
  19.     TabOrder = 0
  20.     OnClick = Panel1Click
  21.     object CompileBut: TButton
  22.       Left = 4
  23.       Top = 4
  24.       Width = 75
  25.       Height = 25
  26.       Caption = 'Compile'
  27.       TabOrder = 0
  28.       OnClick = CompileButClick
  29.     end
  30.     object SpeedBar1: TSpeedBar
  31.       Left = 1
  32.       Top = 1
  33.       Width = 432
  34.       Height = 36
  35.       Font.Color = clWindowText
  36.       Font.Height = -11
  37.       Font.Name = 'MS Sans Serif'
  38.       Font.Style = []
  39.       BtnOffsetHorz = 3
  40.       BtnOffsetVert = 3
  41.       TabOrder = 1
  42.       InternalVer = 1
  43.       object BitBtn1: TBitBtn
  44.         Left = 4
  45.         Top = 4
  46.         Width = 75
  47.         Height = 25
  48.         Caption = 'Compile'
  49.         TabOrder = 0
  50.         OnClick = BitBtn1Click
  51.       end
  52.       object BitBtn2: TBitBtn
  53.         Left = 88
  54.         Top = 4
  55.         Width = 75
  56.         Height = 25
  57.         Caption = 'Run'
  58.         TabOrder = 1
  59.         OnClick = BitBtn2Click
  60.       end
  61.       object Button1: TButton
  62.         Left = 172
  63.         Top = 4
  64.         Width = 75
  65.         Height = 25
  66.         Caption = 'Load'
  67.         TabOrder = 2
  68.         OnClick = Button1Click
  69.       end
  70.       object Button2: TButton
  71.         Left = 256
  72.         Top = 4
  73.         Width = 75
  74.         Height = 25
  75.         Caption = 'Save'
  76.         TabOrder = 3
  77.         OnClick = Button2Click
  78.       end
  79.       object SpeedbarSection1: TSpeedbarSection
  80.         Caption = 'Untitled (0)'
  81.       end
  82.     end
  83.   end
  84.   object Memo1: TMemo
  85.     Left = 0
  86.     Top = 33
  87.     Width = 246
  88.     Height = 234
  89.     Align = alClient
  90.     Font.Color = clBlack
  91.     Font.Height = -13
  92.     Font.Name = 'Courier New'
  93.     Font.Style = []
  94.     Lines.Strings = (
  95.       'Show('#39'Here you see program source'#39');'
  96.       'Show:='#39'Press Load and select Sample.txt'#39';')
  97.     ParentFont = False
  98.     ScrollBars = ssBoth
  99.     TabOrder = 1
  100.   end
  101.   object RxSplitter1: TRxSplitter
  102.     Left = 246
  103.     Top = 33
  104.     Width = 3
  105.     Height = 234
  106.     ControlFirst = Memo2
  107.     ControlSecond = Memo1
  108.     Align = alRight
  109.   end
  110.   object Memo2: TMemo
  111.     Left = 249
  112.     Top = 33
  113.     Width = 185
  114.     Height = 234
  115.     Align = alRight
  116.     Lines.Strings = (
  117.       'This is window with '
  118.       'VM-codes'
  119.       'If U want to run'
  120.       'a program'
  121.       'press'
  122.       'Compile and Run'
  123.       'buttons...')
  124.     ScrollBars = ssVertical
  125.     TabOrder = 3
  126.   end
  127.   object aCode: TCode
  128.     Size = 8000
  129.     Left = 336
  130.     Top = 136
  131.   end
  132.   object LangProc1: TLangProc
  133.     LangName = 'Caption'
  134.     LangOwner = RunTime.VM
  135.     OnExec = LangProc1Exec
  136.     Left = 137
  137.     Top = 145
  138.   end
  139.   object OpenDialog1: TOpenDialog
  140.     DefaultExt = 'txt'
  141.     FileEditStyle = fsEdit
  142.     FileName = '*.txt'
  143.     Filter = 'Text files (*.txt)|*.txt'
  144.     Left = 160
  145.     Top = 72
  146.   end
  147.   object SaveDialog1: TSaveDialog
  148.     DefaultExt = 'txt'
  149.     FileEditStyle = fsEdit
  150.     FileName = '*.txt'
  151.     Filter = 'Text files (*.txt)|*.txt'
  152.     Left = 200
  153.     Top = 72
  154.   end
  155. end
  156.