Procedure

TfrmOptions.btnApplyClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Save actions without exiting

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnApplyClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnApplyClick
 ├TfrmOptions.ApplyNotifications
 │ └rpcSetNotifications
 ├TfrmOptions.ApplyOrderChecks
 │ └rpcSetOrderChecks
 ├TfrmOptions.ApplyOtherStuff
 │ └rpcSetOtherStuff
 └TfrmOptions.CheckApply

Calls

Name Declaration Comments
TfrmOptions.ApplyNotifications procedure ApplyNotifications; -
TfrmOptions.ApplyOrderChecks procedure ApplyOrderChecks; -
TfrmOptions.ApplyOtherStuff procedure ApplyOtherStuff; -
TfrmOptions.CheckApply procedure CheckApply; -


Source

383   procedure TfrmOptions.btnApplyClick(Sender: TObject);
384   // save actions without exiting
385   begin
386     if FdirtyNotifications then
387       ApplyNotifications;
388     if FdirtyOrderChecks then
389       ApplyOrderChecks;
390     if FdirtyOtherStuff then
391       ApplyOtherStuff;
392     CheckApply;
393     if Sender = btnOK then
394       Close;
395   end;