Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Strange grey dot in the grid
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00709007
Message ID:
00709035
Views:
19
This message has been marked as a message which has helped to the initial question of the thread.
Got WIndex? CLean your screen:)

I don't think the After/Change method produced it. I guess you've looked to see if it's some 'small' object tabindexed after your grid. Could it be a reminant of your grid highlite classes?

>Hi everybody,
>
>I noticed a little grey dot in the grid in one of my application. I can not explain it. Have you ever seen something like that? (It's on my screen and user's screen as well).
>
>I have a heavy AfterRowColChange method:
>
>LPARAMETERS nColIndex
>local lnRecno, lcKeyValue, lcOldSetNear, lcLetter, llSearchAgain, lc4Letters
>llSearchAgain = .f.
>lcOldSetNear = set('near')
>lnRecno=recno('BldMstr')
>select LenderView
>if thisform.lJustSearched and this.nCurRec=m.lnRecno	
>	goto thisform.nLastRecord && Last record, which was selected in Search dialog
>	thisform.KeyValue=""
>	thisform.grdLender.refresh()
>*	thisform.grdLender.setfocus()	
>else
>    lcKeyValue = iif(!empty(BldMstr.LName) ;
>                 and !isnull(BldMstr.LName),BldMstr.LName,substr(BldMstr.OldValue,8))
>    lc4Letters = left(m.lcKeyValue,4)
>    lcKeyValue = left(m.lc4Letters,1)
>    if thisform.KeyValue<> m.lcKeyValue
>       thisform.KeyValue= m.lcKeyValue
>       lcLetter=thisform.KeyValue
>       requery()
>       thisform.grdLender.refresh()
>       llSearchAgain = .t.
>    endif
>    if thisform.cLastFour<>m.lc4Letters
>       llSearchAgain = .t.
>       thisform.cLastFour=m.lc4Letters
>    endif
>endif
>
>if !isnull(BldMstr.LName) and m.llSearchAgain
>   set near on
>   seek m.lc4Letters
>   if m.lcOldSetNear= "OFF"
>      set near off
>   endif
>endif
>select BldMstr
>with this
>  * .colLName.ReadOnly=.t.
>*   .parent.GrdHglt1.Highlight_Row()
>   .statusbartext=space(20)+"Record "+ ;
>	transform(m.lnRecno)+ ;
>	" of "+transform(thisform.nRecords)+' in BldMstr'
>    if .nCurRec<>recno('BldMstr')
>       thisform.navstand.navupdate()
>       thisform.lJustSearched=.f.
>    endif
>endwith
>thisform.grdLender.SetFocus()
>this.SetFocus()
>this.colLender.ReadOnly=left(BldMstr.Lender,4)<>'MISC'
>dodefault(m.nColIndex)
>
>I switched from GridHighlighter to Highlighted class, but the problem persists...
>
>Do you have ideas?
>
>Thanks in advance.
Imagination is more important than knowledge
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform