1object MouseaActionDialog: TMouseaActionDialog 2 Left = 412 3 Height = 449 4 Top = 225 5 Width = 627 6 BorderIcons = [biSystemMenu] 7 BorderStyle = bsDialog 8 Caption = 'MouseaActionDialog' 9 ClientHeight = 449 10 ClientWidth = 627 11 OnCreate = FormCreate 12 Position = poScreenCenter 13 LCLVersion = '2.1.0.0' 14 object BtnLabel: TLabel 15 AnchorSideLeft.Control = Owner 16 AnchorSideRight.Control = ActionLabel 17 AnchorSideRight.Side = asrBottom 18 Left = 6 19 Height = 15 20 Top = 159 21 Width = 90 22 Anchors = [akTop, akLeft, akRight] 23 BorderSpacing.Left = 6 24 Caption = 'BtnLabel' 25 ParentColor = False 26 end 27 object ActionLabel: TLabel 28 AnchorSideLeft.Control = Owner 29 AnchorSideTop.Control = ActionBox 30 AnchorSideTop.Side = asrCenter 31 Left = 6 32 Height = 15 33 Top = 10 34 Width = 90 35 BorderSpacing.Left = 6 36 Caption = 'ActionLabel' 37 Constraints.MinWidth = 90 38 ParentColor = False 39 end 40 object OptLabel: TLabel 41 AnchorSideLeft.Control = CaretCheck 42 AnchorSideTop.Control = CaretCheck 43 AnchorSideTop.Side = asrBottom 44 AnchorSideRight.Control = Owner 45 AnchorSideRight.Side = asrBottom 46 Left = 102 47 Height = 16 48 Top = 60 49 Width = 519 50 Anchors = [akTop, akLeft, akRight] 51 AutoSize = False 52 BorderSpacing.Top = 6 53 BorderSpacing.Right = 6 54 Caption = ' ' 55 ParentColor = False 56 end 57 object PriorLabel: TLabel 58 AnchorSideLeft.Control = Owner 59 AnchorSideTop.Control = PriorSpin 60 AnchorSideTop.Side = asrCenter 61 Left = 6 62 Height = 15 63 Top = 109 64 Width = 53 65 BorderSpacing.Left = 6 66 Caption = 'PriorLabel' 67 ParentColor = False 68 end 69 object CapturePanel: TPanel 70 AnchorSideLeft.Control = chkUpRestrict 71 AnchorSideTop.Control = chkUpRestrict 72 AnchorSideTop.Side = asrBottom 73 AnchorSideRight.Control = chkUpRestrict 74 AnchorSideRight.Side = asrBottom 75 AnchorSideBottom.Control = ButtonPanel1 76 Left = 255 77 Height = 68 78 Top = 335 79 Width = 368 80 Anchors = [akTop, akLeft, akRight, akBottom] 81 BevelOuter = bvLowered 82 BevelWidth = 2 83 ClientHeight = 68 84 ClientWidth = 368 85 Color = clBtnShadow 86 ParentColor = False 87 TabOrder = 13 88 OnMouseDown = CapturePanelMouseDown 89 object PaintBox1: TPaintBox 90 Left = 2 91 Height = 64 92 Top = 2 93 Width = 364 94 Align = alClient 95 Anchors = [akTop, akRight, akBottom] 96 OnMouseDown = CapturePanelMouseDown 97 OnMouseWheel = PaintBox1MouseWheel 98 OnMouseWheelHorz = PaintBox1MouseWheelHorz 99 end 100 end 101 object ShiftCheck: TCheckBox 102 AnchorSideLeft.Control = DirCheck 103 AnchorSideTop.Control = DirCheck 104 AnchorSideTop.Side = asrBottom 105 Left = 102 106 Height = 19 107 Top = 236 108 Width = 77 109 AllowGrayed = True 110 Caption = 'ShiftCheck' 111 TabOrder = 8 112 end 113 object AltCheck: TCheckBox 114 AnchorSideLeft.Control = ShiftCheck 115 AnchorSideTop.Control = ShiftCheck 116 AnchorSideTop.Side = asrBottom 117 Left = 102 118 Height = 19 119 Top = 255 120 Width = 68 121 AllowGrayed = True 122 Caption = 'AltCheck' 123 TabOrder = 9 124 end 125 object CtrlCheck: TCheckBox 126 AnchorSideLeft.Control = AltCheck 127 AnchorSideTop.Control = AltCheck 128 AnchorSideTop.Side = asrBottom 129 Left = 102 130 Height = 19 131 Top = 274 132 Width = 72 133 AllowGrayed = True 134 Caption = 'CtrlCheck' 135 TabOrder = 10 136 end 137 object BtnDefault: TButton 138 AnchorSideLeft.Control = CtrlCheck 139 AnchorSideTop.Control = CtrlCheck 140 AnchorSideTop.Side = asrBottom 141 AnchorSideRight.Control = Owner 142 AnchorSideRight.Side = asrBottom 143 AnchorSideBottom.Side = asrBottom 144 Left = 102 145 Height = 25 146 Top = 299 147 Width = 82 148 AutoSize = True 149 BorderSpacing.Top = 6 150 Caption = 'BtnDefault' 151 OnClick = BtnDefaultClick 152 TabOrder = 11 153 end 154 object CaretCheck: TCheckBox 155 AnchorSideLeft.Control = ActionBox 156 AnchorSideTop.Control = ActionBox 157 AnchorSideTop.Side = asrBottom 158 Left = 102 159 Height = 19 160 Top = 35 161 Width = 81 162 BorderSpacing.Top = 6 163 Caption = 'CaretCheck' 164 TabOrder = 1 165 end 166 object ActionBox: TComboBox 167 AnchorSideLeft.Control = ActionLabel 168 AnchorSideLeft.Side = asrBottom 169 AnchorSideTop.Control = Owner 170 AnchorSideRight.Control = Owner 171 AnchorSideRight.Side = asrBottom 172 Left = 102 173 Height = 23 174 Top = 6 175 Width = 519 176 Anchors = [akTop, akLeft, akRight] 177 BorderSpacing.Around = 6 178 ItemHeight = 15 179 OnChange = ActionBoxChange 180 Style = csDropDownList 181 TabOrder = 0 182 end 183 object ButtonPanel1: TButtonPanel 184 AnchorSideLeft.Control = Owner 185 AnchorSideTop.Side = asrBottom 186 AnchorSideRight.Control = Owner 187 AnchorSideRight.Side = asrBottom 188 Left = 6 189 Height = 34 190 Top = 409 191 Width = 615 192 OKButton.Name = 'OKButton' 193 OKButton.DefaultCaption = True 194 HelpButton.Name = 'HelpButton' 195 HelpButton.DefaultCaption = True 196 CloseButton.Name = 'CloseButton' 197 CloseButton.DefaultCaption = True 198 CancelButton.Name = 'CancelButton' 199 CancelButton.DefaultCaption = True 200 TabOrder = 14 201 ShowButtons = [pbOK, pbCancel] 202 end 203 object OptBox: TComboBox 204 AnchorSideLeft.Control = OptLabel 205 AnchorSideTop.Control = OptLabel 206 AnchorSideTop.Side = asrBottom 207 AnchorSideRight.Control = Owner 208 AnchorSideRight.Side = asrBottom 209 Left = 102 210 Height = 23 211 Top = 76 212 Width = 519 213 Anchors = [akTop, akLeft, akRight] 214 BorderSpacing.Right = 6 215 Enabled = False 216 ItemHeight = 15 217 Style = csDropDownList 218 TabOrder = 2 219 end 220 object PriorSpin: TSpinEdit 221 AnchorSideLeft.Control = OptLabel 222 AnchorSideTop.Control = OptBox 223 AnchorSideTop.Side = asrBottom 224 Left = 102 225 Height = 23 226 Top = 105 227 Width = 60 228 BorderSpacing.Top = 6 229 MaxValue = 3 230 TabOrder = 3 231 end 232 object Opt2Spin: TSpinEdit 233 AnchorSideLeft.Control = OptLabel 234 AnchorSideTop.Control = OptBox 235 AnchorSideTop.Side = asrBottom 236 AnchorSideRight.Control = Owner 237 AnchorSideRight.Side = asrBottom 238 Left = 561 239 Height = 23 240 Top = 105 241 Width = 60 242 Anchors = [akTop, akRight] 243 BorderSpacing.Top = 6 244 BorderSpacing.Right = 6 245 MaxValue = 999 246 TabOrder = 4 247 end 248 object Opt2Label: TLabel 249 AnchorSideLeft.Control = Owner 250 AnchorSideTop.Control = Opt2Spin 251 AnchorSideTop.Side = asrCenter 252 AnchorSideRight.Control = Opt2Spin 253 Left = 501 254 Height = 15 255 Top = 109 256 Width = 54 257 Anchors = [akTop, akRight] 258 BorderSpacing.Left = 6 259 BorderSpacing.Right = 6 260 Caption = 'Opt2Label' 261 ParentColor = False 262 end 263 object chkUpRestrict: TCheckListBox 264 AnchorSideLeft.Control = ButtonBox 265 AnchorSideLeft.Side = asrBottom 266 AnchorSideBottom.Control = BtnDefault 267 Left = 255 268 Height = 170 269 Top = 159 270 Width = 368 271 Anchors = [akTop, akRight, akBottom] 272 BorderSpacing.Around = 6 273 ItemHeight = 0 274 TabOrder = 12 275 end 276 object ButtonBox: TComboBox 277 AnchorSideLeft.Control = PriorSpin 278 AnchorSideTop.Control = chkUpRestrict 279 AnchorSideRight.Control = chkUpRestrict 280 Left = 102 281 Height = 23 282 Top = 159 283 Width = 147 284 Anchors = [akTop, akLeft, akRight] 285 ItemHeight = 15 286 OnChange = ButtonBoxChange 287 Style = csDropDownList 288 TabOrder = 5 289 end 290 object ClickBox: TComboBox 291 AnchorSideLeft.Control = ButtonBox 292 AnchorSideTop.Control = ButtonBox 293 AnchorSideTop.Side = asrBottom 294 AnchorSideRight.Control = ButtonBox 295 AnchorSideRight.Side = asrBottom 296 Left = 102 297 Height = 23 298 Top = 188 299 Width = 147 300 Anchors = [akTop, akLeft, akRight] 301 BorderSpacing.Top = 6 302 ItemHeight = 15 303 Style = csDropDownList 304 TabOrder = 6 305 end 306 object DirCheck: TCheckBox 307 AnchorSideLeft.Control = ButtonBox 308 AnchorSideTop.Control = ClickBox 309 AnchorSideTop.Side = asrBottom 310 Left = 102 311 Height = 19 312 Top = 217 313 Width = 68 314 BorderSpacing.Top = 6 315 Caption = 'DirCheck' 316 OnChange = DirCheckChange 317 TabOrder = 7 318 end 319end 320