📄 test1main.dfm
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -