Procedure

TfrmConsults.popNoteListExpandSelectedClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteListExpandSelectedClick(Sender: TObject);


Source

4385  procedure TfrmConsults.popNoteListExpandSelectedClick(Sender: TObject);
4386  begin
4387    inherited;
4388    if PopupComponent(Sender, popNoteList) is TTreeView then
4389      with TTreeView(PopupComponent(Sender, popNoteList)) do
4390        begin
4391          if Selected = nil then exit;
4392          with Selected do if HasChildren then Expand(True);
4393        end;
4394  end;