From aa9d15de4c28bbb01d2fcf7058604d155e6944e8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 19 Apr 2003 07:54:19 +0000
Subject: [PATCH] renamed set/gettext

git-svn-id: trunk@4077 -
---
 lcl/maskedit.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp
index 1c723c60be..7c226a037e 100644
--- a/lcl/maskedit.pp
+++ b/lcl/maskedit.pp
@@ -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;