jvcl driver development envionment

源代码在线查看: ujvmousegesture.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源