2010-12-07 21:18

 '-------------------------------------------------------------
 '------------Popup for selecting multifile windows ------------------
 '-------------------------------------------------------------
     DIM WindowPopup AS QPOPUPMENU

'DIM WinPopItem(IDE_MAX_FILES + 10) AS QMENUITEM        'arrays do not work!!
' FOR zzz = 0 TO IDE_MAX_FILES + 1
'     IDE.WinPopItem(zzz).Tag = zzz
'     IDE.WinPopItem(zzz).Visible = False
'     IDE.WinPopItem(zzz).OnClick = ShowWindowSelection_Click
'     WindowPopup.AddItems IDE.WinPopItem(zzz)
' NEXT zzz


     DIM WinPopItem0 AS QMENUITEM : WindowPopup.AddItems WinPopItem0
     DIM WinPopItem1 AS QMENUITEM : WindowPopup.AddItems WinPopItem1
     DIM WinPopItem2 AS QMENUITEM : WindowPopup.AddItems WinPopItem2
     DIM WinPopItem3 AS QMENUITEM : WindowPopup.AddItems WinPopItem3
     DIM WinPopItem4 AS QMENUITEM : WindowPopup.AddItems WinPopItem4
     DIM WinPopItem5 AS QMENUITEM : WindowPopup.AddItems WinPopItem5
     DIM WinPopItem6 AS QMENUITEM : WindowPopup.AddItems WinPopItem6
     DIM WinPopItem7 AS QMENUITEM : WindowPopup.AddItems WinPopItem7
     DIM WinPopItem8 AS QMENUITEM : WindowPopup.AddItems WinPopItem8
     DIM WinPopItem9 AS QMENUITEM : WindowPopup.AddItems WinPopItem9
     DIM WinPopItem10 AS QMENUITEM : WindowPopup.AddItems WinPopItem10
     DIM WinPopItem11 AS QMENUITEM : WindowPopup.AddItems WinPopItem11
     DIM WinPopItem12 AS QMENUITEM : WindowPopup.AddItems WinPopItem12
     DIM WinPopItem13 AS QMENUITEM : WindowPopup.AddItems WinPopItem13
     DIM WinPopItem14 AS QMENUITEM : WindowPopup.AddItems WinPopItem14
     DIM WinPopItem15 AS QMENUITEM : WindowPopup.AddItems WinPopItem15
     DIM WinPopItem16 AS QMENUITEM : WindowPopup.AddItems WinPopItem16
     DIM WinPopItem17 AS QMENUITEM : WindowPopup.AddItems WinPopItem17
     DIM WinPopItem18 AS QMENUITEM : WindowPopup.AddItems WinPopItem18
     DIM WinPopItem19 AS QMENUITEM : WindowPopup.AddItems WinPopItem19
     DIM WinPopItem20 AS QMENUITEM : WindowPopup.AddItems WinPopItem20
     DIM WinPopItem21 AS QMENUITEM : WindowPopup.AddItems WinPopItem21
     DIM WinPopItem22 AS QMENUITEM : WindowPopup.AddItems WinPopItem22
     DIM WinPopItem23 AS QMENUITEM : WindowPopup.AddItems WinPopItem23
     DIM WinPopItem24 AS QMENUITEM : WindowPopup.AddItems WinPopItem24
     DIM WinPopItem25 AS QMENUITEM : WindowPopup.AddItems WinPopItem25
     DIM WinPopItem26 AS QMENUITEM : WindowPopup.AddItems WinPopItem26
     DIM WinPopItem27 AS QMENUITEM : WindowPopup.AddItems WinPopItem27
     DIM WinPopItem28 AS QMENUITEM : WindowPopup.AddItems WinPopItem28
     DIM WinPopItem29 AS QMENUITEM : WindowPopup.AddItems WinPopItem29
     DIM WinPopItem30 AS QMENUITEM : WindowPopup.AddItems WinPopItem30
     DIM WinPopItem31 AS QMENUITEM : WindowPopup.AddItems WinPopItem31
     DIM WinPopItem32 AS QMENUITEM : WindowPopup.AddItems WinPopItem32
     DIM WinPopItem33 AS QMENUITEM : WindowPopup.AddItems WinPopItem33
     DIM WinPopItem34 AS QMENUITEM : WindowPopup.AddItems WinPopItem34
     DIM WinPopItem35 AS QMENUITEM : WindowPopup.AddItems WinPopItem35
     DIM WinPopItem36 AS QMENUITEM : WindowPopup.AddItems WinPopItem36
     DIM WinPopItem37 AS QMENUITEM : WindowPopup.AddItems WinPopItem37
     DIM WinPopItem38 AS QMENUITEM : WindowPopup.AddItems WinPopItem38
     DIM WinPopItem39 AS QMENUITEM : WindowPopup.AddItems WinPopItem39
     DIM WinPopItem40 AS QMENUITEM : WindowPopup.AddItems WinPopItem40
     DIM WinPopItem41 AS QMENUITEM : WindowPopup.AddItems WinPopItem41
     DIM WinPopItem42 AS QMENUITEM : WindowPopup.AddItems WinPopItem42
     DIM WinPopItem43 AS QMENUITEM : WindowPopup.AddItems WinPopItem43
     DIM WinPopItem44 AS QMENUITEM : WindowPopup.AddItems WinPopItem44
     DIM WinPopItem45 AS QMENUITEM : WindowPopup.AddItems WinPopItem45
     DIM WinPopItem46 AS QMENUITEM : WindowPopup.AddItems WinPopItem46
     DIM WinPopItem47 AS QMENUITEM : WindowPopup.AddItems WinPopItem47



     WinPopItem0.OnClick = ShowWindowSelection_Click
     WinPopItem1.OnClick = ShowWindowSelection_Click
     WinPopItem2.OnClick = ShowWindowSelection_Click
     WinPopItem3.OnClick = ShowWindowSelection_Click
     WinPopItem4.OnClick = ShowWindowSelection_Click
     WinPopItem5.OnClick = ShowWindowSelection_Click
     WinPopItem6.OnClick = ShowWindowSelection_Click
     WinPopItem7.OnClick = ShowWindowSelection_Click
     WinPopItem8.OnClick = ShowWindowSelection_Click
     WinPopItem9.OnClick = ShowWindowSelection_Click
     WinPopItem10.OnClick = ShowWindowSelection_Click
     WinPopItem11.OnClick = ShowWindowSelection_Click
     WinPopItem12.OnClick = ShowWindowSelection_Click
     WinPopItem13.OnClick = ShowWindowSelection_Click
     WinPopItem14.OnClick = ShowWindowSelection_Click
     WinPopItem15.OnClick = ShowWindowSelection_Click
     WinPopItem16.OnClick = ShowWindowSelection_Click
     WinPopItem17.OnClick = ShowWindowSelection_Click
     WinPopItem18.OnClick = ShowWindowSelection_Click
     WinPopItem19.OnClick = ShowWindowSelection_Click
     WinPopItem20.OnClick = ShowWindowSelection_Click
     WinPopItem21.OnClick = ShowWindowSelection_Click
     WinPopItem22.OnClick = ShowWindowSelection_Click
     WinPopItem23.OnClick = ShowWindowSelection_Click
     WinPopItem24.OnClick = ShowWindowSelection_Click
     WinPopItem25.OnClick = ShowWindowSelection_Click
     WinPopItem26.OnClick = ShowWindowSelection_Click
     WinPopItem27.OnClick = ShowWindowSelection_Click
     WinPopItem28.OnClick = ShowWindowSelection_Click
     WinPopItem29.OnClick = ShowWindowSelection_Click
     WinPopItem30.OnClick = ShowWindowSelection_Click
     WinPopItem31.OnClick = ShowWindowSelection_Click
     WinPopItem32.OnClick = ShowWindowSelection_Click
     WinPopItem33.OnClick = ShowWindowSelection_Click
     WinPopItem34.OnClick = ShowWindowSelection_Click
     WinPopItem35.OnClick = ShowWindowSelection_Click
     WinPopItem36.OnClick = ShowWindowSelection_Click
     WinPopItem37.OnClick = ShowWindowSelection_Click
     WinPopItem38.OnClick = ShowWindowSelection_Click
     WinPopItem39.OnClick = ShowWindowSelection_Click
     WinPopItem40.OnClick = ShowWindowSelection_Click
     WinPopItem41.OnClick = ShowWindowSelection_Click
     WinPopItem42.OnClick = ShowWindowSelection_Click
     WinPopItem43.OnClick = ShowWindowSelection_Click
     WinPopItem44.OnClick = ShowWindowSelection_Click
     WinPopItem45.OnClick = ShowWindowSelection_Click
     WinPopItem46.OnClick = ShowWindowSelection_Click
     WinPopItem47.OnClick = ShowWindowSelection_Click


     SUB ShowWindowSelection_Click(Sender AS QMENUITEM)
      MFE_ChangeToIndex(Sender.Tag)
     END SUB


     SUB MFE_ShowWindowSelection
      tmpList.Clear
      DEFINT i
      FOR i = 0 TO MFE_List.ItemCount -1
       tmpList.AddItems ( StripFileName( MFE_List.Item(i)) + TAB + STR$(i))       'store index for sorting
      NEXT i
      tmpList.Sort

