Firemonkey constraint

FMX.Layout.Constraint.pas

// Source: http://delphiaccess.com/foros/index.php/topic/12206-alguien-conoce-algo-análogo-a-constraint-de-vcl/
// Author: @genriquez

unit FMX.Layout.Constraint;

type
  TLayout = class(FMX.Layouts.TLayout)
  private
    FConstraint: TPoint;
    procedure SetConstraint(const Value: TPoint);
  protected
     procedure HandleSizeChanged; Override;
  public
     Property Constraint: TPoint read FConstraint write SetConstraint;
  end;

implementation

{ TLayout }
 
procedure TLayout.HandleSizeChanged;
begin
  If (FConstraint.X > 0) and (Width < FConstraint.X) then
     Width := FConstraint.X;
 
  If (FConstraint.Y > 0) and (Height < FConstraint.Y) then
     Height := FConstraint.Y;
 
  inherited;
end;
 
procedure TLayout.SetConstraint(const Value: TPoint);
begin
  FConstraint := Value;
end;