no message

Committed on the Free edition of March Hare Software CVSNT Server.
Upgrade to CVS Suite for more features and support:
http://march-hare.com/cvsnt/

bin/sismon.config

+<?xml version="1.0" encoding="UTF-8" ?>
+<Config>
+  <Application>
+    <UseXMLEncode version="1"/>
+  </Application>
+</Config>
\ No newline at end of file

cli/dbuDataModule.dfm

@@ -7,7 +7,7 @@ object dbDataModule: TdbDataModule
     DriverName = 'MSSQL'
     LoginPrompt = False
     Params.Strings = (
-      'DATABASE NAME=SISCON'
+      'DATABASE NAME=SISCON_TESTE'
       'SERVER NAME=mssql_prd_db'
       'USER NAME=sisconuser'
       'OPEN MODE=READ/WRITE'

cli/deploy_cli.bat

 @ECHO OFF
 
-xcopy /y %TEMP%\acuApplicationConsole.dcu .
+xcopy /y %TEMP%\blcksock.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\acuObjectExplorer.dcu .
+xcopy /y %TEMP%\synsock.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\Form_basico.dcu .
+xcopy /y %TEMP%\synafpc.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituControlPanel.dcu .
+xcopy /y %TEMP%\synautil.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituExceptionDetailsDialog.dcu .
+xcopy /y %TEMP%\synacode.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituInterface.dcu .
+xcopy /y %TEMP%\synaip.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituInterfaceFactory.dcu .
+xcopy /y %TEMP%\ituControlPanel.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituLogin.dcu .
+xcopy /y %TEMP%\ituInterface.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituMain.dcu .
+xcopy /y %TEMP%\ituInterfaceFactory.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\mxuConnectionClient.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\mxuInterfaceCommCenter.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\Sisparam.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuField.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuFields.dcu .
@@ -46,8 +42,6 @@ xcopy /y %TEMP%\utuLinksManager.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuLinkSock.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\blcksock.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuProtectedList.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\mxuCommCenter.dcu .
@@ -56,41 +50,90 @@ xcopy /y %TEMP%\utuFactory.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuCollection.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\utuSysUtil.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acOQL.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\cxuSession.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuSystem.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\ituCadastroBasicoV4.dcu .
-IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuLocale.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\utuSysUtils.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\synsock.dcu .
+xcopy /y %TEMP%\strs.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
-xcopy /y %TEMP%\blcksock.dcu .
+xcopy /y %TEMP%\xmls.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\xsdins.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\xsdedit.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\xsdedit.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
 
+
+xcopy /y %TEMP%\ituExceptionDetailsDialog.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituExceptionDetailsDialog.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituMapeamentoExternoOperacoes.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituMapeamentoExternoOperacoes.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\siuBuscaObjetosBasicaV3.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituLogin.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituLogin.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituLoginPortal.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituLoginPortal.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\Form_basico.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\Form_basico.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituMain.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituMain.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituMainPortal.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituMainPortal.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituCadastroBasicoV4.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituCadastroBasicoV4.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\ituCadastroBasicoV41.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituCadastroBasicoV41.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\acuApplicationConsole.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuApplicationConsole.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\acuObjectExplorer.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\acuObjectExplorer.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
 xcopy /y %TEMP%\dbuDataModule.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\siuBuscaLogAtualizacaoSistema.dfm .
@@ -101,11 +144,24 @@ xcopy /y %TEMP%\siuBuscaObjetosUsuarioV4.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituExplorerV4.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
+
+
 xcopy /y %TEMP%\ituPropriedadesDoServico.dcu .
 IF ERRORLEVEL 1 GOTO ENDERROR
 xcopy /y %TEMP%\ituPropriedadesDoServico.dfm .
 IF ERRORLEVEL 1 GOTO ENDERROR
 
+xcopy /y %TEMP%\ituGenericUseCaseExecutor.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+xcopy /y %TEMP%\ituGenericUseCaseExecutor.dfm .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\acuMenuManager.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
+xcopy /y %TEMP%\acuRandomNumber.dcu .
+IF ERRORLEVEL 1 GOTO ENDERROR
+
 
 GOTO ENDOK
 

cli/ituLogin.dfm

@@ -15,7 +15,6 @@ object itLogin: TitLogin
   OldCreateOrder = True
   Position = poScreenCenter
   OnClose = FormClose
-  OnCreate = FormCreate
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
@@ -1380,7 +1379,7 @@ object itLogin: TitLogin
         ParentBackground = False
         RowCollection = <
           item
-            Value = 37.868951352815970000
+            Value = 37.868951352815960000
           end
           item
             Value = 37.939385576069630000

cli/ituMapeamentoExternoOperacoes.dfm

+object itMapeamentoExternoOperacoes: TitMapeamentoExternoOperacoes
+  Left = 0
+  Top = 0
+  Caption = 'Mapeamento Externo de Opera'#231#245'es'
+  ClientHeight = 379
+  ClientWidth = 718
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    718
+    379)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel8: TPanel
+    Left = 0
+    Top = 338
+    Width = 718
+    Height = 41
+    Align = alBottom
+    TabOrder = 0
+    ExplicitLeft = -302
+    ExplicitTop = 165
+    ExplicitWidth = 811
+    DesignSize = (
+      718
+      41)
+    object btnSalvar: TBitBtn
+      Left = 533
+      Top = 9
+      Width = 85
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&Salvar'
+      Enabled = False
+      TabOrder = 0
+      OnClick = btnSalvarClick
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        180000000000000300000000000000000000000000000000000000FFFF000000
+        737373424242C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
+        C0424242212121000000000000000000737373FFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF737373212121000000000000DEDEDE
+        737373FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FF737373ADADAD000000000000212121737373FFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF737373212121000000000000212121
+        737373FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FF737373212121000000000000212121737373FFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF737373212121000000000000212121
+        737373FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FF73737321212100000000000021212121212173737373737373737373737373
+        7373737373737373737373737373737373ADADAD212121000000000000212121
+        2121212121212121212121212121212121212121212121212121212121212121
+        2121212121212100000000000021212100000000000000000000000000000000
+        0000000000000000000000000000212121212121212121000000000000212121
+        000000313131000000EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF0000002121
+        21212121212121000000000000313131000000424242000000EFEFEFDEDEDEDE
+        DEDE000000212121DEDEDE000000212121212121313131000000000000424242
+        000000636363000000DEDEDECECECECECECE000000212121CECECE0000002121
+        21212121525252000000000000636363000000ADADAD000000DEDEDEC0C0C0C0
+        C0C0000000000000C0C0C0000000212121212121737373000000000000ADADAD
+        000000000000000000EFEFEFC0C0C0ADADADA4A0A0ADADADADADAD0000002121
+        2173737300000000FFFF00FFFF00000000000000FFFF00000000000000000000
+        000000000000000000000000000000000000000000FFFF00FFFF}
+      ExplicitLeft = 324
+    end
+    object btnFechar: TBitBtn
+      Left = 624
+      Top = 9
+      Width = 85
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&Fechar'
+      TabOrder = 1
+      OnClick = btnFecharClick
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000000000000000000000000000000000000000000000000
+        00000000000000000000000000007272FFFF7272FFFF5555FFFF5555FFFF7272
+        FFFF7272FFFF0000000000000000000000000000000000000000000000000000
+        000000000000A6A6FFFF1D1DFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
+        FFFF0000FFFF1D1DFFFFA6A6FFFF000000000000000000000000000000000000
+        0000A6A6FFFF0000FFFF0000FFFF3939FFFF7272FFFFA6A6FFFFA6A6FFFF7272
+        FFFF3939FFFF0000FFFF0000FFFFA6A6FFFF000000000000000000000000A6A6
+        FFFF0000FFFF0000FFFF0000FFFF000000000000000000000000000000000000
+        0000000000007272FFFF0000FFFF0000FFFFA6A6FFFF00000000000000001D1D
+        FFFF0000FFFF7272FFFF0000FFFF0000FFFF0000000000000000000000000000
+        000000000000000000007272FFFF0000FFFF1D1DFFFF000000007272FFFF0000
+        FFFF3939FFFF000000007272FFFF0000FFFF0000FFFF00000000000000000000
+        00000000000000000000000000003939FFFF0000FFFF7272FFFF7272FFFF0000
+        FFFF7272FFFF00000000000000007272FFFF0000FFFF0000FFFF000000000000
+        00000000000000000000000000007272FFFF0000FFFF7272FFFF5555FFFF0000
+        FFFFA6A6FFFF0000000000000000000000007272FFFF0000FFFF0000FFFF0000
+        0000000000000000000000000000A6A6FFFF0000FFFF5555FFFF3939FFFF0000
+        FFFFA6A6FFFF000000000000000000000000000000007272FFFF0000FFFF0000
+        FFFF000000000000000000000000A6A6FFFF0000FFFF5555FFFF7272FFFF0000
+        FFFF7272FFFF00000000000000000000000000000000000000007272FFFF0000
+        FFFF0000FFFF00000000000000007272FFFF0000FFFF7272FFFF7272FFFF0000
+        FFFF3939FFFF0000000000000000000000000000000000000000000000007272
+        FFFF0000FFFF0000FFFF000000003939FFFF0000FFFF7272FFFF000000001D1D
+        FFFF0000FFFF7272FFFF00000000000000000000000000000000000000000000
+        00007272FFFF0000FFFF0000FFFF0000FFFF1D1DFFFF0000000000000000A6A6
+        FFFF0000FFFF0000FFFF7272FFFF000000000000000000000000000000000000
+        0000000000007272FFFF0000FFFF0000FFFFA6A6FFFF00000000000000000000
+        0000A6A6FFFF0000FFFF0000FFFF0000FFFF7272FFFFA6A6FFFFA6A6FFFF7272
+        FFFF0000FFFF0000FFFF0000FFFFA6A6FFFF0000000000000000000000000000
+        000000000000A6A6FFFF1D1DFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000
+        FFFF0000FFFF1D1DFFFFA6A6FFFF000000000000000000000000000000000000
+        0000000000000000000000000000A6A6FFFF7272FFFF5555FFFF5555FFFF7272
+        FFFFA6A6FFFF0000000000000000000000000000000000000000}
+      ExplicitLeft = 415
+    end
+  end
+  object dbgTimeWindow: TJvDBGrid
+    Left = 8
+    Top = 8
+    Width = 701
+    Height = 321
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    DataSource = dsMapeamentos
+    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+    AutoAppend = False
+    OnEditChange = dbgTimeWindowEditChange
+    PostOnEnterKey = True
+    SelectColumnsDialogStrings.Caption = 'Select columns'
+    SelectColumnsDialogStrings.OK = '&OK'
+    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
+    CanDelete = False
+    EditControls = <>
+    RowsHeight = 17
+    TitleRowHeight = 17
+    Columns = <
+      item
+        ButtonStyle = cbsNone
+        Color = 15397876
+        Expanded = False
+        FieldName = 'Entity'
+        ReadOnly = True
+        Title.Caption = 'Entidade'
+        Width = 150
+        Visible = True
+      end
+      item
+        ButtonStyle = cbsNone
+        Color = 15397876
+        Expanded = False
+        FieldName = 'UseCase'
+        ReadOnly = True
+        Title.Caption = 'Caso de Uso'
+        Width = 250
+        Visible = True
+      end
+      item
+        ButtonStyle = cbsNone
+        Color = 15397876
+        Expanded = False
+        FieldName = 'Operation'
+        ReadOnly = True
+        Title.Caption = 'Opera'#231#227'o'
+        Width = 130
+        Visible = True
+      end
+      item
+        Alignment = taRightJustify
+        Expanded = False
+        FieldName = 'ExternalCode'
+        Title.Caption = 'C'#243'digo Externo'
+        Visible = True
+      end>
+  end
+  object dsMapeamentos: TJvDataSource
+    DataSet = mdMapeamentos
+    Left = 408
+    Top = 272
+  end
+  object mdMapeamentos: TJvMemoryData
+    FieldDefs = <>
+    Left = 376
+    Top = 272
+    object mdMapeamentosOID: TIntegerField
+      FieldName = 'OID'
+    end
+    object mdMapeamentosEntity: TStringField
+      FieldName = 'Entity'
+      Size = 200
+    end
+    object mdMapeamentosUseCase: TStringField
+      FieldName = 'UseCase'
+      Size = 300
+    end
+    object mdMapeamentosOperation: TStringField
+      FieldName = 'Operation'
+      Size = 200
+    end
+    object mdMapeamentosExternalCode: TStringField
+      FieldName = 'ExternalCode'
+    end
+  end
+end

