Procedure

TfrmConsults.mnuViewSaveAsDefaultClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure mnuViewSaveAsDefaultClick(Sender: TObject);

Calls Hierarchy


TfrmConsults.mnuViewSaveAsDefaultClick
 └SaveCurrentContext

Calls

Name Declaration Comments
SaveCurrentContext procedure SaveCurrentContext(AContext: TSelectContext) ; -


Source

3415  procedure TfrmConsults.mnuViewSaveAsDefaultClick(Sender: TObject);
3416  begin
3417    inherited;
3418    if InfoBox('Replace current defaults?','Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
3419      begin
3420        SaveCurrentContext(FCurrentContext);
3421        lblConsults.Caption := 'Default List';
3422        tvConsults.Caption := 'Default List';
3423        FDefaultContext := FCurrentContext;
3424      end;
3425  end;