169 lines
4.1 KiB
Plaintext
169 lines
4.1 KiB
Plaintext
object JvMouseGestureDemoMainFrm: TJvMouseGestureDemoMainFrm
|
|
Left = 336
|
|
Top = 303
|
|
Width = 514
|
|
Height = 386
|
|
Caption = 'Mouse Gesture Demo'
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 272
|
|
Constraints.MinWidth = 426
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Top = 8
|
|
Width = 483
|
|
Height = 113
|
|
Anchors = [akLeft, akTop, akRight]
|
|
BorderStyle = bsNone
|
|
TabOrder = 0
|
|
OnContextPopup = Memo1ContextPopup
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 132
|
|
Width = 489
|
|
Height = 217
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = ' Gesture Detection '
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 48
|
|
Top = 88
|
|
Width = 124
|
|
Height = 13
|
|
Caption = 'Choose button (hook only)'
|
|
Enabled = False
|
|
end
|
|
object rbFormOnly: TJvRadioButton
|
|
Left = 24
|
|
Top = 32
|
|
Width = 92
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Panel (on right)'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbFormOnlyClick
|
|
HotTrackFont.Charset = DEFAULT_CHARSET
|
|
HotTrackFont.Color = clWindowText
|
|
HotTrackFont.Height = -11
|
|
HotTrackFont.Name = 'MS Sans Serif'
|
|
HotTrackFont.Style = []
|
|
LinkedControls = <
|
|
item
|
|
Control = Label2
|
|
end>
|
|
end
|
|
object rbAppEvents: TJvRadioButton
|
|
Left = 24
|
|
Top = 64
|
|
Width = 73
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'All Controls'
|
|
TabOrder = 1
|
|
OnClick = rbFormOnlyClick
|
|
HotTrackFont.Charset = DEFAULT_CHARSET
|
|
HotTrackFont.Color = clWindowText
|
|
HotTrackFont.Height = -11
|
|
HotTrackFont.Name = 'MS Sans Serif'
|
|
HotTrackFont.Style = []
|
|
LinkedControls = <
|
|
item
|
|
Control = Label1
|
|
end
|
|
item
|
|
Control = cbMouseButton
|
|
end
|
|
item
|
|
Control = chkNoPopup
|
|
end>
|
|
end
|
|
object cbMouseButton: TComboBox
|
|
Left = 48
|
|
Top = 104
|
|
Width = 145
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = cbMouseButtonChange
|
|
Items.Strings = (
|
|
'Left mouse button'
|
|
'Middle mouse button'
|
|
'Right mouse button')
|
|
end
|
|
object chkNoPopup: TJvCheckBox
|
|
Left = 48
|
|
Top = 136
|
|
Width = 203
|
|
Height = 30
|
|
Caption = 'Don'#39't show Memo popup when gesture available'
|
|
Checked = True
|
|
Enabled = False
|
|
State = cbChecked
|
|
TabOrder = 3
|
|
WordWrap = True
|
|
LinkedControls = <>
|
|
AutoSize = False
|
|
HotTrackFont.Charset = DEFAULT_CHARSET
|
|
HotTrackFont.Color = clWindowText
|
|
HotTrackFont.Height = -11
|
|
HotTrackFont.Name = 'MS Sans Serif'
|
|
HotTrackFont.Style = []
|
|
end
|
|
object pnlGesture: TPanel
|
|
Left = 256
|
|
Top = 16
|
|
Width = 217
|
|
Height = 193
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
BorderStyle = bsSingle
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnMouseDown = FormMouseDown
|
|
OnMouseMove = FormMouseMove
|
|
OnMouseUp = FormMouseUp
|
|
object Label2: TLabel
|
|
Left = 41
|
|
Top = 94
|
|
Width = 139
|
|
Height = 13
|
|
Anchors = []
|
|
Caption = 'Drag gesture with right button'
|
|
end
|
|
end
|
|
end
|
|
object JvMouseGesture1: TJvMouseGesture
|
|
TrailLimit = 1000
|
|
TrailInterval = 2
|
|
Grid = 15
|
|
Delay = 500
|
|
Active = False
|
|
Left = 24
|
|
Top = 88
|
|
end
|
|
object JvMouseGestureHook1: TJvMouseGestureHook
|
|
Active = False
|
|
ActivationMode = amManual
|
|
OnMouseGestureCustomInterpretation = JvMouseGestureHook1MouseGestureCustomInterpretation
|
|
Left = 56
|
|
Top = 88
|
|
end
|
|
end
|