>PARAMETER llistboxclick > >LOCAL i,j >DECLARE INTEGER LockWindowUpdate IN Win32API INTEGER nHandle >LockWindowUpdate(_VFP.hwnd) > >IF TYPE("THIS.oFiler")#"O" OR ISNULL(THIS.oFiler) OR; > THIS.lstFiles.ListCount=0 OR THIS.lstFiles.ListItemID=0 > LockWindowUpdate(0) > CLEAR DLLS LockWindowUpdate > RETURN >ENDIF > >IF !llistboxclick > * User clicked Edit button, check for multi-selects > FOR i = 1 TO THIS.lstFiles.Listcount > IF THIS.lstFiles.Selected(m.i) > FOR j = m.i TO THIS.oFiler.Count > IF THIS.oFiler.Item[m.j].Path+THIS.oFiler.Item[m.j].Name = ; > THIS.lstFiles.List(m.i) AND FILE(THIS.lstFiles.List(m.i)) > THIS.oFiler.Item[m.j].Edit > ZOOM WINDOW (WONTOP()) MAX > ENDIF > ENDFOR > ENDIF > ENDFOR >ENDIF > >IF THIS.oFiler.Count = THIS.lstFiles.ListCount AND ; > FILE(THIS.lstFiles.List(THIS.lstFiles.ListItemID)) > THIS.oFiler.Item[THIS.lstFiles.ListItemID].Edit > ZOOM WINDOW (WONTOP()) MAX >ELSE > FOR i = 1 TO THIS.oFiler.Count > IF THIS.oFiler.Item[m.i].Path+THIS.oFiler.Item[m.i].Name = ; > THIS.lstFiles.List(THIS.lstFiles.ListItemID) AND ; > FILE(THIS.lstFiles.List(THIS.lstFiles.ListItemID)) > THIS.oFiler.Item[m.i].Edit > ZOOM WINDOW (WONTOP()) MAX > EXIT > ENDIF > ENDFOR >ENDIF >LockWindowUpdate(0) >CLEAR DLLS LockWindowUpdate >>And it works here. Only caption of the screen flickers.
>>> IF THIS.oFiler.Item[m.j].Path+THIS.oFiler.Item[m.j].Name = ; >>> THIS.lstFiles.List(m.i) AND FILE(THIS.lstFiles.List(m.i)) >>> THIS.oFiler.Item[m.j].Edit && I want this window maximized automatically >>> DECLARE INTEGER LockWindowUpdate IN Win32API INTEGER nHandle >>> LockWindowUpdate(_VFP.hWnd) >>> ZOOM WINDOW (WONTOP()) MAX >>> LockWindowUpdate(0) >>> CLEAR DLLS LockWindowUpdate >>> ENDIF >>>>>>
>>>>>>IF THIS.oFiler.Item[m.j].Path+THIS.oFiler.Item[m.j].Name = ; >>>>>> THIS.lstFiles.List(m.i) AND FILE(THIS.lstFiles.List(m.i)) >>>>>> THIS.oFiler.Item[m.j].Edit && I want this window maximized automatically >>>>> ZOOM WINDOW (WONTOP()) MAX >>>>>>ENDIF >>>>>>>>>>>>