Procedure

TfrmOMHTML.btnOKClick

Module

fOMHTML

Last Modified

7/15/2014 3:26:42 PM

Comments

Button events

Visibility

Public/Published

Owner

TfrmOMHTML

Declaration

procedure btnOKClick(Sender: TObject);

Calls Hierarchy


TfrmOMHTML.btnOKClick
 ├TfrmOMHTML.SaveState
 │ └TfrmOMHTML.MetaElementExists
 └NameValueToOrderSet

Calls

Name Declaration Comments
NameValueToOrderSet procedure NameValueToOrderSet(Src, Dest: TStringList); -
TfrmOMHTML.SaveState procedure SaveState; -


Source

434   procedure TfrmOMHTML.btnOKClick(Sender: TObject);
435   var
436     i, j: Integer;
437     APageState: TPageState;
438   begin
439     inherited;
440     SaveState;
441     // create an order set based on all the saved states of pages navigated to
442     for i := 0 to Pred(FPageCache.Count) do
443     begin
444       APageState := FPageCache[i];
445       for j := 0 to Pred(APageState.FSubmitData.Count) do
446       begin
447         FSetList.Add(APageState.FSubmitData[j]);
448       end;
449     end;
450     NameValueToOrderSet(FSetList, FSetList);
451     // put in reference number, key variables, & caption later as necessary
452     //ActivateOrderList(NameValuePairs, FDelayEvent, Self, 0, '', '');
453     Close;
454   end;