User talk:Benz8

Hello, In LazReport class, in LR_PGrid, in

procedure TfrPrintGrid.OnEnterRect(Memo: TStringList; View: TfrView); var

 C: TColumn;
 i: Integer;

begin

 i := FColumnDataset.RecNo;

 if (i<0) or (i>Length(FColumnsInfo)-1) then
   exit;

 C := TColumn(DbGrid.Columns[FColumnsInfo[i].Column]);
 if (C<>nil)and(Memo.Count>0) then
 begin
   if (Memo[0]='[Cell]') and (C.Field<>nil) then
   begin
     Memo[0] := C.Field.DisplayText;
     View.dx := FColumnsInfo[i].ColumnWidth;
     TfrMemoView(View).Alignment:=C.Alignment;
     
     ////////////////////////// bug fixed
     TfrMemoView(View).Layout := tlTop;
     //////////////////////////////

   end else
   if Memo[0]='[Header]' then
   begin
     Memo[0] := C.Title.Caption;
     View.dx := FColumnsInfo[i].ColumnWidth;

     ////////////////////////// bug fixed
     TfrMemoView(View).Layout := tlTop;
     //////////////////////////////

   end;
 end;

end;