demounit2.dfm

PIC 单片机 PAS SOURCE CODE SAMPLES

object frmDemo: TfrmDemo
  Left = 192
  Top = 168
  Width = 793
  Height = 541
  Caption = 'Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object memo: TRichEdit
    Left = 0
    Top = 0
    Width = 664
    Height = 507
    Align = alClient
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'Program Demo;'
      'begin'
      ' //Delphi Syntax Demo'
      'end.'
      '')
    ParentFont = False
    PlainText = True
    TabOrder = 0
    OnChange = memoChange
  end
  object Panel1: TPanel
    Left = 664
    Top = 0
    Width = 121
    Height = 507
    Align = alRight
    TabOrder = 1
    object Button1: TButton
      Left = 32
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Activate'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 32
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Deactivate'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
end