1 files changed, 90 insertions, 0 deletions
diff --git a/prototypes/miglayout/gui_mig_boundsize.pas b/prototypes/miglayout/gui_mig_boundsize.pas
new file mode 100644
index 00000000..a77b6b80
--- /dev/null
+++ b/prototypes/miglayout/gui_mig_boundsize.pas
@@ -0,0 +1,90 @@
+unit gui_mig_boundsize;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, gui_mig_unitvalue;
+  
+type
+
+  { TBoundSize }
+
+  TBoundSize = class(TObject)
+  private
+    FMin: TUnitValue;
+    FPref: TUnitValue;
+    FMax: TUnitValue;
+    FGapPush: Boolean;
+  public
+    constructor Create(AMinMaxPref: TUnitValue; ACreateString: string); // overloaded;
+    constructor Create(AMin: TUnitValue; APreferred: TUnitValue; AMax: TUnitValue; ACreateString: string); // overloaded;
+    constructor Create(AMin: TUnitValue; APreferred: TUnitValue; AMax: TUnitValue; AGapPush: Boolean; ACreateString: string); // overloaded;
+    function    GetSize(const ASizeType: integer): TUnitValue;
+    function    IsUnset: Boolean;
+    function    GetConstraintString: string;
+    property    Min: TUnitValue read FMin;
+    property    Preferred: TUnitValue read FPref;
+    property    Max: TUnitValue read FMax;
+    property    GapPush: Boolean read FGapPush;
+  end;
+
+implementation
+
+uses
+  gui_mig_exceptions;
+  
+
+{ TBoundSize }
+
+function TBoundSize.IsUnset: Boolean;
+begin
+  Result := (FMin = nil) and (FPref = nil) and (FMax = nil);
+end;
+
+function TBoundSize.GetConstraintString: string;
+begin
+  Result := 'null';
+  {$Note TBoundSize.GetConstraintString still needs to be implemented. }
+end;
+
+constructor TBoundSize.Create(AMinMaxPref: TUnitValue; ACreateString: string);
+begin
+  Create(AMinMaxPref, AMinMaxPref, AMinMaxPref, ACreateString);
+end;
+
+constructor TBoundSize.Create(AMin: TUnitValue; APreferred: TUnitValue;
+  AMax: TUnitValue; ACreateString: string);
+begin
+  Create(AMin, APreferred, AMax, False, ACreateString);
+end;
+
+constructor TBoundSize.Create(AMin: TUnitValue; APreferred: TUnitValue;
+  AMax: TUnitValue; AGapPush: Boolean; ACreateString: string);
+begin
+  inherited Create;
+  FMin := AMin;
+  FPref := APreferred;
+  FMax := AMax;
+  FGapPush := AGapPush;
+  
+  {$Note TBoundSize.Create is incompleted, we still need to handle ACreateString. }
+end;
+
+function TBoundSize.GetSize(const ASizeType: integer): TUnitValue;
+begin
+  case ASizetype of
+    0{MIN}:
+        result := FMin;
+    1{PREF}:
+        result := FPref;
+    2{MAX}:
+        result := FMax;
+  else
+    raise EIllegalArgument.CreateFmt('Unknown size: %d', [ASizeType]);
+  end;
+end;
+
+end.
+