- Timestamp:
- Aug 24, 2008, 5:28:59 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ControlEvent.sbp
r564 r615 13 13 End Sub 14 14 Protected 15 Sub OnPaintDC(e As PaintDCArgs)15 Function OnPaintDC(e As PaintDCArgs) As Boolean 16 16 If Not IsNothing(paintDC) Then 17 17 paintDC(This, e) 18 End If 19 End Sub 18 Return True 19 End If 20 End Function 20 21 Private 21 22 paintDC As PaintDCHandler … … 35 36 End Sub 36 37 Protected 37 Sub OnClick(e As Args)38 Function OnClick(e As Args) As Boolean 38 39 If Not IsNothing(click) Then 39 40 click(This, e) 40 End If 41 End Sub 41 Return True 42 End If 43 End Function 42 44 Private 43 45 click As Handler … … 57 59 End Sub 58 60 Protected 59 Sub OnDoubleClick(e As Args)61 Function OnDoubleClick(e As Args) As Boolean 60 62 If Not IsNothing(doubleClick) Then 61 63 doubleClick(This, e) 62 End If 63 End Sub 64 Return True 65 End If 66 End Function 64 67 Private 65 68 doubleClick As Handler … … 79 82 End Sub 80 83 Protected 81 Sub OnMove(e As Args)84 Function OnMove(e As Args) As Boolean 82 85 If Not IsNothing(move) Then 83 86 move(This, e) 84 End If 85 End Sub 87 Return True 88 End If 89 End Function 86 90 Private 87 91 move As Handler … … 101 105 End Sub 102 106 Protected 103 Sub OnResize(e As ResizeArgs)107 Function OnResize(e As ResizeArgs) As Boolean 104 108 If Not IsNothing(resize) Then 105 109 resize(This, e) 106 End If 107 End Sub 110 Return True 111 End If 112 End Function 108 113 Private 109 114 resize As ResizeHandler … … 123 128 End Sub 124 129 Protected 125 Sub OnMouseEnter(e As MouseArgs)130 Function OnMouseEnter(e As MouseArgs) As Boolean 126 131 If Not IsNothing(mouseEnter) Then 127 132 mouseEnter(This, e) 128 End If 129 End Sub 133 Return True 134 End If 135 End Function 130 136 Private 131 137 mouseEnter As MouseHandler … … 145 151 End Sub 146 152 Protected 147 Sub OnMouseMove(e As MouseArgs)153 Function OnMouseMove(e As MouseArgs) As Boolean 148 154 If Not IsNothing(mouseMove) Then 149 155 mouseMove(This, e) 150 End If 151 End Sub 156 Return True 157 End If 158 End Function 152 159 Private 153 160 mouseMove As MouseHandler … … 167 174 End Sub 168 175 Protected 169 Sub OnMouseHover(e As MouseArgs)176 Function OnMouseHover(e As MouseArgs) As Boolean 170 177 If Not IsNothing(mouseHover) Then 171 178 mouseHover(This, e) 172 End If 173 End Sub 179 Return True 180 End If 181 End Function 174 182 Private 175 183 mouseHover As MouseHandler … … 189 197 End Sub 190 198 Protected 191 Sub OnMouseLeave(e As Args)199 Function OnMouseLeave(e As Args) As Boolean 192 200 If Not IsNothing(mouseLeave) Then 193 201 mouseLeave(This, e) 194 End If 195 End Sub 202 Return True 203 End If 204 End Function 196 205 Private 197 206 mouseLeave As Handler … … 211 220 End Sub 212 221 Protected 213 Sub OnMouseDown(e As MouseArgs)222 Function OnMouseDown(e As MouseArgs) As Boolean 214 223 If Not IsNothing(mouseDown) Then 215 224 mouseDown(This, e) 216 End If 217 End Sub 225 Return True 226 End If 227 End Function 218 228 Private 219 229 mouseDown As MouseHandler … … 233 243 End Sub 234 244 Protected 235 Sub OnMouseClick(e As MouseArgs)245 Function OnMouseClick(e As MouseArgs) As Boolean 236 246 If Not IsNothing(mouseClick) Then 237 247 mouseClick(This, e) 238 End If 239 End Sub 248 Return True 249 End If 250 End Function 240 251 Private 241 252 mouseClick As MouseHandler … … 255 266 End Sub 256 267 Protected 257 Sub OnMouseDoubleClick(e As MouseArgs)268 Function OnMouseDoubleClick(e As MouseArgs) As Boolean 258 269 If Not IsNothing(mouseDoubleClick) Then 259 270 mouseDoubleClick(This, e) 260 End If 261 End Sub 271 Return True 272 End If 273 End Function 262 274 Private 263 275 mouseDoubleClick As MouseHandler … … 277 289 End Sub 278 290 Protected 279 Sub OnMouseUp(e As MouseArgs)291 Function OnMouseUp(e As MouseArgs) As Boolean 280 292 If Not IsNothing(mouseUp) Then 281 293 mouseUp(This, e) 282 End If 283 End Sub 294 Return True 295 End If 296 End Function 284 297 Private 285 298 mouseUp As MouseHandler … … 299 312 End Sub 300 313 Protected 301 Sub OnKeyDown(e As KeyArgs)314 Function OnKeyDown(e As KeyArgs) As Boolean 302 315 If Not IsNothing(keyDown) Then 303 316 keyDown(This, e) 304 End If 305 End Sub 317 Return True 318 End If 319 End Function 306 320 Private 307 321 keyDown As KeyHandler … … 321 335 End Sub 322 336 Protected 323 Sub OnKeyUp(e As KeyArgs)337 Function OnKeyUp(e As KeyArgs) As Boolean 324 338 If Not IsNothing(keyUp) Then 325 339 keyUp(This, e) 326 End If 327 End Sub 340 Return True 341 End If 342 End Function 328 343 Private 329 344 keyUp As KeyHandler … … 343 358 End Sub 344 359 Protected 345 Sub OnKeyPress(e As KeyPressArgs)360 Function OnKeyPress(e As KeyPressArgs) As Boolean 346 361 If Not IsNothing(keyPress) Then 347 362 keyPress(This, e) 348 End If 349 End Sub 363 Return True 364 End If 365 End Function 350 366 Private 351 367 keyPress As KeyPressHandler … … 365 381 End Sub 366 382 Protected 367 Sub OnCreate(e As CreateArgs)383 Function OnCreate(e As CreateArgs) As Boolean 368 384 If Not IsNothing(create) Then 369 385 create(This, e) 370 End If 371 End Sub 386 Return True 387 End If 388 End Function 372 389 Private 373 390 create As CreateHandler … … 387 404 End Sub 388 405 Protected 389 Sub OnDestroy(e As Args)406 Function OnDestroy(e As Args) As Boolean 390 407 If Not IsNothing(destroy) Then 391 408 destroy(This, e) 392 End If 393 End Sub 409 Return True 410 End If 411 End Function 394 412 Private 395 413 destroy As Handler … … 409 427 End Sub 410 428 Protected 411 Sub OnPaintBackground(e As PaintBackgroundArgs)429 Function OnPaintBackground(e As PaintBackgroundArgs) As Boolean 412 430 If Not IsNothing(paintBackground) Then 413 431 paintBackground(This, e) 414 End If 415 End Sub 432 Return True 433 End If 434 End Function 416 435 Private 417 436 paintBackground As PaintBackgroundHandler
Note:
See TracChangeset
for help on using the changeset viewer.
