Procedure

TfrmSurgery.tvSurgeryClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure tvSurgeryClick(Sender: TObject);


Source

2306  procedure TfrmSurgery.tvSurgeryClick(Sender: TObject);
2307  begin
2308    if tvSurgery.Selected = nil then exit;
2309    if (tvSurgery.Selected.ImageIndex in [IMG_SURG_TOP_LEVEL, IMG_SURG_GROUP_OPEN, IMG_SURG_GROUP_SHUT]) then
2310      memSurgery.Clear;
2311  end;