Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Record pointer in grid without focus
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00044481
Message ID:
00044745
Vues:
35
>>>We're getting closer, I think. I made a form property gridcurrec, which I hope might have wide scope. My expression in .DynamicBackColor is recno()=THISFORM.gridcurrec. Somewhere, I need to put THISFORM.gridcurrec = recno('gridalias'). Grids don't have a .lostfocus event, and I think the controls inside the grid will think all RECNO()s in the grid are RECNO(), if you know what I mean.
>>
>>As Edward says, use AfterRowColChange. Here's some more complete code (now that I have time)...this will use whatever selection colors the user has set.
>>
>>*cursor/table is selected
>>*rgbColorB & F are user's default selected colors picked up from a textbox.
>>*The empty string says to do nothing (use your grid/column colors) if IIF is .F.
>>
>>nRec = recno()
>>this.SetAll("DynamicBackColor",;
>>"IIF(recno()=nRec,rgbColorB,'')","Column")
>>this.SetAll("DynamicForeColor",;
>>"IIF(recno()=nRec,rgbColorF,'')","Column")
>>this.refresh
>>
>>
>>You can call this from outside grid as needed...
>When I tried your code I got an "Expression is invalid. Use a valid expression for DynamicForeColor property" and a similar one for DynamicBackColor. Since I use vfp3 and could find no documentation for rgbColorF and B, I replaced them with rgb(50,50,50) and rgb(150,150,150). Same error. What's its problem?

I copied this from one my form:
create cursor tmpdtlquery (uc C(2), titlepart C(30), numsoc C(8), durshare C(10),caenum C(14), titleflag L, shareerr L)
cBackcolorline="IIF(tmpdtlquery.titleflag=.T.,16711680,16777215)"
cForecolorline="IIF(tmpdtlquery.titleflag=.T.,16777215,0)"
with this.grDtlquery
.recordsource="tmpdtlquery"
.setall("DynamicBackColor",cBackcolorline,"Column")
.setall("DynamicForeColor",cForecolorline,"Column")
endwith

HTH
Edward Pikman
Independent Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform