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

lcl: maskedit - move messages and overrides to protected section from private to allow their further overriding (by request of alexs)

Browse Source 
git-svn-id: trunk@14832 -
This commit is contained in:
paul 2008-04-15 16:19:53 +00:00
parent 5dffa959e5
commit 4613ddc4be
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/maskedit.pp
View File

@ -82,13 +82,6 @@ type
CurrentText : String; // Current text
procedure SetMask(Value : String);
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
procedure CMEnter(var Message: TLMessage); message CM_ENTER;
procedure LMMButtonUp(var Message: TLMMButtonDown); message LM_MBUTTONUP;
procedure LMPasteFromClip(var Message: TLMessage); message LM_PASTE;
procedure LMCutToClip(var Message: TLMessage); message LM_CUT;
procedure LMClearSel(var Message : TLMessage); message LM_CLEAR;
function ClearChar(Position : Integer) : Char;
procedure SetCursorPos;
function GetIsMasked : Boolean;
@ -106,7 +99,15 @@ type
Function SearchDeletedText : Boolean;
procedure SetEditText(const AValue: string);
protected
{ Required methods }
// messages
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
procedure CMEnter(var Message: TLMessage); message CM_ENTER;
procedure LMMButtonUp(var Message: TLMMButtonDown); message LM_MBUTTONUP;
procedure LMPasteFromClip(var Message: TLMessage); message LM_PASTE;
procedure LMCutToClip(var Message: TLMessage); message LM_CUT;
procedure LMClearSel(var Message : TLMessage); message LM_CLEAR;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
function EditCanModify: Boolean; virtual;
function GetEditText: string; virtual;
procedure Reset; virtual;