Class TDocEditForm (unit Docedit) |
Inherits from
TForm
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);
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;
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);
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;