picpas.~dfm

PIC 单片机 PAS SOURCE CODE SAMPLES

object Form1: TForm1
  Left = 204
  Top = 113
  Width = 806
  Height = 611
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Pic2Pas Editor 0.4'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000003333000000000000000000
    0000000333333333300000000000000000000033333333333330000000000000
    00033333333333333333330000000000000333333333333BB3B33B0000000000
    003333333333333BB3B3BB30000000000033333333300033BB3BBBB000000000
    3333333300003000BBBBBBBB0000000033333330B33B3BB000BBBBBB00000003
    33333003B33B3BBBBB03BBBBB0000003333300333BBBBBBBBBB00BBBB0000003
    3333033B3BBBBBBBBBBBB0BBB0000003330033B3B3BBBBBBBBBBB0BBB0000003
    3333333B3BBBBBBBBBBBBBBBB000000333333B3BBBBBBBBBBBBBBBBBB0000003
    333333BBBBBBBBBBBBBBBBBBB0000003333333BBBBBBBBBBBBBBBBBBB0000000
    33333B3BBBBBBBBBBBBBBBBB0000000033333B3BBBBBBBBBBBBBBBBB00000000
    0333B300BBBBBBB0000BBBB0000000000333B30000BBBBB0000BBBB000000000
    00333B0000BBBBB0000BBBB00000000000033BB000BBBBB000BBBB0000000000
    000033BBBBBBBBBBBBBBB000000000000000000BBBBBBBBBBBB0000000000000
    00000000BBBBBBBBB00000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFC3FFFFFE007FFFFC001FFFE00003FFE00003FFC00
    001FFC00001FF000000FF000000FE0000007E0000007E0000007E0000007E000
    0007E0000007E0000007E0000007F000000FF000000FF800001FF800001FFC00
    001FFE00003FFF00007FFFE001FFFFF007FFFFFFFFFFFFFFFFFFFFFFFFFF}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowMenu = Exit1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 688
    Top = 512
    Width = 37
    Height = 13
    Caption = 'Position'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 736
    Top = 528
    Width = 14
    Height = 13
    Caption = 'No'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 160
    Top = 32
    Width = 28
    Height = 16
    Caption = 'File: '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ListBox1: TListBox
    Left = 8
    Top = 408
    Width = 145
    Height = 145
    Hint = 'Variables'
    AutoComplete = False
    Color = clSilver
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 798
    Height = 29
    ButtonHeight = 23
    ButtonWidth = 25
    Caption = 'ToolBar1'
    DragMode = dmAutomatic
    Images = ToolbarImages
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = 'Open|Opens an existing file'
      Caption = '&Open...'
      DragCursor = crDefault
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton7: TToolButton
      Left = 25
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 33
      Top = 2
      Hint = 'Save'
      Caption = 'ToolButton2'
      DragCursor = crHandPoint
      ImageIndex = 11
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 58
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 66
      Top = 2
      Hint = 'Compile'
      Caption = 'ToolButton4'
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 91
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 99
      Top = 2
      Hint = 'Setup'
      AllowAllUp = True
      Caption = 'ToolButton6'
      ImageIndex = 12
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton6Click
    end
    object ToolButton8: TToolButton
      Left = 124
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object undocmd: TToolButton
      Left = 132
      Top = 2
      Action = EditUndo1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton10: TToolButton
      Left = 157
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 165
      Top = 2
      Action = PrintDlg1
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton12: TToolButton
      Left = 190
      Top = 2
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 198
      Top = 2
      Caption = 'ToolButton13'
      ImageIndex = 0
      OnClick = ToolButton13Click
    end
    object ToolButton14: TToolButton
      Left = 223
      Top = 2
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton15: TToolButton
      Left = 231
      Top = 2
      Hint = 'Run|Runs an application'
      Caption = '&Run...'
      ImageIndex = 17
      ParentShowHint = False
      ShowHint = True
    end
  end
  object ListBox2: TListBox
    Left = 688
    Top = 56
    Width = 105
    Height = 449
    Hint = 'Double click'
    Style = lbOwnerDrawFixed
    Color = clSilver
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []