Procedure

TfrmConsults.popNoteMemoReplaceClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteMemoReplaceClick(Sender: TObject);


Source

2817  procedure TfrmConsults.popNoteMemoReplaceClick(Sender: TObject);
2818  begin
2819    inherited;
2820    SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
2821    with dlgReplaceText do
2822      begin
2823        Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
2824        FindText := '';
2825        ReplaceText := '';
2826        Options := [frDown, frHideUpDown];
2827        Execute;
2828      end;
2829  end;