Bug. Свойство StretchMode у DMPMemo

Комментарии

• AlexTZ

  September 2005 отредактировано September 2005

  Не может быть. Только что проверил, все работает. Отчет в демке, dot matrix reports/customer list.
• Domkrat

  September 2005 отредактировано September 2005

  AlexTZ написал:

  Не может быть. Только что проверил, все работает. Отчет в демке, dot matrix reports/customer list.

  Смотрим
  { calculate the max height of the band }
  maxh := 0;
  for i := 0 to Band.Objects.Count - 1 do
  begin
  c := Band.Objects;
  if c.Top + c.Height > maxh then
  begin
  maxh := c.Top + c.Height;
  if (c is TfrxDMPMemoView) and (ftBottom in TfrxDMPMemoView©.Frame.Typ) then
  maxh := maxh + fr1CharY;
  end;
  end;
  if Band.Stretched then
  Band.Height := maxh;
  
  Если у нас (c is TfrxDMPMemoView) and (ftBottom in TfrxDMPMemoView©.Frame.Typ) = True при i = 0, то c.Top + c.Height > maxh всегда будет False, если тот мемо который ресайзится получается больше на 1 линию (17).
• Domkrat

  September 2005 отредактировано 16:24

  Fix.
  var IsDMPAndBottomFramed : Boolean;
  
  { calculate the max height of the band }
  maxh := 0;
  IsDMPAndBottomFramed := false;
  for i := 0 to Band.Objects.Count - 1 do
  begin
  c := Band.Objects;
  if c.Top + c.Height > maxh then
  begin
  maxh := c.Top + c.Height;
  if (c is TfrxDMPMemoView) and (ftBottom in TfrxDMPMemoView©.Frame.Typ) then
  IsDMPAndBottomFramed := true;
  end;
  end;
  if IsDMPAndBottomFramed then
  maxh := maxh + fr1CharY;
  
  Может достаточно поставить if c.Top + c.Height >= maxh then, но это будет зависеть от константы размера строки 17.
• AlexTZ

  September 2005 отредактировано 16:24

  Поправил, будет доступно в завтрашнем билде.