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:
00709041
Views:
16
Thanks, Terry. Sometimes the obvious reason elludes me. Leland explained it already, but you got 1 star for help as well.

>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.
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform