Procedure

TfrmReminderTree.SyncTopControls

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Protected

Owner

TfrmReminderTree

Declaration

procedure SyncTopControls(FromTree: boolean);

Called-By Hierarchy


   TfrmReminderTree.SyncTopControls
TfrmReminderTree.RemindersChanged┤ 
    TfrmReminderTree.FormCreate┤ │ 
   TfrmReminderTree.FormDestroy┘ │ 
   TfrmReminderTree.lbRemDrawItem┤ 
          TfrmReminderTree.Resync┘ 
   TfrmReminderTree.lbRemChange┤   
    TfrmReminderTree.tvRemClick┤   
TfrmReminderTree.tvRemKeyDown┘ │   
   TfrmReminderTree.tvRemChange┘   

Called-By

Name Declaration Comments
TfrmReminderTree.lbRemDrawItem procedure lbRemDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); -
TfrmReminderTree.RemindersChanged procedure RemindersChanged(Sender: TObject); -
TfrmReminderTree.Resync procedure Resync(FromTree: boolean); -


Source

313   procedure TfrmReminderTree.SyncTopControls(FromTree: boolean);
314   begin
315     if(lbRem.Items.Count > 0) and (tvRem.TopItem <> lbRem.Items.Objects[lbRem.TopIndex]) then
316     begin
317       if(FromTree) then
318         lbRem.TopIndex := lbRem.Items.IndexOfObject(tvRem.TopItem)
319       else
320         tvRem.TopItem := TTreeNode(lbRem.Items.Objects[lbRem.TopIndex]);
321     end;
322   end;