Published Align property for all widgets.

23 files changed, 35 insertions, 0 deletions

diff --git a/src/gui/fpg_animation.pas b/src/gui/fpg_animation.pas
index fedfa545..36972877 100644
--- a/src/gui/fpg_animation.pas
+++ b/src/gui/fpg_animation.pas
@@ -65,6 +65,7 @@ type
   public
     property    Position;
   published
+    property    Align;
     property    Enabled;
     property    Interval;
     property    ImageFileName;
diff --git a/src/gui/fpg_button.pas b/src/gui/fpg_button.pas
index 2c2959f1..7ef778ec 100644
--- a/src/gui/fpg_button.pas
+++ b/src/gui/fpg_button.pas
@@ -127,6 +127,7 @@ type
     together. }
   TfpgButton = class(TfpgBaseButton)
   published
+    property    Align;
     property    AllowAllUp;
     property    AllowDown;
     property    BackgroundColor default clButtonFace;
diff --git a/src/gui/fpg_checkbox.pas b/src/gui/fpg_checkbox.pas
index 156459b4..e6d5c35b 100644
--- a/src/gui/fpg_checkbox.pas
+++ b/src/gui/fpg_checkbox.pas
@@ -65,6 +65,7 @@ type
 
   TfpgCheckBox = class(TfpgBaseCheckBox)
   published
+    property    Align;
     property    BackgroundColor;
     property    BoxLayout;
     property    Checked;
diff --git a/src/gui/fpg_colorwheel.pas b/src/gui/fpg_colorwheel.pas
index 57494818..a6b3795b 100644
--- a/src/gui/fpg_colorwheel.pas
+++ b/src/gui/fpg_colorwheel.pas
@@ -62,6 +62,7 @@ type
     property    Saturation: double Read FSaturation;
     procedure   SetSelectedColor(const NewColor: TfpgColor);
   published
+    property    Align;
     property    BackgroundColor;
     property    Enabled;
     property    ValueBar: TfpgValueBar Read FValueBar Write SetValueBar;
@@ -99,6 +100,7 @@ type
     constructor Create(AOwner: TComponent); override;
     procedure   SetHS(Hue: longint; Sat: double);
   published
+    property    Align;
     property    BackgroundColor;
     property    Enabled;
     property    Value: double Read FValue Write SetValue;
diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas
index 26ae8b0c..bb6f90b2 100644
--- a/src/gui/fpg_combobox.pas
+++ b/src/gui/fpg_combobox.pas
@@ -135,6 +135,7 @@ type
 
   TfpgComboBox = class(TfpgBaseStaticCombo)
   published
+    property    Align;
     property    BackgroundColor default clBoxColor;
     property    DropDownCount;
     property    Enabled;
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index 3c7e45d7..3d72fa66 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -159,6 +159,7 @@ type
   public
     property    PopupMenu;  // UI Designer doesn't fully support it yet
   published
+    property    Align;
     property    AutoSelect;
     property    AutoSize;
     property    BackgroundColor default clBoxColor;
@@ -258,6 +259,7 @@ type
     property    OldColor;
     property    Text;
   published
+    property    Align;
     property    CustomThousandSeparator;
     property    Enabled;
     property    Hint;
@@ -297,6 +299,7 @@ type
     property    OldColor;
     property    Text;
   published
+    property    Align;
     property    CustomDecimalSeparator;
     property    CustomThousandSeparator;
     property    Decimals: integer read FDecimals write SetDecimals default -1;
@@ -337,6 +340,7 @@ type
     property    OldColor;
     property    Text;
   published
+    property    Align;
     property    CustomDecimalSeparator;
     property    CustomThousandSeparator;
     property    Decimals: integer read FDecimals write SetDecimals default 2;
diff --git a/src/gui/fpg_editbtn.pas b/src/gui/fpg_editbtn.pas
index 2d972744..0cba4f18 100644
--- a/src/gui/fpg_editbtn.pas
+++ b/src/gui/fpg_editbtn.pas
@@ -70,6 +70,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property    Align;
     property    Enabled;
     property    ExtraHint;
     property    FileName: TfpgString read GetFileName write SetFileName;
@@ -93,6 +94,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property    Align;
     property    Directory: TfpgString read GetDirectory write SetDirectory;
     property    Enabled;
     property    ExtraHint;
