FIX: GroupHeader after MasterHeader

Comments

• gordk St.Catherines On. Canada.

  November 2003 edited 4:34AM

  Hi Samuray
  thanks for fix but unclear as to exactly where it goes.
  do you want to insert this added code
  
  "if not b.DataSet.Eof then
  begin
  if b.HeaderBand <> nil then
  AddToStack(b.HeaderBand);
  InitGroups(b.FirstGroup);"
  
  
  if not b.DataSet.Eof then
  begin
  InitGroups(b.FirstGroup);
  if b.HeaderBand <> nil then
  AddToStack(b.HeaderBand);
  
  // insert here
  
  if b.footerband <> nil then
  
  regards
  
  
• Samuray Administrator

  November 2003 edited 4:34AM

  gordk wrote:

  thanks for fix but unclear as to exactly where it goes.
  do you want to insert this added code
  ...
  // insert here

  Don't insert. Simply change order old lines:
  
  InitGroups(b.FirstGroup);
  if b.HeaderBand <> nil then
  AddToStack(b.HeaderBand);
  
  on new order:
  
  if b.HeaderBand <> nil then
  AddToStack(b.HeaderBand);
  InitGroups(b.FirstGroup);
  
  
• gordk St.Catherines On. Canada.

  November 2003 edited 4:34AM

  Hi Samuray
  Thanks for the reply i ended up realizing that after reading a couple of times.
  IMHO it would be a lot easier if changes were documented like below.
  
  Change to fr_class.pas.
  re header positioning bug
  
  procedure TfrPage.FormPage; // find this procedure
  procedure DoLoop(Level: Integer); // find this nested procedure
  
  
  if not b.DataSet.Eof then
  begin
  InitGroups(b.FirstGroup); //move this line from here
  if b.HeaderBand <> nil then
  AddToStack(b.HeaderBand);
  InitGroups(b.FirstGroup); // to here
  
  it would also be nice if these changes were assigned a number and when subsequent versions are released we could have a list of what item numbers have been included in the new version.
  regards
  gord
• Samuray Administrator

  November 2003 edited 4:34AM

  Hi Gord!
  
  Thanx a lot! I will mind all you wishes!