Procedure

TfrmConsults.popNoteListExpandAllClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteListExpandAllClick(Sender: TObject);


Source

4363  procedure TfrmConsults.popNoteListExpandAllClick(Sender: TObject);
4364  begin
4365    inherited;
4366    if PopupComponent(Sender, popNoteList) is TTreeView then
4367      TTreeView(PopupComponent(Sender, popNoteList)).FullExpand;
4368  end;