test1main.dfm

来自「ImageMagick library of image with Visua」· DFM 代码 · 共 163 行

object frmMain: TfrmMain
  Left = 432
  Top = 259
  Width = 506
  Height = 356
  Caption = 'Test1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object sbMain: TStatusBar
    Left = 0
    Top = 291
    Width = 498
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object scbMain: TScrollBox
    Left = 0
    Top = 0
    Width = 498
    Height = 291
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    TabOrder = 1
    object imMagick: TImage
      Left = 0
      Top = 0
      Width = 241
      Height = 161
      AutoSize = True
    end
  end
  object MainMenu1: TMainMenu
    Left = 464
    object File1: TMenuItem
      Caption = '&File'
      object mnuOpen: TMenuItem
        Caption = '&Open'
        OnClick = mnuOpenClick
      end
      object mnuSaveAs: TMenuItem
        Caption = 'Save &As...'
        OnClick = mnuSaveAsClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuOptions: TMenuItem
        Caption = '&Options...'
        OnClick = mnuOptionsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      OnClick = mnuEditClick
      object mnuCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = mnuCopyClick
      end
      object mnuPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = mnuPasteClick
      end
    end
    object Image1: TMenuItem
      Caption = '&Image'
      object mnuPrevFrame: TMenuItem
        Caption = '&Prev Frame'
        OnClick = mnuPrevFrameClick
      end
      object mnuNextFrame: TMenuItem
        Caption = '&Next Frame'
        OnClick = mnuNextFrameClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuHalfSize: TMenuItem
        Caption = 'Half Size'
        OnClick = mnuHalfSizeClick
      end
      object mnuDoubleSize: TMenuItem
        Caption = 'Double Size'
        OnClick = mnuDoubleSizeClick
      end
      object mnuResize: TMenuItem
        Caption = '&Resize...'
        OnClick = mnuResizeClick
      end
    end
    object Effect1: TMenuItem
      Caption = '&Effect'
      object mnuBlur: TMenuItem
        Caption = 'Blur...'
        OnClick = mnuBlurClick
      end
      object mnuDespecle: TMenuItem
        Caption = 'Despecle'
        OnClick = mnuDespecleClick
      end
      object mnuFindEdges: TMenuItem
        Caption = 'Find Edges'
        OnClick = mnuFindEdgesClick
      end
      object Emboss: TMenuItem
        Caption = 'Emboss'
        OnClick = EmbossClick
      end
      object mnuQuantize: TMenuItem
        Caption = 'Quantize'
        OnClick = mnuQuantizeClick
      end
      object mnuMedian: TMenuItem
        Caption = 'Median'
        OnClick = mnuMedianClick
      end
      object mnuAddaptiveTreshold: TMenuItem
        Caption = 'Addaptive Threshold'
        OnClick = mnuAddaptiveTresholdClick
      end
      object mnuThreshold: TMenuItem
        Caption = 'Threshold'
        OnClick = mnuThresholdClick
      end
    end
    object About1: TMenuItem
      Caption = '&Help'
      object mnuAbout: TMenuItem
        Caption = '&About...'
        OnClick = mnuAboutClick
      end
    end
  end
  object opdPicture: TOpenPictureDialog
    Left = 440
  end
  object spdPicture: TSavePictureDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 408
  end
end