- Timestamp:
- Jul 17, 2008, 11:20:10 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ControlEvent.sbp
r545 r551 1 1 Public 2 Sub AddPaintDC(h As PaintDC EventHandler)2 Sub AddPaintDC(h As PaintDCHandler) 3 3 If IsNothing(paintDC) Then 4 4 paintDC = h … … 7 7 End If 8 8 End Sub 9 Sub RemovePaintDC(h As PaintDC EventHandler)9 Sub RemovePaintDC(h As PaintDCHandler) 10 10 If Not IsNothing(paintDC) Then 11 11 paintDC -= h 12 12 End If 13 13 End Sub 14 Pr ivate15 Sub OnPaintDC(e As PaintDC EventArgs)14 Protected 15 Sub OnPaintDC(e As PaintDCArgs) 16 16 If Not IsNothing(paintDC) Then 17 17 paintDC(This, e) … … 19 19 End Sub 20 20 Private 21 paintDC As PaintDCEventHandler 22 23 Public 24 Sub AddMouseEnter(h As MouseEventHandler) 21 paintDC As PaintDCHandler 22 23 Public 24 Sub AddClick(h As Handler) 25 If IsNothing(click) Then 26 click = h 27 Else 28 click += h 29 End If 30 End Sub 31 Sub RemoveClick(h As Handler) 32 If Not IsNothing(click) Then 33 click -= h 34 End If 35 End Sub 36 Protected 37 Sub OnClick(e As Args) 38 If Not IsNothing(click) Then 39 click(This, e) 40 End If 41 End Sub 42 Private 43 click As Handler 44 45 Public 46 Sub AddDoubleClick(h As Handler) 47 If IsNothing(doubleClick) Then 48 doubleClick = h 49 Else 50 doubleClick += h 51 End If 52 End Sub 53 Sub RemoveDoubleClick(h As Handler) 54 If Not IsNothing(doubleClick) Then 55 doubleClick -= h 56 End If 57 End Sub 58 Protected 59 Sub OnDoubleClick(e As Args) 60 If Not IsNothing(doubleClick) Then 61 doubleClick(This, e) 62 End If 63 End Sub 64 Private 65 doubleClick As Handler 66 67 Public 68 Sub AddMove(h As Handler) 69 If IsNothing(move) Then 70 move = h 71 Else 72 move += h 73 End If 74 End Sub 75 Sub RemoveMove(h As Handler) 76 If Not IsNothing(move) Then 77 move -= h 78 End If 79 End Sub 80 Protected 81 Sub OnMove(e As Args) 82 If Not IsNothing(move) Then 83 move(This, e) 84 End If 85 End Sub 86 Private 87 move As Handler 88 89 Public 90 Sub AddMouseEnter(h As MouseHandler) 25 91 If IsNothing(mouseEnter) Then 26 92 mouseEnter = h … … 29 95 End If 30 96 End Sub 31 Sub RemoveMouseEnter(h As Mouse EventHandler)97 Sub RemoveMouseEnter(h As MouseHandler) 32 98 If Not IsNothing(mouseEnter) Then 33 99 mouseEnter -= h 34 100 End If 35 101 End Sub 36 Pr ivate37 Sub OnMouseEnter(e As Mouse EventArgs)102 Protected 103 Sub OnMouseEnter(e As MouseArgs) 38 104 If Not IsNothing(mouseEnter) Then 39 105 mouseEnter(This, e) … … 41 107 End Sub 42 108 Private 43 mouseEnter As Mouse EventHandler44 45 Public 46 Sub AddMouseMove(h As Mouse EventHandler)109 mouseEnter As MouseHandler 110 111 Public 112 Sub AddMouseMove(h As MouseHandler) 47 113 If IsNothing(mouseMove) Then 48 114 mouseMove = h … … 51 117 End If 52 118 End Sub 53 Sub RemoveMouseMove(h As Mouse EventHandler)119 Sub RemoveMouseMove(h As MouseHandler) 54 120 If Not IsNothing(mouseMove) Then 55 121 mouseMove -= h 56 122 End If 57 123 End Sub 58 Pr ivate59 Sub OnMouseMove(e As Mouse EventArgs)124 Protected 125 Sub OnMouseMove(e As MouseArgs) 60 126 If Not IsNothing(mouseMove) Then 61 127 mouseMove(This, e) … … 63 129 End Sub 64 130 Private 65 mouseMove As Mouse EventHandler66 67 Public 68 Sub AddMouseHover(h As Mouse EventHandler)131 mouseMove As MouseHandler 132 133 Public 134 Sub AddMouseHover(h As MouseHandler) 69 135 If IsNothing(mouseHover) Then 70 136 mouseHover = h … … 73 139 End If 74 140 End Sub 75 Sub RemoveMouseHover(h As Mouse EventHandler)141 Sub RemoveMouseHover(h As MouseHandler) 76 142 If Not IsNothing(mouseHover) Then 77 143 mouseHover -= h 78 144 End If 79 145 End Sub 80 Pr ivate81 Sub OnMouseHover(e As Mouse EventArgs)146 Protected 147 Sub OnMouseHover(e As MouseArgs) 82 148 If Not IsNothing(mouseHover) Then 83 149 mouseHover(This, e) … … 85 151 End Sub 86 152 Private 87 mouseHover As Mouse EventHandler88 89 Public 90 Sub AddMouseLeave(h As Mouse EventHandler)153 mouseHover As MouseHandler 154 155 Public 156 Sub AddMouseLeave(h As MouseHandler) 91 157 If IsNothing(mouseLeave) Then 92 158 mouseLeave = h … … 95 161 End If 96 162 End Sub 97 Sub RemoveMouseLeave(h As Mouse EventHandler)163 Sub RemoveMouseLeave(h As MouseHandler) 98 164 If Not IsNothing(mouseLeave) Then 99 165 mouseLeave -= h 100 166 End If 101 167 End Sub 102 Pr ivate103 Sub OnMouseLeave(e As Mouse EventArgs)168 Protected 169 Sub OnMouseLeave(e As MouseArgs) 104 170 If Not IsNothing(mouseLeave) Then 105 171 mouseLeave(This, e) … … 107 173 End Sub 108 174 Private 109 mouseLeave As Mouse EventHandler110 111 Public 112 Sub AddMouseDown(h As Mouse EventHandler)175 mouseLeave As MouseHandler 176 177 Public 178 Sub AddMouseDown(h As MouseHandler) 113 179 If IsNothing(mouseDown) Then 114 180 mouseDown = h … … 117 183 End If 118 184 End Sub 119 Sub RemoveMouseDown(h As Mouse EventHandler)185 Sub RemoveMouseDown(h As MouseHandler) 120 186 If Not IsNothing(mouseDown) Then 121 187 mouseDown -= h 122 188 End If 123 189 End Sub 124 Pr ivate125 Sub OnMouseDown(e As Mouse EventArgs)190 Protected 191 Sub OnMouseDown(e As MouseArgs) 126 192 If Not IsNothing(mouseDown) Then 127 193 mouseDown(This, e) … … 129 195 End Sub 130 196 Private 131 mouseDown As Mouse EventHandler132 133 Public 134 Sub AddMouseClick(h As Mouse EventHandler)197 mouseDown As MouseHandler 198 199 Public 200 Sub AddMouseClick(h As MouseHandler) 135 201 If IsNothing(mouseClick) Then 136 202 mouseClick = h … … 139 205 End If 140 206 End Sub 141 Sub RemoveMouseClick(h As Mouse EventHandler)207 Sub RemoveMouseClick(h As MouseHandler) 142 208 If Not IsNothing(mouseClick) Then 143 209 mouseClick -= h 144 210 End If 145 211 End Sub 146 Pr ivate147 Sub OnMouseClick(e As Mouse EventArgs)212 Protected 213 Sub OnMouseClick(e As MouseArgs) 148 214 If Not IsNothing(mouseClick) Then 149 215 mouseClick(This, e) … … 151 217 End Sub 152 218 Private 153 mouseClick As Mouse EventHandler154 155 Public 156 Sub AddMouseDoubleClick(h As Mouse EventHandler)219 mouseClick As MouseHandler 220 221 Public 222 Sub AddMouseDoubleClick(h As MouseHandler) 157 223 If IsNothing(mouseDoubleClick) Then 158 224 mouseDoubleClick = h … … 161 227 End If 162 228 End Sub 163 Sub RemoveMouseDoubleClick(h As Mouse EventHandler)229 Sub RemoveMouseDoubleClick(h As MouseHandler) 164 230 If Not IsNothing(mouseDoubleClick) Then 165 231 mouseDoubleClick -= h 166 232 End If 167 233 End Sub 168 Pr ivate169 Sub OnMouseDoubleClick(e As Mouse EventArgs)234 Protected 235 Sub OnMouseDoubleClick(e As MouseArgs) 170 236 If Not IsNothing(mouseDoubleClick) Then 171 237 mouseDoubleClick(This, e) … … 173 239 End Sub 174 240 Private 175 mouseDoubleClick As Mouse EventHandler176 177 Public 178 Sub AddMouseUp(h As Mouse EventHandler)241 mouseDoubleClick As MouseHandler 242 243 Public 244 Sub AddMouseUp(h As MouseHandler) 179 245 If IsNothing(mouseUp) Then 180 246 mouseUp = h … … 183 249 End If 184 250 End Sub 185 Sub RemoveMouseUp(h As Mouse EventHandler)251 Sub RemoveMouseUp(h As MouseHandler) 186 252 If Not IsNothing(mouseUp) Then 187 253 mouseUp -= h 188 254 End If 189 255 End Sub 190 Pr ivate191 Sub OnMouseUp(e As Mouse EventArgs)256 Protected 257 Sub OnMouseUp(e As MouseArgs) 192 258 If Not IsNothing(mouseUp) Then 193 259 mouseUp(This, e) … … 195 261 End Sub 196 262 Private 197 mouseUp As Mouse EventHandler198 199 Public 200 Sub AddKeyDown(h As Key EventHandler)263 mouseUp As MouseHandler 264 265 Public 266 Sub AddKeyDown(h As KeyHandler) 201 267 If IsNothing(keyDown) Then 202 268 keyDown = h … … 205 271 End If 206 272 End Sub 207 Sub RemoveKeyDown(h As Key EventHandler)273 Sub RemoveKeyDown(h As KeyHandler) 208 274 If Not IsNothing(keyDown) Then 209 275 keyDown -= h 210 276 End If 211 277 End Sub 212 Pr ivate213 Sub OnKeyDown(e As Key EventArgs)278 Protected 279 Sub OnKeyDown(e As KeyArgs) 214 280 If Not IsNothing(keyDown) Then 215 281 keyDown(This, e) … … 217 283 End Sub 218 284 Private 219 keyDown As Key EventHandler220 221 Public 222 Sub AddKeyUp(h As Key EventHandler)285 keyDown As KeyHandler 286 287 Public 288 Sub AddKeyUp(h As KeyHandler) 223 289 If IsNothing(keyUp) Then 224 290 keyUp = h … … 227 293 End If 228 294 End Sub 229 Sub RemoveKeyUp(h As Key EventHandler)295 Sub RemoveKeyUp(h As KeyHandler) 230 296 If Not IsNothing(keyUp) Then 231 297 keyUp -= h 232 298 End If 233 299 End Sub 234 Pr ivate235 Sub OnKeyUp(e As Key EventArgs)300 Protected 301 Sub OnKeyUp(e As KeyArgs) 236 302 If Not IsNothing(keyUp) Then 237 303 keyUp(This, e) … … 239 305 End Sub 240 306 Private 241 keyUp As KeyEventHandler 242 243 Public 244 Sub AddCreate(h As CreateEventHandler) 307 keyUp As KeyHandler 308 309 Public 310 Sub AddKeyPress(h As KeyPressHandler) 311 If IsNothing(keyPress) Then 312 keyPress = h 313 Else 314 keyPress += h 315 End If 316 End Sub 317 Sub RemoveKeyPress(h As KeyPressHandler) 318 If Not IsNothing(keyPress) Then 319 keyPress -= h 320 End If 321 End Sub 322 Protected 323 Sub OnKeyPress(e As KeyPressArgs) 324 If Not IsNothing(keyPress) Then 325 keyPress(This, e) 326 End If 327 End Sub 328 Private 329 keyPress As KeyPressHandler 330 /* 331 Public 332 Sub AddCreate(h As CreateHandler) 245 333 If IsNothing(create) Then 246 334 create = h … … 249 337 End If 250 338 End Sub 251 Sub RemoveCreate(h As Create EventHandler)339 Sub RemoveCreate(h As CreateHandler) 252 340 If Not IsNothing(create) Then 253 341 create -= h 254 342 End If 255 343 End Sub 256 Pr ivate257 Sub OnCreate(e As Create EventArgs)344 Protected 345 Sub OnCreate(e As CreateArgs) 258 346 If Not IsNothing(create) Then 259 347 create(This, e) … … 261 349 End Sub 262 350 Private 263 create As CreateEventHandler 264 351 create As CreateHandler 352 353 Public 354 Sub AddDestroy(h As Handler) 355 If IsNothing(destroy) Then 356 destroy = h 357 Else 358 destroy += h 359 End If 360 End Sub 361 Sub RemoveDestroy(h As Handler) 362 If Not IsNothing(destroy) Then 363 destroy -= h 364 End If 365 End Sub 366 Protected 367 Sub OnDestroy(e As Args) 368 If Not IsNothing(destroy) Then 369 destroy(This, e) 370 End If 371 End Sub 372 Private 373 destroy As Handler 374 */
Note:
See TracChangeset
for help on using the changeset viewer.