Procedure

TfrmSurgery.popNoteListCollapseAllClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteListCollapseAllClick(Sender: TObject);


Source

2209  procedure TfrmSurgery.popNoteListCollapseAllClick(Sender: TObject);
2210  begin
2211    inherited;
2212    tvSurgery.Selected := nil;
2213    memSurgery.Clear;
2214    tvSurgery.FullCollapse;
2215    tvSurgery.Selected := tvSurgery.TopItem;
2216  end;