Changeset 711 for trunk/ab5.0/ablib/src/Classes
- Timestamp:
- Sep 27, 2009, 8:01:12 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab
r698 r711 292 292 AddMessageEvent(WM_MOUSEHOVER, AddressOf(OnMouseHoverBase)) 293 293 AddMessageEvent(WM_PAINT, AddressOf(OnPaintBase)) 294 AddMessageEvent(WM_PAINTCLIENT, AddressOf(OnPaintClientBase)) 294 295 AddMessageEvent(WM_KEYDOWN, AddressOf(OnKeyDownBase)) 295 296 AddMessageEvent(WM_CHAR, AddressOf(OnChar)) … … 358 359 EndPaint(hwnd, ps) 359 360 End Try 361 End If 362 End Sub 363 364 Sub OnPaintClientBase(sender As Object, e As MessageArgs) 365 If ActiveBasic.IsNothing(paintDC) Then 366 e.Handled = False 367 Else 368 OnPaintDC(New PaintDCArgs(e.WParam As HDC, ClientRect)) 360 369 End If 361 370 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.