summaryrefslogtreecommitdiff
path: root/prototypes/miglayout
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-04 13:38:17 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-03-04 13:38:17 +0000
commitb9a8fee7794d03513a6d8b7bfb3f77df811582da (patch)
tree4d3967e00bc835e79b48e6688d186b913ed98ec5 /prototypes/miglayout
parentcfbb1096706f6234cf8ac8fb0feefaae8b881ba9 (diff)
downloadfpGUI-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/miglayout')
-rw-r--r--prototypes/miglayout/gui_mig_lc.pas14
-rw-r--r--prototypes/miglayout/gui_mig_unitvalue.pas2
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