Procedure

TfrmReminderTree.tvRemChange

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReminderTree

Declaration

procedure tvRemChange(Sender: TObject; Node: TTreeNode);

Calls Hierarchy


TfrmReminderTree.tvRemChange
 ├TfrmReminderTree.EnableActions
 │ ├ReminderDialogActive
 │ ├NewRemCoverSheetListActive
 │ └CanEditAllRemCoverSheetLists
 │   └HasMenuOptionAccess
 └TfrmReminderTree.Resync
   ├TfrmReminderTree.LinkTopControls
   └TfrmReminderTree.SyncTopControls

Calls

Name Declaration Comments
TfrmReminderTree.EnableActions procedure EnableActions; -
TfrmReminderTree.Resync procedure Resync(FromTree: boolean); -


Source

550   procedure TfrmReminderTree.tvRemChange(Sender: TObject; Node: TTreeNode);
551   var
552     p1: string;
553   
554   begin
555     memView.Data := '';
556     if(assigned(Node)) then
557     begin
558       p1 := Piece((Node as TORTreeNode).StringData, U, 1);
559       if(Copy(p1,1,1) = RemCode) then
560       begin
561         memView.Data := (Node as TORTreeNode).StringData;
562       end;
563     end;
564     EnableActions;
565   
566     Resync(TRUE);
567   end;