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

EditButton: implement protected properties EditText and IsMasked.

Browse Source 
git-svn-id: trunk@44700 -
This commit is contained in:
bart 2014-04-12 11:27:25 +00:00
parent 3a55271c5e
commit 9824c154d1
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/editbtn.pas
View File

@ -98,8 +98,10 @@ type
function GetDirectInput: Boolean;
function GetEchoMode: TEchoMode;
function GetEditMask: String;
function GetEditText: string;
function GetGlyph: TBitmap;
function GetHideSelection: Boolean;
function GetIsMasked: Boolean;
function GetMaxLength: Integer;
function GetModified: Boolean;
function GetNumbersOnly: Boolean;
@ -148,6 +150,7 @@ type
procedure SetDirectInput(AValue: Boolean);
procedure SetEchoMode(AValue: TEchoMode);
procedure SetEditMask(AValue: String);
procedure SetEditText(AValue: string);
procedure SetFlat(AValue: Boolean);
procedure SetGlyph(AValue: TBitmap);
procedure SetHideSelection(AValue: Boolean);
@ -218,8 +221,10 @@ type
property DirectInput : Boolean read GetDirectInput write SetDirectInput default True;
property Edit: TBeEdit read FEdit;
property EditMask: String read GetEditMask write SetEditMask;
property EditText: string read GetEditText write SetEditText;
property Flat: Boolean read FFlat write SetFlat default False;
property Glyph: TBitmap read GetGlyph write SetGlyph stored IsCustomGlyph;
property IsMasked: Boolean read GetIsMasked;
property NumGlyphs: Integer read GetNumGlyps write SetNumGlyphs;
property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
@ -1148,6 +1153,11 @@ begin
Result := FEdit.EditMask
end;
function TCustomEditButton.GetEditText: string;
begin
Result := FEdit.EditText;
end;
function TCustomEditButton.GetColor: TColor;
begin
Result := FEdit.Color;
@ -1164,6 +1174,11 @@ begin
Result := FEdit.HideSelection;
end;
function TCustomEditButton.GetIsMasked: Boolean;
begin
Result := FEdit.IsMasked;
end;
function TCustomEditButton.GetMaxLength: Integer;
begin
@ -1256,6 +1271,11 @@ begin
FEdit.EditMask := AValue;
end;
procedure TCustomEditButton.SetEditText(AValue: string);
begin
FEdit.EditText := AValue;
end;
procedure TCustomEditButton.SetColor(AValue: TColor);
begin
if (csLoading in ComponentState) then