Class TDocEditForm (unit Docedit)

Inherits from

TForm

Constructors



Functions

procedure CloseBtnClick(Sender: TObject);

PrinterSetupDialog1.

procedure Copy1Click(Sender: TObject);


procedure Cut1Click(Sender: TObject);


procedure Delete1Click(Sender: TObject);


procedure DocumentKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DocumentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Exit1Click(Sender: TObject);


procedure Format2Click(Sender: TObject);

if Document.

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure New1Click(Sender: TObject);

Delete1.

procedure Open1Click(Sender: TObject);


procedure Paste1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure ReportPrinter1Print(Sender: TObject);


procedure Save1Click(Sender: TObject);


procedure SaveAs1Click(Sender: TObject);


procedure SelectAll1Click(Sender: TObject);

Document.

procedure SpeedButton1Click(Sender: TObject);


procedure TagBtnClick(Sender: TObject);

system.

procedure LoadFile(PathName, FileName: String);


procedure UpdateMenus;


procedure WMCHANGECBCHAIN(var Message: TMessage);


procedure WMDESTROYCLIPBOARD(var Message: TMessage);


procedure WMDRAWCLIPBOARD(var Message: TMessage);


Properties

Events

Variables

Close1 : TMenuItem;


CloseBtn : TSpeedButton;


Copy1 : TMenuItem;


CopyBtn : TSpeedButton;


Cut1 : TMenuItem;


CutBtn : TSpeedButton;


Document : TMemo;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Open1 : TMenuItem;


OpenBtn : TSpeedButton;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Paste1 : TMenuItem;


PasteBtn : TSpeedButton;


Print1 : TMenuItem;


PrintBtn : TSpeedButton;


PrintDialog1 : TPrintDialog;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveBtn : TSpeedButton;


SaveDialog1 : TSaveDialog;


SelectAll1 : TMenuItem;


SpeedButton1 : TSpeedButton;


Ans : Word;


ClipBrdChain : HWnd;


DefCaption : String;


DocName : String;

Public declarations

FindString : String;



Constructors


Functions


procedure CloseBtnClick(Sender: TObject);

PrinterSetupDialog1.Execute; ReportPrinter1.PrinterIndex := -2; ver 1 ReportPrinter1.Execute; mik 08/09/97 ReportPrinter1.PrinterIndex := -1; ReportPrinter1.Execute;


procedure Copy1Click(Sender: TObject);


procedure Cut1Click(Sender: TObject);


procedure Delete1Click(Sender: TObject);


procedure DocumentKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DocumentMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Exit1Click(Sender: TObject);


procedure Format2Click(Sender: TObject);

if Document.Lines.count > 0 then n:= get_bin(Document.Lines[0]); IF NOT reportprinter1.SUPPORTBIN(N) THEN N:= 0;{CASE BIN IS NOT AVAILABLE MIK 9/7/97} if n > 0 then reportprinter1.selectbin(reportprinter1.bins[n]); if n >=0 then {skip first line [B1] mik 8/07/97} n:= 1 else n:= 0; With Sender as TbaseReport do begin SetFont('Courier New',10); for Line := n to Document.Lines.Count - 1 do begin if linesleft = 2 then newpage; Println(Document.Lines[Line]); end; end;


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure New1Click(Sender: TObject);

Delete1.Enabled := HasSelection;


procedure Open1Click(Sender: TObject);


procedure Paste1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure ReportPrinter1Print(Sender: TObject);


procedure Save1Click(Sender: TObject);


procedure SaveAs1Click(Sender: TObject);


procedure SelectAll1Click(Sender: TObject);

Document.CLEAR;


procedure SpeedButton1Click(Sender: TObject);


procedure TagBtnClick(Sender: TObject);

system.assign(f,'temp.$$$'); {$i-} erase(f); {$i+} if ioresult <> 0 then;


procedure LoadFile(PathName, FileName: String);


procedure UpdateMenus;


procedure WMCHANGECBCHAIN(var Message: TMessage);


procedure WMDESTROYCLIPBOARD(var Message: TMessage);


procedure WMDRAWCLIPBOARD(var Message: TMessage);


Properties


Events


Variables


Close1 : TMenuItem;


CloseBtn : TSpeedButton;


Copy1 : TMenuItem;


CopyBtn : TSpeedButton;


Cut1 : TMenuItem;


CutBtn : TSpeedButton;


Document : TMemo;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Open1 : TMenuItem;


OpenBtn : TSpeedButton;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Paste1 : TMenuItem;


PasteBtn : TSpeedButton;


Print1 : TMenuItem;


PrintBtn : TSpeedButton;


PrintDialog1 : TPrintDialog;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveBtn : TSpeedButton;


SaveDialog1 : TSaveDialog;


SelectAll1 : TMenuItem;


SpeedButton1 : TSpeedButton;


Ans : Word;


ClipBrdChain : HWnd;


DefCaption : String;


DocName : String;

Public declarations


FindString : String;