From 6b581c77c401905e5bf72ed6aa133f0e046126a2 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
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/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 +++++++++++++++
 5 files changed, 33 insertions(+)

(limited to 'src/gui')

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