Changeset 611 for trunk/ab5.0/ablib/TestCase
- Timestamp:
- Aug 22, 2008, 11:41:40 PM (16 years ago)
- Location:
- trunk/ab5.0/ablib/TestCase/UI_Sample
- Files:
-
- 2 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 -
trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher_dlg.ab
r576 r611 68 68 Sub OnClearClick(sender As Object, e As Args) 69 69 LockWindowUpdate(list) 70 While list.SendMessage(LB_DELETESTRING, 0, 0) > 0 71 Wend 70 list.Items.Clear() 72 71 LockWindowUpdate(0) 73 72 End Sub … … 116 115 117 116 Sub OnMouseEvent(kind As String, e As MouseArgs) 117 Dim items = list.Items 118 118 Dim s = kind + ": X = " + Str$(e.X) + " Y = " + Str$(e.Y) 119 Dim lr = list.SendMessage(LB_ADDSTRING, 0, ToTCStr(s) As LPARAM) 120 If lr <> LB_ERR And lr <> LB_ERRSPACE Then 121 list.SendMessage(LB_SETCURSEL, lr As WPARAM, 0) 122 End If 119 items.Add(s) 120 list.SetSelected(items.Count - 1, True) 123 121 End Sub 124 122
Note:
See TracChangeset
for help on using the changeset viewer.