Procedure

TfrmSurgery.popNoteMemoReplaceClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteMemoReplaceClick(Sender: TObject);


Source

1926  procedure TfrmSurgery.popNoteMemoReplaceClick(Sender: TObject);
1927  begin
1928    inherited;
1929    SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
1930    with dlgReplaceText do
1931      begin
1932        Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
1933        FindText := '';
1934        ReplaceText := '';
1935        Options := [frDown, frHideUpDown];
1936        Execute;
1937      end;
1938  end;