frmmainu.dfm

简单的画图软件

object frmMain: TfrmMain
  Left = 62
  Top = 34
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'frmMain'
  ClientHeight = 482
  ClientWidth = 688
  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 lblWhiteBord: TLabel
    Left = 0
    Top = 0
    Width = 660
    Height = 385
    Cursor = crCross
    AutoSize = False
    Color = clWhite
    ParentColor = False
    OnMouseDown = lblWhiteBordMouseDown
    OnMouseMove = lblWhiteBordMouseMove
    OnMouseUp = lblWhiteBordMouseUp
    OnMouseLeave = lblWhiteBordMouseLeave
  end
  object ToolBar2: TToolBar
    Left = 661
    Top = 0
    Width = 27
    Height = 426
    Align = alRight
    ButtonWidth = 25
    Caption = 'ToolBar2'
    Color = clMoneyGreen
    Customizable = True
    EdgeBorders = [ebLeft, ebRight]
    EdgeInner = esLowered
    EdgeOuter = esRaised
    Images = ImageList
    ParentColor = False
    TabOrder = 0
    object tbtnSp: TToolButton
      Left = 0
      Top = 2
      Cursor = crHandPoint
      Caption = 'tbtnSp'
      ImageIndex = 0
      Wrap = True
      OnClick = tbtnRecEClick
    end
    object tbtnColorMixer: TToolButton
      Left = 0
      Top = 24
      Cursor = crHandPoint
      ImageIndex = 5
      Wrap = True
      OnClick = tbtnRecEClick
    end
    object tbtnBros: TToolButton
      Left = 0
      Top = 46
      Cursor = crHandPoint
      Caption = 'tbtnBros'
      ImageIndex = 1
      Wrap = True
      OnClick = tbtnRecEClick
    end
    object tbtnPen: TToolButton
      Left = 0
      Top = 68
      Cursor = crHandPoint
      Caption = 'tbtnPen'
      Down = True
      ImageIndex = 2
      Wrap = True
      OnClick = tbtnRecEClick
    end
    object tbtnDefCl: TToolButton
      Left = 0
      Top = 90
      Cursor = crHandPoint
      Caption = 'tbtnDefCl'
      ImageIndex = 3
      Wrap = True
      OnClick = tbtnRecEClick
    end
    object tbtnEraser: TToolButton
      Left = 0
      Top = 112
      Cursor = crHandPoint
      Caption = 'tbtnEraser'
      ImageIndex = 4
      OnClick = tbtnRecEClick
    end
  end
  object Panel12: TPanel
    Left = 0
    Top = 426
    Width = 688
    Height = 56
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 1
    object pnlTypeDock: TPanel
      Left = 528
      Top = 2
      Width = 161
      Height = 53
      BevelInner = bvLowered
      BevelWidth = 3
      TabOrder = 21
      Visible = False
      object shpType1: TShape
        Left = 9
        Top = 8
        Width = 33
        Height = 33
      end
      object shpType2: TShape
        Left = 46
        Top = 8
        Width = 33
        Height = 33
      end
      object shpType3: TShape
        Left = 83
        Top = 8
        Width = 33
        Height = 33
      end
      object shpType4: TShape
        Left = 120
        Top = 8
        Width = 33
        Height = 33
      end
      object lblType1: TLabel
        Left = 10
        Top = 10
        Width = 30
        Height = 30
        AutoSize = False
        Transparent = True
        OnClick = Label1Click
      end
      object lblType2: TLabel
        Left = 48
        Top = 10
        Width = 30
        Height = 30
        AutoSize = False
        Transparent = True
        OnClick = Label1Click
      end
      object lblType3: TLabel
        Left = 85
        Top = 10
        Width = 30
        Height = 30
        AutoSize = False
        Transparent = True
        OnClick = Label1Click
      end
      object lblType4: TLabel
        Left = 122
        Top = 10
        Width = 30
        Height = 30
        AutoSize = False
        Transparent = True
        OnClick = Label1Click
      end
    end
    object Panel13: TPanel
      Left = 0
      Top = 8
      Width = 45
      Height = 43
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clCream
      TabOrder = 0
      object pnlClR: TPanel
        Left = 16
        Top = 16
        Width = 20
        Height = 20
        BevelInner = bvSpace
        TabOrder = 1
      end
      object pnlClL: TPanel
        Left = 8
        Top = 8
        Width = 20
        Height = 20
        BevelInner = bvSpace
        TabOrder = 0
      end
    end
    object Panel16: TPanel
      Left = 48
      Top = 29
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clWhite
      TabOrder = 1
      OnMouseDown = Panel17MouseDown
    end
    object Panel17: TPanel
      Left = 48
      Top = 5
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clBlack
      TabOrder = 2
      OnMouseDown = Panel17MouseDown
    end
    object Panel18: TPanel
      Left = 72
      Top = 29
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clRed
      TabOrder = 3
      OnMouseDown = Panel17MouseDown
    end
    object Panel19: TPanel
      Left = 72
      Top = 5
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clMaroon
      TabOrder = 4
      OnMouseDown = Panel17MouseDown
    end
    object Panel20: TPanel
      Left = 120
      Top = 5
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clOlive
      TabOrder = 5
      OnMouseDown = Panel17MouseDown
    end
    object Panel21: TPanel
      Left = 120
      Top = 29
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clYellow
      TabOrder = 6
      OnMouseDown = Panel17MouseDown
    end
    object Panel22: TPanel
      Left = 96
      Top = 29
      Width = 24
      Height = 24
      BevelInner = bvLowered
      BevelWidth = 2
      Color = clLime