From a930223757127a33d6d46256e6ed29d675ab3500 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Tue, 8 Apr 2014 18:00:31 +0000
Subject: [PATCH] TCustomButtonEdit: make some properties public instead of
 protected (compatibility with TCustomEdit).

git-svn-id: trunk@44651 -
---
 lcl/buttonedit.pas | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/lcl/buttonedit.pas b/lcl/buttonedit.pas
index 4a78d0f5fc..0a732bd73e 100644
--- a/lcl/buttonedit.pas
+++ b/lcl/buttonedit.pas
@@ -169,30 +169,20 @@ type
     procedure SetCursor(AValue: TCursor); override;
 
     property AutoSelect: Boolean read GetAutoSelect write SetAutoSelect default True;
-    property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify;
     property Button: TSpeedButton read FButton;
     property ButtonAlign: TButtonAlign read FButtonAlign write SetButtonAlign default BaRight;
     property ButtonCaption: TCaption read GetBtnCaption write SetBtnCaption;
     property ButtonHint: TTranslateString read GetButtonHint write SetButtonHint;
     property ButtonOnlyWhenFocused: Boolean read FButtonOnlyWhenFocused write SetButtonOnlyWhenFocused default False;
     property ButtonWidth: Integer read GetButtonWidth write SetButtonWidth;
-    property CharCase: TEditCharCase read GetCharCase write SetCharCase default ecNormal;
     property Color: TColor read GetColor write SetColor stored True default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
     property DirectInput : Boolean read GetDirectInput write SetDirectInput default True;
-    property EchoMode: TEchoMode read GetEchoMode write SetEchoMode default emNormal;
     property EditMask: String read GetEditMask write SetEditMask;
     property Flat: Boolean read FFlat write SetFlat default False;
     property Glyph: TBitmap read GetGlyph write SetGlyph stored IsCustomGlyph;
-    property HideSelection: Boolean read GetHideSelection write SetHideSelection default False;
-    property MaxLength: Integer read GetMaxLength write SetMaxLength;
-    property NumbersOnly: Boolean read GetNumbersOnly write SetNumbersOnly default False;
     property NumGlyphs: Integer read GetNumGlyps write SetNumGlyphs;
-    property PasswordChar: char read GetPasswordChar write SetPasswordChar;
-    property PopupMenu: TPopupMenu read GetEditPopupMenu write SetPopupMenu;
-    property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
 
     property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
-    property OnChange: TNotifyEvent read FOnEditChange write FOnEditChange;
     property OnClick: TNotifyEvent read FOnEditClick write FOnEditClick;
     property OnDblClick: TNotifyEvent read FOnEditDblClick write FOnEditDblClick;
     property OnDragDrop: TDragDropEvent read FOnEditDragDrop write FOnEditDragDrop;
@@ -216,11 +206,22 @@ type
 
     procedure SelectAll;
 
+    property Alignment: TAlignment read GetAlignment write SetAlignment default taLeftJustify;
+    property CharCase: TEditCharCase read GetCharCase write SetCharCase default ecNormal;
+    property EchoMode: TEchoMode read GetEchoMode write SetEchoMode default emNormal;
+    property HideSelection: Boolean read GetHideSelection write SetHideSelection default False;
+    property MaxLength: Integer read GetMaxLength write SetMaxLength;
     property Modified: Boolean read GetModified write SetModified;
+    property NumbersOnly: Boolean read GetNumbersOnly write SetNumbersOnly default False;
+    property PasswordChar: char read GetPasswordChar write SetPasswordChar;
+    property PopupMenu: TPopupMenu read GetEditPopupMenu write SetPopupMenu;
+    property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
     property SelLength: Integer read GetSelLength write SetSelLength;
     property SelStart: Integer read GetSelStart write SetSelStart;
     property Text: TCaption read GetText write SetText;
 
+    property OnChange: TNotifyEvent read FOnEditChange write FOnEditChange;
+
   end;
 
  { TButtonEdit }