Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Grid Highlighter class
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00526121
Message ID:
00526365
Views:
15
>>I am trying to use the gridhighlighter class in a project I am developing. The application worked fine until I downloaded the lastest version of the class(June 13,2001 download from universal thread). I now get the following error when I close the form.
>>
>>I am using VFP6 with service pack 5 and have only one grid on the form.
>>
>>The error message is as follows:
>>Property grid is not found - error 1734
>>Message - with.this.parent&lcHost.....
>>
>>Any suggestion as to what is wrong. Has anyone else experienced this?
>>
>>Thanks
>>Gaylen
>
>Could it be, that grid destroyed before GridHighlighter destroyed?
>
>BTW, I was able to replicate GH functionality in the project, I'm currently working on, using Cetin's Highlighted grid. I substitute each text1 in a grid with my own control and place this code in its GotFocus event:
>
>
>if this.parent.readonly
>   set cursor off
>endif
>this.forecolor=thisform.myForeColor(evaluate('BldMstr.'+thisform.AddrField))
>this.backcolor=this.parent.parent.cCurRecBackColor
>this.fontbold=.t.
>with this.parent.header1
>     .backcolor=rgb(64,128,128) && green
>      .forecolor=rgb(255,255,255) && white
>endwith
>dodefault()
>
>and this code in LostFocus event:
>
>set cursor on
>with this.parent.header1
>     .backcolor=rgb(192,192,192) && gray
>      .forecolor=rgb(0,0,0) && black
>endwith
>dodefault()
>
>I found one visual glitch, which is in both GH and Highlighted (with this my modification): when I navigate from record to record, the active cell becomes highlighted first, then the whole column with some delay...
>
>HTH

This is not really the glitch, this is the way the grid works. Sometimes when something slows the grid down it is possible to notice this even on default grid.
Nick Neklioudov
Universal Thread Consultant
3 times Microsoft MVP - Visual FoxPro

"I have not failed. I've just found 10,000 ways that don't work." - Thomas Edison
Previous
Reply
Map
View

Click here to load this message in the networking platform