Procedure

TfrmSurgery.popNoteListExpandSelectedClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteListExpandSelectedClick(Sender: TObject);


Source

2218  procedure TfrmSurgery.popNoteListExpandSelectedClick(Sender: TObject);
2219  begin
2220    inherited;
2221    if tvSurgery.Selected = nil then exit;
2222    with tvSurgery.Selected do if HasChildren then Expand(True);
2223  end;