- 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/EventArgs.ab
r547 r551 1 1 /** 2 @file Include/Classes/ActiveBasic/Windows/UI/ EventArgs.ab2 @file Include/Classes/ActiveBasic/Windows/UI/Args.ab 3 3 @brief イベントハンドラ関連 4 4 */ … … 8 8 Namespace UI 9 9 10 'TypeDef EventArgs = System.EventArgs 11 'TypeDef EventHandler = System.EventHandler 12 Class EventArgs 13 Public 14 Static Empty = Nothing As EventArgs 15 End Class 16 Delegate Sub EventHandler(sender As Object, e As EventArgs) 17 18 Class MessageEventArgs 19 Inherits EventArgs 20 Public 21 Sub MessageEventArgs(hwndSrc As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) 10 TypeDef Args = System.EventArgs 11 'TypeDef Handler = System.EventHandler 12 Delegate Sub Handler(sender As Object, e As Args) 13 14 Class MessageArgs 15 Inherits Args 16 Public 17 Sub MessageArgs(hwndSrc As HWND, message As DWord, wParam As WPARAM, lParam As LPARAM) 22 18 msg = message 23 19 ' hwnd = hwndSrc … … 58 54 End Class 59 55 60 Delegate Sub Message EventHandler(sender As Object, e As MessageEventArgs)61 62 Class PaintDC EventArgs63 Inherits EventArgs64 Public 65 Sub PaintDC EventArgs(hdcTarget As HDC, ByRef rect As RECT)56 Delegate Sub MessageHandler(sender As Object, e As MessageArgs) 57 58 Class PaintDCArgs 59 Inherits Args 60 Public 61 Sub PaintDCArgs(hdcTarget As HDC, ByRef rect As RECT) 66 62 hdc = hdcTarget 67 63 rc = rect … … 81 77 End Class 82 78 83 Delegate Sub PaintDC EventHandler(sender As Object, e As PaintDCEventArgs)84 85 Class PaintDCHandled EventArgs86 Inherits PaintDC EventArgs87 Public 88 Sub PaintDCHandled EventArgs(hdcTarget As HDC, ByRef rect As RECT)89 PaintDC EventArgs(hdcTarget, rect)79 Delegate Sub PaintDCHandler(sender As Object, e As PaintDCArgs) 80 81 Class PaintDCHandledArgs 82 Inherits PaintDCArgs 83 Public 84 Sub PaintDCHandledArgs(hdcTarget As HDC, ByRef rect As RECT) 85 PaintDCArgs(hdcTarget, rect) 90 86 End Sub 91 87 … … 102 98 End Class 103 99 104 TypeDef PaintDCBackGround EventArgs = PaintDCHandledEventArgs100 TypeDef PaintDCBackGroundArgs = PaintDCHandledArgs 105 101 106 102 Enum MouseButtons … … 116 112 End Enum 117 113 118 Class Mouse EventArgs119 Inherits EventArgs120 Public 121 Sub Mouse EventArgs(button As MouseButtons, clicks As Long, x As Long, y As Long, delta As Long)114 Class MouseArgs 115 Inherits Args 116 Public 117 Sub MouseArgs(button As MouseButtons, clicks As Long, x As Long, y As Long, delta As Long) 122 118 This.button = button 123 119 This.clicks = clicks 124 120 This.pt = New System.Drawing.Point(x, y) 125 OutputDebugString(ToTCStr(Hex$(y) + " " + Hex$(pt.Y) + " " + Ex" mea\r\n"))126 121 This.delta = delta 127 122 End Sub … … 158 153 End Class 159 154 160 Delegate Sub Mouse EventHandler(sender As Object, e As MouseEventArgs)161 162 Class KeyPress EventArgs163 Inherits EventArgs164 Public 165 Sub KeyPress EventArgs(keyChar As Char)155 Delegate Sub MouseHandler(sender As Object, e As MouseArgs) 156 157 Class KeyPressArgs 158 Inherits Args 159 Public 160 Sub KeyPressArgs(keyChar As Char) 166 161 key = keyChar 167 162 End Sub … … 187 182 End Class 188 183 189 Delegate Sub KeyPress EventHandler(sender As Object, e As KeyPressEventArgs)184 Delegate Sub KeyPressHandler(sender As Object, e As KeyPressArgs) 190 185 191 186 Enum Keys … … 384 379 End Enum 385 380 386 Class Key EventArgs387 Inherits EventArgs388 Public 389 Sub Key EventArgs(keyData As Keys)381 Class KeyArgs 382 Inherits Args 383 Public 384 Sub KeyArgs(keyData As Keys) 390 385 key = keyData 391 386 End Sub … … 436 431 End Class 437 432 438 Delegate Sub Key EventHandler(sender As Object, e As KeyEventArgs)439 440 Class Create EventArgs441 Inherits EventArgs442 Public 443 Sub Create EventArgs(pCreateStruct As *CREATESTRUCT)433 Delegate Sub KeyHandler(sender As Object, e As KeyArgs) 434 435 Class CreateArgs 436 Inherits Args 437 Public 438 Sub CreateArgs(pCreateStruct As *CREATESTRUCT) 444 439 pcs = pCreateStruct 445 440 End Sub … … 494 489 End Class 495 490 496 Delegate Sub Create EventHandler(sender As Object, e As CreateEventArgs)497 498 Class FormClosing EventArgs499 Inherits EventArgs500 Public 501 Sub FormClosing EventArgs()491 Delegate Sub CreateHandler(sender As Object, e As CreateArgs) 492 493 Class FormClosingArgs 494 Inherits Args 495 Public 496 Sub FormClosingArgs() 502 497 c = False 503 498 End Sub … … 514 509 End Class 515 510 516 Delegate Sub FormClosing EventHandler(sender As Object, e As FormClosingEventArgs)511 Delegate Sub FormClosingHandler(sender As Object, e As FormClosingArgs) 517 512 518 513 End Namespace 'UI
Note:
See TracChangeset
for help on using the changeset viewer.