Procedure

TfrmSurgery.popNoteMemoPasteClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteMemoPasteClick(Sender: TObject);


Source

1905  procedure TfrmSurgery.popNoteMemoPasteClick(Sender: TObject);
1906  begin
1907    inherited;
1908    FEditCtrl.SelText := Clipboard.AsText; {*KCM*}
1909    //FEditCtrl.PasteFromClipboard;        // use AsText to prevent formatting
1910  end;