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

renamed set/gettext

Browse Source 
git-svn-id: trunk@4077 -
This commit is contained in:
mattias 2003-04-19 07:54:19 +00:00
parent c016dd3dac
commit aa9d15de4c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/maskedit.pp
View File

@ -91,13 +91,13 @@ type
function FindLiteralChar (MaskOffset: Integer; InChar: Char): Integer;
function GetEditText: string;
function GetMasked: Boolean;
function GetText: string; override;
function GetMaskText: string;
function GetMaxLength: Integer;
function CharKeys(var CharCode: Char): Boolean;
procedure SetEditText(const Value: string);
procedure SetEditMask(const Value: string);
procedure SetMaxLength(Value: Integer);
procedure SetText(const Value: string); override;
procedure SetMaskText(const Value: string);
procedure DeleteKeys(CharCode: Word);
procedure HomeEndKeys(CharCode: Word; Shift: TShiftState);
procedure CursorInc(CursorPos: Integer; Incr: Integer);
@ -135,7 +135,7 @@ type
function GetTextLen: Integer;
property IsMasked: Boolean read GetMasked;
property EditText: string read GetEditText write SetEditText;
property Text: string read GetText write SetText;
property Text: string read GetMaskText write SetMaskText;
end;
{ TMaskEdit }
@ -675,7 +675,7 @@ begin
Result := Length(Text);
end;
function TCustomMaskEdit.GetText: string;
function TCustomMaskEdit.GetMaskText: string;
begin
if not IsMasked then
Result := inherited Text
@ -688,7 +688,7 @@ begin
end;
end;
procedure TCustomMaskEdit.SetText(const Value: string);
procedure TCustomMaskEdit.SetMaskText(const Value: string);
var
OldText: string;
Pos: Integer;