Почему компоненты в Delphi 6 Professional имеют другие размеры в редакторе, чем установлены в конструкторе: поиск решений

Delphi , Компоненты и Классы , Компоненты

Почему компоненты в Delphi 6 Professional имеют другие размеры в редакторе, чем установлены в конструкторе

При разработке компонентов на языке Object Pascal в среде Delphi 6 Professional может возникнуть ситуация, когда размеры компонентов в редакторе IDE отличаются от тех, что были установлены в конструкторе. Это может быть связано с особенностями обработки размеров компонентов во время проектирования. Рассмотрим на примере создания компонента-разделителя, который должен иметь размеры 8x8 пикселей.

Описание проблемы

Разработчик создал компонент TSSpacer, производный от TBevel, с целью использовать его в качестве разделителя. В конструкторе компонента заданы размеры Width и Height равными 8 пикселям. Однако, при добавлении компонента на форму, его размеры оказываются 140x41 пикселей, что не соответствует ожидаемым 8x8.

type
  TSSpacer = class(TBevel)
  public
    constructor Create(aOwner: TComponent); override;
  published
    property Shape default bsSpacer;
  end;

constructor TSSpacer.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
  Shape := bsSpacer;
  Width := 8;
  Height := 8;
end;

Анализ проблемы

Причиной такого поведения может быть ограничение дизайнерского времени среды разработки. Возможно, это связано с ограничениями по минимальным размерам, которые могут быть связаны с внутренними настройками сетки. Предполагается, что если задать размеры 10x10, то компонент будет корректно создан в режиме дизайна. Однако, неясно, как можно изменить размеры обратно после создания, определяя, что компонент находится в режиме дизайна и создание завершено.

Поиск решения

Исследовав проблему, было обнаружено, что для контроля размеров компонента можно переопределить метод SetBounds базового класса TControl. Однако, необходимо правильно определить момент, когда компонент полностью создан в режиме дизайна, чтобы корректно применить желаемые размеры.

type
  TSSPacer = class(TBevel)
  protected
    procedure SetParent(AParent: TWinControl); override;
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Shape default bsSpacer;
  end;

constructor TSSPacer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Shape := bsSpacer;
end;

procedure TSSPacer.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  if AutoSize then
    inherited SetBounds(ALeft, ATop, 8, 8)
  else
    inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;

procedure TSSPacer.SetParent(AParent: TWinControl);
begin
  AutoSize := (csDesigning in ComponentState) and (Parent = nil) and
    (AParent <> nil);
  inherited SetParent(AParent);
end;

Также можно использовать дополнительную переменную для фиксации размеров в режиме дизайна:

private
  FFixDesignSize: Boolean;

procedure TSSPacer.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  if FFixDesignSize then
  begin
    inherited SetBounds(ALeft, ATop, 8, 8);
    FFixDesignSize := False;
  end
  else
    inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;

Подтвержденное решение

Разработчик должен понимать, что порядок вызова методов может отличаться между различными версиями Delphi, и не следует полагаться на конкретную последовательность вызовов. Однако, предложенный подход позволяет корректно задать размеры компонента в режиме дизайна.

Заключение

При разработке компонентов в Delphi важно учитывать особенности обработки размеров во время проектирования. Переопределение методов SetBounds и SetParent позволяет добиться желаемых размеров компонента, даже если они отличаются от стандартного поведения среды разработки.

Создано по материалам из источника по ссылке.

В Delphi 6 Professional размеры компонентов в редакторе IDE могут отличаться от установленных в конструкторе из-за особенностей обработки размеров в среде разработки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты ::