Procedure

TfrmSurgery.popNoteListPopup

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteListPopup(Sender: TObject);


Source

2193  procedure TfrmSurgery.popNoteListPopup(Sender: TObject);
2194  begin
2195    inherited;
2196    N4.Visible                          := (popNoteList.PopupComponent is TORTreeView);
2197    popNoteListExpandAll.Visible        := N4.Visible;
2198    popNoteListExpandSelected.Visible   := N4.Visible;
2199    popNoteListCollapseAll.Visible      := N4.Visible;
2200    popNoteListCollapseSelected.Visible := N4.Visible;
2201  end;