Did you tryed to lock whole windows update?
I saw this code here in UT. Unfortunately I can't remember who posted it, I just remember the function:
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
DECLARE INTEGER LockWindowUpdate IN Win32API INTEGER nHandle
LockWindowUpdate(_VFP.hWnd)
ZOOM WINDOW (WONTOP()) MAX
LockWindowUpdate(0)
CLEAR DLLS LockWindowUpdate
ENDIF
>Fabio,
>
>Have you tried this in the editfile method of filer.scx? It works, but there is an aggravating screen flash while the first smaller window appears and then a flicker when it zooms to max. Since I only use this myself inhouse, not a big deal, but getting rid of the flicker and flash would be nice. I am running this hundreds of times a day while I make program modifications. For quick locating of text in prgs (and reviewing the prg and editing if necessary) I prefer this to code reference. I tried using lockscreen before and after the .edit and zoom lines to no avail.
>
>
>>>In the code below (from editfile of filer.scx), when edit is called, I would like the edit window automatically maximized. What is the best way to do that? I tried KEYBOARD '{CTRL+F10}' and SET MEMOWIDTH, etc to no avail.
>>>
>>>
>>>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
>>>
>>>
>>>TIA,
>>>Tracy
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.