Procedure

TfrmSurgery.popNoteMemoFindClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteMemoFindClick(Sender: TObject);


Source

664   procedure TfrmSurgery.popNoteMemoFindClick(Sender: TObject);
665   begin
666     inherited;
667     SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
668     with dlgFindText do
669       begin
670         Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
671         FindText := '';
672         Options := [frDown, frHideUpDown];
673         Execute;
674       end;
675   end;