Procedure

TfrmConsults.popNoteMemoPasteClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteMemoPasteClick(Sender: TObject);


Source

2773  procedure TfrmConsults.popNoteMemoPasteClick(Sender: TObject);
2774  begin
2775    inherited;
2776    FEditCtrl.SelText := Clipboard.AsText; {*KCM*}
2777    //FEditCtrl.PasteFromClipboard;        // use AsText to prevent formatting
2778  end;