DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 272 Width = 374 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; Top = 24, ; Left = 24, ; Width = 324, ; Height = 192, ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT form1.pageframe1.page2.list1 AS listbox WITH ; Height = 144, ; Left = 11, ; MultiSelect = .T., ; Top = 8, ; Width = 300, ; Name = "List1" PROCEDURE DblClick ThisForm.pageframe1.page2.list1.Selected(2)=.t. ThisForm.pageframe1.page2.list1.Selected(3)=.t. ENDPROC PROCEDURE list1.Init This.AddItem('test', 1) This.AddItem('test2', 2) This.AddItem('test3', 3) This.AddItem('test4', 4) This.AddItem('test5', 5) This.AddItem('test6', 6) This.AddItem('test7', 7) This.AddItem('test8', 8) ENDPROC ENDDEFINEHTH
Make solutions, not programs!