From 00e67ca53e5194919ab7b1b0b7d0d0d4946ee622 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 1 Oct 2010 15:08:59 +0200 Subject: published Enabled property on all (most) components * Now the UI Designer can work with that property too * A few other components got one or two other properties published too. --- src/gui/fpg_combobox.pas | 1 + 1 file changed, 1 insertion(+) (limited to 'src/gui/fpg_combobox.pas') diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas index 632a4918..26ae8b0c 100644 --- a/src/gui/fpg_combobox.pas +++ b/src/gui/fpg_combobox.pas @@ -137,6 +137,7 @@ type published property BackgroundColor default clBoxColor; property DropDownCount; + property Enabled; property ExtraHint; property FocusItem; property FontDesc; -- cgit v1.2.3-70-g09d2 From 250d53668f7a5e449b7ff849ffe0d04551ee5a80 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 4 Oct 2010 17:00:12 +0200 Subject: Published Align property for all widgets. --- src/gui/fpg_animation.pas | 1 + src/gui/fpg_button.pas | 1 + src/gui/fpg_checkbox.pas | 1 + src/gui/fpg_colorwheel.pas | 2 ++ src/gui/fpg_combobox.pas | 1 + src/gui/fpg_edit.pas | 4 ++++ src/gui/fpg_editbtn.pas | 3 +++ src/gui/fpg_editcombo.pas | 1 + src/gui/fpg_grid.pas | 2 ++ src/gui/fpg_hyperlink.pas | 1 + src/gui/fpg_label.pas | 1 + src/gui/fpg_listbox.pas | 2 ++ src/gui/fpg_listview.pas | 1 + src/gui/fpg_memo.pas | 1 + src/gui/fpg_panel.pas | 3 +++ src/gui/fpg_popupcalendar.pas | 1 + src/gui/fpg_progressbar.pas | 1 + src/gui/fpg_radiobutton.pas | 1 + src/gui/fpg_scrollbar.pas | 2 ++ src/gui/fpg_splitter.pas | 1 + src/gui/fpg_tab.pas | 1 + src/gui/fpg_trackbar.pas | 2 ++ src/gui/fpg_tree.pas | 1 + 23 files changed, 35 insertions(+) (limited to 'src/gui/fpg_combobox.pas') 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; -- cgit v1.2.3-70-g09d2 From 6b581c77c401905e5bf72ed6aa133f0e046126a2 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 29 Oct 2010 13:37:46 +0200 Subject: Published the DND propertys for some of the most used components. This is so they can be tested. Once DND stabilizes, I'll make the properties available on the other components too. --- src/corelib/fpg_widget.pas | 2 +- src/gui/fpg_combobox.pas | 5 +++++ src/gui/fpg_edit.pas | 2 ++ src/gui/fpg_label.pas | 1 + src/gui/fpg_listbox.pas | 10 ++++++++++ src/gui/fpg_panel.pas | 15 +++++++++++++++ 6 files changed, 34 insertions(+), 1 deletion(-) (limited to 'src/gui/fpg_combobox.pas') diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index 374a76ed..5e3ba007 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -165,7 +165,7 @@ type procedure Invalidate; // double check this works as developers expect???? property FormDesigner: TObject read FFormDesigner write SetFormDesigner; property Parent: TfpgWidget read GetParent write SetParent; - property AcceptDrops: boolean read FAcceptDrops write SetAcceptDrops; + property AcceptDrops: boolean read FAcceptDrops write SetAcceptDrops default False; property ActiveWidget: TfpgWidget read FActiveWidget write SetActiveWidget; property IsContainer: Boolean read FIsContainer; property Visible: boolean read FVisible write SetVisible default True; diff --git a/src/gui/fpg_combobox.pas b/src/gui/fpg_combobox.pas index bb6f90b2..5afbf326 100644 --- a/src/gui/fpg_combobox.pas +++ b/src/gui/fpg_combobox.pas @@ -135,6 +135,7 @@ type TfpgComboBox = class(TfpgBaseStaticCombo) published + property AcceptDrops; property Align; property BackgroundColor default clBoxColor; property DropDownCount; @@ -155,6 +156,10 @@ type property Width; property OnChange; property OnCloseUp; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; property OnDropDown; property OnEnter; property OnExit; diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index f6c7e6b4..dd7958ab 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 AcceptDrops; property Align; property AutoSelect; property AutoSize; @@ -184,6 +185,7 @@ type property OnDragEnter; property OnDragLeave; property OnDragDrop; + property OnDragStartDetected; property OnEnter; property OnExit; property OnKeyPress; diff --git a/src/gui/fpg_label.pas b/src/gui/fpg_label.pas index 10e58fbf..0f9c8b4b 100644 --- a/src/gui/fpg_label.pas +++ b/src/gui/fpg_label.pas @@ -68,6 +68,7 @@ type TfpgLabel = class(TfpgCustomLabel) published + property AcceptDrops; property Align; property Alignment; property AutoSize; diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas index 6a336a5c..a0cb8e93 100644 --- a/src/gui/fpg_listbox.pas +++ b/src/gui/fpg_listbox.pas @@ -134,6 +134,7 @@ type // The standard strings listbox we will actually use in a GUI. TfpgListBox = class(TfpgTextListBox) published + property AcceptDrops; property Align; property AutoHeight; property BackgroundColor default clListBox; @@ -152,6 +153,10 @@ type property TextColor; property OnChange; property OnDoubleClick; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; property OnEnter; property OnExit; property OnKeyPress; @@ -203,6 +208,7 @@ type TfpgColorListBox = class(TfpgBaseColorListBox) published + property AcceptDrops; property Align; property AutoHeight; property BackgroundColor default clListBox; @@ -221,6 +227,10 @@ type property ShowHint; property TabOrder; property TextColor; + property OnDragEnter; + property OnDragLeave; + property OnDragDrop; + property OnDragStartDetected; end; diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index 191dafc2..66ed5778 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -73,6 +73,7 @@ type protected procedure HandlePaint; override; published + property AcceptDrops; property Align; property BackgroundColor; property BorderStyle; @@ -93,6 +94,10 @@ type property Width; property OnClick; property OnDoubleClick; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; property OnMouseDown; property OnMouseMove; property OnMouseUp; @@ -131,6 +136,7 @@ type destructor Destroy; override; property Font: TfpgFont read FFont; published + property AcceptDrops; property Align; property Alignment: TAlignment read GetAlignment write SetAlignment default taCenter; property BackgroundColor; @@ -158,6 +164,10 @@ type property WrapText: boolean read GetWrapText write SetWrapText default False; property OnClick; property OnDoubleClick; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; property OnPaint; property OnShowHint; end; @@ -185,6 +195,7 @@ type function GetClientRect: TfpgRect; override; property Font: TfpgFont read FFont; published + property AcceptDrops; property Align; property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify; property BackgroundColor; @@ -208,6 +219,10 @@ type property Width; property OnClick; property OnDoubleClick; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; property OnPaint; property OnShowHint; end; -- cgit v1.2.3-70-g09d2