summaryrefslogtreecommitdiff
path: root/plugins/Pascal_Headers/reserve/m_autoreplacer.inc
diff options
context:
space:
mode:
authorAlexey Kulakov <panda75@bk.ru>2012-06-29 06:56:07 +0000
committerAlexey Kulakov <panda75@bk.ru>2012-06-29 06:56:07 +0000
commita2795725f5afc756a405a85c192bdd53b967999d (patch)
tree08548adc194d0c2a960120a342bac02208c3e23f /plugins/Pascal_Headers/reserve/m_autoreplacer.inc
parentaf7e438cfe8ce85e1da234318ed1584e89d952cc (diff)
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
Diffstat (limited to 'plugins/Pascal_Headers/reserve/m_autoreplacer.inc')
-rw-r--r--plugins/Pascal_Headers/reserve/m_autoreplacer.inc39
1 files changed, 39 insertions, 0 deletions
diff --git a/plugins/Pascal_Headers/reserve/m_autoreplacer.inc b/plugins/Pascal_Headers/reserve/m_autoreplacer.inc
new file mode 100644
index 0000000000..bc1d528463
--- /dev/null
+++ b/plugins/Pascal_Headers/reserve/m_autoreplacer.inc
@@ -0,0 +1,39 @@
+{
+ AutoReplacer plugin
+ by Angelo Luiz Tartari
+}
+
+{$IFNDEF M_AUTOREPLACER}
+{$DEFINE M_AUTOREPLACER}
+
+const
+
+{
+ Adds a window handle to AutoReplacer.
+ This handle must belong to any window based on a editbox (editbox, richtext, TMemo, TEdit, TMaskEdit, etc.).
+ After adding a handle, AutoReplacer will automatically work on this window.
+ wParam = 0
+ lParam = (LPARAM)(HWND)hwnd
+ Returns: 0 on success, -1 if hwnd is invalid, 1 on error.
+}
+ MS_AUTOREPLACER_ADDWINHANDLE = 'AutoReplacer/AddWinHandle';
+
+{
+ Removes a window handle from AutoReplacer's list.
+ wParam = 0
+ lParam = (LPARAM)(HWND)hwnd
+ Returns: 0 on success, -1 if hwnd is invalid, 1 if hwnd wasn't found.
+}
+ MS_AUTOREPLACER_REMWINHANDLE = 'AutoReplacer/RemWinHandle';
+
+ function autoreplacer_AddWinHandle(hwnd: HWND): integer;
+ begin
+ Result := CallService(MS_AUTOREPLACER_ADDWINHANDLE, 0, LPARAM(hwnd));
+ end;
+
+ function autoreplacer_RemWinHandle(hwnd: HWND): integer;
+ begin
+ Result := CallService(MS_AUTOREPLACER_REMWINHANDLE, 0, LPARAM(hwnd));
+ end;
+
+{$ENDIF} \ No newline at end of file