Procedure

TfrmTemplateFieldEditor.cbxTypeChange

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure cbxTypeChange(Sender: TObject);

Calls Hierarchy


TfrmTemplateFieldEditor.cbxTypeChange
 ├TTemplateField.SetFldType
 │ ├TTemplateField.CanModify
 │ │ └LockTemplateField
 │ └TTemplateField.Width
 │   └StripEmbedded
 ├TfrmTemplateFieldEditor.EnableButtons
 └TfrmTemplateFieldEditor.UpdateControls
   ├TTemplateField.GetRequired
   ├SetY
   │ └SetLbl
   ├SetLbl
   ├TfrmTemplateFieldEditor.SyncItems
   │ └StripEmbedded
   └TfrmTemplateFieldEditor.FormResize

Calls

Name Declaration Comments
TfrmTemplateFieldEditor.EnableButtons procedure EnableButtons; -
TTemplateField.SetFldType procedure SetFldType(const Value: TTemplateFieldType); -
TfrmTemplateFieldEditor.UpdateControls procedure UpdateControls; -


Source

604   procedure TfrmTemplateFieldEditor.cbxTypeChange(Sender: TObject);
605   begin
606     if(not FUpdating) and (assigned(FFld)) then
607     begin
608       if(cbxType.ItemIndex < 0) then
609       begin
610         FUpdating := TRUE;
611         try
612           cbxType.ItemIndex := 0;
613         finally
614           FUpdating := FALSE;
615         end;
616       end;
617       FFld.FldType := TTemplateFieldType(cbxType.ItemIndex);
618     end;
619     EnableButtons;
620     UpdateControls;
621   end;