teefilterseditor.xfm

来自「第三方控件：PaintGrid.pas 网格型仪表控件源文件 」· XFM 代码 · 共 136 行

object FiltersEditor: TFiltersEditor
  Left = 311
  Top = 231
  Width = 484
  Height = 306
  Caption = 'Filters'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 126
    Top = 0
    Height = 279
  end
  object PageControl1: TPageControl
    Left = 129
    Top = 0
    Width = 347
    Height = 279
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Preview'
      object Image: TDraw3D
        Left = 0
        Top = 0
        Width = 339
        Height = 251
        Align = alClient
        BevelOuter = bvNone
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnResize = ImageResize
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 126
    Height = 279
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 126
      Height = 37
      Align = alTop
      TabOrder = 0
      object BAdd: TSpeedButton
        Left = 4
        Top = 8
        Width = 23
        Height = 22
        Caption = '+'
        Flat = True
        OnClick = BAddClick
      end
      object BDelete: TSpeedButton
        Left = 34
        Top = 8
        Width = 23
        Height = 22
        Caption = '-'
        Enabled = False
        Flat = True
        OnClick = BDeleteClick
      end
      object BMoveUp: TSpeedButton
        Left = 69
        Top = 8
        Width = 23
        Height = 22
        Enabled = False
        Flat = True
        NumGlyphs = 2
        OnClick = BMoveUpClick
      end
      object BMoveDown: TSpeedButton
        Left = 96
        Top = 8
        Width = 23
        Height = 22
        Enabled = False
        Flat = True
        NumGlyphs = 2
        OnClick = BMoveDownClick
      end
    end
    object Filters: TCheckListBox
      Left = 0
      Top = 37
      Width = 126
      Height = 195
      OnClickCheck = FiltersClickCheck
      Align = alClient
      ItemHeight = 13
      TabOrder = 1
      OnClick = FiltersClick
    end
    object Properties: TPanel
      Left = 0
      Top = 232
      Width = 126
      Height = 47
      Align = alBottom
      TabOrder = 2
    end
  end
  object MenuFilters: TPopupMenu
    Left = 56
    Top = 104
  end
  object PopupMenu1: TPopupMenu
    Left = 232
    Top = 136
    object Scaled1: TMenuItem
      Caption = '&Scaled'
      Checked = True
      OnClick = Scaled1Click
    end
  end
end