From: ibisnest_removeantispam_@iinet.net.au   
      
   Marco, try this code in a field in a table frame - note that the container   
   (ie the record) is the object to be coloured.   
      
   ==============   
   method newValue(var eventInfo Event)   
   var   
      
      myRec    longint   
      
   endvar   
      
      myRec = self.recno   
      
      self.container.color = iif(myRec.mod(2) = 0, cl3DLight, Transparent)   
      
   endMethod   
   ==============   
      
      
   "marco"  wrote in message   
   news:459a9603$1_4@news.bluewin.ch...   
   > Robert Molyneux wrote:   
   > > Put the code in the newValue method of a field in the table frame /   
   grid.   
   > >   
   > > The open method only fires once. The newValue method fires for every row   
   as   
   > > it is displayed or changed.   
   >   
   > Cher Robert,   
   >   
   > merci pour ta reponse,   
   >   
   > -if you put the code in a field you will have small gaps between fields   
   > on the same row.   
   > -with open method works well (apart the small gaps)   
   > -with newvalue does not work at all   
   >   
   > I thought this code in the open method [ #record5 instead of self]:   
   > if rn.mod(2) = 0 then   
   >    #record5.color=gray   
   >    else   
   >    #record5self.color = white   
   > endIf   
   >   
   > but does not work   
   >   
   >   
   > >   
   > > Try using one of the Windows colours (see help for Color Constants)   
   instead   
   > > of gray.   
   > i dont know if pdx7 help give you the translation of a color into   
   > longint but while programming it's much faster to use basic color string   
   > unless you  manage to remember the code for gray (12632256), yellow   
   > (65535), red (255). I suppose the chances corel programmers will change   
   > the gray code are <1/10000000...   
   >   
   >   
   >   
   >   
   >   
   > >   
   > > "marco"  wrote in message   
   > > news:45977917$1_6@news.bluewin.ch...   
   > >   
   > >>pdx7,w2000/XP   
   > >>   
   > >>   
   > >>rn = self.rowNo   
   > >>if rn.mod(2) = 0 then   
   > >>   self.color=gray   
   > >>   else   
   > >>   self.color = transparent   
   > >>endIf   
   > >>   
   > >>putting this code in the open method of each field of a grid works   
   > >>pretty well but leaves a short space with of the grid color among field.   
   > >>The same code the tableframe.record open method does leave spaces but   
   > >>does not work scrolling.   
   > >>So the solution is?   
   > >>   
   > >>thanks   
   > >>marco   
   > >>   
   > >>p.s: if you read this today 31.12 shame on you for not taking care of   
   > >>your family instead of being crucified in front of your pc! But ou would   
   > >>be execused as a martyr...   
   > >>Happy new year to whom is reading this tomorrow   
   > >   
   > >   
   > >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)