1 files changed, 107 insertions, 9 deletions

diff --git a/prototypes/miglayout/gui_mig_lc.pas b/prototypes/miglayout/gui_mig_lc.pas
index 1b787268..d506d1f3 100644
--- a/prototypes/miglayout/gui_mig_lc.pas
+++ b/prototypes/miglayout/gui_mig_lc.pas
@@ -29,25 +29,44 @@ type
     FAlignY: TUnitValue;
     FInsets: TUnitValueArray;
     FLeftToRight: Boolean;
+    FNoGrid: Boolean;
     FTopToBottom: Boolean;
-    function GetInsets: TUnitValueArray;
-    procedure SetHideMode(const AValue: integer);
-    procedure SetInsets(const AValue: TUnitValueArray);
+    FVisualPadding: Boolean;
+    FWrapAfter: Integer;
+    function    GetInsets: TUnitValueArray;
+    procedure   SetHideMode(const AValue: integer);
+    procedure   SetInsets(const AValue: TUnitValueArray);
   public
     constructor Create;
-    property    NoCache: Boolean read FNoCache write FNoCache default False;
+    function    Wrap: TLC;
+    function    WrapAfter(const ACount: Integer): TLC;
+    function    NoCache: TLC;
+    function    FlowY: TLC;
+    function    FlowX: TLC;
+    function    Fill: TLC;
+    function    FillX: TLC;
+    function    FillY: TLC;
+    function    LeftToRight(AValue: Boolean): TLC;
+    function    BottomToTop: TLC;
+    function    NoGrid: TLC;
+    function    NoVisualPadding: TLC;
+    function    InsetsAll(AllSides: string): TLC;
+    property    NoCache_prop: Boolean read FNoCache write FNoCache default False;
     property    AlignX: TUnitValue read FAlignX write FAlignX;
     property    AlignY: TUnitValue read FAlignY write FAlignY;
     property    DebugMillis: integer read FDebugMillis write FDebugMillis default 0;
-    property    FillX: Boolean read FFillX write FFillX default False;
-    property    FillY: Boolean read FFillY write FFillY default False;
-    property    FlowX: Boolean read FFlowX write FFlowX default True;
+    property    FillX_prop: Boolean read FFillX write FFillX default False;
+    property    FillY_prop: Boolean read FFillY write FFillY default False;
+    property    FlowX_prop: Boolean read FFlowX write FFlowX default True;
     property    GridGapX: TBoundSize read FGridGapX write FGridGapX;
     property    GridGapY: TBoundSize read FGridGapY write FGridGapY;
     property    HideMode: integer read FHideMode write SetHideMode;
     property    Insets: TUnitValueArray read GetInsets write SetInsets;
-    property    LeftToRight: Boolean read FLeftToRight write FLeftToRight;
-    property    TopToBottom: Boolean read FTopToBottom write FTopToBottom;
+    property    LeftToRight_prop: Boolean read FLeftToRight write FLeftToRight;
+    property    TopToBottom_prop: Boolean read FTopToBottom write FTopToBottom;
+    property    NoGrid_prop: Boolean read FNoGrid write FNoGrid default False;
+    property    VisualPadding_prop: Boolean read FVisualPadding write FVisualPadding;
+    property    WrapAfter_prop: Integer read FWrapAfter write FWrapAfter;
   end;
   
 
@@ -88,6 +107,85 @@ begin
   FGridGapY := nil;
   FLeftToRight := True;
   FTopToBottom := True;
+  FNoGrid := False;
+end;
+
+function TLC.Wrap: TLC;
+begin
+  WrapAfter_prop := 0;
+  Result := self;
+end;
+
+function TLC.WrapAfter(const ACount: Integer): TLC;
+begin
+  WrapAfter_prop := ACount;
+  Result := self;
+end;
+
+function TLC.NoCache: TLC;
+begin
+  NoCache_prop := True;
+  Result := self;
+end;
+
+function TLC.FlowY: TLC;
+begin
+  FlowX_prop := False;
+  Result := self;
+end;
+
+function TLC.FlowX: TLC;
+begin
+  FlowX_prop := True;
+  Result := self;
+end;
+
+function TLC.Fill: TLC;
+begin
+  FillX_prop := True;
+  FillY_prop := True;
+  Result := self;
+end;
+
+function TLC.FillX: TLC;
+begin
+  FillX_prop := True;
+  Result := self;
+end;
+
+function TLC.FillY: TLC;
+begin
+  FillY_prop := True;
+  Result := self;
+end;
+
+function TLC.LeftToRight(AValue: Boolean): TLC;
+begin
+  LeftToRight_prop := AValue;
+  Result := self;
+end;
+
+function TLC.BottomToTop: TLC;
+begin
+  TopToBottom_prop := False;
+  Result := self;
+end;
+
+function TLC.NoGrid: TLC;
+begin
+  NoGrid_prop := True;
+  Result := self;
+end;
+
+function TLC.NoVisualPadding: TLC;
+begin
+  VisualPadding_prop := False;
+  Result := self;
+end;
+
+function TLC.InsetsAll(AllSides: string): TLC;
+begin
+  { TODO : Start Here!!!!!!!!!!!! }
 end;
 
 end.