Class TTextClips (unit Textclip) |
Inherits from
TForm
-----
File: TEXTCLIP.PAS for Project CODEAPP.DPR
-----
procedure AllBtnClick(Sender: TObject);
-Copies contents of memo to ClipBoard
procedure BtnHelpClick(Sender: TObject);
-User probably wants to start over
procedure ClearBtnClick(Sender: TObject);
-Readies this TMemo window
procedure CloseBtnClick(Sender: TObject);
procedure CopyButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
-Selects all text in memo
procedure Memo1Change(Sender: TObject);
procedure Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CheckEnableCopy;
AllBtn : TButton;
BtnHelp : TBitBtn;
ClearBtn : TButton;
CloseBtn : TBitBtn;
CopyButton : TButton;
Label1 : TLabel;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
LinesCopied : integer;
Public declarations
HasSelection : boolean;
Private declarations
procedure AllBtnClick(Sender: TObject);
-Copies contents of memo to ClipBoard
procedure BtnHelpClick(Sender: TObject);
-User probably wants to start over
procedure ClearBtnClick(Sender: TObject);
-Readies this TMemo window
procedure CloseBtnClick(Sender: TObject);
procedure CopyButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
-Selects all text in memo
procedure Memo1Change(Sender: TObject);
procedure Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CheckEnableCopy;
AllBtn : TButton;
BtnHelp : TBitBtn;
ClearBtn : TButton;
CloseBtn : TBitBtn;
CopyButton : TButton;
Label1 : TLabel;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
LinesCopied : integer;
Public declarations
HasSelection : boolean;
Private declarations