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 ----
|
