Procedure

TTemplate.SetRealType

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TTemplate

Declaration

procedure SetRealType(const Value: TTemplateType);

Calls Hierarchy


TTemplate.SetRealType
 ├TTemplate.CanModify
 │ ├TTemplate.ValidID
 │ └LockTemplate
 ├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)..

Called-By Hierarchy


             TTemplate.SetRealType
       TTemplate.SetTemplateType┤ 
TfrmTemplateEditor.cbxTypeChange┘ 

Calls

Name Declaration Comments
TTemplate.CanModify function CanModify: boolean; -
TTemplate.SetFileLink procedure SetFileLink(const Value: string); -
TTemplate.ValidID function ValidID: boolean; -

Called-By

Name Declaration Comments
TfrmTemplateEditor.cbxTypeChange procedure cbxTypeChange(Sender: TObject); -
TTemplate.SetTemplateType procedure SetTemplateType(const Value: TTemplateType); -


Source

2162  procedure TTemplate.SetRealType(const Value: TTemplateType);
2163  begin
2164    if(FRealType <> Value) and CanModify then
2165    begin
2166      with FBkup do
2167      begin
2168        if(not SavedRealType) and ValidID then
2169        begin
2170          BRealType := FRealType;
2171          SavedRealType := TRUE;
2172        end;
2173      end;
2174      FRealType := Value;
2175      if(FFileLink <> '') and (not (FRealType in [ttDoc, ttGroup])) then
2176        SetFileLink('');
2177    end;
2178  end;