1 files changed, 88 insertions, 0 deletions
diff --git a/plugins/Pascal_Headers/reserve/m_yapp.inc b/plugins/Pascal_Headers/reserve/m_yapp.inc
new file mode 100644
index 0000000000..772c5cca81
--- /dev/null
+++ b/plugins/Pascal_Headers/reserve/m_yapp.inc
@@ -0,0 +1,88 @@
+{$IFNDEF M_YAPP}
+{$DEFINE M_YAPP}
+
+////////////////////////////////////////////////
+// YAPP API
+///////////////////////////////////////////////
+
+type
+  TPopupData = record
+    cbSize    :int;
+    flags     :int;      // OR of PDF_* flags below
+    hContact  :HANDLE;
+    hIcon     :HICON;
+    szTitle   :TChar;
+    szText    :TChar;
+    colorBack :COLORREF; // if colorBack and colorText are equal, defaults will be used
+    colorText :COLORREF;
+    windowProc:WNDPROC;  // optional custom window procedure
+    timeout   :int;      // -1 == infinite, 0 == default, otherwise timeout in seconds
+    opaque    :pointer;
+  end;
+
+const
+  PDF_UNICODE = $0001;
+
+// windowProc messages
+  PM_INIT      = WM_USER+$0202; // message sent to your windowProc after the window has been initialized
+  PM_DIENOTIFY = WM_USER+$0200; // message sent to your windowProc just before the window is destroyed (can be used e.g. to free your opaque data)
+  PM_DESTROY   = WM_USER+$0201; // send to the popup hWnd (use PostMessage generally, or SendMessage inside your windowProc) to kill it
+
+// Show a popup
+//wParam = &PopupData
+//lParam = 0
+// returns -1 if popups disabled
+  MS_YAPP_SHOWPOPUP = 'YAPP/ShowPopup';
+
+// get hContact from PopupData
+// wParam = hWnd
+// lParam = 0
+// return hContact
+  MS_YAPP_GETCONTACT = 'YAPP/GetContact';
+
+// get opaque from PopupData
+// wParam = hWnd
+// lParam = 0
+// returns opaque
+  MS_YAPP_GETOPAQUE = 'YAPP/GetOpaque';
+
+//------------- Class API ----------------//
+
+type
+  TPopupClass = record
+    cbSize       :int;
+    flags        :int;
+    pszName      :PAnsiChar;
+    szDescription:TChar;
+    hIcon        :HICON;
+    colorBack    :COLORREF;
+    colorText    :COLORREF;
+    windowProc   :WNDPROC;
+    timeout      :int;
+  end;
+
+const
+  PCF_UNICODE = $0001;
+
+// wParam = 0
+// lParam = (POPUPCLASS *)&pc
+  MS_YAPP_REGISTERCLASS = 'YAPP/RegisterClass'; // old
+  MS_POPUP_REGISTERCLASS = 'PopUp/RegisterClass';
+
+type
+  TPopupClassInstance = record
+    cbSize      :int;
+    pszClassName:PAnsiChar;
+    szTitle     :TChar;
+    szText      :TChar;
+    opaque      :pointer;
+    hContact    :HANDLE;
+  end;
+
+const
+// wParam = 0
+// lParam = (POPUPDATACLASS *)&pdc
+  MS_YAPP_CLASSINSTANCE = 'YAPP/ClassInstance'; // old
+  MS_POPUP_ADDPOPUPCLASS = 'PopUp/AddPopupClass';
+
+{$ENDIF}