Class TMainForm (unit REMain)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;