Procedure

TfrmSurgery.AssignRemForm

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Comments

Function TfrmSurgery.CanFinishReminder: boolean;
begin
  Result := False;
  if(EditingIndex < 0) then
    Result := FALSE
  else
    Result := (lstNotes.ItemIndex = EditingIndex);
end;

Visibility

Public

Owner

TfrmSurgery

Declaration

procedure AssignRemForm;


Source

2284  procedure TfrmSurgery.AssignRemForm;
2285  begin
2286  (*  with RemForm do
2287    begin
2288      Form := Self;
2289      PCEObj := uPCEEdit;
2290      RightPanel := pnlRight;
2291      CanFinishProc := CanFinishReminder;
2292      DisplayPCEProc := DisplayPCE;
2293      Drawers := frmDrawers;
2294      NewNoteRE := memNewNote;
2295      NoteList := lstNotes;
2296    end;*)
2297  end;