Перейти к содержанию
  • 0
FIL

Как программно добраться до свойств стиля FixedHeight и FixedWidth?

Вопросы

Интересует вопрос, возможно ли программно добраться до свойств стиля FixedHeight и FixedWidth, чтобы не надо было создавать свой дополнительный стиль?

Поделиться сообщением


Ссылка на сообщение

Рекомендуемые сообщения

  • 0

https://delphihaven.wordpress.com/2013/12/30/removing-a-fmx-controls-size-restrictions/

Фил, вот вариант, через одно место, но без стилей.

Если не много форм, то мусорить в типах в начале стоит, ради дальнейшего избавления от стилей.

Это работает, причем не обязательно с спидбатонами.

Но надо смириться, что в дизайне будет изврат.

Отредактировал rustam_d

Поделиться сообщением


Ссылка на сообщение
  • 0

Как то с vcl еще привычка была наследоваться от базовых форм.

Тут она и пригодилась, в базовой форме можно все перегрузки и кидать, а в наследованной 

все автоматом цепляется...проверенно, работает!

 

верхняя ссылка глючит, там про перегрузку контрола:

type

  TSpeedButton = class(FMX.StdCtrls.TSpeedButton)
  protected
    procedure AdjustFixedSize(const Ref: TControl); override;
  end;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

{$R *.fmx}

{ TSpeedButton }

procedure TSpeedButton.AdjustFixedSize(const Ref: TControl);
begin
  SetAdjustType(TAdjustType.None);
end;

ну а далее мое предложение про наследование, зато код без мусора...он в предках...:

type
  TForm2 = class(TForm1)

Поделиться сообщением


Ссылка на сообщение
  • 0

Да, этот вариант отлично работает. Ни со стилями заморачиваться не надо, ни доп. ресайзы делать)

Поделиться сообщением


Ссылка на сообщение

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...