Procedure

TfrmTemplateFieldEditor.cbxObjsSynonymCheck

Module

fTemplateFieldEditor

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateFieldEditor

Declaration

procedure cbxObjsSynonymCheck(Sender: TObject; const Text: String;
  var IsSynonym: Boolean);


Source

990   procedure TfrmTemplateFieldEditor.cbxObjsSynonymCheck(Sender: TObject;
991     const Text: String; var IsSynonym: Boolean);
992   begin
993     if not FHideSynonyms then
994       IsSynonym := FALSE;
995     if(FDeleted.Count > 0) and (FDeleted.IndexOfPiece(Text,U,2) >= 0) then
996       IsSynonym := TRUE;
997   end;