Class TMainForm (unit REMain) |
Inherits from
TForm
procedure AlignButtonClick(Sender: TObject);
procedure BoldButtonClick(Sender: TObject);
procedure BulletsButtonClick(Sender: TObject);
procedure EditCopy(Sender: TObject);
procedure EditCut(Sender: TObject);
procedure EditPaste(Sender: TObject);
procedure EditUndo(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure FileNew(Sender: TObject);
procedure FileOpen(Sender: TObject);
procedure FilePrint(Sender: TObject);
procedure FileSave(Sender: TObject);
procedure FileSaveAs(Sender: TObject);
procedure FontNameChange(Sender: TObject);
procedure FontSizeChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
Event Handlers
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
update the status of the cut and copy command
procedure HelpAbout(Sender: TObject);
procedure HelpContents(Sender: TObject);
procedure HelpHowToUse(Sender: TObject);
procedure HelpSearch(Sender: TObject);
procedure ItalicButtonClick(Sender: TObject);
procedure RichEditChange(Sender: TObject);
procedure rulerIndentChange(Sender: TObject; IndentID: TIndentID);
remove ourselves from the viewer chain
procedure RulerItemMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Ruler Indent Dragging
procedure SelectFont(Sender: TObject);
procedure SelectionChange(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
case
procedure ToolButton2Click(Sender: TObject);
procedure UnderlineButtonClick(Sender: TObject);
procedure CheckFileSave;
procedure ClipboardChanged;
function CurrText: TTextAttributes;
procedure GetFontNames;
procedure PerformFileOpen(const AFileName: string);
procedure SetEditRect;
Nothing
procedure SetFileName(const FileName: String);
procedure SetModified(Value: Boolean);
procedure UpdateCursorPos;
procedure WMChangeCBChain(var Msg: TWMChangeCBChain);
procedure WMDrawClipboard(var Msg: TWMDrawClipboard);
check to see if we can paste what's on the clipboard
procedure WMDropFiles(var Msg: TWMDropFiles);
check if we should load a file from the command line
BoldButton : TToolButton;
BulletsButton : TToolButton;
CenterAlign : TToolButton;
CopyButton : TToolButton;
CutButton : TToolButton;
EditCopyItem : TMenuItem;
EditCutItem : TMenuItem;
Editor : TRichEdit;
EditPasteItem : TMenuItem;
EditUndoItem : TMenuItem;
FileExitItem : TMenuItem;
FileNewItem : TMenuItem;
FileOpenItem : TMenuItem;
FilePrintItem : TMenuItem;
FileSaveAsItem : TMenuItem;
FileSaveItem : TMenuItem;
FontDialog1 : TFontDialog;
FontName : TComboBox;
FontSize : TEdit;
HelpAboutItem : TMenuItem;
HelpContentsItem : TMenuItem;
HelpHowToUseItem : TMenuItem;
HelpSearchItem : TMenuItem;
ItalicButton : TToolButton;
LeftAlign : TToolButton;
MainMenu : TMainMenu;
miEditFont : TMenuItem;
N5 : TMenuItem;
OpenButton : TToolButton;
OpenDialog : TOpenDialog;
PasteButton : TToolButton;
PrintButton : TToolButton;
PrintDialog : TPrintDialog;
RightAlign : TToolButton;
ruler : TanlRuler;
SaveButton : TToolButton;
SaveDialog : TSaveDialog;
StatusBar : TStatusBar;
ToolBar : TToolBar;
ToolbarImages : TImageList;
ToolButton1 : TToolButton;
ToolButton10 : TToolButton;
ToolButton11 : TToolButton;
ToolButton16 : TToolButton;
ToolButton2 : TToolButton;
ToolButton20 : TToolButton;
ToolButton5 : TToolButton;
UnderlineButton : TToolButton;
UndoButton : TToolButton;
UpDown1 : TUpDown;
FClipboardOwner : HWnd;
FDragging : Boolean;
FDragOfs : Integer;
FFileName : string;
FUpdating : Boolean;
procedure AlignButtonClick(Sender: TObject);
procedure BoldButtonClick(Sender: TObject);
procedure BulletsButtonClick(Sender: TObject);
procedure EditCopy(Sender: TObject);
procedure EditCut(Sender: TObject);
procedure EditPaste(Sender: TObject);
procedure EditUndo(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure FileNew(Sender: TObject);
procedure FileOpen(Sender: TObject);
procedure FilePrint(Sender: TObject);
procedure FileSave(Sender: TObject);
procedure FileSaveAs(Sender: TObject);
procedure FontNameChange(Sender: TObject);
procedure FontSizeChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
Event Handlers
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
update the status of the cut and copy command
procedure HelpAbout(Sender: TObject);
procedure HelpContents(Sender: TObject);
procedure HelpHowToUse(Sender: TObject);
procedure HelpSearch(Sender: TObject);
procedure ItalicButtonClick(Sender: TObject);
procedure RichEditChange(Sender: TObject);
procedure rulerIndentChange(Sender: TObject; IndentID: TIndentID);
remove ourselves from the viewer chain
procedure RulerItemMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Ruler Indent Dragging
procedure SelectFont(Sender: TObject);
procedure SelectionChange(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
case
procedure ToolButton2Click(Sender: TObject);
procedure UnderlineButtonClick(Sender: TObject);
procedure CheckFileSave;
procedure ClipboardChanged;
function CurrText: TTextAttributes;
procedure GetFontNames;
procedure PerformFileOpen(const AFileName: string);
procedure SetEditRect;
Nothing
procedure SetFileName(const FileName: String);
procedure SetModified(Value: Boolean);
procedure UpdateCursorPos;
procedure WMChangeCBChain(var Msg: TWMChangeCBChain);
procedure WMDrawClipboard(var Msg: TWMDrawClipboard);
check to see if we can paste what's on the clipboard
procedure WMDropFiles(var Msg: TWMDropFiles);
check if we should load a file from the command line
BoldButton : TToolButton;
BulletsButton : TToolButton;
CenterAlign : TToolButton;
CopyButton : TToolButton;
CutButton : TToolButton;
EditCopyItem : TMenuItem;
EditCutItem : TMenuItem;
Editor : TRichEdit;
EditPasteItem : TMenuItem;
EditUndoItem : TMenuItem;
FileExitItem : TMenuItem;
FileNewItem : TMenuItem;
FileOpenItem : TMenuItem;
FilePrintItem : TMenuItem;
FileSaveAsItem : TMenuItem;
FileSaveItem : TMenuItem;
FontDialog1 : TFontDialog;
FontName : TComboBox;
FontSize : TEdit;
HelpAboutItem : TMenuItem;
HelpContentsItem : TMenuItem;
HelpHowToUseItem : TMenuItem;
HelpSearchItem : TMenuItem;
ItalicButton : TToolButton;
LeftAlign : TToolButton;
MainMenu : TMainMenu;
miEditFont : TMenuItem;
N5 : TMenuItem;
OpenButton : TToolButton;
OpenDialog : TOpenDialog;
PasteButton : TToolButton;
PrintButton : TToolButton;
PrintDialog : TPrintDialog;
RightAlign : TToolButton;
ruler : TanlRuler;
SaveButton : TToolButton;
SaveDialog : TSaveDialog;
StatusBar : TStatusBar;
ToolBar : TToolBar;
ToolbarImages : TImageList;
ToolButton1 : TToolButton;
ToolButton10 : TToolButton;
ToolButton11 : TToolButton;
ToolButton16 : TToolButton;
ToolButton2 : TToolButton;
ToolButton20 : TToolButton;
ToolButton5 : TToolButton;
UnderlineButton : TToolButton;
UndoButton : TToolButton;
UpDown1 : TUpDown;
FClipboardOwner : HWnd;
FDragging : Boolean;
FDragOfs : Integer;
FFileName : string;
FUpdating : Boolean;