Function

TTemplate.COMObjectText

Module

uTemplates

Last Modified

7/15/2014 3:26:44 PM

Comments

Function COMObjectText(const DefText: string = ''; DocInfo: string = ''): string;
function TTemplate.COMObjectText(const DefText: string = ''; DocInfo: string = ''): string;

Visibility

Public

Owner

TTemplate

Declaration

function COMObjectText(DefText: string; var DocInfo: string): string;

Calls Hierarchy


TTemplate.COMObjectText
 ├TTemplate.LinkType
 ├TTemplate.LinkIEN
 └GetCOMObjectText
   ├GetCOMObjectDetails
   ├EnsureEventHookObjects
   │ └TCPRSEventHookManager.Create
   │   ├TCPRSBroker.Create
   │   └TCPRSState.Create
   └TCPRSEventHookManager.ProcessComObject
     └TCPRSBroker.Initialize

Called-By Hierarchy


                       TTemplate.COMObjectText
                ExecuteTemplateOrBoilerPlate┤ 
                      TfrmDrawers.InsertText┘ 
           TfrmDrawers.tvTemplatesDblClick┤   
            TfrmDrawers.tvTemplatesKeyDown┤   
                TfrmDrawers.NewRECDragDrop┤   
          TfrmDrawers.SetRichEditControl┘ │   
                 TfrmDCSumm.FormCreate┤   │   
               TfrmConsults.FormCreate┤   │   
                TfrmSurgery.FormCreate┤   │   
                  TfrmNotes.FormCreate┘   │   
        TfrmDrawers.mnuInsertTemplateClick┘   
  TfrmDCSumm.popSummMemoInsTemplateClick┤     
TfrmConsults.popNoteMemoInsTemplateClick┤     
 TfrmSurgery.popNoteMemoInsTemplateClick┤     
   TfrmNotes.popNoteMemoInsTemplateClick┘     

Calls

Name Declaration Comments
GetCOMObjectText procedure GetCOMObjectText(COMObject: integer; const Param2, Param3: string; var Data1, Data2: string); -
TTemplate.LinkIEN function LinkIEN: string; -
TTemplate.LinkType function LinkType: TTemplateLinkType; -

Called-By

Name Declaration Comments
ExecuteTemplateOrBoilerPlate procedure ExecuteTemplateOrBoilerPlate(SL: TStrings; IEN: Integer; LType: TTemplateLinkType; OwningForm: TForm; CaptionText: string; var DocInfo: string); overload; -
TfrmDrawers.InsertText procedure InsertText; -


Source

2693  function TTemplate.COMObjectText(DefText: string; var DocInfo: string): string;
2694  var
2695    p2: string;
2696  
2697  begin
2698    Result := '';
2699    if (FCOMObject > 0) then
2700    begin
2701      p2 := '';
2702      if (LinkType <> ltNone) and (LinkIEN <> '') then
2703        p2 := LinkPassCode[LinkType] + '=' + LinkIEN;
2704      Result := DefText;
2705      GetCOMObjectText(FCOMObject, p2, FCOMParam, Result, DocInfo);
2706    end;
2707  end;