Procedure

TfrmTemplateFieldEditor.btnApplyClick

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure btnApplyClick(Sender: TObject);

Calls Hierarchy


TfrmTemplateFieldEditor.btnApplyClick
 ├TfrmTemplateFieldEditor.SaveChanges
 │ ├DeleteTemplateField
 │ ├SaveTemplateFieldErrors
 │ │ └TTemplateField.SaveError
 │ │   ├UpdateTemplateField
 │ │   │ └UpdateTIURec
 │ │   └UnlockTemplateField
 │ └ClearModifiedTemplateFields
 │   └UnlockTemplateField
 └TfrmTemplateFieldEditor.cbxObjsChange
   ├TfrmTemplateFieldEditor.SetFld
   │ └TfrmTemplateFieldEditor.EnableButtons
   ├GetTemplateField
   │ ├LoadTemplateFieldByIEN
   │ ├LoadTemplateField
   │ └TTemplateField.Create
   │   ├TemplateFieldCode2Field
   │   └TemplateDateCode2DateType
   └TfrmTemplateFieldEditor.UpdateControls
     ├TTemplateField.GetRequired
     ├SetY
     │ └SetLbl
     ├SetLbl
     ├TfrmTemplateFieldEditor.SyncItems
     │ └StripEmbedded
     └TfrmTemplateFieldEditor.FormResize

Calls

Name Declaration Comments
TfrmTemplateFieldEditor.cbxObjsChange procedure cbxObjsChange(Sender: TObject); -
TfrmTemplateFieldEditor.SaveChanges function SaveChanges: boolean; -


Source

720   procedure TfrmTemplateFieldEditor.btnApplyClick(Sender: TObject);
721   var
722     tmp: string;
723   begin
724     SaveChanges;
725     cbxObjs.Clear;
726     if assigned(FFld) then
727       tmp := FFld.FldName
728     else
729       tmp := '';
730     cbxObjs.InitLongList(tmp);
731     cbxObjs.ItemIndex := 0;
732     cbxObjsChange(cbxObjs);
733   end;