From 4613ddc4becd1535c1ee8b7a0c12591b8731d7cc Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 15 Apr 2008 16:19:53 +0000 Subject: [PATCH] lcl: maskedit - move messages and overrides to protected section from private to allow their further overriding (by request of alexs) git-svn-id: trunk@14832 - --- lcl/maskedit.pp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp index 6404ecdc10..28dac1115b 100644 --- a/lcl/maskedit.pp +++ b/lcl/maskedit.pp @@ -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;