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

MaskEdit: simplify handling CharCase.

Browse Source 
git-svn-id: trunk@63555 -
This commit is contained in:
bart 2020-07-14 09:34:26 +00:00
parent c49c71322c
commit 2dd7c76531
2 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/maskedit.pp
View File

@ -247,8 +247,7 @@ const
procedure SetSel(const _SelStart: Integer; _SelStop: Integer);
procedure TextChanged; override;
procedure Change; override;
procedure SetCharCase(Value: TEditCharCase);
function GetCharCase: TEditCharCase;
procedure SetCharCase(Value: TEditCharCase); override;
procedure SetMaxLength(Value: Integer);
function GetMaxLength: Integer;
procedure SetNumbersOnly(Value: Boolean); override;
@ -273,7 +272,6 @@ const
property IsMasked: Boolean read GetIsMasked;
property SpaceChar: Char read FSpaceChar write SetSpaceChar;
property MaxLength: Integer read GetMaxLength write SetMaxLength;
property CharCase: TEditCharCase read GetCharCase write SetCharCase;
property EditMask: string read FRealMask write SetMask;
public
procedure CutToClipBoard; override;
@ -1693,19 +1691,11 @@ end;
procedure TCustomMaskEdit.SetCharCase(Value: TEditCharCase);
begin
if IsMasked then
begin
if (GetCharCase <> ecNormal) then inherited CharCase := ecNormal;
end
inherited SetCharCase(ecNormal)
else
begin
inherited CharCase := Value;
end;
inherited SetCharCase(Value);
end;
function TCustomMaskEdit.GetCharCase: TEditCharCase;
begin
Result := inherited CharCase;
end;
procedure TCustomMaskEdit.SetMaxLength(Value: Integer);
begin

2
lcl/stdctrls.pp
View File

@ -764,7 +764,6 @@ type
procedure SetAlignment(const AValue: TAlignment);
function GetCanUndo: Boolean;
function GetModified: Boolean;
procedure SetCharCase(Value: TEditCharCase);
procedure SetHideSelection(const AValue: Boolean);
procedure SetMaxLength(Value: Integer);
procedure SetModified(Value: Boolean);
@ -795,6 +794,7 @@ type
function GetSelText: string; virtual;
function GetTextHint: TTranslateString; virtual;
procedure SetCaretPos(const Value: TPoint); virtual;
procedure SetCharCase(Value: TEditCharCase); virtual;
procedure SetEchoMode(Val: TEchoMode); virtual;
procedure SetNumbersOnly(Value: Boolean); virtual;
procedure SetReadOnly(Value: Boolean); virtual;