diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-04 13:38:17 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-04 13:38:17 +0000 |
commit | b9a8fee7794d03513a6d8b7bfb3f77df811582da (patch) | |
tree | 4d3967e00bc835e79b48e6688d186b913ed98ec5 /prototypes | |
parent | cfbb1096706f6234cf8ac8fb0feefaae8b881ba9 (diff) | |
download | fpGUI-b9a8fee7794d03513a6d8b7bfb3f77df811582da.tar.xz |
* More more on the MiG Layout port.
* Added new resourcestring constants to the translation language files.
* Localized all the GUI units.
Diffstat (limited to 'prototypes')
-rw-r--r-- | prototypes/miglayout/gui_mig_lc.pas | 14 | ||||
-rw-r--r-- | prototypes/miglayout/gui_mig_unitvalue.pas | 2 |
2 files changed, 16 insertions, 0 deletions
diff --git a/prototypes/miglayout/gui_mig_lc.pas b/prototypes/miglayout/gui_mig_lc.pas index 49316592..1b787268 100644 --- a/prototypes/miglayout/gui_mig_lc.pas +++ b/prototypes/miglayout/gui_mig_lc.pas @@ -27,9 +27,12 @@ type FNoCache: Boolean; FAlignX: TUnitValue; FAlignY: TUnitValue; + FInsets: TUnitValueArray; FLeftToRight: Boolean; FTopToBottom: Boolean; + 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; @@ -42,6 +45,7 @@ type 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; end; @@ -61,6 +65,16 @@ begin FHideMode:=AValue; end; +function TLC.GetInsets: TUnitValueArray; +begin + +end; + +procedure TLC.SetInsets(const AValue: TUnitValueArray); +begin + +end; + constructor TLC.Create; begin FNoCache := False; diff --git a/prototypes/miglayout/gui_mig_unitvalue.pas b/prototypes/miglayout/gui_mig_unitvalue.pas index 44925357..ef98936a 100644 --- a/prototypes/miglayout/gui_mig_unitvalue.pas +++ b/prototypes/miglayout/gui_mig_unitvalue.pas @@ -15,6 +15,8 @@ type public property Pixels: integer read FPixels; end; + + TUnitValueArray = array[0..3] of TUnitValue; implementation |