paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 17:50:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for #27723, ImmGetCompositionStringW returns long (signed)

Browse Source 
git-svn-id: trunk@30327 -
This commit is contained in:
marco 2015-03-26 09:50:34 +00:00
parent 72180d1010
commit c0e22fd89b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/winunits-base/src/imm.pas
View File

@ -314,17 +314,17 @@ function ImmReleaseContext(wnd: HWND; imc: HIMC): LongBool; stdcall; external Im
function ImmAssociateContext(wnd: HWND; imc: HIMC): HIMC; stdcall; external Imm name 'ImmAssociateContext';
function ImmAssociateContextEx(wnd: HWND; imc: HIMC; dwFlags: DWORD): LongBool; stdcall; external Imm name 'ImmAssociateContextEx';
function ImmGetCompositionStringA(imc: HIMC; dwIndex: DWORD;
function ImmGetCompositionStringA(imc: HIMC; dwIndex: LONG;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall; external Imm name 'ImmGetCompositionStringA';
function ImmGetCompositionStringW(imc: HIMC; dwIndex: DWORD;
function ImmGetCompositionStringW(imc: HIMC; dwIndex: LONG;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall; external Imm name 'ImmGetCompositionStringW';
{$ifndef UNICODE}
function ImmGetCompositionString(imc: HIMC; dwIndex: DWORD;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall; external Imm name 'ImmGetCompositionStringA';
lpBuf: LPVOID; dwBufLen: DWORD): LONG; stdcall; external Imm name 'ImmGetCompositionStringA';
{$else}
function ImmGetCompositionString(imc: HIMC; dwIndex: DWORD;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall; external Imm name 'ImmGetCompositionStringW';
lpBuf: LPVOID; dwBufLen: DWORD): LONG; stdcall; external Imm name 'ImmGetCompositionStringW';
{$endif}
function ImmSetCompositionStringA(imc: HIMC; dwIndex: DWORD; lpComp: LPVOID;

4
packages/winunits-base/src/imm_dyn.pas
View File

@ -45,9 +45,9 @@ var
ImmAssociateContextEx: function (wnd: HWND; imc: HIMC; dwFlags: DWORD): LongBool; stdcall = nil;
ImmGetCompositionStringA: function (imc: HIMC; dwIndex: DWORD;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall = nil;
lpBuf: LPVOID; dwBufLen: DWORD): LONG; stdcall = nil;
ImmGetCompositionStringW: function (imc: HIMC; dwIndex: DWORD;
lpBuf: LPVOID; dwBufLen: DWORD): Longword; stdcall = nil;
lpBuf: LPVOID; dwBufLen: DWORD): LONG; stdcall = nil;
ImmSetCompositionStringA: function (imc: HIMC; dwIndex: DWORD; lpComp: LPVOID;
dwCompLen: DWORD; lpRead: LPVOID; dwReadLen: DWORD): LongBool; stdcall = nil;