@@ -113,6 +115,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property    Align;
     property    Enabled;
     property    ExtraHint;
     property    FontDesc: TfpgString read GetFontDesc write SetFontDesc;
diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 440f6885..4dd011d0 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -117,6 +117,7 @@ type
 
   TfpgEditCombo = class(TfpgBaseEditCombo)
   published
+    property    Align;
     property    AllowNew;
     property    AutoCompletion;
     property    BackgroundColor;
diff --git a/src/gui/fpg_grid.pas b/src/gui/fpg_grid.pas
index 51ef8646..56c1b968 100644
--- a/src/gui/fpg_grid.pas
+++ b/src/gui/fpg_grid.pas
@@ -56,6 +56,7 @@ type
     property    Font;
     property    HeaderFont;
   published
+    property    Align;
     property    ColumnCount;
     property    Columns;
     property    FocusRow;
@@ -125,6 +126,7 @@ type
   public
     property    Font;
   published
+    property    Align;
     property    AlternateBGColor;
     property    BackgroundColor;
 //    property    ColResizing;
diff --git a/src/gui/fpg_hyperlink.pas b/src/gui/fpg_hyperlink.pas
index 2c850a97..5d84c718 100644
--- a/src/gui/fpg_hyperlink.pas
+++ b/src/gui/fpg_hyperlink.pas
@@ -50,6 +50,7 @@ type
     constructor Create(AOwner: TComponent); override;
     procedure   GoHyperLink;
   published
+    property    Align;
     property    Alignment;
     property    Autosize;
     property    FontDesc;
diff --git a/src/gui/fpg_label.pas b/src/gui/fpg_label.pas
index 88986549..10e58fbf 100644
--- a/src/gui/fpg_label.pas
+++ b/src/gui/fpg_label.pas
@@ -68,6 +68,7 @@ type
   
   TfpgLabel = class(TfpgCustomLabel)
   published
+    property    Align;
     property    Alignment;
     property    AutoSize;
     property    BackgroundColor;
diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas
index 6aea07ba..1b5c897b 100644
--- a/src/gui/fpg_listbox.pas
+++ b/src/gui/fpg_listbox.pas
@@ -132,6 +132,7 @@ type
   // The standard strings listbox we will actually use in a GUI.
   TfpgListBox = class(TfpgTextListBox)
   published
+    property    Align;
     property    AutoHeight;
     property    BackgroundColor default clListBox;
     property    DragToReorder;
@@ -193,6 +194,7 @@ type
   
   TfpgColorListBox = class(TfpgBaseColorListBox)
   published
+    property    Align;
     property    AutoHeight;
     property    BackgroundColor default clListBox;
     property    Color;
diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas
index b79d0ab0..cd9268f4 100644
--- a/src/gui/fpg_listview.pas
+++ b/src/gui/fpg_listview.pas
@@ -249,6 +249,7 @@ type
     function    AddItem: TfpgLVItem;
     function    NewItem: TfpgLVItem;
   published
+    property    Align;
     property    Columns: TfpgLVColumns read FColumns;
     property    Enabled;
     property    HScrollBar: TfpgScrollBar read FHScrollBar;
diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index d01e757c..dccc5f55 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -124,6 +124,7 @@ type
     property    UseTabs: boolean read FUseTabs write FUseTabs default False;
     property    PopupMenu: TfpgPopupMenu read FPopupMenu write FPopupMenu;
   published
+    property    Align;
     property    BackgroundColor default clBoxColor;
     property    Enabled;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas
index 72a7af5b..05915dcf 100644
--- a/src/gui/fpg_panel.pas
+++ b/src/gui/fpg_panel.pas
@@ -73,6 +73,7 @@ type
   protected
     procedure   HandlePaint; override;
   published
+    property    Align;
     property    BackgroundColor;
     property    BorderStyle;
     property    Enabled;
@@ -130,6 +131,7 @@ type
     destructor  Destroy; override;
     property    Font: TfpgFont read FFont;
   published
+    property    Align;
     property    Alignment: TAlignment read GetAlignment write SetAlignment default taCenter;
     property    BackgroundColor;
     property    BorderStyle;
@@ -183,6 +185,7 @@ type
     function    GetClientRect: TfpgRect; override;
     property    Font: TfpgFont read FFont;
   published
+    property    Align;
     property    Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify;
     property    BackgroundColor;
     property    BorderStyle;
