Fr 4.12: Ошибка переноса текста в Memo при изменении ориентации страницы

Stalker4

Hi All,

см. в атаче пример с ошибкой.

Запускаем отчет.
Изначально страница в демке находится в ориентации poPortrait.
Жмем кнопку "poPortrait". Ориентация страницы фактически не меняется.
Текст в строке 3 не помещается в одну строку и переноситься на следующую.
Тут все нормально.

Теперь жмем кнопку "poLandScape". Меняется ориентация страницы.
Текст в строке 3 помещается в одну строку, но тем не менее строка почему то
увеличивает свою высоту.

То есть при смене ориентации страницы начинает глючить механизм
изменения высоты мемки.

А может это глючит механизм работы свойства Memo.Align.
Так как если у страницы в дизайнере установить ориентацию poLandScape,
запустить отчет и нажать кнопку "poPortrait", то исчезает третья
колонка.

gpi

В Delphi

procedure TForm1.FormShow(Sender: TObject);
begin
frxReport1.AddFunction('function AlignChildren(Band: TfrxReportPage)');
frxReport1.ShowReport;
end;

function TForm1.frxReport1UserFunction(const MethodName: String;
  var Params: Variant): Variant;
begin
  if MethodName = 'ALIGNCHILDREN' then
    TfrxReportPage(Integer(Params[0])).AlignChildren;
end;

в скрипте

procedure Button1OnClick(Sender: TfrxComponent);
begin
 Page1.Orientation := poPortrait;
  AlignChildren(Page1);                                      
end;

procedure Button2OnClick(Sender: TfrxComponent);
begin
  Page1.Orientation := poLandScape;
  AlignChildren(Page1);                                        
end;

Stalker4

gpi написал: »

В Delphi

procedure TForm1.FormShow(Sender: TObject);
begin
frxReport1.AddFunction('function AlignChildren(Band: TfrxReportPage)');
frxReport1.ShowReport;
end;

Только не function, а procedure. А так все работает, спасибо за помощь.
Но это ИМНО все равно баг FR. Напишу им это в тех. поддержку.

gpi

подправьте frxClass.pas

procedure TfrxReportPage.SetOrientation(Value: TPrinterOrientation);
var
  e, m1, m2, m3, m4: Extended;
begin
  if FOrientation <> Value then
  begin
    e := FPaperWidth;
    FPaperWidth := FPaperHeight;
    FPaperHeight := e;

    m1 := FLeftMargin;
    m2 := FRightMargin;
    m3 := FTopMargin;
    m4 := FBottomMargin;

    if Value = poLandscape then
    begin
      FLeftMargin := m3;
      FRightMargin := m4;
      FTopMargin := m2;
      FBottomMargin := m1;
    end
    else
    begin
      FLeftMargin := m4;
      FRightMargin := m3;
      FTopMargin := m1;
      FBottomMargin := m2;
    end;
    UpdateDimensions;
  end;

  FOrientation := Value;
  AlignChildren;  //add this line
end;