Procedure

TfrmConsults.popNoteListCollapseSelectedClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteListCollapseSelectedClick(Sender: TObject);


Source

4396  procedure TfrmConsults.popNoteListCollapseSelectedClick(Sender: TObject);
4397  begin
4398    inherited;
4399    if PopupComponent(Sender, popNoteList) is TTreeView then
4400      with TTreeView(PopupComponent(Sender, popNoteList)) do
4401        begin
4402          if Selected = nil then exit;
4403          with Selected do if HasChildren then Collapse(True);
4404        end;
4405  end;