[utf8vcl-cvs] utf8vcl UTF8VCL.pas, 1.15, 1.16 UTF8VCLMessages.pas, 1.18, 1.19 UTF8VCLUtils.pas, 1.10, 1.11

[Andreas H. <ah...@us...>]

Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31406

Modified Files:
	UTF8VCL.pas UTF8VCLMessages.pas UTF8VCLUtils.pas 
Log Message:
Some cleanup

Index: UTF8VCLUtils.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCLUtils.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** UTF8VCLUtils.pas	12 Mar 2007 19:31:17 -0000	1.10
--- UTF8VCLUtils.pas	17 Mar 2007 21:48:28 -0000	1.11
***************
*** 105,111 ****
        Result := PAbsoluteIndirectJmp(Proc).Addr^
      else
-     if (PAbsoluteIndirectJmp(Proc).OpCode = $) then // JMP mem32
-       Result := PAbsoluteIndirectJmp(Proc).Addr^
-     else
        Result := Proc;
    end
--- 105,108 ----

Index: UTF8VCLMessages.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCLMessages.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** UTF8VCLMessages.pas	12 Mar 2007 19:31:17 -0000	1.18
--- UTF8VCLMessages.pas	17 Mar 2007 21:48:28 -0000	1.19
***************
*** 345,349 ****
        end;
    end;
!   Result := TempResult; // use CPU register when possible
  end;
  
--- 345,349 ----
        end;
    end;
!   Result := TempResult;
  end;
  

Index: UTF8VCL.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCL.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** UTF8VCL.pas	16 Mar 2007 23:39:11 -0000	1.15
--- UTF8VCL.pas	17 Mar 2007 21:48:28 -0000	1.16
***************
*** 19,28 ****
    UTF8VCLUtils, UTF8VCLMessages, UTF8VCLControls;
  
- {
- function _CreateWindowExA(dwExStyle: DWORD; lpClassName: PAnsiChar;
-   lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
-   hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
-   stdcall; external user32 name 'CreateWindowExA';
- }
  function _CreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
    lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
--- 19,22 ----
***************
*** 123,133 ****
  end;
  
- {function CreateWindowAIntercept(lpClassName: PAnsiChar; lpWindowName: PAnsiChar; dwStyle: DWORD;
-   X, Y, nWidth, nHeight: Integer; hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
- begin
-   Result := CreateWindowExAIntercept(0, lpClassName, lpWindowName, dwStyle, X, Y, nWidth, nHeight,
-     hWndParent, hMenu, hInstance, lpParam);
- end;}
- 
  function UnregisterClassAIntercept(lpClassName: PAnsiChar; hInstance: HINST): BOOL; stdcall;
  var
--- 117,120 ----