'     FOR i = 0 TO MFE_List.ItemCount -1
'         IF MFE_List.ItemCount > i THEN
'         IDE.WinPopItem(i).Tag = VAL(FIELD$( tmpList.Item(i), TAB, 2))
'         IDE.WinPopItem(i).Visible = True
'         IDE.WinPopItem(i).Caption = FIELD$( tmpList.Item(i), TAB, 1)
'         ELSE
'         IDE.WinPopItem(i).Visible = False
'         END IF
'     NEXT i

      IF MFE_List.ItemCount > 0 THEN WinPopItem0.Tag = VAL(FIELD$( tmpList.Item(0), TAB, 2)) :  WinPopItem0.Visible = True :  WinPopItem0.CAPTION = FIELD$( tmpList.Item(0), TAB, 1)
      IF MFE_List.ItemCount > 1 THEN WinPopItem1.Tag = VAL(FIELD$( tmpList.Item(1), TAB, 2)) :  WinPopItem1.Visible = True :  WinPopItem1.CAPTION = FIELD$( tmpList.Item(1), TAB, 1)
      IF MFE_List.ItemCount > 2 THEN WinPopItem2.Tag = VAL(FIELD$( tmpList.Item(2), TAB, 2)) :  WinPopItem2.Visible = True :  WinPopItem2.CAPTION = FIELD$( tmpList.Item(2), TAB, 1)
      IF MFE_List.ItemCount > 3 THEN WinPopItem3.Tag = VAL(FIELD$( tmpList.Item(3), TAB, 2)) :  WinPopItem3.Visible = True :  WinPopItem3.CAPTION = FIELD$( tmpList.Item(3), TAB, 1)
      IF MFE_List.ItemCount > 4 THEN WinPopItem4.Tag = VAL(FIELD$( tmpList.Item(4), TAB, 2)) :  WinPopItem4.Visible = True :  WinPopItem4.CAPTION = FIELD$( tmpList.Item(4), TAB, 1)
      IF MFE_List.ItemCount > 5 THEN WinPopItem5.Tag = VAL(FIELD$( tmpList.Item(5), TAB, 2)) :  WinPopItem5.Visible = True :  WinPopItem5.CAPTION = FIELD$( tmpList.Item(5), TAB, 1)
      IF MFE_List.ItemCount > 6 THEN WinPopItem6.Tag = VAL(FIELD$( tmpList.Item(6), TAB, 2)) :  WinPopItem6.Visible = True :  WinPopItem6.CAPTION = FIELD$( tmpList.Item(6), TAB, 1)
      IF MFE_List.ItemCount > 7 THEN WinPopItem7.Tag = VAL(FIELD$( tmpList.Item(7), TAB, 2)) :  WinPopItem7.Visible = True :  WinPopItem7.CAPTION = FIELD$( tmpList.Item(7), TAB, 1)
      IF MFE_List.ItemCount > 8 THEN WinPopItem8.Tag = VAL(FIELD$( tmpList.Item(8), TAB, 2)) :  WinPopItem8.Visible = True :  WinPopItem8.CAPTION = FIELD$( tmpList.Item(8), TAB, 1)
      IF MFE_List.ItemCount > 9 THEN WinPopItem9.Tag = VAL(FIELD$( tmpList.Item(9), TAB, 2)) :  WinPopItem9.Visible = True :  WinPopItem9.CAPTION = FIELD$( tmpList.Item(9), TAB, 1)
      IF MFE_List.ItemCount > 10 THEN WinPopItem10.Tag = VAL(FIELD$( tmpList.Item(10), TAB, 2)) :  WinPopItem10.Visible = True :  WinPopItem10.CAPTION = FIELD$( tmpList.Item(10), TAB, 1)
      IF MFE_List.ItemCount > 11 THEN WinPopItem11.Tag = VAL(FIELD$( tmpList.Item(11), TAB, 2)) :  WinPopItem11.Visible = True :  WinPopItem11.CAPTION = FIELD$( tmpList.Item(11), TAB, 1)
      IF MFE_List.ItemCount > 12 THEN WinPopItem12.Tag = VAL(FIELD$( tmpList.Item(12), TAB, 2)) :  WinPopItem12.Visible = True :  WinPopItem12.CAPTION = FIELD$( tmpList.Item(12), TAB, 1)
      IF MFE_List.ItemCount > 13 THEN WinPopItem13.Tag = VAL(FIELD$( tmpList.Item(13), TAB, 2)) :  WinPopItem13.Visible = True :  WinPopItem13.CAPTION = FIELD$( tmpList.Item(13), TAB, 1)
      IF MFE_List.ItemCount > 14 THEN WinPopItem14.Tag = VAL(FIELD$( tmpList.Item(14), TAB, 2)) :  WinPopItem14.Visible = True :  WinPopItem14.CAPTION = FIELD$( tmpList.Item(14), TAB, 1)
      IF MFE_List.ItemCount > 15 THEN WinPopItem15.Tag = VAL(FIELD$( tmpList.Item(15), TAB, 2)) :  WinPopItem15.Visible = True :  WinPopItem15.CAPTION = FIELD$( tmpList.Item(15), TAB, 1)
      IF MFE_List.ItemCount > 16 THEN WinPopItem16.Tag = VAL(FIELD$( tmpList.Item(16), TAB, 2)) :  WinPopItem16.Visible = True :  WinPopItem16.CAPTION = FIELD$( tmpList.Item(16), TAB, 1)
      IF MFE_List.ItemCount > 17 THEN WinPopItem17.Tag = VAL(FIELD$( tmpList.Item(17), TAB, 2)) :  WinPopItem17.Visible = True :  WinPopItem17.CAPTION = FIELD$( tmpList.Item(17), TAB, 1)
      IF MFE_List.ItemCount > 18 THEN WinPopItem18.Tag = VAL(FIELD$( tmpList.Item(18), TAB, 2)) :  WinPopItem18.Visible = True :  WinPopItem18.CAPTION = FIELD$( tmpList.Item(18), TAB, 1)
      IF MFE_List.ItemCount > 19 THEN WinPopItem19.Tag = VAL(FIELD$( tmpList.Item(19), TAB, 2)) :  WinPopItem19.Visible = True :  WinPopItem19.CAPTION = FIELD$( tmpList.Item(19), TAB, 1)
      IF MFE_List.ItemCount > 20 THEN WinPopItem20.Tag = VAL(FIELD$( tmpList.Item(20), TAB, 2)) :  WinPopItem20.Visible = True :  WinPopItem20.CAPTION = FIELD$( tmpList.Item(20), TAB, 1)
      IF MFE_List.ItemCount > 21 THEN WinPopItem21.Tag = VAL(FIELD$( tmpList.Item(21), TAB, 2)) :  WinPopItem21.Visible = True :  WinPopItem21.CAPTION = FIELD$( tmpList.Item(21), TAB, 1)
      IF MFE_List.ItemCount > 22 THEN WinPopItem22.Tag = VAL(FIELD$( tmpList.Item(22), TAB, 2)) :  WinPopItem22.Visible = True :  WinPopItem22.CAPTION = FIELD$( tmpList.Item(22), TAB, 1)
      IF MFE_List.ItemCount > 23 THEN WinPopItem23.Tag = VAL(FIELD$( tmpList.Item(23), TAB, 2)) :  WinPopItem23.Visible = True :  WinPopItem23.CAPTION = FIELD$( tmpList.Item(23), TAB, 1)
      IF MFE_List.ItemCount > 24 THEN WinPopItem24.Tag = VAL(FIELD$( tmpList.Item(24), TAB, 2)) :  WinPopItem24.Visible = True :  WinPopItem24.CAPTION = FIELD$( tmpList.Item(24), TAB, 1)
      IF MFE_List.ItemCount > 25 THEN WinPopItem25.Tag = VAL(FIELD$( tmpList.Item(25), TAB, 2)) :  WinPopItem25.Visible = True :  WinPopItem25.CAPTION = FIELD$( tmpList.Item(25), TAB, 1)
      IF MFE_List.ItemCount > 26 THEN WinPopItem26.Tag = VAL(FIELD$( tmpList.Item(26), TAB, 2)) :  WinPopItem26.Visible = True :  WinPopItem26.CAPTION = FIELD$( tmpList.Item(26), TAB, 1)
      IF MFE_List.ItemCount > 27 THEN WinPopItem27.Tag = VAL(FIELD$( tmpList.Item(27), TAB, 2)) :  WinPopItem27.Visible = True :  WinPopItem27.CAPTION = FIELD$( tmpList.Item(27), TAB, 1)
      IF MFE_List.ItemCount > 28 THEN WinPopItem28.Tag = VAL(FIELD$( tmpList.Item(28), TAB, 2)) :  WinPopItem28.Visible = True :  WinPopItem28.CAPTION = FIELD$( tmpList.Item(28), TAB, 1)
      IF MFE_List.ItemCount > 29 THEN WinPopItem29.Tag = VAL(FIELD$( tmpList.Item(29), TAB, 2)) :  WinPopItem29.Visible = True :  WinPopItem29.CAPTION = FIELD$( tmpList.Item(29), TAB, 1)
      IF MFE_List.ItemCount > 30 THEN WinPopItem30.Tag = VAL(FIELD$( tmpList.Item(30), TAB, 2)) :  WinPopItem30.Visible = True :  WinPopItem30.CAPTION = FIELD$( tmpList.Item(30), TAB, 1)
      IF MFE_List.ItemCount > 31 THEN WinPopItem31.Tag = VAL(FIELD$( tmpList.Item(31), TAB, 2)) :  WinPopItem31.Visible = True :  WinPopItem31.CAPTION = FIELD$( tmpList.Item(31), TAB, 1)
      IF MFE_List.ItemCount > 32 THEN WinPopItem32.Tag = VAL(FIELD$( tmpList.Item(32), TAB, 2)) :  WinPopItem32.Visible = True :  WinPopItem32.CAPTION = FIELD$( tmpList.Item(32), TAB, 1)
      IF MFE_List.ItemCount > 33 THEN WinPopItem33.Tag = VAL(FIELD$( tmpList.Item(33), TAB, 2)) :  WinPopItem33.Visible = True :  WinPopItem33.CAPTION = FIELD$( tmpList.Item(33), TAB, 1)
      IF MFE_List.ItemCount > 34 THEN WinPopItem34.Tag = VAL(FIELD$( tmpList.Item(34), TAB, 2)) :  WinPopItem34.Visible = True :  WinPopItem34.CAPTION = FIELD$( tmpList.Item(34), TAB, 1)
      IF MFE_List.ItemCount > 35 THEN WinPopItem35.Tag = VAL(FIELD$( tmpList.Item(35), TAB, 2)) :  WinPopItem35.Visible = True :  WinPopItem35.CAPTION = FIELD$( tmpList.Item(35), TAB, 1)
      IF MFE_List.ItemCount > 36 THEN WinPopItem36.Tag = VAL(FIELD$( tmpList.Item(36), TAB, 2)) :  WinPopItem36.Visible = True :  WinPopItem36.CAPTION = FIELD$( tmpList.Item(36), TAB, 1)
      IF MFE_List.ItemCount > 37 THEN WinPopItem37.Tag = VAL(FIELD$( tmpList.Item(37), TAB, 2)) :  WinPopItem37.Visible = True :  WinPopItem37.CAPTION = FIELD$( tmpList.Item(37), TAB, 1)
      IF MFE_List.ItemCount > 38 THEN WinPopItem38.Tag = VAL(FIELD$( tmpList.Item(38), TAB, 2)) :  WinPopItem38.Visible = True :  WinPopItem38.CAPTION = FIELD$( tmpList.Item(38), TAB, 1)
      IF MFE_List.ItemCount > 39 THEN WinPopItem39.Tag = VAL(FIELD$( tmpList.Item(39), TAB, 2)) :  WinPopItem39.Visible = True :  WinPopItem39.CAPTION = FIELD$( tmpList.Item(39), TAB, 1)
      IF MFE_List.ItemCount > 40 THEN WinPopItem40.Tag = VAL(FIELD$( tmpList.Item(40), TAB, 2)) :  WinPopItem40.Visible = True :  WinPopItem40.CAPTION = FIELD$( tmpList.Item(40), TAB, 1)
      IF MFE_List.ItemCount > 41 THEN WinPopItem41.Tag = VAL(FIELD$( tmpList.Item(41), TAB, 2)) :  WinPopItem41.Visible = True :  WinPopItem41.CAPTION = FIELD$( tmpList.Item(41), TAB, 1)
      IF MFE_List.ItemCount > 42 THEN WinPopItem42.Tag = VAL(FIELD$( tmpList.Item(42), TAB, 2)) :  WinPopItem42.Visible = True :  WinPopItem42.CAPTION = FIELD$( tmpList.Item(42), TAB, 1)
      IF MFE_List.ItemCount > 43 THEN WinPopItem43.Tag = VAL(FIELD$( tmpList.Item(43), TAB, 2)) :  WinPopItem43.Visible = True :  WinPopItem43.CAPTION = FIELD$( tmpList.Item(43), TAB, 1)
      IF MFE_List.ItemCount > 44 THEN WinPopItem44.Tag = VAL(FIELD$( tmpList.Item(44), TAB, 2)) :  WinPopItem44.Visible = True :  WinPopItem44.CAPTION = FIELD$( tmpList.Item(44), TAB, 1)
      IF MFE_List.ItemCount > 45 THEN WinPopItem45.Tag = VAL(FIELD$( tmpList.Item(45), TAB, 2)) :  WinPopItem45.Visible = True :  WinPopItem45.CAPTION = FIELD$( tmpList.Item(45), TAB, 1)
      IF MFE_List.ItemCount > 46 THEN WinPopItem46.Tag = VAL(FIELD$( tmpList.Item(46), TAB, 2)) :  WinPopItem46.Visible = True :  WinPopItem46.CAPTION = FIELD$( tmpList.Item(46), TAB, 1)
      IF MFE_List.ItemCount > 47 THEN WinPopItem47.Tag = VAL(FIELD$( tmpList.Item(47), TAB, 2)) :  WinPopItem47.Visible = True :  WinPopItem47.CAPTION = FIELD$( tmpList.Item(47), TAB, 1)


      IF MFE_List.ItemCount < 1 THEN WinPopItem0.Visible = False
      IF MFE_List.ItemCount < 2 THEN WinPopItem1.Visible = False
      IF MFE_List.ItemCount < 3 THEN WinPopItem2.Visible = False
      IF MFE_List.ItemCount < 4 THEN WinPopItem3.Visible = False
      IF MFE_List.ItemCount < 5 THEN WinPopItem4.Visible = False
      IF MFE_List.ItemCount < 6 THEN WinPopItem5.Visible = False
      IF MFE_List.ItemCount < 7 THEN WinPopItem6.Visible = False
      IF MFE_List.ItemCount < 8 THEN WinPopItem7.Visible = False
      IF MFE_List.ItemCount < 9 THEN WinPopItem8.Visible = False
      IF MFE_List.ItemCount < 10 THEN WinPopItem9.Visible = False
      IF MFE_List.ItemCount < 11 THEN WinPopItem10.Visible = False
      IF MFE_List.ItemCount < 12 THEN WinPopItem11.Visible = False
      IF MFE_List.ItemCount < 13 THEN WinPopItem12.Visible = False
      IF MFE_List.ItemCount < 14 THEN WinPopItem13.Visible = False
      IF MFE_List.ItemCount < 15 THEN WinPopItem14.Visible = False
      IF MFE_List.ItemCount < 16 THEN WinPopItem15.Visible = False
      IF MFE_List.ItemCount < 17 THEN WinPopItem16.Visible = False
      IF MFE_List.ItemCount < 18 THEN WinPopItem17.Visible = False
      IF MFE_List.ItemCount < 19 THEN WinPopItem18.Visible = False
      IF MFE_List.ItemCount < 20 THEN WinPopItem19.Visible = False
      IF MFE_List.ItemCount < 21 THEN WinPopItem20.Visible = False
      IF MFE_List.ItemCount < 22 THEN WinPopItem21.Visible = False
      IF MFE_List.ItemCount < 23 THEN WinPopItem22.Visible = False
      IF MFE_List.ItemCount < 24 THEN WinPopItem23.Visible = False
      IF MFE_List.ItemCount < 25 THEN WinPopItem24.Visible = False
      IF MFE_List.ItemCount < 26 THEN WinPopItem25.Visible = False
      IF MFE_List.ItemCount < 27 THEN WinPopItem26.Visible = False
      IF MFE_List.ItemCount < 28 THEN WinPopItem27.Visible = False
      IF MFE_List.ItemCount < 29 THEN WinPopItem28.Visible = False
      IF MFE_List.ItemCount < 30 THEN WinPopItem29.Visible = False
      IF MFE_List.ItemCount < 31 THEN WinPopItem30.Visible = False
      IF MFE_List.ItemCount < 32 THEN WinPopItem31.Visible = False
      IF MFE_List.ItemCount < 33 THEN WinPopItem32.Visible = False
      IF MFE_List.ItemCount < 34 THEN WinPopItem33.Visible = False
      IF MFE_List.ItemCount < 35 THEN WinPopItem34.Visible = False
      IF MFE_List.ItemCount < 36 THEN WinPopItem35.Visible = False
      IF MFE_List.ItemCount < 37 THEN WinPopItem36.Visible = False
      IF MFE_List.ItemCount < 38 THEN WinPopItem37.Visible = False
      IF MFE_List.ItemCount < 39 THEN WinPopItem38.Visible = False
      IF MFE_List.ItemCount < 40 THEN WinPopItem39.Visible = False
      IF MFE_List.ItemCount < 41 THEN WinPopItem40.Visible = False
      IF MFE_List.ItemCount < 42 THEN WinPopItem41.Visible = False
      IF MFE_List.ItemCount < 43 THEN WinPopItem42.Visible = False
      IF MFE_List.ItemCount < 44 THEN WinPopItem43.Visible = False
      IF MFE_List.ItemCount < 45 THEN WinPopItem44.Visible = False
      IF MFE_List.ItemCount < 46 THEN WinPopItem45.Visible = False
      IF MFE_List.ItemCount < 47 THEN WinPopItem46.Visible = False
      IF MFE_List.ItemCount < 48 THEN WinPopItem47.Visible = False


      WindowPopup.Popup(Screen.MOUSEX, Screen.MOUSEY)
     END SUB


 '-------------------------------------------------------------
 '------------ END Popup for selecting multifile windows ---------
 '-------------------------------------------------------------

2010-12-07 21:18