浏览代码

* Make OnLastRelease event available. Patch by michalgw, fixes issue #41247

(cherry picked from commit dd3a4de61929dede65845430d526e0d850db2e6c)
Michaël Van Canneyt 4 月之前
父节点
当前提交
f6dd0f5903
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/winunits-base/src/comserv.pp

+ 1 - 0
packages/winunits-base/src/comserv.pp

@@ -92,6 +92,7 @@ type
     property IsInteractive: Boolean read fIsInteractive;
     property IsInteractive: Boolean read fIsInteractive;
     property StartMode: TStartMode read FStartMode;
     property StartMode: TStartMode read FStartMode;
     property ServerObjects:integer read fCountObject;
     property ServerObjects:integer read fCountObject;
+    property OnLastRelease: TLastReleaseEvent read FOnLastRelease write FOnLastRelease;
   end;
   end;
 
 
 var
 var