Procedure

TfrmSurgery.popNoteListCollapseSelectedClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteListCollapseSelectedClick(Sender: TObject);


Source

2225  procedure TfrmSurgery.popNoteListCollapseSelectedClick(Sender: TObject);
2226  begin
2227    inherited;
2228    if tvSurgery.Selected = nil then exit;
2229    with tvSurgery.Selected do if HasChildren then Collapse(True);
2230  end;