cli/xmlinspector.inc

+{$B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
+
+{DEFINE REGEXP}
+
+{$IFDEF VER90}
+  {$DEFINE Delphi2}
+  {$DEFINE Prior4}
+{$ENDIF}
+
+{$IFDEF VER100}
+  {$DEFINE Delphi3}
+  {$DEFINE Prior4}
+{$ENDIF}
+
+{$IFDEF VER120}
+  {$DEFINE Delphi4}
+  {$DeFINE Post4}
+  {$DEFINE D4+}
+{$ENDIF}
+
+{$IFDEF VER150}
+  {$DEFINE D4+}
+  {$DEFINE D5+}
+  {$DEFINE D6+}
+  {$DEFINE D7+}
+{$ENDIF}
+
+{$IFDEF VER130}
+  {$IFDEF BCB}			// C++Buider 5.0
+  {$ObjExportAll on}
+  {$ENDIF}
+
+  {$DEFINE D4+}
+  {$DEFINE D5+}
+{$ENDIF}
+
+{$IFDEF VER140}
+  {$DEFINE D4+}
+  {$DEFINE D5+}
+  {$DEFINE D6+}
+  {$IFDEF BCB}			// C++Buider 6.0
+  {$ObjExportAll on}
+  {$ENDIF}
+  {$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}
+
+{$IFDEF VER170}
+  {$DEFINE D4+}
+  {$DEFINE D5+}
+  {$DEFINE D6+}
+  {$DEFINE D7+}
+  {$DEFINE D9+}
+
+  {$INLINE OFF}
+  {$WARN UNSAFE_TYPE OFF}
+  {$WARN UNSAFE_CODE OFF}
+  {$WARN UNSAFE_CAST OFF}
+  {$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF}

cli/xsdedit.dfm

+object XSDEditor: TXSDEditor
+  Left = 125
+  Top = 121
+  Caption = 'XSDEditor'
+  ClientHeight = 362
+  ClientWidth = 607
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poOwnerFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TPanel
+    Left = 0
+    Top = 329
+    Width = 607
+    Height = 33
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+    DesignSize = (
+      607
+      33)
+    object Button1: TButton
+      Left = 440
+      Top = 6
+      Width = 75
+      Height = 22
+      Anchors = [akTop, akRight]
+      Caption = 'OK'
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object Button2: TButton
+      Left = 528
+      Top = 6
+      Width = 75
+      Height = 22
+      Anchors = [akTop, akRight]
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+  object PopupMenu1: TPopupMenu
+    OnPopup = PopupMenu1Popup
+    Left = 16
+    Top = 24
+    object AddShort: TMenuItem
+      Caption = 'Add short'
+    end
+    object AddFull: TMenuItem
+      Caption = 'Add full'
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object DelItem: TMenuItem
+      Caption = 'Delete'
+      OnClick = DelItemClick
+    end
+  end
+end