unit ScanMemo;
|
|
interface
|
|
uses
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;
|
|
type
|
TScanMemoForm = class(TForm)
|
Panel2: TPanel;
|
Panel1: TPanel;
|
EraseBt: TBitBtn;
|
SaveBt: TBitBtn;
|
ExitBt: TBitBtn;
|
PhraseLV: TListView;
|
Splitter1: TSplitter;
|
MemoGB: TGroupBox;
|
Memo1: TMemo;
|
procedure ExitBtClick(Sender: TObject);
|
procedure SaveBtClick(Sender: TObject);
|
procedure EraseBtClick(Sender: TObject);
|
procedure PhraseLVDblClick(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
private
|
{ Private declarations }
|
public
|
{ Public declarations }
|
end;
|
|
var
|
ScanMemoForm: TScanMemoForm;
|
|
implementation
|
|
{$R *.dfm}
|
|
procedure TScanMemoForm.EraseBtClick(Sender: TObject);
|
begin
|
Memo1.Lines.Clear;
|
end;
|
|
procedure TScanMemoForm.ExitBtClick(Sender: TObject);
|
begin
|
ModalResult := mrCancel;
|
end;
|
|
procedure TScanMemoForm.FormCreate(Sender: TObject);
|
begin
|
PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
|
|
end;
|
|
procedure TScanMemoForm.FormShow(Sender: TObject);
|
begin
|
Memo1.SetFocus;
|
end;
|
|
procedure TScanMemoForm.PhraseLVDblClick(Sender: TObject);
|
begin
|
if PhraseLV.Selected = nil then Exit;
|
Memo1.Lines.Text := Memo1.Lines.Text + PhraseLV.Selected.Caption;
|
|
end;
|
|
procedure TScanMemoForm.SaveBtClick(Sender: TObject);
|
begin
|
ModalResult := mrOk;
|
end;
|
|
end.
|
