[lazarus] [patch] popmenu.align added

[darekm]

HI
 as in subject
 and some const


Darek

Index: lcltype.pp
===================================================================
--- lcltype.pp  (wersja 9253)
+++ lcltype.pp  (kopia robocza)
@@ -211,6 +211,7 @@
   DT_RIGHT = 2;
   DT_VCENTER = 4;
   DT_BOTTOM = 8;
+  DT_EXPANDTABS = 64;
   DT_WORDBREAK = $10;
   DT_SINGLELINE = $20;
   DT_NOCLIP = $100;
@@ -218,7 +219,12 @@
   DT_NOPREFIX = $800;
   DT_INTERNAL = $1000;
   DT_EDITCONTROL = $2000;
+  DT_PATH_ELLIPSIS = $4000;
+  DT_END_ELLIPSIS  = $8000;
+  DT_MODIFYSTRING = $10000;
+  DT_RTLREADING   = $20000;
 
+
 //==============================================
 // Draw frame constants
 //==============================================
Index: menus.pp
===================================================================
--- menus.pp    (wersja 9253)
+++ menus.pp    (kopia robocza)
@@ -327,6 +327,7 @@
 
   TPopupMenu = class(TMenu)
   private
+    FAlignment : tPopupAlignment;
     FAutoPopup : Boolean;
     FOnClose: TNotifyEvent;
     FOnPopup: TNotifyEvent;
@@ -344,6 +345,7 @@
     procedure Close;
     procedure DoClose;
   published
+    property Alignment: TPopupAlignment read FAlignment write FAlignment 
default paLeft;
     property AutoPopup: Boolean read FAutoPopup write FAutoPopup default True;
     property OnPopup: TNotifyEvent read FOnPopup write FOnPopup;
     property OnClose: TNotifyEvent read FOnClose write FOnClose;