From a2795725f5afc756a405a85c192bdd53b967999d Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Fri, 29 Jun 2012 06:56:07 +0000
Subject: Added my Miranda API pascal version Changed ShlExt to my API
 compilation (32 bit FPC now only)

git-svn-id: http://svn.miranda-ng.org/main/trunk@679 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 .../reserve/m_changekeyboardlayout.inc             | 31 ++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 plugins/Pascal_Headers/reserve/m_changekeyboardlayout.inc

(limited to 'plugins/Pascal_Headers/reserve/m_changekeyboardlayout.inc')

diff --git a/plugins/Pascal_Headers/reserve/m_changekeyboardlayout.inc b/plugins/Pascal_Headers/reserve/m_changekeyboardlayout.inc
new file mode 100644
index 0000000000..b1df7628c1
--- /dev/null
+++ b/plugins/Pascal_Headers/reserve/m_changekeyboardlayout.inc
@@ -0,0 +1,31 @@
+{$IFNDEF M_CHANGEKEYBOARDLAYOUT}
+{$DEFINE M_CHANGEKEYBOARDLAYOUT}
+
+const
+// change keyboard layout of text
+// wParam - HWND or NULL for current window
+// lParam must be 0
+// returns 0 on success and returns non-zero (-1) on error.
+  MS_CKL_CHANGELAYOUT 'ChangeKeyboardLayout/ChangeLayout';
+
+//wParam должен быть ноль.
+//lParam - LPCTSTR текста, раскладку которого требуется определить,
+//Возвращает HKL раскладку текста, или NULL в случае ошибки.
+//Примечание: При определении раскладки учитывается опция "Раскладка текста - текущая раскладка"
+  MS_CKL_GETLAYOUTOFTEXT = 'ChangeKeyboardLayout/GetLayoutOfText';
+
+type
+  CKLLayouts = record
+    hklFrom:HKL;   // layout of the current text
+    hklTo :HKL;    // layout of the result text
+    bTwoWay:bool;
+  end;
+
+const
+//wParam - LPCTSTR исходного текста
+//lParam - указатель на структуру CKLLayouts, содержащую раскладки для 
+//изменения текста и опцию "двунаправленного преобразования"
+//Возвращает LPTSTR на результирующую строку
+  MS_CKL_CHANGETEXTLAYOUT = 'ChangeKeyboardLayout/ChangeTextLayout';
+
+{$ENDIF}
-- 
cgit v1.2.3