Шапка Cross-tab

Комментарии

• gpi

  April 2007 отредактировано April 2007

  К сожалению, без правки исходников frxCross.pas не обойтись
  Придётся добавить в TfrxCustomCrossView поля
  FMaxHeight: Integer;
  FMinHeight: Integer;
  свойства MaxHeight, MinHeight
  property MaxHeight: Integer read FMaxHeight write FMaxHeight default 100;
  property MinHeight: Integer read FMinHeight write FMinHeight default 0;
  Модифицировать процедуры CalcSizes для TfrxCrossHeader, TfrxCrossColumnHeader, TfrxCrossRowHeader
  procedure CalcSizes(MaxWidth, MinWidth, MaxHeight, MinHeight: Integer; AutoSize: Boolean);
  Добавить проверку на MaxHeight, MinHeight в
  procedure TfrxCrossColumnHeader.CalcSizes(MaxWidth, MinWidth, MaxHeight, MinHeight: Integer; AutoSize: Boolean);
  ...
  if Item.FSize.X < MinWidth then
  Item.FSize.X := MinWidth;
  if Item.FSize.X > MaxWidth then
  Item.FSize.X := MaxWidth;
  
  if Item.FSize.Y < MinHeight then // добавлено
  Item.FSize.Y := MinHeight;
  if Item.FSize.Y > MaxHeight then
  Item.FSize.Y := MaxHeight;
  ...
  procedure TfrxCrossRowHeader.CalcSizes(MaxWidth, MinWidth, MaxHeight, MinHeight: Integer; AutoSize: Boolean);
  ...
  if Item.FSize.X < MinWidth then
  Item.FSize.X := MinWidth;
  if Item.FSize.X > MaxWidth then
  Item.FSize.X := MaxWidth;
  
  if Item.FSize.Y < MinHeight then // добавлено
  Item.FSize.Y := MinHeight;
  if Item.FSize.Y > MaxHeight then
  Item.FSize.Y := MaxHeight;
  ...
  И в конструктор
  constructor TfrxCustomCrossView.Create(AOwner: TComponent);
  ...
  FMaxWidth := 200;
  FMaxHeight := 100; // добавлено
  ...
  P.S. Рекомендация для FR4, но, думаю, подойдёт с небольшими изменениями и для FR3
• Абис

  April 2007 отредактировано 00:15

  К сожалению, без правки исходников frxCross.pas не обойтись
  [/quote]
  А я сам смогу править этот файл? Что-то я его не нашел на диске!
• gpi

  April 2007 отредактировано 00:15

  В FR Professional и FR Enterprise должен быть. В FR Basic и FR Standart исходников нет
• Абис

  April 2007 отредактировано 00:15

  gpi написал: »

  В FR Professional и FR Enterprise должен быть. В FR Basic и FR Standart исходников нет

  
  Жаль, у меня FR Standart
• gpi

  April 2007 отредактировано April 2007

  Тогда просите Александра Цыганенко, чтобы он внёс изменения в следующие билды FR, при условии, что у Вас FR4, а не FR3