| Class TTextClips (unit Textclip) |
TForm
----- File: TEXTCLIP.PAS for Project CODEAPP.DPR -----
| Constructors |
| Functions |
procedure AllBtnClick(Sender: TObject);
procedure BtnHelpClick(Sender: TObject);
procedure ClearBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure CopyButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
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;| Properties |
| Events |
| Variables |
AllBtn : TButton;
BtnHelp : TBitBtn;
ClearBtn : TButton;
CloseBtn : TBitBtn;
CopyButton : TButton;
Label1 : TLabel;
Memo1 : TMemo;
Panel1 : TPanel;
Panel2 : TPanel;
LinesCopied : integer;
HasSelection : boolean;| Constructors |
| Functions |
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;| Properties |
| Events |
| Variables |
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