Procedure

TfrmOptions.ApplyOrderChecks

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Save Order Check changes

Visibility

Private

Owner

TfrmOptions

Declaration

procedure ApplyOrderChecks;

Calls Hierarchy


TfrmOptions.ApplyOrderChecks
 └rpcSetOrderChecks

Called-By Hierarchy


TfrmOptions.ApplyOrderChecks
 TfrmOptions.btnApplyClick┘ 

Calls

Name Declaration Comments
rpcSetOrderChecks procedure rpcSetOrderChecks(aList: TStringList); -

Called-By

Name Declaration Comments
TfrmOptions.btnApplyClick procedure btnApplyClick(Sender: TObject); -


Source

449   procedure TfrmOptions.ApplyOrderChecks;
450   // save Order Check changes
451   var
452     i: integer;
453     newonoff: string;
454     aRule: TRule;
455     aList: TStringList;
456   begin
457     aList := TStringList.Create;
458     for i := 0 to lvwOrderChecks.Items.Count - 1 do
459     begin
460       aRule := TRule(lvwOrderChecks.Items.Item[i].SubItems.Objects[2]);
461       newonoff := Uppercase(lvwOrderChecks.Items.Item[i].SubItems[0]);
462       if aRule.OriginalValue <> newonoff then
463       begin
464         aList.Add(aRule.IEN + '^' + newonoff);
465         aRule.OriginalValue := lvwOrderChecks.Items.Item[i].SubItems[0];
466       end;
467     end;
468     rpcSetOrderChecks(aList);
469     aList.free;
470     FdirtyOrderChecks := false;
471   end;