diff --git a/src/gui/fpg_popupcalendar.pas b/src/gui/fpg_popupcalendar.pas
index 30171661..ea6eb617 100644
--- a/src/gui/fpg_popupcalendar.pas
+++ b/src/gui/fpg_popupcalendar.pas
@@ -221,6 +221,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property    Align;
     property    BackgroundColor;
     { Clicking on calendar Today button will close the popup calendar by default }
     property    CloseOnSelect: boolean read FCloseOnSelect write SetCloseOnSelect default True;
diff --git a/src/gui/fpg_progressbar.pas b/src/gui/fpg_progressbar.pas
index 031117fb..e106577c 100644
--- a/src/gui/fpg_progressbar.pas
+++ b/src/gui/fpg_progressbar.pas
@@ -60,6 +60,7 @@ type
   
   TfpgProgressBar = class(TfpgCustomProgressBar)
   published
+    property    Align;
     property    BackgroundColor default $c4c4c4;
     property    Enabled;
     property    Hint;
diff --git a/src/gui/fpg_radiobutton.pas b/src/gui/fpg_radiobutton.pas
index 61c8df6e..e04a2b2c 100644
--- a/src/gui/fpg_radiobutton.pas
+++ b/src/gui/fpg_radiobutton.pas
@@ -61,6 +61,7 @@ type
     destructor  Destroy; override;
     property    Font: TfpgFont read FFont;
   published
+    property    Align;
     property    AutoSize: boolean read FAutoSize write SetAutoSize default False;
     property    BackgroundColor;
     property    Checked: boolean read FChecked write SetChecked default False;
diff --git a/src/gui/fpg_scrollbar.pas b/src/gui/fpg_scrollbar.pas
index 5f2ffd6c..dd0a4c7c 100644
--- a/src/gui/fpg_scrollbar.pas
+++ b/src/gui/fpg_scrollbar.pas
@@ -97,6 +97,8 @@ type
     property    Min: integer read FMin write SetMin default 0;
     property    Max: integer read FMax write SetMax default 100;
     property    OnScroll: TScrollNotifyEvent read FOnScroll write FOnScroll;
+  published
+    property    Align;
   end;
 
 
diff --git a/src/gui/fpg_splitter.pas b/src/gui/fpg_splitter.pas
index bf5410f0..8790b58e 100644
--- a/src/gui/fpg_splitter.pas
+++ b/src/gui/fpg_splitter.pas
@@ -68,6 +68,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
   published
+    property    Align;
     property    AutoSnap: boolean read FAutoSnap write FAutoSnap default True;
     property    ColorGrabBar: TfpgColor read FColorGrabBar write SetColorGrabBar default clSplitterGrabBar;
     property    OnSnap: TfpgSnapEvent read FOnSnap write FOnSnap;
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas
index b33862c5..0e50e2fd 100644
--- a/src/gui/fpg_tab.pas
+++ b/src/gui/fpg_tab.pas
@@ -146,6 +146,7 @@ type
     property    OnClosingTabSheet: TTabSheetClosing read FOnClosingTabSheet write FOnClosingTabSheet;
   published
     property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
+    property    Align;
     property    BackgroundColor;
     property    Enabled;
     property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
diff --git a/src/gui/fpg_trackbar.pas b/src/gui/fpg_trackbar.pas
index 204b4407..9134a96d 100644
--- a/src/gui/fpg_trackbar.pas
+++ b/src/gui/fpg_trackbar.pas
@@ -68,6 +68,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property    Align;
     property    BackgroundColor;
     property    Hint;
     property    Min: integer read FMin write SetMin default 0;
@@ -115,6 +116,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
   published
+    property    Align;
     property    BackgroundColor;
     property    Enabled;
     property    Position: integer read FPosition write SetTBPosition default 0;
diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas
index 7e028c79..570e1011 100644
--- a/src/gui/fpg_tree.pas
+++ b/src/gui/fpg_tree.pas
@@ -235,6 +235,7 @@ type
     property    ImageList: TfpgImageList read FImageList write FImageList;
     property    PopupMenu: TfpgPopupMenu read FPopupMenu write FPopupMenu;
   published
+    property    Align;
     property    DefaultColumnWidth: word read FDefaultColumnWidth write SetDefaultColumnWidth default 15;
     property    Enabled;
     property    FontDesc: string read GetFontDesc write SetFontDesc;