paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-27 21:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: make SetSel() and GetSel() protected.

Browse Source 
Reason: Delphi compatibility (Issue #0024970).

git-svn-id: trunk@42665 -
This commit is contained in:
bart 2013-09-07 16:25:41 +00:00
parent 319a201329
commit 7ae07addc0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/maskedit.pp
View File

@ -199,8 +199,6 @@ const
procedure JumpToNextDot(Dot: Char); procedure JumpToNextDot(Dot: Char);
function HasSelection: Boolean; function HasSelection: Boolean;
function HasExtSelection: Boolean; function HasExtSelection: Boolean;
procedure GetSel(out _SelStart: Integer; out _SelStop: Integer);
procedure SetSel(const _SelStart: Integer; _SelStop: Integer);
Function CharToMask(UCh : TUtf8Char) : tMaskedType; Function CharToMask(UCh : TUtf8Char) : tMaskedType;
Function MaskToChar(Value : tMaskedType) : Char; Function MaskToChar(Value : tMaskedType) : Char;
@ -219,6 +217,8 @@ const
function DisableMask(const NewText: String): Boolean; function DisableMask(const NewText: String): Boolean;
function RestoreMask(const NewText: String): Boolean; function RestoreMask(const NewText: String): Boolean;
procedure GetSel(out _SelStart: Integer; out _SelStop: Integer);
procedure SetSel(const _SelStart: Integer; _SelStop: Integer);
Function GetText : TCaption; Function GetText : TCaption;
Procedure SetText(Value: TCaption); Procedure SetText(Value: TCaption);
function GetEditText: string; virtual; function GetEditText: string; virtual;