graphicsresourceform.dfm

學習資料網上下載

inherited fmGraphicsResource: TfmGraphicsResource
  Left = 350
  Top = 181
  Caption = 'fmGraphicsResource'
  ClientHeight = 485
  ClientWidth = 732
  KeyPreview = True
  Menu = MainMenu1
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Height = 485
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 485
    Align = alLeft
    BevelOuter = bvLowered
    FullRepaint = False
    TabOrder = 0
    object Splitter2: TSplitter
      Left = 1
      Top = 121
      Width = 183
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object PropertyListBox1: TPropertyListBox
      Left = 1
      Top = 1
      Width = 183
      Height = 120
      VertScrollBar.Increment = 17
      VertScrollBar.Range = 51
      Align = alTop
      AutoScroll = False
      BorderStyle = bsNone
      PopupMenu = PopupMenu1
      Properties = <
        item
          PropertyName = 'Width'
          PropertyType = ptInteger
          Tag = 0
          ParentColor = False
          Color = clBlack
          ReadOnly = False
        end
        item
          PropertyName = 'Height'
          PropertyType = ptInteger
          Tag = 0
          ParentColor = False
          Color = clBlack
          ReadOnly = False
        end
        item
          PropertyName = 'Pixel Format'
          PropertyType = ptEnum
          Tag = 0
          EnumValues.Strings = (
            '1 Bit'
            '4 Bit'
            '8 Bit'
            '24 Bit'
            '32 Bit')
          ParentColor = False
          Color = clBlack
          ReadOnly = False
        end>
      ActualValueColWidth = 0
      OnPropertyChanged = PropertyListBox1PropertyChanged
    end
    object sbThumbnail: TScrollBox
      Left = 1
      Top = 124
      Width = 183
      Height = 360
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      Align = alClient
      PopupMenu = PopupMenu1
      TabOrder = 1
      object Image1: TImage
        Left = 8
        Top = 8
        Width = 105
        Height = 105
        AutoSize = True
        PopupMenu = PopupMenu1
      end
    end
  end
  object Panel1: TPanel
    Left = 188
    Top = 0
    Width = 458
    Height = 485
    Align = alClient
    BevelOuter = bvNone
    FullRepaint = False
    TabOrder = 1
    object ScrollBox2: TScrollBox
      Left = 0
      Top = 0
      Width = 458
      Height = 485
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      Align = alClient
      PopupMenu = PopupMenu1
      TabOrder = 0
      object BitmapEditor1: TBitmapEditor
        Left = 8
        Top = 8
        Width = 130
        Height = 130
        Cursor = crArrow
        TransparentColor = 16770815
        DoubleBuffered = True
        PopupMenu = PopupMenu1
        DrawingTool = dtNone
        OnChange = BitmapEditor1Change
        OnEndChange = BitmapEditor1EndChange
        OnDrawToolChange = BitmapEditor1DrawToolChange
        OnSelectionRectChange = BitmapEditor1SelectionRectChange
      end
    end
  end
  object SizingPageControl1: TSizingPageControl
    Left = 646
    Top = 0
    Width = 86
    Height = 485
    Align = alRight
    DockSite = True
    MultiLine = True
    TabOrder = 2
    OnDockDrop = SizingPageControl1DockDrop
    OnUnDock = SizingPageControl1UnDock
  end
  object pnlGraphics: TPanel
    Left = 643
    Top = 8
    Width = 81
    Height = 168
    AutoSize = True
    BevelOuter = bvLowered
    BorderWidth = 5
    Caption = 'Drawing Tools'
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnFace
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object ToolBar1: TToolBar
      Left = 6
      Top = 6
      Width = 69
      Height = 156
      Align = alNone
      AutoSize = True
      Caption = 'Drawing'
      Constraints.MaxHeight = 156
      Constraints.MaxWidth = 69
      Constraints.MinHeight = 156
      Constraints.MinWidth = 69
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object tbSelectRect: TToolButton
        Tag = 15
        Left = 0
        Top = 0
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 0
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbSelectShape: TToolButton
        Tag = 16
        Left = 23
        Top = 0
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 1
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbDropper: TToolButton
        Tag = 17
        Left = 46
        Top = 0
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 2
        Wrap = True
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbEraser: TToolButton
        Left = 0
        Top = 22
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 3
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbFloodFill: TToolButton
        Tag = 6
        Left = 23
        Top = 22
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 4
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbMagnifier: TToolButton
        Tag = 13
        Left = 46
        Top = 22
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 5
        Wrap = True
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbPencil: TToolButton
        Tag = 1
        Left = 0
        Top = 44
        Caption = 'actDrawing Tool'
        Down = True
        Grouped = True
        ImageIndex = 6
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbBrush: TToolButton
        Tag = 14
        Left = 23
        Top = 44
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 7
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object tbAirbrush: TToolButton
        Left = 46
        Top = 44
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 8
        Wrap = True
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object ToolButton10: TToolButton
        Tag = 2
        Left = 0
        Top = 66
        Caption = 'actDrawing Tool'
        Grouped = True
        ImageIndex = 9
        Style = tbsCheck
        OnClick = tbPencilClick
      end
      object ToolButton11: TToolButton
        Left = 23
        Top = 66