Procedure

TfrmDrawers.NewRECDragOver

Module

fDrawers

Last Modified

7/15/2014 3:26:36 PM

Visibility

Protected

Owner

TfrmDrawers

Declaration

procedure NewRECDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
                         var Accept: Boolean);

Calls Hierarchy


TfrmDrawers.NewRECDragOver
 └TfrmDrawers.MoveCaret

Called-By Hierarchy


      TfrmDrawers.NewRECDragOver
TfrmDrawers.SetRichEditControl┘ 
       TfrmDCSumm.FormCreate┤   
     TfrmConsults.FormCreate┤   
      TfrmSurgery.FormCreate┤   
        TfrmNotes.FormCreate┘   

Calls

Name Declaration Comments
TfrmDrawers.MoveCaret procedure MoveCaret(X, Y: integer); -

Called-By

Name Declaration Comments
TfrmDrawers.SetRichEditControl procedure SetRichEditControl(const Value: TRichEdit); -


Source

842   procedure TfrmDrawers.NewRECDragOver(Sender, Source: TObject; X,
843     Y: Integer; State: TDragState; var Accept: Boolean);
844   
845   begin
846     Accept := FALSE;
847     if(Source = tvTemplates) then
848     begin
849       if(assigned(FDragNode)) and (TTemplate(FDragNode.Data).RealType in [ttDoc, ttGroup]) then
850       begin
851         Accept := TRUE;
852         MoveCaret(X, Y);
853       end;
854     end
855     else
856     if(assigned(FOldDragOver)) then
857       FOldDragOver(Sender, Source, X, Y, State, Accept);
858   end;