Procedure

TfrmConsults.tvCsltNotesClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure tvCsltNotesClick(Sender: TObject);


Source

4423  procedure TfrmConsults.tvCsltNotesClick(Sender: TObject);
4424  begin
4425    inherited;
4426    if tvCsltNotes.Selected = nil then exit;
4427    if (tvCsltNotes.Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then
4428      begin
4429        lblTitle.Caption := '';
4430        lblTitle.Hint := lblTitle.Caption;
4431        memConsult.Clear;
4432      end;
4433  end;