|
* Notes Memo Box Definition
DEFINE_COM CLASS(#PRIM_MEMO) NAME(#MEMO_NOTE) ...
* =======================================================
* Notes memo box control property definitions
* =======================================================
DEFINE_PTY NAME(uWordWrap) GET(GetuWordWrap) SET(SetuWordWrap)
DEFINE_PTY NAME(uShowLineNumbers) GET(GetuShowLineNumbers) SET(SetuShowLineNumbers)
DEFINE_PTY NAME(uShowHint) GET(GetuHintShow) SET(SetuHintShow)
DEFINE_PTY NAME(uHint) GET(GetuHint) SET(SetuHint)
DEFINE_PTY NAME(uLineCount) GET(GetuLineCount)
DEFINE_PTY NAME(uEntries) GET(GetuEntries)
* =======================================================
* Notes memo box control event definitions
* =======================================================
DEFINE_EVT NAME(uChanged) DESC('Notes have changed') HELP('Notes have Changed')
DEFINE_EVT NAME(uGotFocus) DESC('Notes Got Focus') HELP('The Notes have received focus')
DEFINE_EVT NAME(uLostFocus) DESC('Notes Lost Focus') HELP('The Notes have Lost focus')
* =======================================================
* Notes memo box control method definitions
* =======================================================
MTHROUTINE NAME(uUndo) DESC('Undo the last action') HELP('The Undo method reverses the last action in the multi-line edit box. ')
INVOKE METHOD(#MEMO_NOTE.Undo)
ENDROUTINE
MTHROUTINE NAME(uCut) DESC('Cut Selected Notes') HELP('The Cut method deletes selected text and puts it in the clipboard.')
INVOKE METHOD(#MEMO_NOTE.Cut)
ENDROUTINE
MTHROUTINE NAME(uCopy) DESC('Copy Seleceted Notes') HELP('The Copy method copies selected text to the clipboard.')
INVOKE METHOD(#MEMO_NOTE.Copy)
ENDROUTINE
MTHROUTINE NAME(uPaste) DESC('Paste Notes') HELP('The Paste method pastes the contents of the clipboard to the multi-line edit box.')
INVOKE METHOD(#MEMO_NOTE.Paste)
ENDROUTINE
MTHROUTINE NAME(uFind) DESC('Find text in the Edit Box') HELP('The Find method brings up a dialog box which can be used to locate a string in the multi-line edit box. .')
INVOKE METHOD(#MEMO_NOTE.Find)
ENDROUTINE
MTHROUTINE NAME(uRedo) DESC('Redo last action') HELP('The Redo method reapplies an action performed in the multi-line edit box which had been reversed using the Undo method.')
INVOKE METHOD(#MEMO_NOTE.Redo)
ENDROUTINE
MTHROUTINE NAME(uReplace) DESC('Replace Dialog box') HELP('The Replace method brings up a dialog box which can be used to locate a string in the multi-line edit box and to replace it with another.')
INVOKE METHOD(#MEMO_NOTE.Replace)
ENDROUTINE
MTHROUTINE NAME(uSelectAll) DESC('Select all the Notes') HELP('The Select All method selects all text in the multi-line edit box. ')
INVOKE METHOD(#MEMO_NOTE.SelectAll)
ENDROUTINE
MTHROUTINE NAME(uSetFocus) DESC('Set Focus to the Notes box') HELP('Use the SetFocus method to set the focus on a component programmatically. The user sets the focus using the mouse or the keyboard.')
INVOKE METHOD(#MEMO_NOTE.SetFocus)
ENDROUTINE
* =======================================================
* Notes memo box control event definitions
* =======================================================
EVTROUTINE HANDLING(#MEMO_NOTE.Changed) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
SIGNAL EVENT(uChanged)
ENDROUTINE
EVTROUTINE HANDLING(#MEMO_NOTE.GotFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
SIGNAL EVENT(uGotFocus)
ENDROUTINE
EVTROUTINE HANDLING(#MEMO_NOTE.LostFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
SIGNAL EVENT(uLostFocus)
ENDROUTINE
|