FIX: GroupHeader after MasterHeader

Samuray

Change fr_class.pas.

procedure TfrPage.FormPage;
procedure DoLoop(Level: Integer);

change lines:
if not b.DataSet.Eof then
begin
InitGroups(b.FirstGroup);
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);

on next lines:
if not b.DataSet.Eof then
begin
if b.HeaderBand <> nil then
AddToStack(b.HeaderBand);
InitGroups(b.FirstGroup);

gordk

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

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

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

Hi Gord!

Thanx a lot! I will mind all you wishes!