Changeset 611 for trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher.ab
- Timestamp:
- Aug 22, 2008, 11:41:40 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher.ab
r590 r611 49 49 Sub OnClearClick(sender As Object, e As Args) 50 50 LockWindowUpdate(list) 51 While list.SendMessage(LB_DELETESTRING, 0, 0) > 0 52 Wend 51 list.Items.Clear() 53 52 LockWindowUpdate(0) 54 53 End Sub … … 91 90 92 91 Sub OnMouseEvent(kind As String, e As MouseArgs) 92 Dim items = list.Items 93 93 Dim s = kind + ": X = " + Str$(e.X) + " Y = " + Str$(e.Y) 94 Dim lr = list.SendMessage(LB_ADDSTRING, 0, ToTCStr(s) As LPARAM) 95 If lr <> LB_ERR And lr <> LB_ERRSPACE Then 96 list.SendMessage(LB_SETCURSEL, lr As WPARAM, 0) 97 End If 94 items.Add(s) 95 list.SetSelected(items.Count - 1, True) 98 96 End Sub 99 97
Note:
See TracChangeset
for help on using the changeset viewer.