Procedure

TfrmSurgery.tvSurgeryExpanded

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

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


Source

2436  procedure TfrmSurgery.tvSurgeryExpanded(Sender: TObject;
2437    Node: TTreeNode);
2438  begin
2439    with Node do
2440      begin
2441        if (ImageIndex in [IMG_SURG_GROUP_SHUT, IMG_SURG_CASE_SHUT, IMG_SURG_NON_OR_CASE_SHUT]) then
2442          ImageIndex := ImageIndex + 1;
2443        if (SelectedIndex in [IMG_SURG_GROUP_SHUT, IMG_SURG_CASE_SHUT, IMG_SURG_NON_OR_CASE_SHUT]) then
2444          SelectedIndex := SelectedIndex + 1;
2445      end;
2446    SendMessage(tvSurgery.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
2447  end;