From 858af271c0175cce3aad327c8092f6bcd69c89b4 Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Fri, 12 Apr 2019 16:48:28 +0300
Subject: major crutch for pascal plugins

---
 include/delphi/m_api.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'include/delphi/m_api.pas')

diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas
index 5500263fca..6237eaaa56 100644
--- a/include/delphi/m_api.pas
+++ b/include/delphi/m_api.pas
@@ -142,13 +142,19 @@ type
 
 type
   PCMPlugin = ^CMPlugin;
-  CMPlugin = record
+  CMPlugin = packed record
     vft        : pointer;  // virtual function table
+
     m_hInst    : THANDLE;
     m_szModule : PAnsiChar;
     m_pInfo    : PPLUGININFOEX;
     m_hLogger  : THANDLE;
-    m_hLang    : int;
+
+    blabla1    : pointer;  // emulator of icon's list
+    blabla2    : integer;
+    blabla3    : integer;
+    blabla4    : integer;
+    blabla5    : pointer;
   end;
 
 //----- Fork enchancement -----
@@ -252,6 +258,7 @@ implementation
 initialization
   g_plugin.m_hInst := hInstance;
   g_plugin.m_pInfo := @PluginInfo;
+  g_plugin.blabla4 := 10;
   RegisterPlugin(g_plugin);
 
 finalization
-- 
cgit v1.2.3