From 65e002b63efdb00571d0ba4ec1a73b14e1d7d3a0 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 4 Jul 2012 20:10:29 +0000
Subject: Pascal headers moved to include\delphi directory (with small updates)
 removed deprecated m_mwclc.h file and link on it in AutoShutdown plugin

git-svn-id: http://svn.miranda-ng.org/main/trunk@763 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/reserve/m_snapping_windows.inc | 35 +++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 include/delphi/reserve/m_snapping_windows.inc

(limited to 'include/delphi/reserve/m_snapping_windows.inc')

diff --git a/include/delphi/reserve/m_snapping_windows.inc b/include/delphi/reserve/m_snapping_windows.inc
new file mode 100644
index 0000000000..e3c513482a
--- /dev/null
+++ b/include/delphi/reserve/m_snapping_windows.inc
@@ -0,0 +1,35 @@
+{$IFNDEF SNAPPING_WINDOWS}
+{$DEFINE SNAPPING_WINDOWS}
+
+type
+  PSnapWindowProc = ^TSnapWindowProc;
+  TSnapWindowProc = record
+    hWnd           : THWND;
+    m_szMoveOffset : TSIZE;
+    wParam         : WPARAM;
+    lParam         : LPARAM;
+    Reserved1      : int;
+    Reserved2      : int;
+    Reserved3      : int;
+  end;
+
+const
+  MS_SNAPWINDOWPROC = 'Utils/SnapWindowProc';
+
+function CallSnappingWindowProc(hwnd:hwnd; nMessage:int;
+  wParam:WPARAM;lParam:LPARAM):int;// cdecl;
+const
+  SnapInfo:TSnapWindowProc=();
+begin
+  result:=0;
+  if (nMessage=WM_MOVING) or (nMessage=WM_NCLBUTTONDOWN) or
+     (nMessage=WM_SYSCOMMAND) or (nMessage=WM_SIZING) then
+  begin
+    SnapInfo.hWnd   := hwnd;
+    SnapInfo.wParam := wParam;
+    SnapInfo.lParam := lParam;
+    CallService(MS_SNAPWINDOWPROC,WPARAM(@SnapInfo),nMessage);
+    if nMessage=WM_SIZING then result:=1;
+  end;
+end;
+{$ENDIF}
-- 
cgit v1.2.3