Procedure

TTemplate.SetTemplateType

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetTemplateType(const Value: TTemplateType);

Calls Hierarchy


TTemplate.SetTemplateType
 ├TTemplate.GetTemplateType
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 ├TTemplate.SetRealType
 │ ├TTemplate.CanModify...
 │ ├TTemplate.ValidID
 │ └TTemplate.SetFileLink
 │   └TTemplate.AssignFileLink
 │     ├TTemplate.CanModify...
 │     ├TTemplate.ValidID
 │     ├TTemplate.LinkType
 │     ├TTemplate.SetReminderDialog
 │     │ ├TTemplate.CanModify...
 │     │ ├TTemplate.ValidID
 │     │ ├TTemplate.ReminderDialogIEN
 │     │ ├TTemplate.LinkType
 │     │ └TTemplate.SetFileLink...
 │     ├TTemplate.GetItems
 │     │ └ExpandTemplate
 │     │   ├TTemplate.GetChildren
 │     │   ├GetTemplateChildren
 │     │   ├AddTemplate
 │     │   │ ├TTemplate.Create
 │     │   │ │ └TTemplate.ReminderDialogIEN
 │     │   │ └TTemplate.AddChild
 │     │   │   └TTemplate.GetItems...
 │     │   └TTemplate.ItemIENs
 │     │     └TTemplate.GetItems...
 │     └..(rec)..
 └TTemplate.SetExclude
   ├TTemplate.CanModify...
   └TTemplate.ValidID

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.GetTemplateType function GetTemplateType: TTemplateType; -
TTemplate.SetExclude procedure SetExclude(const Value: boolean); -
TTemplate.SetRealType procedure SetRealType(const Value: TTemplateType); -


Source

1774  procedure TTemplate.SetTemplateType(const Value: TTemplateType);
1775  begin
1776    if(GetTemplateType <> Value) and CanModify then
1777    begin
1778      if(Value in AllTemplateTrueTypes) then
1779        SetRealType(Value)
1780      else
1781      begin
1782        case Value of
1783          ttDoc:     begin SetExclude(FALSE); SetRealType(ttDoc);   end;
1784          ttGroup:   begin SetExclude(FALSE); SetRealType(ttGroup); end;
1785          ttDocEx:   begin SetExclude(TRUE);  SetRealType(ttDoc);   end;
1786          ttGroupEx: begin SetExclude(TRUE);  SetRealType(ttGroup); end;
1787        end;
1788      end;
1789    end;
1790  end;