Class

TfrmSpellNotify

Module

fSpellNotify

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TForm

Declaration


TfrmSpellNotify = class(TForm)
  lblMain: TLabel;
  tmrMain: TTimer;
  lblOptions: TLabel;
  procedure FormCreate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure Refocus(Sender: TObject);
  procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
private
  FSpellCheck: boolean;
  FEditControl: TCustomMemo;
  FFirst: boolean;
  procedure WMMove(var Message: TWMMove); message WM_MOVE;    
  procedure UMDoSpellCheck(var Message: TMessage); message UM_MISC;
public
  property SpellCheck: boolean read FSpellCheck write FSpellCheck;
  property EditControl: TCustomMemo read FEditControl write FEditControl;
end;

DFM Objects


frmSpellNotify : TfrmSpellNotify
 ├lblMain : TLabel
 ├lblOptions : TLabel
 └tmrMain : TTimer

Class Hierarchy


Class Fields

Name Type Scope Comments
FEditControl TCustomMemo Private -
FFirst Boolean Private -
FSpellCheck Boolean Private -
lblMain TLabel Public/Published -
lblOptions TLabel Public/Published -
tmrMain TTimer Public/Published -

Properties

Name Type Scope Comments
EditControl TCustomMemo Public -
SpellCheck Boolean Public -

Methods

Name Declaration Scope Comments
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormMouseDown procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
Refocus procedure Refocus(Sender: TObject); Public/Published -
UMDoSpellCheck procedure UMDoSpellCheck(var Message: TMessage); message UM_MISC; Private -
WMMove procedure WMMove(var Message: TWMMove); message WM_MOVE; Private -

Referenced By (2)

Module (line) Referrer Type
uSpell (231) - Read
uSpell (237) - Read