[Synedit-checkins] SynEdit/Source SynEdit.pas,1.386.2.17,1.386.2.18

[Marko N. <mar...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4974

Modified Files:
      Tag: Unicode_2004_08_31
	SynEdit.pas 
Log Message:
Fixed bug: [ 1144954 ] Column selection buggy when text contains tabs
Actual fix was committed to the CVS HEAD in revision 1.392, but wasn't completely merged to the Unicode branch

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.386.2.17
retrieving revision 1.386.2.18
diff -u -d -r1.386.2.17 -r1.386.2.18
--- SynEdit.pas	10 Jan 2005 13:49:52 -0000	1.386.2.17
+++ SynEdit.pas	24 Feb 2005 21:56:28 -0000	1.386.2.18
@@ -1,10518 +1,10514 @@
-{-------------------------------------------------------------------------------
-The contents of this file are subject to the Mozilla Public License
-Version 1.1 (the "License"); you may not use this file except in compliance
-with the License. You may obtain a copy of the License at
-http://www.mozilla.org/MPL/
-
-Software distributed under the License is distributed on an "AS IS" basis,
-WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
-the specific language governing rights and limitations under the License.
-
-The Original Code is: SynEdit.pas, released 2000-04-07.
[...21001 lines suppressed...]
+    // Hooking GetMessage/PeekMessage-calls is necessary as the use of
+    // PeekMessageA in TApplication.ProcessMessage mutilates Unicode-messages.
+    if Win32Platform = VER_PLATFORM_WIN32_NT then
+      GetMsgHook := SetWindowsHookExW(WH_GETMESSAGE, @GetMsgProc, HInstance,
+        GetCurrentThreadId);
+  end
+  else
+    GetMsgHook := 0;
+
+  SynEditClipboardFormat := RegisterClipboardFormat(SYNEDIT_CLIPBOARD_FORMAT);
+{$ENDIF}
+
+finalization
+{$IFNDEF SYN_CLX}
+  if (Win32Platform = VER_PLATFORM_WIN32_NT) and (GetMsgHook <> 0) then
+    UnhookWindowsHookEx(GetMsgHook);
+{$ENDIF}                
+
 end.
\ No newline at end of file