>>LOCAL lcPath, llOldScreenVisible >> >>lcPath = ADDBS(justpath(FULLPATH(thisform.FileName))) >> >>llOldScreenVisible = _screen.visible &&In EXE it is not visible >>_screen.Visible = .t. >>MODIFY FILE (lcPath + 'SKUDUPES.TXT') NOEDIT >>_screen.Visible = llOldScreenVisible >>>>
>>MODIFY FILE cat window screen >>MODIFY FILE cat window _screen >>MODIFY FILE cat window '_screen' >>MODIFY FILE cat window 'screen' >>MODIFY FILE cat window &screen >>MODIFY FILE cat window &_screen >>MODIFY FILE cat WINDOW 'Microsoft Visual FoxPro' >>MODIFY FILE cat WINDOW "Microsoft Visual FoxPro" >>>
lnOldWidth = thisform.width lnOldHeight = thisform.Height thisform.Closable = .f. thisform.Height = 400 thisform.Width = 500 MODIFY FILE (lcPath + 'SKUDUPES.TXT') IN WINDOW frmSkud WINDOW frmSkud NOEDIT thisform.Height = lnOldHeight thisform.Width = lnOldWidththanks for your help