Class TTextClips (unit Textclip)

Inherits from

TForm

----- File: TEXTCLIP.PAS for Project CODEAPP.DPR -----

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


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