Procedure

TfrmDrawers.MoveCaret

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

procedure MoveCaret(X, Y: integer);

Called-By Hierarchy


                TfrmDrawers.MoveCaret
         TfrmDrawers.NewRECDragDrop┤ 
   TfrmDrawers.SetRichEditControl┘ │ 
          TfrmDCSumm.FormCreate┤   │ 
        TfrmConsults.FormCreate┤   │ 
         TfrmSurgery.FormCreate┤   │ 
           TfrmNotes.FormCreate┘   │ 
         TfrmDrawers.NewRECDragOver┘ 
TfrmDrawers.SetRichEditControl...┘   

Called-By

Name Declaration Comments
TfrmDrawers.NewRECDragDrop procedure NewRECDragDrop(Sender, Source: TObject; X, Y: Integer); -
TfrmDrawers.NewRECDragOver procedure NewRECDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); -


Source

818   procedure TfrmDrawers.MoveCaret(X, Y: integer);
819   var
820     pt: TPoint;
821   
822   begin
823     FRichEditControl.SetFocus;
824     pt := Point(x, y);
825     FRichEditControl.SelStart := FRichEditControl.Perform(EM_CHARFROMPOS,0,LParam(@pt));
826   end;