Procedure

TfrmSurgery.tvSurgeryCollapsed

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

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


Source

2449  procedure TfrmSurgery.tvSurgeryCollapsed(Sender: TObject;
2450    Node: TTreeNode);
2451  begin
2452    with Node do
2453      begin
2454        if (ImageIndex in [IMG_SURG_GROUP_OPEN, IMG_SURG_CASE_OPEN, IMG_SURG_NON_OR_CASE_OPEN]) then
2455          ImageIndex := ImageIndex - 1;
2456        if (SelectedIndex in [IMG_SURG_GROUP_OPEN, IMG_SURG_CASE_OPEN, IMG_SURG_NON_OR_CASE_OPEN]) then
2457          SelectedIndex := SelectedIndex - 1;
2458      end;
2459  end;