unit1.dfm

IDE开发环境

object Form1: TForm1
  Left = 425
  Top = 193
  Width = 522
  Height = 290
  Caption = 'Code View'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SplitteB: TSplitter
    Left = 0
    Top = 177
    Width = 514
    Height = 4
    Cursor = crVSplit
    Align = alBottom
  end
  object SplitterL: TSplitter
    Left = 0
    Top = 1
    Width = 1
    Height = 176
    Cursor = crHSplit
  end
  object SplitterR: TSplitter
    Left = 511
    Top = 1
    Width = 3
    Height = 176
    Cursor = crHSplit
    Align = alRight
  end
  object SplitterT: TSplitter
    Left = 0
    Top = 0
    Width = 514
    Height = 1
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 181
    Width = 514
    Height = 82
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 512
      Height = 13
      Align = alTop
      Caption = 'Compile Status:'
    end
    object Memo1: TMemo
      Left = 1
      Top = 14
      Width = 512
      Height = 67
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
    end
  end
  object Tabs: TPageControl
    Tag = 1
    Left = 1
    Top = 1
    Width = 510
    Height = 176
    ActivePage = First
    Align = alClient
    HotTrack = True
    PopupMenu = TabPopup
    TabIndex = 0
    TabOrder = 1
    OnChange = TabsChange
    OnDragDrop = TabsDragDrop
    OnDragOver = TabsDragOver
    OnMouseDown = TabsMouseDown
    object First: TTabSheet
      Caption = 'Untitled1'
      PopupMenu = TabPopup
    end
  end
  object TabPopup: TPopupMenu
    Left = 32
    Top = 192
    object Close1: TMenuItem
      Caption = 'Close...'
    end
  end
end