Change color to a row

Comments

• gordk St.Catherines On. Canada.

  March 2004 edited 11:13AM

  hi
  add a blank memo to the band (memo10) size it to the size of the band and send it to the back. in on before printevent of band add code ie
  if [tablename."fieldname"] = some value then memo10.fillcolor:= claqua;
  multiple times for each value and color combination
  if you just want alternating lines select the memo go to toolbar select conditional highlighting enter [line#] mod 2 you can see this in the first report of the reports demo.
  regards
  
• miyomo

  March 2004 edited 11:13AM

  >if [tablename."fieldname"] = some value then memo10.fillcolor:= claqua;
  
  Thanks for the quick reply.
  The problem is that I have to compare the current record field "date" with the previuos one to understand if the date has changed or not. If it has changed then color the row.
  To do this I have to store the previous field "date" in a variable and compare with the curret value. More or less:
  
  var i:integer;
  NewDate,OldDate:TDateTime;
  begin
  if i:=0 then
  OldDate :=NewDate; //only the first time in the cycle
  
  NewData := [DM.dSetLogBook."Date"];
  
  if OldData:=NewData then
  Memo2.Fillcolor:=clSilver; //same day
  else
  begin
  Memo2.Fillcolor:=clWindow; //day has changed
  OldDate := NewDate;
  end;
  end;
  
  end
  --
  The text editor doesn't allow to store variable like i:integer 'cause they are all variant. Where do I 've to store the previous value?
  
  Thanks
• miyomo

  March 2004 edited 11:13AM

  While I was getting crazy to find a solution, my wife
  (a simple Windows basic user!!) told me....
  Why don't you color the odd days with a color
  and the even with another?
  
  GUESS WHAT????
  It works...
  
  Damn! :-|
  
  Thanks to everybody!
  
  Miyomo
  
  
• gordk St.Catherines On. Canada.

  March 2004 edited 11:13AM

  hi
  don't declare just name and initialize
  inobp of band
  begin
  if [Line#] = 1 then
  begin
  olddate:= [DM.dSetLogBook."Date"];
  Memo2.Fillcolor:=clSilver;
  end;
  //sets on firstrecord
  if [Line#]>1 then
  begin
  if [DM.dSetLogBook."Date"] = [olddate] then
  begin
  memo2.fillcolor := memo2.filcolor;
  // if = leave as is
  end
  else
  begin
  memo2.fillcolor := clwindow;
  olddate:= [DM.dSetLogBook."Date"];
  // resets old date for next pass
  end;
  end;
  end
  regards
  
  
• miyomo

  March 2004 edited 11:13AM

  Thanks gordk, for the elegant
  piece of code!
  I didn't think about initializing
  with [line#]=1...
  I'm going to try it now!
  
  miyomo