Procedure

TfrmTemplateEditor.mnuBPErrorCheckClick

Module

fTemplateEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateEditor

Declaration

procedure mnuBPErrorCheckClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateEditor.mnuBPErrorCheckClick
 ├TdmodShared.TemplateOK
 │ ├TdmodShared.BoilerplateOK
 │ │ ├ErrCount
 │ │ ├AddErr
 │ │ └TdmodShared.LoadTIUObjects
 │ │   └GetObjectList
 │ └BoilerplateTemplateFieldsOK
 │   └ListTemplateFields
 │     └GetTemplateField
 │       ├LoadTemplateFieldByIEN
 │       ├LoadTemplateField
 │       └TTemplateField.Create
 │         ├TemplateFieldCode2Field
 │         └TemplateDateCode2DateType
 └TestBoilerplate

Called-By Hierarchy


TfrmTemplateEditor.mnuBPErrorCheckClick
     TfrmTemplateEditor.tvTreeKeyDown┤ 
     TfrmTemplateEditor.mnuBPTryClick┘ 
   TfrmTemplateEditor.tvTreeKeyDown┘   

Calls

Name Declaration Comments
TdmodShared.TemplateOK function TemplateOK(tmpl: TTemplate; Msg: string = ''): boolean; -
TestBoilerplate procedure TestBoilerplate(BoilerPlate: TStrings); -

Called-By

Name Declaration Comments
TfrmTemplateEditor.mnuBPTryClick procedure mnuBPTryClick(Sender: TObject); -
TfrmTemplateEditor.tvTreeKeyDown procedure tvTreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

2591  procedure TfrmTemplateEditor.mnuBPErrorCheckClick(Sender: TObject);
2592  begin
2593    FBPOK := FALSE;
2594    if (reBoil.Lines.Count > 0) then
2595    begin
2596      if (dmodShared.TemplateOK(FCurTree.Selected.Data, 'OK')) then
2597      begin
2598        TestBoilerplate(reBoil.Lines);
2599        if (RPCBrokerV.Results.Count > 0) then
2600          InfoBox('Boilerplate Contains Errors:' + CRLF + CRLF +
2601            RPCBrokerV.Results.Text, 'Error', MB_OK or MB_ICONERROR)
2602        else
2603        begin
2604          FBPOK := TRUE;
2605          if (assigned(Sender)) then
2606            InfoBox('No Errors Found in Boilerplate.', 'Information', MB_OK or MB_ICONINFORMATION);
2607        end;
2608      end;
2609    end;
2610  end;