paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, ButtonEdit: make the Edit control protected, available for inherited controls.

Browse Source 
git-svn-id: trunk@44696 -
This commit is contained in:
juha 2014-04-12 09:01:23 +00:00
parent 7c28f15632
commit cc730e631f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -216,6 +216,7 @@ type
property ButtonWidth: Integer read GetButtonWidth write SetButtonWidth;
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 Edit: TBeEdit read FEdit;
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;
@ -283,6 +284,7 @@ type
public
property AutoSelected;
property Button;
property Edit;
published
property NumbersOnly;
property Action;