diff options
Diffstat (limited to 'prototypes/miglayout/gui_mig_lc.pas')
-rw-r--r-- | prototypes/miglayout/gui_mig_lc.pas | 116 |
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. |