TfrxCrossView Align baCenter issue

Comments

• Mick.pl

  August 2011 edited 5:29AM

  I can't force DBCross to be aligned the way you wish, but I tried with succes to change its Left position.
  Have a look at the code below and if you find it interesting then follow the idea I tested.
  

  var DBCrossWidth :real;
      LastCol :int;                                                               
  
  procedure DBCross3OnCalcWidth(ColumnIndex: Integer; ColumnValues: Variant; var Width: Extended);
  begin
     if ColumnIndex > LastCol 
       then begin
              DBCrossWidth := DBCrossWidth + Width;
              LastCol := ColumnIndex;
            end
       else DbCross3.Left := MasterData1.Width - DBCrossWidth/2;
  end;
  
  begin
     LastCol := 0;                            
  end.
  

  
  Mick
  
• D'Arcy

  August 2011 edited 5:29AM

  Mick,
  Thanks for the suggestion, however it appears that the Width parameter of Cross1OnCalcWidth() is based on a width value before the cols are autosized. When I tested your suggestion the Width value was always 200 which I know is not the true width as the column widths are all different i.e. autosize.
  
  One thing I must emphasize is that I am using the CrossView component (not DBCrossView) and populating the values within frxReport1BeforePrint in my own code. Could it be possible to calculate the Left position after a IsFinalPass() check within the frxReport1BeforePrint function i.e. once the data has already been added.
  
  Any other suggestions greatly appreciated.
  
  D'Arcy
• D'Arcy

  August 2011 edited 5:29AM

  Hi,
  Did anyone get a chance to consider my reply. Unfortunately this is still an issue.
  
  Kind regards,
  D'Arcy